diff --git a/common/goos/PrettyPrinter2.cpp b/common/goos/PrettyPrinter2.cpp
index a2bae23c69..5a6b6f9ccd 100644
--- a/common/goos/PrettyPrinter2.cpp
+++ b/common/goos/PrettyPrinter2.cpp
@@ -219,7 +219,7 @@ void break_list(Node* node) {
       // things with 4 things in the top line: (defmethod <method> <type> <args>
       node->top_line_count = 4;
     } else if (name == "until" || name == "while" || name == "dotimes" || name == "countdown" ||
-               name == "when" || name == "behavior" || name == "lambda") {
+               name == "when" || name == "behavior" || name == "lambda" || name == "defpart") {
       node->top_line_count = 2;
     } else if (name == "let" || name == "let*" || name == "rlet") {
       // special case for things like let.
@@ -264,9 +264,9 @@ void break_list(Node* node) {
 
 void insert_required_breaks(const std::vector<Node*>& bfs_order) {
   const std::unordered_set<std::string> always_break = {
-      "when", "defun-debug", "countdown", "case", "defun",    "defmethod",
-      "let",  "until",       "while",     "if",   "dotimes",  "cond",
-      "else", "defbehavior", "with-pp",   "rlet", "defstate", "behavior"};
+      "when",    "defun-debug", "countdown", "case",     "defun",  "defmethod", "let",
+      "until",   "while",       "if",        "dotimes",  "cond",   "else",      "defbehavior",
+      "with-pp", "rlet",        "defstate",  "behavior", "defpart"};
   for (auto node : bfs_order) {
     if (!node->break_list && node->kind == Node::Kind::LIST &&
         node->child_nodes.at(0).kind == Node::Kind::ATOM) {
diff --git a/common/util/print_float.cpp b/common/util/print_float.cpp
index 4227b5d15c..579ba81e64 100644
--- a/common/util/print_float.cpp
+++ b/common/util/print_float.cpp
@@ -1,7 +1,7 @@
 #include <cmath>
 
 #include "third-party/fmt/core.h"
-#include "common/common_types.h"
+#include "common/goal_constants.h"
 #include "third-party/dragonbox.h"
 #include "print_float.h"
 #include "common/util/assert.h"
@@ -19,6 +19,14 @@ std::string float_to_string(float value, bool append_trailing_decimal) {
   return {buff};
 }
 
+/*!
+ * Wrapper around float_to_string, for printing meters. Unlike float_to_string, it does not append
+ * decimals by default.
+ */
+std::string meters_to_string(float value, bool append_trailing_decimal) {
+  return float_to_string(value / METER_LENGTH, append_trailing_decimal);
+}
+
 int float_to_cstr(float value, char* buffer, bool append_trailing_decimal) {
   assert(std::isfinite(value));
   // dragonbox gives us:
diff --git a/common/util/print_float.h b/common/util/print_float.h
index b208a152e2..3849b7b279 100644
--- a/common/util/print_float.h
+++ b/common/util/print_float.h
@@ -3,4 +3,5 @@
 #include <string>
 
 std::string float_to_string(float value, bool append_trailing_decimal = true);
-int float_to_cstr(float value, char* buffer, bool append_trailing_decimal = true);
\ No newline at end of file
+std::string meters_to_string(float value, bool append_trailing_decimal = false);
+int float_to_cstr(float value, char* buffer, bool append_trailing_decimal = true);
diff --git a/decompiler/CMakeLists.txt b/decompiler/CMakeLists.txt
index 1e81e8d938..583cc618a2 100644
--- a/decompiler/CMakeLists.txt
+++ b/decompiler/CMakeLists.txt
@@ -6,6 +6,7 @@ add_library(
         analysis/cfg_builder.cpp
         analysis/expression_build.cpp
         analysis/final_output.cpp
+        analysis/find_defpartgroup.cpp
         analysis/find_defstates.cpp
         analysis/find_skelgroups.cpp
         analysis/inline_asm_rewrite.cpp
diff --git a/decompiler/IR2/Form.cpp b/decompiler/IR2/Form.cpp
index 598152eb6b..d0b1be7cc9 100644
--- a/decompiler/IR2/Form.cpp
+++ b/decompiler/IR2/Form.cpp
@@ -7,6 +7,7 @@
 #include "common/type_system/TypeSystem.h"
 #include "decompiler/util/DecompilerTypeSystem.h"
 #include "decompiler/util/data_decompile.h"
+#include "decompiler/util/sparticle_decompile.h"
 #include "common/util/print_float.h"
 
 namespace decompiler {
@@ -2985,21 +2986,18 @@ goos::Object DefskelgroupElement::to_form_internal(const Env& env) const {
 
   std::vector<goos::Object> lod_forms;
   for (const auto& e : m_info.lods) {
-    auto f_dist = pretty_print::to_symbol(fmt::format(
-        "(meters {})", float_to_string(e.lod_dist->to_form(env).as_float() / METER_LENGTH, false)));
+    auto f_dist = pretty_print::to_symbol(
+        fmt::format("(meters {})", meters_to_string(e.lod_dist->to_form(env).as_float())));
     lod_forms.push_back(pretty_print::build_list(e.mgeo->to_form(env), f_dist));
   }
   forms.push_back(pretty_print::build_list(lod_forms));
 
+  forms.push_back(pretty_print::to_symbol(fmt::format(
+      ":bounds (static-spherem {} {} {} {})", meters_to_string(m_static_info.bounds.x()),
+      meters_to_string(m_static_info.bounds.y()), meters_to_string(m_static_info.bounds.z()),
+      meters_to_string(m_static_info.bounds.w()))));
   forms.push_back(pretty_print::to_symbol(
-      fmt::format(":bounds (static-spherem {} {} {} {})",
-                  float_to_string(m_static_info.bounds.x() / METER_LENGTH, false),
-                  float_to_string(m_static_info.bounds.y() / METER_LENGTH, false),
-                  float_to_string(m_static_info.bounds.z() / METER_LENGTH, false),
-                  float_to_string(m_static_info.bounds.w() / METER_LENGTH, false))));
-  forms.push_back(pretty_print::to_symbol(
-      fmt::format(":longest-edge (meters {})",
-                  float_to_string(m_static_info.longest_edge / METER_LENGTH, false))));
+      fmt::format(":longest-edge (meters {})", meters_to_string(m_static_info.longest_edge))));
 
   if (m_static_info.shadow != 0) {
     forms.push_back(pretty_print::to_symbol(fmt::format(":shadow {}", m_static_info.shadow)));
@@ -3018,6 +3016,149 @@ goos::Object DefskelgroupElement::to_form_internal(const Env& env) const {
   return pretty_print::build_list(forms);
 }
 
+////////////////////////////////
+// DefpartgroupElement
+////////////////////////////////
+
+DefpartgroupElement::DefpartgroupElement(const StaticInfo& data, int group_id)
+    : m_static_info(data), m_group_id(group_id) {}
+
+void DefpartgroupElement::apply(const std::function<void(FormElement*)>& f) {
+  f(this);
+}
+
+void DefpartgroupElement::apply_form(const std::function<void(Form*)>& f) {}
+void DefpartgroupElement::collect_vars(RegAccessSet& vars, bool recursive) const {}
+void DefpartgroupElement::get_modified_regs(RegSet& regs) const {}
+
+goos::Object DefpartgroupElement::to_form_internal(const Env& env) const {
+  std::vector<goos::Object> forms;
+  forms.push_back(pretty_print::to_symbol(fmt::format("defpartgroup {}", name())));
+  forms.push_back(pretty_print::to_symbol(fmt::format(":id {}", m_group_id)));
+  if (m_static_info.duration != 3000) {
+    forms.push_back(pretty_print::to_symbol(fmt::format(":duration {}", m_static_info.duration)));
+  }
+  if (m_static_info.linger != 1500) {
+    forms.push_back(
+        pretty_print::to_symbol(fmt::format(":linger-duration {}", m_static_info.linger)));
+  }
+  if (m_static_info.flags != 0) {
+    auto things = decompile_bitfield_enum_from_int(TypeSpec("sp-group-flag"), env.dts->ts,
+                                                   m_static_info.flags);
+    std::string result = ":flags (";
+    for (auto& thing : things) {
+      result += thing;
+      result += ' ';
+    }
+    result.pop_back();
+    result += ')';
+    forms.push_back(pretty_print::to_symbol(result));
+  }
+  forms.push_back(pretty_print::to_symbol(fmt::format(
+      ":bounds (static-bspherem {} {} {} {})", meters_to_string(m_static_info.bounds.x()),
+      meters_to_string(m_static_info.bounds.y()), meters_to_string(m_static_info.bounds.z()),
+      meters_to_string(m_static_info.bounds.w()))));
+
+  std::vector<goos::Object> item_forms;
+  for (const auto& e : m_static_info.elts) {
+    s32 launcher = e.part_id;
+    u16 flags = e.flags;
+    u16 period = e.period;
+    u16 length = e.length;
+    u16 offset = e.offset;
+    u32 hour_mask = e.hour_mask;
+    u32 binding = e.binding;
+
+    std::string result =
+        fmt::format("(sp-item {}", launcher);  // use decimal, so it matches array idx
+
+    if (e.fade != 0.0) {
+      result += fmt::format(" :fade-after (meters {})", meters_to_string(e.fade));
+    }
+
+    if (e.falloff != 0.0) {
+      result += fmt::format(" :falloff-to (meters {})", meters_to_string(e.falloff));
+    }
+
+    if (flags) {
+      auto things =
+          decompile_bitfield_enum_from_int(TypeSpec("sp-group-item-flag"), env.dts->ts, flags);
+      result += " :flags (";
+      for (auto& thing : things) {
+        result += thing;
+        result += ' ';
+      }
+      result.pop_back();
+      result += ')';
+    }
+
+    if (period) {
+      result += fmt::format(" :period {}", period);
+    }
+
+    if (length) {
+      result += fmt::format(" :length {}", length);
+    }
+
+    if (offset) {
+      result += fmt::format(" :offset {}", offset);
+    }
+
+    if (hour_mask) {
+      result += fmt::format(" :hour-mask #b{:b}", hour_mask);
+    }
+
+    if (binding) {
+      result += fmt::format(" :binding {}", binding);
+    }
+
+    result += ')';
+
+    item_forms.push_back(pretty_print::to_symbol(result));
+  }
+  if (!item_forms.empty()) {
+    forms.push_back(pretty_print::to_symbol(":parts"));
+    forms.push_back(pretty_print::build_list(item_forms));
+  }
+
+  return pretty_print::build_list(forms);
+}
+
+////////////////////////////////
+// DefpartElement
+////////////////////////////////
+
+DefpartElement::DefpartElement(const StaticInfo& data, int id) : m_static_info(data), m_id(id) {}
+
+void DefpartElement::apply(const std::function<void(FormElement*)>& f) {
+  f(this);
+}
+
+void DefpartElement::apply_form(const std::function<void(Form*)>& f) {}
+void DefpartElement::collect_vars(RegAccessSet& vars, bool recursive) const {}
+void DefpartElement::get_modified_regs(RegSet& regs) const {}
+
+goos::Object DefpartElement::to_form_internal(const Env& env) const {
+  std::vector<goos::Object> forms;
+  forms.push_back(pretty_print::to_symbol("defpart"));
+  forms.push_back(pretty_print::to_symbol(fmt::format("{}", m_id)));
+
+  std::vector<goos::Object> item_forms;
+  for (const auto& e : m_static_info.fields) {
+    if (e.field_id == 67) {
+      // sp-end
+      break;
+    }
+    item_forms.push_back(decompile_sparticle_field_init(e, env.dts->ts));
+  }
+  if (!item_forms.empty()) {
+    forms.push_back(pretty_print::to_symbol(":init-specs"));
+    forms.push_back(pretty_print::build_list(item_forms));
+  }
+
+  return pretty_print::build_list(forms);
+}
+
 ////////////////////////////////
 // ResLumpMacroElement
 ////////////////////////////////
diff --git a/decompiler/IR2/Form.h b/decompiler/IR2/Form.h
index 84a927a3d6..5c32d372e1 100644
--- a/decompiler/IR2/Form.h
+++ b/decompiler/IR2/Form.h
@@ -12,6 +12,7 @@
 #include "common/type_system/state.h"
 #include "decompiler/IR2/LabelDB.h"
 #include "common/math/Vector.h"
+#include "decompiler/ObjectFile/LinkedWord.h"
 
 namespace decompiler {
 class Form;
@@ -1674,6 +1675,77 @@ class DefskelgroupElement : public FormElement {
   Info m_info;
 };
 
+class DefpartgroupElement : public FormElement {
+ public:
+  struct StaticInfo {
+    u16 duration;
+    u16 linger;
+    u16 flags;
+    std::string name;
+    math::Vector4f bounds;
+
+    struct PartGroupItem {
+      u32 part_id;
+      float fade;
+      float falloff;
+      u16 flags;
+      u16 period;
+      u16 length;
+      u16 offset;
+      u32 hour_mask;
+      u32 binding;
+    };
+    std::vector<PartGroupItem> elts;
+  };
+  DefpartgroupElement(const StaticInfo& data, int group_id);
+
+  goos::Object to_form_internal(const Env& env) const override;
+  void apply(const std::function<void(FormElement*)>& f) override;
+  void apply_form(const std::function<void(Form*)>& f) override;
+  void collect_vars(RegAccessSet& vars, bool recursive) const override;
+  void update_from_stack(const Env& env,
+                         FormPool& pool,
+                         FormStack& stack,
+                         std::vector<FormElement*>* result,
+                         bool allow_side_effects) override;
+  void get_modified_regs(RegSet& regs) const override;
+
+  const std::string& name() const { return m_static_info.name; }
+
+ private:
+  StaticInfo m_static_info;
+  int m_group_id;
+};
+
+class DefpartElement : public FormElement {
+ public:
+  struct StaticInfo {
+    struct PartField {
+      u16 field_id;
+      u16 flags;
+      std::vector<LinkedWord> data;
+      goos::Object sound_spec;
+    };
+    std::vector<PartField> fields;
+  };
+  DefpartElement(const StaticInfo& data, int id);
+
+  goos::Object to_form_internal(const Env& env) const override;
+  void apply(const std::function<void(FormElement*)>& f) override;
+  void apply_form(const std::function<void(Form*)>& f) override;
+  void collect_vars(RegAccessSet& vars, bool recursive) const override;
+  void update_from_stack(const Env& env,
+                         FormPool& pool,
+                         FormStack& stack,
+                         std::vector<FormElement*>* result,
+                         bool allow_side_effects) override;
+  void get_modified_regs(RegSet& regs) const override;
+
+ private:
+  StaticInfo m_static_info;
+  int m_id;
+};
+
 class ResLumpMacroElement : public FormElement {
  public:
   enum class Kind { DATA, STRUCT, VALUE, INVALID };
diff --git a/decompiler/IR2/FormExpressionAnalysis.cpp b/decompiler/IR2/FormExpressionAnalysis.cpp
index 85b074d9fd..5a6933e939 100644
--- a/decompiler/IR2/FormExpressionAnalysis.cpp
+++ b/decompiler/IR2/FormExpressionAnalysis.cpp
@@ -5350,6 +5350,24 @@ void DefskelgroupElement::update_from_stack(const Env&,
   result->push_back(this);
 }
 
+void DefpartgroupElement::update_from_stack(const Env&,
+                                            FormPool&,
+                                            FormStack&,
+                                            std::vector<FormElement*>* result,
+                                            bool) {
+  mark_popped();
+  result->push_back(this);
+}
+
+void DefpartElement::update_from_stack(const Env&,
+                                       FormPool&,
+                                       FormStack&,
+                                       std::vector<FormElement*>* result,
+                                       bool) {
+  mark_popped();
+  result->push_back(this);
+}
+
 void ResLumpMacroElement::update_from_stack(const Env&,
                                             FormPool&,
                                             FormStack&,
diff --git a/decompiler/ObjectFile/ObjectFileDB_IR2.cpp b/decompiler/ObjectFile/ObjectFileDB_IR2.cpp
index c1ed0cb5c3..204d795add 100644
--- a/decompiler/ObjectFile/ObjectFileDB_IR2.cpp
+++ b/decompiler/ObjectFile/ObjectFileDB_IR2.cpp
@@ -23,6 +23,7 @@
 #include "decompiler/analysis/static_refs.h"
 #include "decompiler/analysis/symbol_def_map.h"
 #include "decompiler/analysis/find_skelgroups.h"
+#include "decompiler/analysis/find_defpartgroup.h"
 #include "common/goos/PrettyPrinter.h"
 #include "decompiler/IR2/Form.h"
 #include "decompiler/analysis/mips2c.h"
@@ -60,14 +61,21 @@ void ObjectFileDB::analyze_functions_ir2(
     ir2_do_segment_analysis_phase2(TOP_LEVEL_SEGMENT, config, data);
     try {
       if (data.linked_data.functions_by_seg.size() == 3) {
-        run_defstate(data.linked_data.functions_by_seg.at(2).front(), skip_states);
+        run_defpartgroup(data.linked_data.functions_by_seg.at(TOP_LEVEL_SEGMENT).front());
+      }
+    } catch (const std::exception& e) {
+      lg::error("Failed to find defpartgroups: {}", e.what());
+    }
+    try {
+      if (data.linked_data.functions_by_seg.size() == 3) {
+        run_defstate(data.linked_data.functions_by_seg.at(TOP_LEVEL_SEGMENT).front(), skip_states);
       }
     } catch (const std::exception& e) {
       lg::error("Failed to find defstates: {}", e.what());
     }
     try {
       if (data.linked_data.functions_by_seg.size() == 3) {
-        run_defskelgroups(data.linked_data.functions_by_seg.at(2).front());
+        run_defskelgroups(data.linked_data.functions_by_seg.at(TOP_LEVEL_SEGMENT).front());
       }
     } catch (const std::exception& e) {
       lg::error("Failed to find defskelgroups: {}", e.what());
diff --git a/decompiler/analysis/find_defpartgroup.cpp b/decompiler/analysis/find_defpartgroup.cpp
new file mode 100644
index 0000000000..2007c624c4
--- /dev/null
+++ b/decompiler/analysis/find_defpartgroup.cpp
@@ -0,0 +1,227 @@
+#include "find_defpartgroup.h"
+#include "common/goos/PrettyPrinter.h"
+#include "decompiler/IR2/Form.h"
+#include "decompiler/IR2/GenericElementMatcher.h"
+#include "decompiler/ObjectFile/LinkedObjectFile.h"
+#include "decompiler/util/data_decompile.h"
+
+namespace decompiler {
+
+namespace {
+
+const goos::Object& car(const goos::Object* x) {
+  return x->as_pair()->car;
+}
+
+const goos::Object* cdr(const goos::Object* x) {
+  return &x->as_pair()->cdr;
+}
+
+void read_static_group_data(DecompiledDataElement* src,
+                            const Env& env,
+                            DefpartgroupElement::StaticInfo& group) {
+  auto lab = src->label();
+  // looks like:
+  /*
+    .type sparticle-launch-group
+L81:
+    .word 0xbb80042
+    .word 0x405dc
+    .word L83
+    .word L82
+    .word 0x0
+    .word 0x0
+    .word 0x0
+    .word 0x0
+    .word 0x0
+    .word 0x0
+    .word 0x47800000
+L82:
+   */
+
+  int start_word_idx = (lab.offset / 4) - 1;
+  auto& words = env.file->words_by_seg.at(lab.target_segment);
+
+  auto& first_word = words.at(start_word_idx);
+  if (first_word.kind() != LinkedWord::TYPE_PTR ||
+      first_word.symbol_name() != "sparticle-launch-group") {
+    env.func->warnings.warn_and_throw(
+        "Reference to sparticle-launch-group bad: invalid type pointer");
+  }
+
+  auto& word_1 = words.at(start_word_idx + 1);
+  s16 len = word_1.data & 0xffff;
+  group.duration = (word_1.data >> 16) & 0xffff;
+  auto& word_2 = words.at(start_word_idx + 2);
+  group.linger = word_2.data & 0xffff;
+  group.flags = (word_2.data >> 16) & 0xffff;
+
+  auto& string_word = words.at(start_word_idx + 3);
+  if (string_word.kind() != LinkedWord::PTR) {
+    env.func->warnings.warn_and_throw(
+        "Reference to sparticle-launch-group bad: invalid name label");
+  }
+  group.name = env.file->get_goal_string_by_label(
+      env.file->get_label_by_name(env.file->get_label_name(string_word.label_id())));
+
+  auto& array_word = words.at(start_word_idx + 4);
+  if (array_word.kind() != LinkedWord::PTR) {
+    env.func->warnings.warn_and_throw(
+        "Reference to sparticle-launch-group bad: invalid array label");
+  }
+  auto& array_lab = env.file->get_label_by_name(env.file->get_label_name(array_word.label_id()));
+  auto& array_words = env.file->words_by_seg.at(array_lab.target_segment);
+  int array_start_word_idx = array_lab.offset / 4;
+  group.elts.clear();
+  for (int i = 0; i < len; ++i) {
+    int item_idx = i * 8 + array_start_word_idx;
+    auto& item = group.elts.emplace_back();
+    item.part_id = array_words.at(item_idx + 0).data;
+    item.fade = *reinterpret_cast<float*>(&array_words.at(item_idx + 1).data);
+    item.falloff = *reinterpret_cast<float*>(&array_words.at(item_idx + 2).data);
+    item.flags = array_words.at(item_idx + 3).data & 0xffff;
+    item.period = (array_words.at(item_idx + 3).data >> 16) & 0xffff;
+    item.length = array_words.at(item_idx + 4).data & 0xffff;
+    item.offset = (array_words.at(item_idx + 4).data >> 16) & 0xffff;
+    item.hour_mask = array_words.at(item_idx + 5).data;
+    item.binding = array_words.at(item_idx + 6).data;
+  }
+
+  for (int i = 0; i < 4; i++) {
+    auto& word = words.at(start_word_idx + 8 + i);
+    if (word.kind() != LinkedWord::PLAIN_DATA) {
+      env.func->warnings.warn_and_throw("Reference to sparticle-launch-group bad: invalid bounds");
+    }
+    group.bounds[i] = *reinterpret_cast<float*>(&word.data);
+  }
+}
+
+void read_static_part_data(DecompiledDataElement* src,
+                           const Env& env,
+                           DefpartElement::StaticInfo& part) {
+  auto lab = src->label();
+  // looks like:
+  /*
+    .type sparticle-launcher
+L79:
+    .word 0x0
+    .word 0x0
+    .word L80
+L80:
+    .word 0x1
+    .word 0x201200
+    .word 0x0
+    .word 0x0
+    .word 0x10006
+    .word 0x3dcccccd
+    .word 0x0
+    .word 0x3f800000
+   */
+
+  int start_word_idx = (lab.offset / 4) - 1;
+  auto& words = env.file->words_by_seg.at(lab.target_segment);
+
+  auto& first_word = words.at(start_word_idx);
+  if (first_word.kind() != LinkedWord::TYPE_PTR ||
+      first_word.symbol_name() != "sparticle-launcher") {
+    env.func->warnings.warn_and_throw("Reference to sparticle-launcher bad: invalid type pointer");
+  }
+
+  auto& empty1 = words.at(start_word_idx + 1);
+  auto& empty2 = words.at(start_word_idx + 2);
+  if (empty1.kind() != LinkedWord::PLAIN_DATA || empty1.data != 0 ||
+      empty2.kind() != LinkedWord::PLAIN_DATA || empty2.data != 0) {
+    env.func->warnings.warn_and_throw("Reference to sparticle-launcher bad: accums not empty");
+  }
+
+  auto& array_word = words.at(start_word_idx + 3);
+  if (array_word.kind() != LinkedWord::PTR) {
+    env.func->warnings.warn_and_throw("Reference to sparticle-launcher bad: invalid array label");
+  }
+  auto& array_lab = env.file->get_label_by_name(env.file->get_label_name(array_word.label_id()));
+  auto& array_words = env.file->words_by_seg.at(array_lab.target_segment);
+  int array_start_word_idx = array_lab.offset / 4;
+  part.fields.clear();
+  src->do_decomp(env, env.file);
+  auto obj = src->to_form(env);
+  obj = car(cdr(cdr(&obj)));
+  auto cur_field = cdr(&obj);
+  for (int i = 0; true; ++i) {
+    int field_idx = i * 4 + array_start_word_idx;
+    auto& item = part.fields.emplace_back();
+    item.field_id = array_words.at(field_idx + 0).data & 0xffff;
+    item.flags = (array_words.at(field_idx + 0).data >> 16) & 0xffff;
+    item.data.push_back(array_words.at(field_idx + 0));
+    item.data.push_back(array_words.at(field_idx + 1));
+    item.data.push_back(array_words.at(field_idx + 2));
+    item.data.push_back(array_words.at(field_idx + 3));
+    if (item.field_id == 7) {
+      auto& fld = car(cur_field);
+      item.sound_spec = cdr(cdr(cdr(cdr(&fld))))->as_pair()->car;
+    }
+    if (item.field_id == 67) {
+      // sp-end
+      break;
+    }
+    cur_field = cdr(cur_field);
+  }
+}
+
+}  // namespace
+
+void run_defpartgroup(Function& top_level_func) {
+  auto& env = top_level_func.ir2.env;
+  auto& pool = *top_level_func.ir2.form_pool;
+  if (!top_level_func.ir2.top_form) {
+    return;
+  }
+  top_level_func.ir2.top_form->apply_form([&](Form* form) {
+    for (auto& fe : form->elts()) {
+      auto as_set = dynamic_cast<SetFormFormElement*>(fe);
+      if (as_set) {
+        /* Looks something like this:
+            (set! (-> *part-group-id-table* 188) (new 'static 'sparticle-launch-group
+         */
+        if (as_set->dst()->elts().size() != 1) {
+          continue;
+        }
+        auto dest = dynamic_cast<DerefElement*>(as_set->dst()->elts().at(0));
+        if (!dest)
+          continue;
+        if (dest->tokens().size() != 1)
+          continue;
+        if (dest->tokens().at(0).kind() != DerefToken::Kind::INTEGER_CONSTANT)
+          continue;
+        if (dest->base()->elts().size() != 1)
+          continue;
+        auto dest_base = dynamic_cast<SimpleExpressionElement*>(dest->base()->elts().at(0));
+        if (!dest_base || !dest_base->expr().is_identity() || dest_base->expr().args() < 1)
+          continue;
+        auto src = dynamic_cast<DecompiledDataElement*>(as_set->src()->elts().at(0));
+        if (!src)
+          continue;
+        auto& sym = dest_base->expr().get_arg(0);
+        if (!sym.is_sym_val())
+          continue;
+
+        int id = dest->tokens().at(0).int_constant();
+        if (sym.get_str() == "*part-group-id-table*") {
+          DefpartgroupElement::StaticInfo group;
+          read_static_group_data(src, env, group);
+          auto rewritten = pool.alloc_element<DefpartgroupElement>(group, id);
+          if (rewritten) {
+            fe = rewritten;
+          }
+        } else if (sym.get_str() == "*part-id-table*") {
+          DefpartElement::StaticInfo part;
+          read_static_part_data(src, env, part);
+          auto rewritten = pool.alloc_element<DefpartElement>(part, id);
+          if (rewritten) {
+            fe = rewritten;
+          }
+        }
+      }
+    }
+  });
+}
+}  // namespace decompiler
diff --git a/decompiler/analysis/find_defpartgroup.h b/decompiler/analysis/find_defpartgroup.h
new file mode 100644
index 0000000000..bceed3b914
--- /dev/null
+++ b/decompiler/analysis/find_defpartgroup.h
@@ -0,0 +1,7 @@
+#pragma once
+
+#include "decompiler/Function/Function.h"
+
+namespace decompiler {
+void run_defpartgroup(Function& top_level_func);
+}
diff --git a/decompiler/config/all-types.gc b/decompiler/config/all-types.gc
index d0bc89ef00..e72e6cf6b9 100644
--- a/decompiler/config/all-types.gc
+++ b/decompiler/config/all-types.gc
@@ -14832,8 +14832,8 @@
   ((value                  int32     :offset-assert 112)
    (value2                 int32     :offset-assert 116)
    (target-value           int32     :offset-assert 120)
-   (last-increment-time    uint64    :offset-assert 128)
-   (last-target-equal-time uint64    :offset-assert 136)
+   (last-increment-time    int64     :offset-assert 128)
+   (last-target-equal-time int64     :offset-assert 136)
    (offset                 int32     :offset-assert 144)
    (y-offset               int32     :offset-assert 148)
    (next-y-offset          int32     :offset-assert 152)
diff --git a/decompiler/util/sparticle_decompile.cpp b/decompiler/util/sparticle_decompile.cpp
index 2ab775e831..c8f64b8524 100644
--- a/decompiler/util/sparticle_decompile.cpp
+++ b/decompiler/util/sparticle_decompile.cpp
@@ -104,6 +104,7 @@ enum class FieldKind {
   FUNCTION,
   USERDATA,
   ROT_X,
+  SOUND_SPEC,
   INVALID
 };
 
@@ -120,12 +121,12 @@ const SparticleFieldDecomp field_kinds[68] = {
     {true, FieldKind::FUNCTION},              // SPT_BIRTH_FUNC = 4
     {false},                                  // SPT_JOINT/REFPOINT = 5
     {true, FieldKind::FLOAT_WITH_RAND},       // SPT_NUM = 6
-    {true, FieldKind::NO_FANCY_DECOMP},       // SPT_SOUND = 7
+    {true, FieldKind::SOUND_SPEC},            // SPT_SOUND = 7
     {false},                                  // MISC_FIELDS_END = 8
     {false},                                  // SPRITE_FIELDS_START = 9
     {true, FieldKind::METER_WITH_RAND},       // SPT_X = 10
     {true, FieldKind::METER_WITH_RAND},       // SPT_Y = 11
-    {true, FieldKind::FLOAT_WITH_RAND},       // SPT_Z = 12
+    {true, FieldKind::METER_WITH_RAND},       // SPT_Z = 12
     {true, FieldKind::METER_WITH_RAND},       // SPT_SCALE_X = 13
     {true, FieldKind::ROT_X},                 // SPT_ROT_X = 14
     {true, FieldKind::DEGREES_WITH_RAND},     // SPT_ROT_Y = 15
@@ -386,10 +387,10 @@ goos::Object decompile_sparticle_float_meters_with_rand_init(const std::vector<L
                                                              const std::string& field_name,
                                                              const std::string& flag_name) {
   if (flag_name == "int-with-rand") {
-    return pretty_print::to_symbol(
-        fmt::format("(sp-rnd-int-flt {} (meters {}) {} {})", field_name,
-                    float_to_string(word_as_float(words.at(1)) / METER_LENGTH),
-                    word_as_s32(words.at(2)), float_to_string(word_as_float(words.at(3)))));
+    return pretty_print::to_symbol(fmt::format("(sp-rnd-int-flt {} (meters {}) {} {})", field_name,
+                                               meters_to_string(word_as_float(words.at(1))),
+                                               word_as_s32(words.at(2)),
+                                               float_to_string(word_as_float(words.at(3)))));
   }
   assert(flag_name == "float-with-rand");
 
@@ -397,15 +398,13 @@ goos::Object decompile_sparticle_float_meters_with_rand_init(const std::vector<L
   float mult = word_as_float(words.at(3));
 
   if (range == 0.f && mult == 1.f) {
-    return pretty_print::to_symbol(
-        fmt::format("(sp-flt {} (meters {}))", field_name,
-                    float_to_string(word_as_float(words.at(1)) / METER_LENGTH)));
+    return pretty_print::to_symbol(fmt::format("(sp-flt {} (meters {}))", field_name,
+                                               meters_to_string(word_as_float(words.at(1)))));
   } else {
-    return pretty_print::to_symbol(
-        fmt::format("(sp-rnd-flt {} (meters {}) (meters {}) {})", field_name,
-                    float_to_string(word_as_float(words.at(1)) / METER_LENGTH),
-                    float_to_string(word_as_float(words.at(2)) / METER_LENGTH),
-                    float_to_string(word_as_float(words.at(3)))));
+    return pretty_print::to_symbol(fmt::format(
+        "(sp-rnd-flt {} (meters {}) (meters {}) {})", field_name,
+        meters_to_string(word_as_float(words.at(1))), meters_to_string(word_as_float(words.at(2))),
+        float_to_string(word_as_float(words.at(3)))));
   }
 }
 
@@ -434,6 +433,15 @@ goos::Object decompile_sparticle_float_degrees_with_rand_init(const std::vector<
   }
 }
 
+goos::Object decompile_sparticle_sound_spec(const std::vector<LinkedWord>& words,
+                                            const std::string& field_name,
+                                            const std::string& flag_name,
+                                            const goos::Object& original) {
+  assert(field_name == "spt-sound");
+  assert(flag_name == "plain-v2");
+  return pretty_print::build_list("sp-sound", original);
+}
+
 goos::Object decompile_sparticle_group_item(const TypeSpec& type,
                                             const DecompilerLabel& label,
                                             const std::vector<DecompilerLabel>& labels,
@@ -466,8 +474,8 @@ goos::Object decompile_sparticle_group_item(const TypeSpec& type,
   // binding
 
   s32 launcher = word_as_s32(obj_words.at(0));
-  float fade_after_meters = word_as_float(obj_words.at(1)) / METER_LENGTH;
-  float falloff_to_meters = word_as_float(obj_words.at(2)) / METER_LENGTH;
+  float fade_after = word_as_float(obj_words.at(1));
+  float falloff_to = word_as_float(obj_words.at(2));
   u32 fp = word_as_s32(obj_words.at(3));
   u16 flags = fp & 0xffff;
   u16 period = fp >> 16;
@@ -480,12 +488,12 @@ goos::Object decompile_sparticle_group_item(const TypeSpec& type,
   std::string result =
       fmt::format("(sp-item {}", launcher);  // use decimal, so it matches array idx
 
-  if (fade_after_meters != 0.0) {
-    result += fmt::format(" :fade-after (meters {})", float_to_string(fade_after_meters));
+  if (fade_after != 0.0) {
+    result += fmt::format(" :fade-after (meters {})", meters_to_string(fade_after));
   }
 
-  if (falloff_to_meters != 0.0) {
-    result += fmt::format(" :falloff-to (meters {})", float_to_string(falloff_to_meters));
+  if (falloff_to != 0.0) {
+    result += fmt::format(" :falloff-to (meters {})", meters_to_string(falloff_to));
   }
 
   if (flags) {
@@ -595,6 +603,7 @@ goos::Object decompile_sparticle_field_init(const TypeSpec& type,
       case FieldKind::LAUNCHER_BY_ID:
         result = decompile_sparticle_launcher_by_id(obj_words, field_name, flag_name);
         break;
+      case FieldKind::SOUND_SPEC:
       case FieldKind::NO_FANCY_DECOMP:
         result = normal;
         break;
@@ -615,6 +624,91 @@ goos::Object decompile_sparticle_field_init(const TypeSpec& type,
   // fmt::print("Result: {}\n\n", result.print());
   return result;
 }
+
+goos::Object decompile_sparticle_userdata_assert(const std::vector<LinkedWord>& words,
+                                                 const std::string& field_name,
+                                                 const std::string& flag_name) {
+  if (flag_name == "int-with-rand" || flag_name == "float-with-rand") {
+    return decompile_sparticle_float_with_rand_init(words, field_name, flag_name);
+  } else {
+    assert(false);
+  }
+}
+
+goos::Object decompile_sparticle_field_init(const DefpartElement::StaticInfo::PartField& field,
+                                            const TypeSystem& ts) {
+  auto field_id = field.field_id;
+  auto flags = field.flags;
+
+  assert(field_id <= (u32)FieldId::SPT_END);
+  auto field_name = decompile_int_enum_from_int(TypeSpec("sp-field-id"), ts, field_id);
+  const auto& field_info = field_kinds[field_id];
+  if (!field_info.known) {
+    throw std::runtime_error("Unknown sparticle field: " + field_name);
+  }
+
+  auto flag_name = decompile_int_enum_from_int(TypeSpec("sp-flag"), ts, flags);
+  goos::Object result;
+
+  if (flag_name == "copy-from-other-field") {
+    result = decompile_sparticle_from_other(field.data, field_name, flag_name);
+  } else {
+    switch (field_info.kind) {
+      case FieldKind::TEXTURE_ID:
+        result = decompile_sparticle_tex_field_init(field.data, ts, field_name, flag_name);
+        break;
+      case FieldKind::FLOAT_WITH_RAND:
+        result = decompile_sparticle_float_with_rand_init(field.data, field_name, flag_name);
+        break;
+      case FieldKind::METER_WITH_RAND:
+        result = decompile_sparticle_float_meters_with_rand_init(field.data, field_name, flag_name);
+        break;
+      case FieldKind::DEGREES_WITH_RAND:
+        result =
+            decompile_sparticle_float_degrees_with_rand_init(field.data, field_name, flag_name);
+        break;
+        //      case FieldKind::INT_WITH_RAND:
+        //        result = decompile_sparticle_int_with_rand_init(field.data, field_name,
+        //        flag_name); break;
+      case FieldKind::PLAIN_INT_WITH_RANDS:
+        result = decompile_sparticle_int_with_rand_init(field.data, field_name, flag_name);
+        break;
+      case FieldKind::PLAIN_INT:
+        result = decompile_sparticle_int_init(field.data, field_name, flag_name);
+        break;
+      case FieldKind::CPUINFO_FLAGS:
+        result = decompile_sparticle_flags(field.data, ts, field_name, flag_name);
+        break;
+      case FieldKind::END_FLAG:
+        result = decompile_sparticle_end(field.data, field_name, flag_name);
+        break;
+      case FieldKind::LAUNCHER_BY_ID:
+        result = decompile_sparticle_launcher_by_id(field.data, field_name, flag_name);
+        break;
+      case FieldKind::NO_FANCY_DECOMP:
+        assert(false);
+        break;
+      case FieldKind::FUNCTION:
+        result = decompile_sparticle_func(field.data, field_name, flag_name);
+        break;
+      case FieldKind::USERDATA:
+        result = decompile_sparticle_userdata_assert(field.data, field_name, flag_name);
+        break;
+      case FieldKind::ROT_X:
+        result = decompile_sparticle_rot_x(field.data, field_name, flag_name);
+        break;
+      case FieldKind::SOUND_SPEC:
+        result =
+            decompile_sparticle_sound_spec(field.data, field_name, flag_name, field.sound_spec);
+        break;
+      default:
+        assert(false);
+    }
+  }
+
+  // fmt::print("Result: {}\n\n", result.print());
+  return result;
+}
 }  // namespace decompiler
 
 /*
diff --git a/decompiler/util/sparticle_decompile.h b/decompiler/util/sparticle_decompile.h
index 7f5fbaa71a..6d6118cbd9 100644
--- a/decompiler/util/sparticle_decompile.h
+++ b/decompiler/util/sparticle_decompile.h
@@ -4,6 +4,7 @@
 #include "common/type_system/TypeSpec.h"
 #include "decompiler/Disasm/DecompilerLabel.h"
 #include "decompiler/ObjectFile/LinkedObjectFile.h"
+#include "decompiler/IR2/Form.h"
 
 namespace decompiler {
 goos::Object decompile_sparticle_field_init(const TypeSpec& type,
@@ -12,6 +13,8 @@ goos::Object decompile_sparticle_field_init(const TypeSpec& type,
                                             const std::vector<std::vector<LinkedWord>>& words,
                                             const TypeSystem& ts,
                                             const LinkedObjectFile* file);
+goos::Object decompile_sparticle_field_init(const DefpartElement::StaticInfo::PartField& field,
+                                            const TypeSystem& ts);
 goos::Object decompile_sparticle_group_item(const TypeSpec& type,
                                             const DecompilerLabel& label,
                                             const std::vector<DecompilerLabel>& labels,
diff --git a/goal_src/engine/ambient/ambient.gc b/goal_src/engine/ambient/ambient.gc
index ea81ea7240..260c652fd8 100644
--- a/goal_src/engine/ambient/ambient.gc
+++ b/goal_src/engine/ambient/ambient.gc
@@ -10,35 +10,29 @@
 
 ;; DECOMP BEGINS
 
-(defmethod
-  mem-usage
-  drawable-ambient
-  ((obj drawable-ambient) (arg0 memory-usage-block) (arg1 int))
+(defmethod mem-usage drawable-ambient ((obj drawable-ambient) (arg0 memory-usage-block) (arg1 int))
   (set! (-> arg0 length) (max 50 (-> arg0 length)))
   (set! (-> arg0 data 49 name) "ambient")
   (+! (-> arg0 data 49 count) 1)
   (let ((v1-6 (asize-of obj)))
-   (+! (-> arg0 data 49 used) v1-6)
-   (+! (-> arg0 data 49 total) (logand -16 (+ v1-6 15)))
-   )
+    (+! (-> arg0 data 49 used) v1-6)
+    (+! (-> arg0 data 49 total) (logand -16 (+ v1-6 15)))
+    )
   (mem-usage (-> obj ambient) arg0 (logior arg1 128))
   (the-as drawable-ambient 0)
   )
 
-(defmethod
-  mem-usage
-  drawable-inline-array-ambient
-  ((obj drawable-inline-array-ambient) (arg0 memory-usage-block) (arg1 int))
+(defmethod mem-usage drawable-inline-array-ambient ((obj drawable-inline-array-ambient) (arg0 memory-usage-block) (arg1 int))
   (set! (-> arg0 length) (max 1 (-> arg0 length)))
   (set! (-> arg0 data 0 name) (symbol->string 'drawable-group))
   (+! (-> arg0 data 0 count) 1)
   (let ((v1-7 32))
-   (+! (-> arg0 data 0 used) v1-7)
-   (+! (-> arg0 data 0 total) (logand -16 (+ v1-7 15)))
-   )
+    (+! (-> arg0 data 0 used) v1-7)
+    (+! (-> arg0 data 0 total) (logand -16 (+ v1-7 15)))
+    )
   (dotimes (s3-0 (-> obj length))
-   (mem-usage (-> obj data s3-0) arg0 arg1)
-   )
+    (mem-usage (-> obj data s3-0) arg0 arg1)
+    )
   (the-as drawable-inline-array-ambient 0)
   )
 
@@ -48,162 +42,131 @@
   (let ((v1-2 (-> arg0 arg1))
         (gp-0 (+ arg1 1))
         )
-   (cond
-    ((< gp-0 arg2)
-     (let ((a0-2 (-> arg0 gp-0))
-           (a1-2 v1-2)
+    (cond
+      ((< gp-0 arg2)
+       (let ((a0-2 (-> arg0 gp-0))
+             (a1-2 v1-2)
+             )
+         (cond
+           ((zero? a1-2)
+            (if (task-known? (the-as game-task a0-2))
+                (set! gp-0 -1)
+                )
+            )
+           ((= a1-2 1)
+            (if (not (task-known? (the-as game-task a0-2)))
+                (set! gp-0 -1)
+                )
+            )
+           ((= a1-2 2)
+            (if (nonzero? (get-task-status (the-as game-task a0-2)))
+                (set! gp-0 -1)
+                )
+            )
+           ((= a1-2 3)
+            (if (!= (get-task-status (the-as game-task a0-2)) (task-status need-introduction))
+                (set! gp-0 -1)
+                )
+            )
+           ((= a1-2 4)
+            (if (!= (get-task-status (the-as game-task a0-2)) (task-status need-reminder))
+                (set! gp-0 -1)
+                )
+            )
+           ((= a1-2 5)
+            (if (!= (get-task-status (the-as game-task a0-2)) (task-status need-reminder-a))
+                (set! gp-0 -1)
+                )
+            )
+           ((= a1-2 13)
+            (let ((v1-15 (get-task-status (the-as game-task a0-2))))
+              (if (or (< (the-as int v1-15) 2) (< 4 (the-as int v1-15)))
+                  (set! gp-0 -1)
+                  )
+              )
+            )
+           ((= a1-2 6)
+            (if (!= (get-task-status (the-as game-task a0-2)) (task-status need-reward-speech))
+                (set! gp-0 -1)
+                )
+            )
+           ((= a1-2 7)
+            (close-specific-task! (the-as game-task a0-2) (task-status need-hint))
+            )
+           ((= a1-2 8)
+            (close-specific-task! (the-as game-task a0-2) (task-status need-introduction))
+            )
+           ((= a1-2 9)
+            (close-specific-task! (the-as game-task a0-2) (task-status need-reminder))
+            )
+           ((= a1-2 10)
+            (close-specific-task! (the-as game-task a0-2) (task-status need-reminder-a))
+            )
+           ((= a1-2 11)
+            (close-specific-task! (the-as game-task a0-2) (task-status need-reward-speech))
+            )
+           ((= a1-2 12)
+            (close-specific-task! (the-as game-task a0-2) (task-status need-resolution))
+            )
+           (else
+             (format #t "Unknown hint command ~D~%" v1-2)
+             )
            )
-      (cond
-       ((zero? a1-2)
-        (if (task-known? (the-as game-task a0-2))
-         (set! gp-0 -1)
          )
-        )
-       ((= a1-2 1)
-        (if (not (task-known? (the-as game-task a0-2)))
-         (set! gp-0 -1)
-         )
-        )
-       ((= a1-2 2)
-        (if (nonzero? (get-task-status (the-as game-task a0-2)))
-         (set! gp-0 -1)
-         )
-        )
-       ((= a1-2 3)
-        (if
-         (!=
-          (get-task-status (the-as game-task a0-2))
-          (task-status need-introduction)
-          )
-         (set! gp-0 -1)
-         )
-        )
-       ((= a1-2 4)
-        (if
-         (!=
-          (get-task-status (the-as game-task a0-2))
-          (task-status need-reminder)
-          )
-         (set! gp-0 -1)
-         )
-        )
-       ((= a1-2 5)
-        (if
-         (!=
-          (get-task-status (the-as game-task a0-2))
-          (task-status need-reminder-a)
-          )
-         (set! gp-0 -1)
-         )
-        )
-       ((= a1-2 13)
-        (let ((v1-15 (get-task-status (the-as game-task a0-2))))
-         (if (or (< (the-as int v1-15) 2) (< 4 (the-as int v1-15)))
-          (set! gp-0 -1)
-          )
-         )
-        )
-       ((= a1-2 6)
-        (if
-         (!=
-          (get-task-status (the-as game-task a0-2))
-          (task-status need-reward-speech)
-          )
-         (set! gp-0 -1)
-         )
-        )
-       ((= a1-2 7)
-        (close-specific-task! (the-as game-task a0-2) (task-status need-hint))
-        )
-       ((= a1-2 8)
-        (close-specific-task!
-         (the-as game-task a0-2)
-         (task-status need-introduction)
-         )
-        )
-       ((= a1-2 9)
-        (close-specific-task!
-         (the-as game-task a0-2)
-         (task-status need-reminder)
-         )
-        )
-       ((= a1-2 10)
-        (close-specific-task!
-         (the-as game-task a0-2)
-         (task-status need-reminder-a)
-         )
-        )
-       ((= a1-2 11)
-        (close-specific-task!
-         (the-as game-task a0-2)
-         (task-status need-reward-speech)
-         )
-        )
-       ((= a1-2 12)
-        (close-specific-task!
-         (the-as game-task a0-2)
-         (task-status need-resolution)
-         )
-        )
-       (else
-        (format #t "Unknown hint command ~D~%" v1-2)
-        )
        )
+      (else
+        (format #t "Missing task ID for hint command ~S~%" (cond
+                                                             ((= v1-2 13)
+                                                              "if-at-most-need-reminder-a"
+                                                              )
+                                                             ((= v1-2 12)
+                                                              "close-need-resolution"
+                                                              )
+                                                             ((= v1-2 11)
+                                                              "close-need-reward-speech"
+                                                              )
+                                                             ((= v1-2 10)
+                                                              "close-need-reminder-a"
+                                                              )
+                                                             ((= v1-2 9)
+                                                              "close-need-reminder"
+                                                              )
+                                                             ((= v1-2 8)
+                                                              "close-need-introduction"
+                                                              )
+                                                             ((= v1-2 7)
+                                                              "close-need-hint"
+                                                              )
+                                                             ((= v1-2 6)
+                                                              "if-need-reward-speech"
+                                                              )
+                                                             ((= v1-2 5)
+                                                              "if-need-reminder-a"
+                                                              )
+                                                             ((= v1-2 4)
+                                                              "if-need-reminder"
+                                                              )
+                                                             ((= v1-2 3)
+                                                              "if-need-introduction"
+                                                              )
+                                                             ((= v1-2 2)
+                                                              "if-resolved"
+                                                              )
+                                                             ((= v1-2 1)
+                                                              "if-known"
+                                                              )
+                                                             ((zero? v1-2)
+                                                              "if-unknown"
+                                                              )
+                                                             (else
+                                                               "*unknown*"
+                                                               )
+                                                             )
+                )
+        )
       )
-     )
-    (else
-     (format #t "Missing task ID for hint command ~S~%" (cond
-                                                         ((= v1-2 13)
-                                                          "if-at-most-need-reminder-a"
-                                                          )
-                                                         ((= v1-2 12)
-                                                          "close-need-resolution"
-                                                          )
-                                                         ((= v1-2 11)
-                                                          "close-need-reward-speech"
-                                                          )
-                                                         ((= v1-2 10)
-                                                          "close-need-reminder-a"
-                                                          )
-                                                         ((= v1-2 9)
-                                                          "close-need-reminder"
-                                                          )
-                                                         ((= v1-2 8)
-                                                          "close-need-introduction"
-                                                          )
-                                                         ((= v1-2 7)
-                                                          "close-need-hint"
-                                                          )
-                                                         ((= v1-2 6)
-                                                          "if-need-reward-speech"
-                                                          )
-                                                         ((= v1-2 5)
-                                                          "if-need-reminder-a"
-                                                          )
-                                                         ((= v1-2 4)
-                                                          "if-need-reminder"
-                                                          )
-                                                         ((= v1-2 3)
-                                                          "if-need-introduction"
-                                                          )
-                                                         ((= v1-2 2)
-                                                          "if-resolved"
-                                                          )
-                                                         ((= v1-2 1)
-                                                          "if-known"
-                                                          )
-                                                         ((zero? v1-2)
-                                                          "if-unknown"
-                                                          )
-                                                         (else
-                                                          "*unknown*"
-                                                          )
-                                                         )
-      )
-     )
+    gp-0
     )
-   gp-0
-   )
   )
 
 (defun level-hint-task-process ((arg0 entity) (arg1 uint128) (arg2 string))
@@ -211,54 +174,45 @@
   (let ((gp-0 (res-lump-value arg0 'text-id int :default arg1))
         (s5-0 0)
         )
-   (cond
-    ((can-hint-be-played? (the-as game-text-id gp-0) arg0 arg2)
-     (set! sv-16 (new 'static 'res-tag))
-     (let
-      ((s4-1
-        ((method-of-type res-lump get-property-data)
-         arg0
-         'cmds
-         'exact
-         -1000000000.0
-         (the-as pointer #f)
-         (& sv-16)
-         *res-static-buf*
+    (cond
+      ((can-hint-be-played? (the-as game-text-id gp-0) arg0 arg2)
+       (set! sv-16 (new 'static 'res-tag))
+       (let ((s4-1 ((method-of-type res-lump get-property-data)
+                    arg0
+                    'cmds
+                    'exact
+                    -1000000000.0
+                    (the-as pointer #f)
+                    (& sv-16)
+                    *res-static-buf*
+                    )
+                   )
+             )
+         (when s4-1
+           (while (and (>= s5-0 0) (< s5-0 (the-as int (-> sv-16 elt-count))))
+             (set! s5-0 (level-hint-process-cmd (the-as (pointer int32) s4-1) s5-0 (the-as int (-> sv-16 elt-count))))
+             (if (>= s5-0 0)
+                 (set! s5-0 (+ s5-0 1))
+                 )
+             )
+           )
          )
-        )
+       0
        )
-      (when s4-1
-       (while (and (>= s5-0 0) (< s5-0 (the-as int (-> sv-16 elt-count))))
-        (set!
-         s5-0
-         (level-hint-process-cmd
-          (the-as (pointer int32) s4-1)
-          s5-0
-          (the-as int (-> sv-16 elt-count))
-          )
-         )
-        (if (>= s5-0 0)
-         (set! s5-0 (+ s5-0 1))
-         )
+      (else
+        (set! s5-0 -1)
+        )
+      )
+    (cond
+      ((>= s5-0 0)
+       (empty)
+       gp-0
+       )
+      (else
+        -1
         )
-       )
       )
-     0
-     )
-    (else
-     (set! s5-0 -1)
-     )
     )
-   (cond
-    ((>= s5-0 0)
-     (empty)
-     gp-0
-     )
-    (else
-     -1
-     )
-    )
-   )
   )
 
 (defun level-hint-surpress! ()
@@ -269,128 +223,89 @@
 
 (defun can-grab-display? ((arg0 process-taskable))
   (let ((v1-2 (handle->process (-> *game-info* display-text-handle))))
-   (when
-    (and
-     (or
-      (not v1-2)
-      (= v1-2 arg0)
-      (>=
-       (- (-> *display* base-frame-counter) (-> *game-info* display-text-time))
-       30
-       )
+    (when (and (or (not v1-2) (= v1-2 arg0) (>= (- (-> *display* base-frame-counter) (-> *game-info* display-text-time)) 30))
+               (and *target*
+                    (!= (-> *target* next-state name) 'target-look-around)
+                    (zero? (logand (-> *target* state-flags) #x8008))
+                    (= *master-mode* 'game)
+                    )
+               )
+      (set! (-> *game-info* display-text-handle) (process->handle arg0))
+      (set! (-> *game-info* display-text-time) (-> *display* base-frame-counter))
+      #t
       )
-     (and
-      *target*
-      (!= (-> *target* next-state name) 'target-look-around)
-      (zero? (logand (-> *target* state-flags) #x8008))
-      (= *master-mode* 'game)
-      )
-     )
-    (set! (-> *game-info* display-text-handle) (process->handle arg0))
-    (set! (-> *game-info* display-text-time) (-> *display* base-frame-counter))
-    #t
     )
-   )
   )
 
 (defun level-hint-displayed? ()
   (let ((a0-0 (ppointer->process *hint-semaphore*)))
-   (the-as
-    symbol
-    (and
-     (the-as level-hint a0-0)
-     (and
-      (= (-> (the-as level-hint a0-0) next-state name) 'level-hint-normal)
-      (not (dummy-15 (the-as level-hint a0-0)))
+    (the-as
+      symbol
+      (and (the-as level-hint a0-0) (and (= (-> (the-as level-hint a0-0) next-state name) 'level-hint-normal)
+                                         (not (dummy-15 (the-as level-hint a0-0)))
+                                         )
+           )
       )
-     )
     )
-   )
   )
 
-(defun
-  level-hint-spawn
-  ((arg0 game-text-id)
-   (arg1 string)
-   (arg2 entity)
-   (arg3 process-tree)
-   (arg4 game-task)
-   )
+(defun level-hint-spawn ((arg0 game-text-id) (arg1 string) (arg2 entity) (arg3 process-tree) (arg4 game-task))
   (if (< (the-as uint 1) (the-as uint arg4))
-   (close-specific-task! arg4 (task-status need-hint))
-   )
-  (let ((s3-1 (level-hint-task-process arg2 (the-as uint128 arg0) arg1)))
-   (when (!= s3-1 -1)
-    (kill-current-level-hint '() '() 'exit)
-    (let ((s2-0 (get-process *default-dead-pool* level-hint #x4000)))
-     (when s2-0
-      (let ((t9-4 (method-of-type level-hint activate)))
-       (t9-4
-        (the-as level-hint s2-0)
-        arg3
-        'level-hint
-        (the-as pointer #x70004000)
-        )
-       )
-      (run-now-in-process s2-0 level-hint-init-by-other s3-1 arg1 arg2)
-      (-> s2-0 ppointer)
+      (close-specific-task! arg4 (task-status need-hint))
+      )
+  (let ((s3-1 (level-hint-task-process arg2 (the-as uint128 arg0) arg1)))
+    (when (!= s3-1 -1)
+      (kill-current-level-hint '() '() 'exit)
+      (let ((s2-0 (get-process *default-dead-pool* level-hint #x4000)))
+        (when s2-0
+          (let ((t9-4 (method-of-type level-hint activate)))
+            (t9-4 (the-as level-hint s2-0) arg3 'level-hint (the-as pointer #x70004000))
+            )
+          (run-now-in-process s2-0 level-hint-init-by-other s3-1 arg1 arg2)
+          (-> s2-0 ppointer)
+          )
+        )
       )
-     )
     )
-   )
   0
   (none)
   )
 
-(defun
-  ambient-hint-spawn
-  ((arg0 string) (arg1 vector) (arg2 process-tree) (arg3 symbol))
-  (case arg3 
-   (('camera)
+(defun ambient-hint-spawn ((arg0 string) (arg1 vector) (arg2 process-tree) (arg3 symbol))
+  (case arg3
+    (('camera)
      (kill-current-level-hint '() '() 'exit)
      )
-   )
-  (the-as
-   object
-   (and
-    (not *hint-semaphore*)
-    (let ((s2-0 (get-process *default-dead-pool* level-hint #x4000)))
-     (when s2-0
-      (let ((t9-2 (method-of-type level-hint activate)))
-       (t9-2
-        (the-as level-hint s2-0)
-        arg2
-        'level-hint
-        (the-as pointer #x70004000)
-        )
-       )
-      (run-now-in-process s2-0 ambient-hint-init-by-other arg0 arg1 arg3)
-      (-> s2-0 ppointer)
-      )
-     )
     )
-   )
+  (the-as object (and (not *hint-semaphore*)
+                      (let ((s2-0 (get-process *default-dead-pool* level-hint #x4000)))
+                        (when s2-0
+                          (let ((t9-2 (method-of-type level-hint activate)))
+                            (t9-2 (the-as level-hint s2-0) arg2 'level-hint (the-as pointer #x70004000))
+                            )
+                          (run-now-in-process s2-0 ambient-hint-init-by-other arg0 arg1 arg3)
+                          (-> s2-0 ppointer)
+                          )
+                        )
+                      )
+          )
   )
 
 (defun kill-current-level-hint ((arg0 pair) (arg1 pair) (arg2 symbol))
   (when *hint-semaphore*
-   (let ((s4-0 (ppointer->process *hint-semaphore*)))
-    (if
-     (and
-      (or (null? arg0) (member (-> (the-as level-hint s4-0) mode) arg0))
-      (not (member (-> (the-as level-hint s4-0) mode) arg1))
+    (let ((s4-0 (ppointer->process *hint-semaphore*)))
+      (if (and (or (null? arg0) (member (-> (the-as level-hint s4-0) mode) arg0))
+               (not (member (-> (the-as level-hint s4-0) mode) arg1))
+               )
+          (send-event (the-as level-hint s4-0) arg2)
+          )
       )
-     (send-event (the-as level-hint s4-0) arg2)
-     )
     )
-   )
   0
   (none)
   )
 
-(defbehavior
-  level-hint-init-by-other level-hint
-  ((arg0 game-text-id) (arg1 string) (arg2 entity))
+(defbehavior level-hint-init-by-other level-hint ((arg0 game-text-id) (arg1 string) (arg2 entity))
   (mark-text-as-seen *game-info* arg0)
   (set! (-> self text-id-to-display) arg0)
   (set! (-> self sound-to-play) arg1)
@@ -401,47 +316,38 @@
   (push-setting! *setting-control* self 'hint (process->ppointer self) 0.0 0)
   (set! (-> self voicebox) (the-as handle #f))
   (let ((s5-1 (res-lump-struct arg2 'play-mode structure))
-        (a0-6
-         (the-as
-          string
-          ((method-of-type res-lump get-property-struct)
-           arg2
-           'sound-name
-           'interp
-           -1000000000.0
-           (-> self sound-to-play)
-           (the-as (pointer res-tag) #f)
-           *res-static-buf*
-           )
-          )
-         )
+        (a0-6 (the-as string ((method-of-type res-lump get-property-struct)
+                              arg2
+                              'sound-name
+                              'interp
+                              -1000000000.0
+                              (-> self sound-to-play)
+                              (the-as (pointer res-tag) #f)
+                              *res-static-buf*
+                              )
+                      )
+              )
+        )
+    (if (and (not s5-1) a0-6)
+        (set! s5-1 (if (or (and (= (-> a0-6 data 0) 115) (= (-> a0-6 data 1) 97))
+                           (and (= (-> a0-6 data 0) 97) (= (-> a0-6 data 1) 115))
+                           )
+                       'voicebox
+                       'sidekick
+                       )
+              )
+        )
+    (set! (-> self mode) (the-as symbol s5-1))
+    (if (or (= s5-1 'sidekick) (= s5-1 'voicebox))
+        (go level-hint-sidekick a0-6)
         )
-   (if (and (not s5-1) a0-6)
-    (set!
-     s5-1
-     (if
-      (or
-       (and (= (-> a0-6 data 0) 115) (= (-> a0-6 data 1) 97))
-       (and (= (-> a0-6 data 0) 97) (= (-> a0-6 data 1) 115))
-       )
-      'voicebox
-      'sidekick
-      )
-     )
     )
-   (set! (-> self mode) (the-as symbol s5-1))
-   (if (or (= s5-1 'sidekick) (= s5-1 'voicebox))
-    (go level-hint-sidekick a0-6)
-    )
-   )
   (go level-hint-normal)
   0
   (none)
   )
 
-(defbehavior
-  ambient-hint-init-by-other level-hint
-  ((arg0 string) (arg1 vector) (arg2 symbol))
+(defbehavior ambient-hint-init-by-other level-hint ((arg0 string) (arg1 vector) (arg2 symbol))
   (set! (-> self sound-to-play) arg0)
   (set! (-> self total-time) 0)
   (set! (-> self total-off-time) 0)
@@ -451,31 +357,22 @@
   (push-setting! *setting-control* self 'hint (process->ppointer self) 0.0 0)
   (set! (-> self mode) arg2)
   (if (or (= arg2 'camera) (= arg2 'ambient) (= arg2 'stinger))
-   (push-setting!
-    *setting-control*
-    self
-    'ambient
-    (process->ppointer self)
-    0.0
-    0
-    )
-   )
-  (copy-settings-from-target! *setting-control*)
-  (set!
-   (-> self event-hook)
-   (lambda :behavior level-hint
-    ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
-    (let ((v1-0 arg2))
-     (the-as object (when (or (= v1-0 'die) (= v1-0 'exit))
-                     (if (= (ppointer->process *hint-semaphore*) self)
-                      (set! *hint-semaphore* (the-as (pointer level-hint) #f))
-                      )
-                     (deactivate self)
-                     )
+      (push-setting! *setting-control* self 'ambient (process->ppointer self) 0.0 0)
       )
-     )
-    )
-   )
+  (copy-settings-from-target! *setting-control*)
+  (set! (-> self event-hook) (lambda :behavior level-hint
+                               ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
+                               (let ((v1-0 arg2))
+                                 (the-as object (when (or (= v1-0 'die) (= v1-0 'exit))
+                                                  (if (= (ppointer->process *hint-semaphore*) self)
+                                                      (set! *hint-semaphore* (the-as (pointer level-hint) #f))
+                                                      )
+                                                  (deactivate self)
+                                                  )
+                                         )
+                                 )
+                               )
+        )
   (go level-hint-ambient-sound arg0)
   0
   (none)
@@ -483,228 +380,170 @@
 
 (defmethod print-text level-hint ((obj level-hint))
   (when (!= *common-text* #f)
-   (let
-    ((s5-0
-      (new
-       'stack
-       'font-context
-       *font-default-matrix*
-       56
-       160
-       0.0
-       (font-color default)
-       (font-flags shadow kerning)
-       )
+    (let ((s5-0
+            (new 'stack 'font-context *font-default-matrix* 56 160 0.0 (font-color default) (font-flags shadow kerning))
+            )
+          )
+      (let ((v1-3 s5-0))
+        (set! (-> v1-3 width) (the float 400))
+        )
+      (let ((v1-4 s5-0))
+        (set! (-> v1-4 height) (the float 96))
+        )
+      (set! (-> s5-0 flags) (font-flags shadow kerning middle large))
+      (print-game-text (lookup-text! *common-text* (-> obj text-id-to-display) #f) s5-0 #f 128 22)
       )
-     )
-    (let ((v1-3 s5-0))
-     (set! (-> v1-3 width) (the float 400))
-     )
-    (let ((v1-4 s5-0))
-     (set! (-> v1-4 height) (the float 96))
-     )
-    (set! (-> s5-0 flags) (font-flags shadow kerning middle large))
-    (print-game-text
-     (lookup-text! *common-text* (-> obj text-id-to-display) #f)
-     s5-0
-     #f
-     128
-     22
-     )
     )
-   )
   0
   (none)
   )
 
 (defmethod dummy-15 level-hint ((obj level-hint))
-  (and
-   (!= (-> obj next-state name) 'level-hint-sidekick)
-   (< 1500 (-> obj total-time))
-   )
+  (and (!= (-> obj next-state name) 'level-hint-sidekick) (< 1500 (-> obj total-time)))
   )
 
 (defstate level-hint-normal (level-hint)
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
-   (let ((v1-0 arg2))
-    (the-as object (cond
-                    ((= v1-0 'exit)
-                     (go level-hint-exit)
-                     )
-                    ((= v1-0 'die)
-                     (deactivate self)
-                     )
-                    )
-     )
+    (let ((v1-0 arg2))
+      (the-as object (cond
+                       ((= v1-0 'exit)
+                        (go level-hint-exit)
+                        )
+                       ((= v1-0 'die)
+                        (deactivate self)
+                        )
+                       )
+              )
+      )
     )
-   )
   :exit
   (behavior ()
-   (if (= (ppointer->process *hint-semaphore*) self)
-    (set! *hint-semaphore* (the-as (pointer level-hint) #f))
+    (if (= (ppointer->process *hint-semaphore*) self)
+        (set! *hint-semaphore* (the-as (pointer level-hint) #f))
+        )
+    (none)
     )
-   (none)
-   )
   :code
   (behavior ()
-   (cond
-    ((= (-> self text-id-to-display) (game-text-id zero))
-     (if *debug-segment*
-      (go level-hint-error "UNKNOWN TEXT ID" "")
-      )
-     )
-    (else
-     (while (>= 2400 (-> self total-time))
-      (hide-bottom-hud)
-      (suspend)
-      (cond
-       ((and
-         (bottom-hud-hidden?)
-         (not (paused?))
-         (not (movie?))
-         (= *master-mode* 'game)
-         (or (not *target*) (!= (-> *target* cam-user-mode) 'look-around))
-         (not (-> *hud-parts* money-all))
-         )
-        (print-text self)
-        (+!
-         (-> self total-time)
-         (- (-> *display* base-frame-counter) (-> self last-time))
-         )
-        (set! (-> self last-time) (-> *display* base-frame-counter))
-        )
-       (else
-        (+!
-         (-> self total-off-time)
-         (- (-> *display* base-frame-counter) (-> self last-time))
-         )
-        (if (or (< 1800 (-> self total-time)) (< 3000 (-> self total-off-time)))
-         (go level-hint-exit)
-         )
-        )
+    (cond
+      ((= (-> self text-id-to-display) (game-text-id zero))
+       (if *debug-segment*
+           (go level-hint-error "UNKNOWN TEXT ID" "")
+           )
        )
-      (set! (-> self last-time) (-> *display* base-frame-counter))
+      (else
+        (while (>= 2400 (-> self total-time))
+          (hide-bottom-hud)
+          (suspend)
+          (cond
+            ((and (bottom-hud-hidden?)
+                  (not (paused?))
+                  (not (movie?))
+                  (= *master-mode* 'game)
+                  (or (not *target*) (!= (-> *target* cam-user-mode) 'look-around))
+                  (not (-> *hud-parts* money-all))
+                  )
+             (print-text self)
+             (+! (-> self total-time) (- (-> *display* base-frame-counter) (-> self last-time)))
+             (set! (-> self last-time) (-> *display* base-frame-counter))
+             )
+            (else
+              (+! (-> self total-off-time) (- (-> *display* base-frame-counter) (-> self last-time)))
+              (if (or (< 1800 (-> self total-time)) (< 3000 (-> self total-off-time)))
+                  (go level-hint-exit)
+                  )
+              )
+            )
+          (set! (-> self last-time) (-> *display* base-frame-counter))
+          )
+        )
       )
-     )
+    (go level-hint-exit)
+    (none)
     )
-   (go level-hint-exit)
-   (none)
-   )
   )
 
 (defstate level-hint-sidekick (level-hint)
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
-   (let ((v1-0 arg2))
-    (the-as object (cond
-                    ((= v1-0 'exit)
-                     (when (nonzero? (-> self sound-id))
-                      (sound-stop (-> self sound-id))
-                      (set! (-> self sound-id) (new 'static 'sound-id))
-                      0
-                      )
-                     (go level-hint-exit)
-                     )
-                    ((= v1-0 'die)
-                     (deactivate self)
-                     )
-                    )
-     )
+    (let ((v1-0 arg2))
+      (the-as object (cond
+                       ((= v1-0 'exit)
+                        (when (nonzero? (-> self sound-id))
+                          (sound-stop (-> self sound-id))
+                          (set! (-> self sound-id) (new 'static 'sound-id))
+                          0
+                          )
+                        (go level-hint-exit)
+                        )
+                       ((= v1-0 'die)
+                        (deactivate self)
+                        )
+                       )
+              )
+      )
     )
-   )
   :exit
   (behavior ()
-   (if (nonzero? (-> self sound-id))
-    (sound-stop (-> self sound-id))
+    (if (nonzero? (-> self sound-id))
+        (sound-stop (-> self sound-id))
+        )
+    (clear-pending-settings-from-process *setting-control* self 'music-volume)
+    (clear-pending-settings-from-process *setting-control* self 'sfx-volume)
+    (clear-pending-settings-from-process *setting-control* self 'dialog-volume)
+    (if (= (ppointer->process *hint-semaphore*) self)
+        (set! *hint-semaphore* (the-as (pointer level-hint) #f))
+        )
+    (send-event (handle->process (-> self voicebox)) 'die)
+    (none)
     )
-   (clear-pending-settings-from-process *setting-control* self 'music-volume)
-   (clear-pending-settings-from-process *setting-control* self 'sfx-volume)
-   (clear-pending-settings-from-process *setting-control* self 'dialog-volume)
-   (if (= (ppointer->process *hint-semaphore*) self)
-    (set! *hint-semaphore* (the-as (pointer level-hint) #f))
-    )
-   (send-event (handle->process (-> self voicebox)) 'die)
-   (none)
-   )
   :code
   (behavior ((arg0 string))
-   (when
-    (and
-     (-> *setting-control* current play-hints)
-     (< 0.0 (-> *setting-control* current dialog-volume))
-     )
-    (case (-> self mode) 
-     (('voicebox)
-       (if *target*
-        (set!
-         (-> self voicebox)
-         (ppointer->handle (voicebox-spawn *target* (target-pos 0)))
+    (when (and (-> *setting-control* current play-hints) (< 0.0 (-> *setting-control* current dialog-volume)))
+      (case (-> self mode)
+        (('voicebox)
+         (if *target*
+             (set! (-> self voicebox) (ppointer->handle (voicebox-spawn *target* (target-pos 0))))
+             )
          )
         )
-       )
-     )
-    (while (handle->process (-> *game-info* auto-save-proc))
-     (suspend)
-     )
-    (while (not *sound-player-enable*)
-     (suspend)
-     )
-    (let ((s5-1 sound-play-by-name)
-          (s4-1 string->sound-name)
-          )
-     (format (clear *temp-string*) "spool-~S" arg0)
-     (let ((s5-2 (s5-1 (s4-1 *temp-string*) (new-sound-id) 1024 0 0 1 #t)))
-      (set! (-> self sound-id) s5-2)
-      (let ((s4-3 (-> *display* base-frame-counter)))
-       (while
-        (and
-         (!= (current-str-id) s5-2)
-         (< (- (-> *display* base-frame-counter) s4-3) 1500)
-         )
+      (while (handle->process (-> *game-info* auto-save-proc))
         (suspend)
         )
-       )
-      (cond
-       ((= (current-str-id) s5-2)
-        (push-setting!
-         *setting-control*
-         self
-         'music-volume
-         'rel
-         (-> *setting-control* current music-volume-movie)
-         0
-         )
-        (push-setting!
-         *setting-control*
-         self
-         'sfx-volume
-         'rel
-         (-> *setting-control* current sfx-volume-movie)
-         0
-         )
-        (push-setting!
-         *setting-control*
-         self
-         'dialog-volume
-         'rel
-         (-> *setting-control* current dialog-volume-hint)
-         0
-         )
-        (while (= (current-str-id) s5-2)
-         (suspend)
-         )
+      (while (not *sound-player-enable*)
+        (suspend)
         )
-       (else
-        (go level-hint-error "NO SOUND " arg0)
+      (let ((s5-1 sound-play-by-name)
+            (s4-1 string->sound-name)
+            )
+        (format (clear *temp-string*) "spool-~S" arg0)
+        (let ((s5-2 (s5-1 (s4-1 *temp-string*) (new-sound-id) 1024 0 0 1 #t)))
+          (set! (-> self sound-id) s5-2)
+          (let ((s4-3 (-> *display* base-frame-counter)))
+            (while (and (!= (current-str-id) s5-2) (< (- (-> *display* base-frame-counter) s4-3) 1500))
+              (suspend)
+              )
+            )
+          (cond
+            ((= (current-str-id) s5-2)
+             (push-setting! *setting-control* self 'music-volume 'rel (-> *setting-control* current music-volume-movie) 0)
+             (push-setting! *setting-control* self 'sfx-volume 'rel (-> *setting-control* current sfx-volume-movie) 0)
+             (push-setting! *setting-control* self 'dialog-volume 'rel (-> *setting-control* current dialog-volume-hint) 0)
+             (while (= (current-str-id) s5-2)
+               (suspend)
+               )
+             )
+            (else
+              (go level-hint-error "NO SOUND " arg0)
+              )
+            )
+          )
         )
-       )
       )
-     )
+    (go level-hint-exit)
+    (none)
     )
-   (go level-hint-exit)
-   (none)
-   )
   )
 
 (defstate level-hint-ambient-sound (level-hint)
@@ -712,93 +551,63 @@
   (-> level-hint-sidekick event)
   :exit
   (behavior ()
-   (if (nonzero? (-> self sound-id))
-    (sound-stop (-> self sound-id))
+    (if (nonzero? (-> self sound-id))
+        (sound-stop (-> self sound-id))
+        )
+    (clear-pending-settings-from-process *setting-control* self 'music-volume)
+    (clear-pending-settings-from-process *setting-control* self 'sfx-volume)
+    (if (= (ppointer->process *hint-semaphore*) self)
+        (set! *hint-semaphore* (the-as (pointer level-hint) #f))
+        )
+    (none)
     )
-   (clear-pending-settings-from-process *setting-control* self 'music-volume)
-   (clear-pending-settings-from-process *setting-control* self 'sfx-volume)
-   (if (= (ppointer->process *hint-semaphore*) self)
-    (set! *hint-semaphore* (the-as (pointer level-hint) #f))
-    )
-   (none)
-   )
   :code
   (behavior ((arg0 string))
-   (while (not *sound-player-enable*)
-    (suspend)
-    )
-   (cond
-    ((-> self trans)
-     (let ((s5-0 sound-play-by-name)
-           (s4-0 string->sound-name)
-           )
-      (format (clear *temp-string*) "spool-~S" arg0)
-      (set!
-       (-> self sound-id)
-       (s5-0
-        (s4-0 *temp-string*)
-        (new-sound-id)
-        1024
-        1
-        0
-        1
-        (the-as symbol (-> self trans))
-        )
-       )
-      )
-     )
-    (else
-     (let ((s5-1 sound-play-by-name)
-           (s4-2 string->sound-name)
-           )
-      (format (clear *temp-string*) "spool-~S" arg0)
-      (set!
-       (-> self sound-id)
-       (s5-1 (s4-2 *temp-string*) (new-sound-id) 1024 0 0 1 #t)
-       )
-      )
-     )
-    )
-   (let ((s5-2 (-> *display* base-frame-counter)))
-    (while
-     (and
-      (!= (current-str-id) (-> self sound-id))
-      (< (- (-> *display* base-frame-counter) s5-2) 1500)
-      )
-     (suspend)
-     )
-    )
-   (cond
-    ((= (current-str-id) (-> self sound-id))
-     (when (or (= (-> self mode) 'stinger) (= (-> self mode) 'camera))
-      (push-setting!
-       *setting-control*
-       self
-       'music-volume
-       'rel
-       (-> *setting-control* current music-volume-movie)
-       0
-       )
-      (push-setting!
-       *setting-control*
-       self
-       'sfx-volume
-       'rel
-       (-> *setting-control* current sfx-volume-movie)
-       0
-       )
-      )
-     (while (= (current-str-id) (-> self sound-id))
+    (while (not *sound-player-enable*)
       (suspend)
       )
-     )
-    (else
-     (go level-hint-error "NO SOUND " arg0)
-     )
+    (cond
+      ((-> self trans)
+       (let ((s5-0 sound-play-by-name)
+             (s4-0 string->sound-name)
+             )
+         (format (clear *temp-string*) "spool-~S" arg0)
+         (set! (-> self sound-id)
+               (s5-0 (s4-0 *temp-string*) (new-sound-id) 1024 1 0 1 (the-as symbol (-> self trans)))
+               )
+         )
+       )
+      (else
+        (let ((s5-1 sound-play-by-name)
+              (s4-2 string->sound-name)
+              )
+          (format (clear *temp-string*) "spool-~S" arg0)
+          (set! (-> self sound-id) (s5-1 (s4-2 *temp-string*) (new-sound-id) 1024 0 0 1 #t))
+          )
+        )
+      )
+    (let ((s5-2 (-> *display* base-frame-counter)))
+      (while (and (!= (current-str-id) (-> self sound-id)) (< (- (-> *display* base-frame-counter) s5-2) 1500))
+        (suspend)
+        )
+      )
+    (cond
+      ((= (current-str-id) (-> self sound-id))
+       (when (or (= (-> self mode) 'stinger) (= (-> self mode) 'camera))
+         (push-setting! *setting-control* self 'music-volume 'rel (-> *setting-control* current music-volume-movie) 0)
+         (push-setting! *setting-control* self 'sfx-volume 'rel (-> *setting-control* current sfx-volume-movie) 0)
+         )
+       (while (= (current-str-id) (-> self sound-id))
+         (suspend)
+         )
+       )
+      (else
+        (go level-hint-error "NO SOUND " arg0)
+        )
+      )
+    (go level-hint-exit)
+    (none)
     )
-   (go level-hint-exit)
-   (none)
-   )
   )
 
 (defstate level-hint-error (level-hint)
@@ -806,82 +615,66 @@
   (-> level-hint-normal event)
   :code
   (behavior ((arg0 string) (arg1 string))
-   (clear-pending-settings-from-process *setting-control* self 'hint)
-   (let ((s4-0 (-> *display* base-frame-counter)))
-    (until (>= (- (-> *display* base-frame-counter) s4-0) 300)
-     (when
-      (and
-       *debug-segment*
-       (not (paused?))
-       (not (str-is-playing?))
-       (bottom-hud-hidden?)
-       )
-      (let
-       ((s3-0
-         (new
-          'stack
-          'font-context
-          *font-default-matrix*
-          56
-          160
-          0.0
-          (font-color default)
-          (font-flags shadow kerning)
+    (clear-pending-settings-from-process *setting-control* self 'hint)
+    (let ((s4-0 (-> *display* base-frame-counter)))
+      (until (>= (- (-> *display* base-frame-counter) s4-0) 300)
+        (when (and *debug-segment* (not (paused?)) (not (str-is-playing?)) (bottom-hud-hidden?))
+          (let ((s3-0
+                  (new 'stack 'font-context *font-default-matrix* 56 160 0.0 (font-color default) (font-flags shadow kerning))
+                  )
+                )
+            (let ((v1-7 s3-0))
+              (set! (-> v1-7 width) (the float 400))
+              )
+            (let ((v1-8 s3-0))
+              (set! (-> v1-8 height) (the float 96))
+              )
+            (set! (-> s3-0 flags) (font-flags shadow kerning middle))
+            (let ((s2-0 print-game-text))
+              (format (clear *temp-string*) "~S~S" arg0 arg1)
+              (s2-0 *temp-string* s3-0 #f 128 22)
+              )
+            )
           )
-         )
+        (suspend)
         )
-       (let ((v1-7 s3-0))
-        (set! (-> v1-7 width) (the float 400))
-        )
-       (let ((v1-8 s3-0))
-        (set! (-> v1-8 height) (the float 96))
-        )
-       (set! (-> s3-0 flags) (font-flags shadow kerning middle))
-       (let ((s2-0 print-game-text))
-        (format (clear *temp-string*) "~S~S" arg0 arg1)
-        (s2-0 *temp-string* s3-0 #f 128 22)
-        )
-       )
       )
-     (suspend)
-     )
+    (go level-hint-exit)
+    (none)
     )
-   (go level-hint-exit)
-   (none)
-   )
   )
 
 (defstate level-hint-exit (level-hint)
   :code
   (behavior ()
-   (if (= (ppointer->process *hint-semaphore*) self)
-    (set! *hint-semaphore* (the-as (pointer level-hint) #f))
+    (if (= (ppointer->process *hint-semaphore*) self)
+        (set! *hint-semaphore* (the-as (pointer level-hint) #f))
+        )
+    (none)
     )
-   (none)
-   )
   )
 
 (defun ambient-type-error ((arg0 drawable-ambient) (arg1 vector))
   (when *display-entity-errors*
-   (let ((s2-0 (-> arg0 ambient)))
-    (format
-     (clear *temp-string*)
-     "~2j~s art error for ~s ~s"
-     (res-lump-struct s2-0 'effect-name structure :time 0.0)
-     (res-lump-struct s2-0 'type structure)
-     (res-lump-struct s2-0 'name structure)
-     )
-    )
-   *temp-string*
-   (add-debug-text-3d
-    #t
-    (bucket-id debug-draw1)
+    (let ((s2-0 (-> arg0 ambient)))
+      (format
+        (clear *temp-string*)
+        "~2j~s art error for ~s ~s"
+        (res-lump-struct s2-0 'effect-name structure :time 0.0)
+        (res-lump-struct s2-0 'type structure)
+        (res-lump-struct s2-0 'name structure)
+        )
+      )
     *temp-string*
-    (-> arg0 bsphere)
-    (font-color orange-red)
-    (the-as vector2h #f)
+    (add-debug-text-3d
+      #t
+      (bucket-id debug-draw1)
+      *temp-string*
+      (-> arg0 bsphere)
+      (font-color orange-red)
+      (the-as vector2h #f)
+      )
     )
-   )
   0
   (none)
   )
@@ -893,77 +686,42 @@
 
 (defun ambient-type-hint ((arg0 drawable-ambient) (arg1 vector))
   (with-pp
-   (let
-    ((s5-0
-      (level-hint-task-process
-       (-> arg0 ambient)
-       (the-as uint128 0)
-       (the-as string #f)
-       )
-      )
-     )
-    (cond
-     ((zero? s5-0)
-      (when
-       (and
-        *debug-segment*
-        (not (paused?))
-        (not (str-is-playing?))
-        (bottom-hud-hidden?)
-        )
-       (let
-        ((a1-3
-          (new
-           'stack
-           'font-context
-           *font-default-matrix*
-           56
-           160
-           0.0
-           (font-color default)
-           (font-flags shadow kerning)
+    (let ((s5-0 (level-hint-task-process (-> arg0 ambient) (the-as uint128 0) (the-as string #f))))
+      (cond
+        ((zero? s5-0)
+         (when (and *debug-segment* (not (paused?)) (not (str-is-playing?)) (bottom-hud-hidden?))
+           (let ((a1-3
+                   (new 'stack 'font-context *font-default-matrix* 56 160 0.0 (font-color default) (font-flags shadow kerning))
+                   )
+                 )
+             (let ((v1-5 a1-3))
+               (set! (-> v1-5 width) (the float 400))
+               )
+             (let ((v1-6 a1-3))
+               (set! (-> v1-6 height) (the float 96))
+               )
+             (set! (-> a1-3 flags) (font-flags shadow kerning middle large))
+             (print-game-text "AS: UNKNOWN ID" a1-3 #f 128 22)
+             )
            )
-          )
          )
-        (let ((v1-5 a1-3))
-         (set! (-> v1-5 width) (the float 400))
+        ((!= s5-0 -1)
+         (kill-current-level-hint '() '() 'exit)
+         (let ((s4-0 (get-process *default-dead-pool* level-hint #x4000)))
+           (when s4-0
+             (let ((t9-8 (method-of-type level-hint activate)))
+               (t9-8 (the-as level-hint s4-0) pp 'level-hint (the-as pointer #x70004000))
+               )
+             (run-now-in-process s4-0 level-hint-init-by-other s5-0 #f (-> arg0 ambient))
+             (-> s4-0 ppointer)
+             )
+           )
          )
-        (let ((v1-6 a1-3))
-         (set! (-> v1-6 height) (the float 96))
-         )
-        (set! (-> a1-3 flags) (font-flags shadow kerning middle large))
-        (print-game-text "AS: UNKNOWN ID" a1-3 #f 128 22)
         )
-       )
       )
-     ((!= s5-0 -1)
-      (kill-current-level-hint '() '() 'exit)
-      (let ((s4-0 (get-process *default-dead-pool* level-hint #x4000)))
-       (when s4-0
-        (let ((t9-8 (method-of-type level-hint activate)))
-         (t9-8
-          (the-as level-hint s4-0)
-          pp
-          'level-hint
-          (the-as pointer #x70004000)
-          )
-         )
-        (run-now-in-process
-         s4-0
-         level-hint-init-by-other
-         s5-0
-         #f
-         (-> arg0 ambient)
-         )
-        (-> s4-0 ppointer)
-        )
-       )
-      )
-     )
+    0
+    (none)
     )
-   0
-   (none)
-   )
   )
 
 (defun ambient-type-sound ((arg0 drawable-ambient) (arg1 vector))
@@ -971,316 +729,221 @@
   (let* ((s5-0 (-> arg0 ambient))
          (s4-0 (-> s5-0 ambient-data user-uint64 0))
          )
-   (when (>= (-> *display* base-frame-counter) (the-as int s4-0))
-    (let ((v1-5 (res-lump-data s5-0 'cycle-speed pointer)))
-     (set!
-      (-> s5-0 ambient-data user-uint64 0)
-      (the-as
-       uint
-       (+
-        (-> *display* base-frame-counter)
-        (the int (* 300.0 (-> (the-as (pointer float) v1-5) 0)))
-        (rand-vu-int-count
-         (the int (* 300.0 (-> (the-as (pointer float) v1-5) 1)))
-         )
+    (when (>= (-> *display* base-frame-counter) (the-as int s4-0))
+      (let ((v1-5 (res-lump-data s5-0 'cycle-speed pointer)))
+        (set! (-> s5-0 ambient-data user-uint64 0)
+              (the-as uint (+ (-> *display* base-frame-counter)
+                              (the int (* 300.0 (-> (the-as (pointer float) v1-5) 0)))
+                              (rand-vu-int-count (the int (* 300.0 (-> (the-as (pointer float) v1-5) 1))))
+                              )
+                      )
+              )
         )
-       )
-      )
-     )
-    (when
-     (<
-      (the-as uint (- (-> *display* base-frame-counter) (the-as int s4-0)))
-      (the-as uint 300)
-      )
-     (let
-      ((f30-0
-        (the
-         float
-         (rand-vu-int-count (the-as int (-> s5-0 ambient-data user-float 2)))
-         )
-        )
-       )
-      (set!
-       sv-16
-       (symbol->string (res-lump-struct s5-0 'effect-name symbol :time f30-0))
-       )
-      (let ((s4-2 (new 'stack 'sound-spec)))
-       (set! (-> s4-2 sound-name) (string->sound-name sv-16))
-       (logior! (-> s4-2 mask) 1)
-       (set! (-> s4-2 volume) 1024)
-       (logior! (-> s4-2 mask) 4)
-       (set!
-        (-> s4-2 bend)
-        (the int (* 327.66998 (rand-vu-float-range -100.0 100.0)))
-        )
-       (set! sv-112 (new 'static 'res-tag))
-       (let
-        ((a1-7
-          ((method-of-type res-lump get-property-data)
-           s5-0
-           'effect-param
-           'exact
-           f30-0
-           (the-as pointer #f)
-           (& sv-112)
-           *res-static-buf*
-           )
+      (when (< (the-as uint (- (-> *display* base-frame-counter) (the-as int s4-0))) (the-as uint 300))
+        (let ((f30-0 (the float (rand-vu-int-count (the-as int (-> s5-0 ambient-data user-float 2))))))
+          (set! sv-16 (symbol->string (res-lump-struct s5-0 'effect-name symbol :time f30-0)))
+          (let ((s4-2 (new 'stack 'sound-spec)))
+            (set! (-> s4-2 sound-name) (string->sound-name sv-16))
+            (logior! (-> s4-2 mask) 1)
+            (set! (-> s4-2 volume) 1024)
+            (logior! (-> s4-2 mask) 4)
+            (set! (-> s4-2 bend) (the int (* 327.66998 (rand-vu-float-range -100.0 100.0))))
+            (set! sv-112 (new 'static 'res-tag))
+            (let ((a1-7 ((method-of-type res-lump get-property-data)
+                         s5-0
+                         'effect-param
+                         'exact
+                         f30-0
+                         (the-as pointer #f)
+                         (& sv-112)
+                         *res-static-buf*
+                         )
+                        )
+                  )
+              (if a1-7
+                  (effect-param->sound-spec s4-2 (the-as (pointer float) a1-7) (the-as int (-> sv-112 elt-count)))
+                  )
+              )
+            (when *debug-effect-control*
+              (format
+                #t
+                "(~5D) effect sound ~A ~S "
+                (-> *display* base-frame-counter)
+                (res-lump-struct s5-0 'name structure)
+                sv-16
+                )
+              (format
+                #t
+                "volume: ~f  pitch-mod: ~f~%"
+                (* 0.09765625 (the float (-> s4-2 volume)))
+                (* 0.000656168 (the float (-> s4-2 pitch-mod)))
+                )
+              )
+            (sound-play-by-spec s4-2 (new-sound-id) (-> arg0 bsphere))
+            )
           )
-         )
-        (if a1-7
-         (effect-param->sound-spec
-          s4-2
-          (the-as (pointer float) a1-7)
-          (the-as int (-> sv-112 elt-count))
-          )
-         )
         )
-       (when *debug-effect-control*
-        (format
-         #t
-         "(~5D) effect sound ~A ~S "
-         (-> *display* base-frame-counter)
-         (res-lump-struct s5-0 'name structure)
-         sv-16
-         )
-        (format
-         #t
-         "volume: ~f  pitch-mod: ~f~%"
-         (* 0.09765625 (the float (-> s4-2 volume)))
-         (* 0.000656168 (the float (-> s4-2 pitch-mod)))
-         )
-        )
-       (sound-play-by-spec s4-2 (new-sound-id) (-> arg0 bsphere))
-       )
       )
-     )
     )
-   )
   0
   (none)
   )
 
 (defun ambient-type-sound-loop ((arg0 drawable-ambient) (arg1 vector))
   (let* ((s5-0 (-> arg0 ambient))
-         (s2-0
-          (symbol->string (the-as symbol (-> s5-0 ambient-data user-float 2)))
-          )
+         (s2-0 (symbol->string (the-as symbol (-> s5-0 ambient-data user-float 2))))
          (s3-0 (the-as object (-> s5-0 ambient-data user-float 1)))
          (s4-0 (new 'stack 'sound-spec))
          )
-   (set! (-> s4-0 sound-name) (string->sound-name s2-0))
-   (logior! (-> s4-0 mask) 1)
-   (set! (-> s4-0 volume) 1024)
-   (when (the-as (pointer res-tag) s3-0)
-    (let ((t9-2 effect-param->sound-spec)
-          (a0-5 s4-0)
-          (v1-8 (-> arg0 ambient))
-          (a1-2 (-> (the-as (pointer res-tag) s3-0) 0))
+    (set! (-> s4-0 sound-name) (string->sound-name s2-0))
+    (logior! (-> s4-0 mask) 1)
+    (set! (-> s4-0 volume) 1024)
+    (when (the-as (pointer res-tag) s3-0)
+      (let ((t9-2 effect-param->sound-spec)
+            (a0-5 s4-0)
+            (v1-8 (-> arg0 ambient))
+            (a1-2 (-> (the-as (pointer res-tag) s3-0) 0))
+            )
+        (t9-2
+          a0-5
+          (the-as (pointer float) (&+ (-> v1-8 data-base) (-> a1-2 data-offset)))
+          (the-as int (-> (the-as (pointer res-tag) s3-0) 0 elt-count))
           )
-     (t9-2
-      a0-5
-      (the-as (pointer float) (&+ (-> v1-8 data-base) (-> a1-2 data-offset)))
-      (the-as int (-> (the-as (pointer res-tag) s3-0) 0 elt-count))
+        )
       )
-     )
+    (sound-play-by-spec s4-0 (the-as sound-id (-> s5-0 ambient-data user-float 0)) (-> arg0 bsphere))
     )
-   (sound-play-by-spec
-    s4-0
-    (the-as sound-id (-> s5-0 ambient-data user-float 0))
-    (-> arg0 bsphere)
-    )
-   )
   0
   (none)
   )
 
 (defun ambient-type-light ((arg0 drawable-ambient) (arg1 vector))
   (when *target*
-   (let ((s4-0 (-> arg0 ambient))
-         (s5-0 #t)
-         )
-    (let
-     ((s3-0
-       (-> ((method-of-type res-lump lookup-tag-idx) s4-0 'vol 'exact 0.0) lo)
-       )
-      )
-     (when (>= (the-as int s3-0) 0)
-      (let ((s2-0 (the-as uint s3-0))
-            (s1-0 (-> s4-0 tag s3-0))
-            )
-       0
-       (while (= (-> s1-0 name) (-> s4-0 tag s3-0 name))
-        (let
-         ((v1-8
-           (the-as
-            object
-            (make-property-data
-             s4-0
-             0.0
-             (the-as res-tag-pair s2-0)
-             (the-as pointer #f)
-             )
-            )
-           )
+    (let ((s4-0 (-> arg0 ambient))
+          (s5-0 #t)
           )
-         (set! s5-0 #t)
-         (countdown (a0-6 (-> s1-0 elt-count))
-          (when
-           (<
-            (-> arg1 w)
-            (-
-             (vector-dot arg1 (-> (the-as (inline-array vector) v1-8) a0-6))
-             (-> (the-as (inline-array vector) v1-8) a0-6 w)
-             )
+      (let ((s3-0 (-> ((method-of-type res-lump lookup-tag-idx) s4-0 'vol 'exact 0.0) lo)))
+        (when (>= (the-as int s3-0) 0)
+          (let ((s2-0 (the-as uint s3-0))
+                (s1-0 (-> s4-0 tag s3-0))
+                )
+            0
+            (while (= (-> s1-0 name) (-> s4-0 tag s3-0 name))
+              (let ((v1-8 (the-as object (make-property-data s4-0 0.0 (the-as res-tag-pair s2-0) (the-as pointer #f)))))
+                (set! s5-0 #t)
+                (countdown (a0-6 (-> s1-0 elt-count))
+                  (when (< (-> arg1 w) (- (vector-dot arg1 (-> (the-as (inline-array vector) v1-8) a0-6))
+                                          (-> (the-as (inline-array vector) v1-8) a0-6 w)
+                                          )
+                           )
+                    (set! s5-0 #f)
+                    (goto cfg-9)
+                    )
+                  )
+                )
+              (label cfg-9)
+              (if s5-0
+                  (goto cfg-15)
+                  )
+              (+! s2-0 1)
+              (set! s1-0 (-> s4-0 tag s2-0))
+              )
             )
-           (set! s5-0 #f)
-           (goto cfg-9)
-           )
           )
-         )
-        (label cfg-9)
-        (if s5-0
-         (goto cfg-15)
-         )
-        (+! s2-0 1)
-        (set! s1-0 (-> s4-0 tag s2-0))
         )
-       )
+      (label cfg-15)
+      (when s5-0
+        )
       )
-     )
-    (label cfg-15)
-    (when s5-0
-     )
     )
-   )
   0
   (none)
   )
 
 (defun ambient-type-dark ((arg0 drawable-ambient) (arg1 vector))
   (when *target*
-   (let ((s4-0 (-> arg0 ambient))
-         (s5-0 #t)
-         )
-    (let
-     ((s3-0
-       (-> ((method-of-type res-lump lookup-tag-idx) s4-0 'vol 'exact 0.0) lo)
-       )
-      )
-     (when (>= (the-as int s3-0) 0)
-      (let ((s2-0 (the-as uint s3-0))
-            (s1-0 (-> s4-0 tag s3-0))
-            )
-       0
-       (while (= (-> s1-0 name) (-> s4-0 tag s3-0 name))
-        (let
-         ((v1-8
-           (the-as
-            object
-            (make-property-data
-             s4-0
-             0.0
-             (the-as res-tag-pair s2-0)
-             (the-as pointer #f)
-             )
-            )
-           )
+    (let ((s4-0 (-> arg0 ambient))
+          (s5-0 #t)
           )
-         (set! s5-0 #t)
-         (countdown (a0-6 (-> s1-0 elt-count))
-          (when
-           (<
-            (-> arg1 w)
-            (-
-             (vector-dot arg1 (-> (the-as (inline-array vector) v1-8) a0-6))
-             (-> (the-as (inline-array vector) v1-8) a0-6 w)
-             )
+      (let ((s3-0 (-> ((method-of-type res-lump lookup-tag-idx) s4-0 'vol 'exact 0.0) lo)))
+        (when (>= (the-as int s3-0) 0)
+          (let ((s2-0 (the-as uint s3-0))
+                (s1-0 (-> s4-0 tag s3-0))
+                )
+            0
+            (while (= (-> s1-0 name) (-> s4-0 tag s3-0 name))
+              (let ((v1-8 (the-as object (make-property-data s4-0 0.0 (the-as res-tag-pair s2-0) (the-as pointer #f)))))
+                (set! s5-0 #t)
+                (countdown (a0-6 (-> s1-0 elt-count))
+                  (when (< (-> arg1 w) (- (vector-dot arg1 (-> (the-as (inline-array vector) v1-8) a0-6))
+                                          (-> (the-as (inline-array vector) v1-8) a0-6 w)
+                                          )
+                           )
+                    (set! s5-0 #f)
+                    (goto cfg-9)
+                    )
+                  )
+                )
+              (label cfg-9)
+              (if s5-0
+                  (goto cfg-15)
+                  )
+              (+! s2-0 1)
+              (set! s1-0 (-> s4-0 tag s2-0))
+              )
             )
-           (set! s5-0 #f)
-           (goto cfg-9)
-           )
           )
-         )
-        (label cfg-9)
-        (if s5-0
-         (goto cfg-15)
-         )
-        (+! s2-0 1)
-        (set! s1-0 (-> s4-0 tag s2-0))
         )
-       )
+      (label cfg-15)
+      (if s5-0
+          (set! (-> *target* draw secondary-interp) 1.0)
+          )
       )
-     )
-    (label cfg-15)
-    (if s5-0
-     (set! (-> *target* draw secondary-interp) 1.0)
-     )
     )
-   )
   0
   (none)
   )
 
 (defun ambient-type-weather-off ((arg0 drawable-ambient) (arg1 vector))
   (when *target*
-   (let ((s4-0 (-> arg0 ambient))
-         (s5-0 #t)
-         )
-    (let
-     ((s3-0
-       (-> ((method-of-type res-lump lookup-tag-idx) s4-0 'vol 'exact 0.0) lo)
-       )
-      )
-     (when (>= (the-as int s3-0) 0)
-      (let ((s2-0 (the-as uint s3-0))
-            (s1-0 (-> s4-0 tag s3-0))
-            )
-       0
-       (while (= (-> s1-0 name) (-> s4-0 tag s3-0 name))
-        (let
-         ((v1-8
-           (the-as
-            object
-            (make-property-data
-             s4-0
-             0.0
-             (the-as res-tag-pair s2-0)
-             (the-as pointer #f)
-             )
-            )
-           )
+    (let ((s4-0 (-> arg0 ambient))
+          (s5-0 #t)
           )
-         (set! s5-0 #t)
-         (countdown (a0-6 (-> s1-0 elt-count))
-          (when
-           (<
-            (-> arg1 w)
-            (-
-             (vector-dot arg1 (-> (the-as (inline-array vector) v1-8) a0-6))
-             (-> (the-as (inline-array vector) v1-8) a0-6 w)
-             )
+      (let ((s3-0 (-> ((method-of-type res-lump lookup-tag-idx) s4-0 'vol 'exact 0.0) lo)))
+        (when (>= (the-as int s3-0) 0)
+          (let ((s2-0 (the-as uint s3-0))
+                (s1-0 (-> s4-0 tag s3-0))
+                )
+            0
+            (while (= (-> s1-0 name) (-> s4-0 tag s3-0 name))
+              (let ((v1-8 (the-as object (make-property-data s4-0 0.0 (the-as res-tag-pair s2-0) (the-as pointer #f)))))
+                (set! s5-0 #t)
+                (countdown (a0-6 (-> s1-0 elt-count))
+                  (when (< (-> arg1 w) (- (vector-dot arg1 (-> (the-as (inline-array vector) v1-8) a0-6))
+                                          (-> (the-as (inline-array vector) v1-8) a0-6 w)
+                                          )
+                           )
+                    (set! s5-0 #f)
+                    (goto cfg-9)
+                    )
+                  )
+                )
+              (label cfg-9)
+              (if s5-0
+                  (goto cfg-15)
+                  )
+              (+! s2-0 1)
+              (set! s1-0 (-> s4-0 tag s2-0))
+              )
             )
-           (set! s5-0 #f)
-           (goto cfg-9)
-           )
           )
-         )
-        (label cfg-9)
-        (if s5-0
-         (goto cfg-15)
-         )
-        (+! s2-0 1)
-        (set! s1-0 (-> s4-0 tag s2-0))
         )
-       )
+      (label cfg-15)
+      (if s5-0
+          (set! *weather-off* #t)
+          )
       )
-     )
-    (label cfg-15)
-    (if s5-0
-     (set! *weather-off* #t)
-     )
     )
-   )
   0
   (none)
   )
@@ -1299,66 +962,42 @@
 
 (defun ambient-type-music ((arg0 drawable-ambient) (arg1 vector))
   (let ((gp-0 (-> arg0 ambient)))
-   (if (-> gp-0 ambient-data user-float 0)
-    (set!
-     (-> *setting-control* default music)
-     (the-as symbol (-> gp-0 ambient-data user-float 0))
-     )
-    )
-   (when (nonzero? (-> gp-0 ambient-data user-float 1))
-    (let ((f0-0 (res-lump-float gp-0 'priority :default 10.0)))
-     (when (>= f0-0 (-> *setting-control* default sound-flava-priority))
-      (set!
-       (-> *setting-control* default sound-flava)
-       ;; TODO this following form has been manually modified to work
-       (the-as uint (-> gp-0 ambient-data user-int32 1))
-       )
-      (set! (-> *setting-control* default sound-flava-priority) f0-0)
+    (if (-> gp-0 ambient-data user-float 0)
+        (set! (-> *setting-control* default music) (the-as symbol (-> gp-0 ambient-data user-float 0)))
+        )
+    (when (nonzero? (-> gp-0 ambient-data user-float 1))
+      (let ((f0-0 (res-lump-float gp-0 'priority :default 10.0)))
+        (when (>= f0-0 (-> *setting-control* default sound-flava-priority))
+          ;; TODO this following form has been manually modified to work
+          (set! (-> *setting-control* default sound-flava) (the-as uint (-> gp-0 ambient-data user-int32 1)))
+          (set! (-> *setting-control* default sound-flava-priority) f0-0)
+          )
+        )
       )
-     )
     )
-   )
   0
   (none)
   )
 
-(defmethod
-  collect-ambients
-  drawable-ambient
-  ((obj drawable-ambient) (arg0 sphere) (arg1 int) (arg2 ambient-list))
+(defmethod collect-ambients drawable-ambient ((obj drawable-ambient) (arg0 sphere) (arg1 int) (arg2 ambient-list))
   (dotimes (s2-0 arg1)
-   (when (spheres-overlap? arg0 (the-as sphere (-> obj bsphere)))
-    (set! (-> arg2 items (-> arg2 num-items)) obj)
-    (+! (-> arg2 num-items) 1)
+    (when (spheres-overlap? arg0 (the-as sphere (-> obj bsphere)))
+      (set! (-> arg2 items (-> arg2 num-items)) obj)
+      (+! (-> arg2 num-items) 1)
+      )
+    (&+! obj 32)
     )
-   (&+! obj 32)
-   )
   0
   (none)
   )
 
-(defmethod
-  collect-ambients
-  drawable-inline-array-ambient
-  ((obj drawable-inline-array-ambient)
-   (arg0 sphere)
-   (arg1 int)
-   (arg2 ambient-list)
-   )
-  (collect-ambients
-   (the-as drawable-ambient (-> obj data))
-   arg0
-   (-> obj length)
-   arg2
-   )
+(defmethod collect-ambients drawable-inline-array-ambient ((obj drawable-inline-array-ambient) (arg0 sphere) (arg1 int) (arg2 ambient-list))
+  (collect-ambients (the-as drawable-ambient (-> obj data)) arg0 (-> obj length) arg2)
   0
   (none)
   )
 
-(defmethod
-  collect-ambients
-  drawable-tree-ambient
-  ((obj drawable-tree-ambient) (arg0 sphere) (arg1 int) (arg2 ambient-list))
+(defmethod collect-ambients drawable-tree-ambient ((obj drawable-tree-ambient) (arg0 sphere) (arg1 int) (arg2 ambient-list))
   (collect-ambients (-> obj data 0) arg0 (-> obj length) arg2)
   0
   (none)
@@ -1367,144 +1006,92 @@
 (defmethod birth-ambient! entity-ambient ((obj entity-ambient))
   (set! (-> obj ambient-data quad) (the-as uint128 0))
   (set! (-> obj ambient-data function) ambient-type-error)
-  (case (res-lump-struct obj 'type structure) 
-   (('sound)
+  (case (res-lump-struct obj 'type structure)
+    (('sound)
      (let ((s5-0 (res-lump-struct obj 'effect-name structure :time 0.0))
            (a0-7 (res-lump-data obj 'cycle-speed pointer))
            )
-      (when (and s5-0 a0-7)
-       (cond
-        ((>= (-> (the-as (pointer float) a0-7)) 0.0)
-         (set! (-> obj ambient-data function) ambient-type-sound)
-         (set! (-> obj ambient-data user-float 2) (the-as float 0))
-         (let
-          ((s5-1
-            (->
-             ((method-of-type res-lump lookup-tag-idx)
-              obj
-              'effect-name
-              'exact
-              0.0
+       (when (and s5-0 a0-7)
+         (cond
+           ((>= (-> (the-as (pointer float) a0-7)) 0.0)
+            (set! (-> obj ambient-data function) ambient-type-sound)
+            (set! (-> obj ambient-data user-float 2) (the-as float 0))
+            (let ((s5-1 (-> ((method-of-type res-lump lookup-tag-idx) obj 'effect-name 'exact 0.0) lo)))
+              (when (>= (the-as int s5-1) 0)
+                (let ((s4-0 (the-as uint s5-1))
+                      (v1-14 (-> obj tag s5-1))
+                      )
+                  0
+                  (while (= (-> v1-14 name) (-> obj tag s5-1 name))
+                    (make-property-data obj 0.0 (the-as res-tag-pair s4-0) (the-as pointer #f))
+                    (set! (-> obj ambient-data user-float 2) (the-as float (+ (the-as int (-> obj ambient-data user-float 2)) 1)))
+                    (+! s4-0 1)
+                    (set! v1-14 (-> obj tag s4-0))
+                    )
+                  )
+                )
               )
-             lo
-             )
             )
-           )
-          (when (>= (the-as int s5-1) 0)
-           (let ((s4-0 (the-as uint s5-1))
-                 (v1-14 (-> obj tag s5-1))
-                 )
-            0
-            (while (= (-> v1-14 name) (-> obj tag s5-1 name))
-             (make-property-data
-              obj
-              0.0
-              (the-as res-tag-pair s4-0)
-              (the-as pointer #f)
-              )
-             (set!
-              (-> obj ambient-data user-float 2)
-              (the-as
-               float
-               (+ (the-as int (-> obj ambient-data user-float 2)) 1)
+           (else
+             (set! (-> obj ambient-data user-float 0) (the-as float (new-sound-id)))
+             (let ((v1-28 ((method-of-type res-lump lookup-tag-idx) obj 'effect-param 'exact 0.0)))
+               (set! (-> obj ambient-data user-float 1) (the-as float (if (< (the-as int v1-28) 0)
+                                                                          (the-as (pointer res-tag) #f)
+                                                                          (&-> (-> obj tag) (-> v1-28 lo))
+                                                                          )
+                                                                )
+                     )
                )
-              )
-             (+! s4-0 1)
-             (set! v1-14 (-> obj tag s4-0))
+             (set! (-> obj ambient-data user-float 2) (the-as float s5-0))
+             (set! (-> obj ambient-data function) ambient-type-sound-loop)
              )
-            )
            )
-          )
          )
-        (else
-         (set! (-> obj ambient-data user-float 0) (the-as float (new-sound-id)))
-         (let
-          ((v1-28
-            ((method-of-type res-lump lookup-tag-idx)
-             obj
-             'effect-param
-             'exact
-             0.0
-             )
-            )
-           )
-          (set!
-           (-> obj ambient-data user-float 1)
-           (the-as float (if (< (the-as int v1-28) 0)
-                          (the-as (pointer res-tag) #f)
-                          (&-> (-> obj tag) (-> v1-28 lo))
-                          )
-            )
-           )
-          )
-         (set! (-> obj ambient-data user-float 2) (the-as float s5-0))
-         (set! (-> obj ambient-data function) ambient-type-sound-loop)
-         )
-        )
        )
-      )
      )
-   (('poi)
-    (let ((s5-2 (res-lump-struct obj 'effect-name structure :time 0.0)))
-     (when (res-lump-value obj 'loc-name-id uint128)
-      (set! (-> obj ambient-data user-float 2) (the-as float s5-2))
-      (set! (-> obj ambient-data function) ambient-type-poi)
-      )
+    (('poi)
+     (let ((s5-2 (res-lump-struct obj 'effect-name structure :time 0.0)))
+       (when (res-lump-value obj 'loc-name-id uint128)
+         (set! (-> obj ambient-data user-float 2) (the-as float s5-2))
+         (set! (-> obj ambient-data function) ambient-type-poi)
+         )
+       )
+     )
+    (('hint)
+     (let ((s5-3 (res-lump-struct obj 'effect-name structure :time 0.0)))
+       (when (res-lump-value obj 'text-id uint128)
+         (set! (-> obj ambient-data user-float 2) (the-as float s5-3))
+         (set! (-> obj ambient-data function) ambient-type-hint)
+         )
+       )
+     )
+    (('light)
+     (set! (-> obj ambient-data user-float 2) (res-lump-struct obj 'effect-name float :time 0.0))
+     (set! (-> obj ambient-data function) ambient-type-light)
+     )
+    (('dark)
+     (set! (-> obj ambient-data user-float 2) (res-lump-struct obj 'effect-name float :time 0.0))
+     (set! (-> obj ambient-data function) ambient-type-dark)
+     )
+    (('weather-off)
+     (set! (-> obj ambient-data user-float 2) (res-lump-struct obj 'effect-name float :time 0.0))
+     (set! (-> obj ambient-data function) ambient-type-weather-off)
+     )
+    (('ocean-off)
+     (set! (-> obj ambient-data user-float 2) (res-lump-struct obj 'effect-name float :time 0.0))
+     (set! (-> obj ambient-data function) ambient-type-ocean-off)
+     )
+    (('ocean-near-off)
+     (set! (-> obj ambient-data user-float 2) (res-lump-struct obj 'effect-name float :time 0.0))
+     (set! (-> obj ambient-data function) ambient-type-ocean-near-off)
+     )
+    (('music)
+     (set! (-> obj ambient-data user-float 2) (res-lump-struct obj 'effect-name float :time 0.0))
+     (set! (-> obj ambient-data user-float 0) (res-lump-struct obj 'music float))
+     (set! (-> obj ambient-data user-float 1) (res-lump-value obj 'flava float))
+     (set! (-> obj ambient-data function) ambient-type-music)
      )
     )
-   (('hint)
-    (let ((s5-3 (res-lump-struct obj 'effect-name structure :time 0.0)))
-     (when (res-lump-value obj 'text-id uint128)
-      (set! (-> obj ambient-data user-float 2) (the-as float s5-3))
-      (set! (-> obj ambient-data function) ambient-type-hint)
-      )
-     )
-    )
-   (('light)
-    (set!
-     (-> obj ambient-data user-float 2)
-     (res-lump-struct obj 'effect-name float :time 0.0)
-     )
-    (set! (-> obj ambient-data function) ambient-type-light)
-    )
-   (('dark)
-    (set!
-     (-> obj ambient-data user-float 2)
-     (res-lump-struct obj 'effect-name float :time 0.0)
-     )
-    (set! (-> obj ambient-data function) ambient-type-dark)
-    )
-   (('weather-off)
-    (set!
-     (-> obj ambient-data user-float 2)
-     (res-lump-struct obj 'effect-name float :time 0.0)
-     )
-    (set! (-> obj ambient-data function) ambient-type-weather-off)
-    )
-   (('ocean-off)
-    (set!
-     (-> obj ambient-data user-float 2)
-     (res-lump-struct obj 'effect-name float :time 0.0)
-     )
-    (set! (-> obj ambient-data function) ambient-type-ocean-off)
-    )
-   (('ocean-near-off)
-    (set!
-     (-> obj ambient-data user-float 2)
-     (res-lump-struct obj 'effect-name float :time 0.0)
-     )
-    (set! (-> obj ambient-data function) ambient-type-ocean-near-off)
-    )
-   (('music)
-    (set!
-     (-> obj ambient-data user-float 2)
-     (res-lump-struct obj 'effect-name float :time 0.0)
-     )
-    (set! (-> obj ambient-data user-float 0) (res-lump-struct obj 'music float))
-    (set! (-> obj ambient-data user-float 1) (res-lump-value obj 'flava float))
-    (set! (-> obj ambient-data function) ambient-type-music)
-    )
-   )
   (none)
   )
 
@@ -1524,151 +1111,121 @@
         (s5-0 (res-lump-struct obj 'type symbol))
         (s3-0 #f)
         )
-   (cond
-    ((= s5-0 'sound)
-     (when *display-ambient-sound-marks*
-      (add-debug-text-3d
-       #t
-       (bucket-id debug-draw1)
-       (the-as
-        string
-        (->
-         (the-as
-          (pointer uint32)
-          (+ #xff38 (res-lump-struct obj 'effect-name int :time 0.0))
-          )
+    (cond
+      ((= s5-0 'sound)
+       (when *display-ambient-sound-marks*
+         (add-debug-text-3d
+           #t
+           (bucket-id debug-draw1)
+           (the-as string (-> (the-as (pointer uint32) (+ #xff38 (res-lump-struct obj 'effect-name int :time 0.0)))))
+           gp-0
+           (font-color white)
+           (new 'static 'vector2h :y 24)
+           )
+         (set! s3-0 #t)
          )
-        )
-       gp-0
-       (font-color white)
-       (new 'static 'vector2h :y 24)
        )
-      (set! s3-0 #t)
+      ((= s5-0 'hint)
+       (when *display-ambient-hint-marks*
+         (set! sv-16 (res-lump-value obj 'text-id uint128))
+         (let ((s3-2 add-debug-text-3d)
+               (s2-1 #t)
+               (s1-1 68)
+               )
+           (format (clear *temp-string*) "TEXT ID #x~X" sv-16)
+           (s3-2 s2-1 (the-as bucket-id s1-1) *temp-string* gp-0 (font-color white) (new 'static 'vector2h :y 24))
+           )
+         (set! s3-0 #t)
+         )
+       )
+      ((= s5-0 'poi)
+       (when *display-ambient-poi-marks*
+         (let ((a1-7 (res-lump-value obj 'loc-name-id uint128)))
+           (when (and (nonzero? a1-7) *common-text*)
+             (add-debug-text-3d
+               #t
+               (bucket-id debug-draw1)
+               (lookup-text! *common-text* (the-as game-text-id a1-7) #f)
+               gp-0
+               (font-color white)
+               (new 'static 'vector2h :y 24)
+               )
+             (set! s3-0 #t)
+             )
+           )
+         )
+       )
+      ((= s5-0 'light)
+       (if *display-ambient-light-marks*
+           (set! s3-0 #t)
+           )
+       )
+      ((= s5-0 'dark)
+       (if *display-ambient-dark-marks*
+           (set! s3-0 #t)
+           )
+       )
+      ((= s5-0 'weather-off)
+       (if *display-ambient-weather-off-marks*
+           (set! s3-0 #t)
+           )
+       )
+      ((= s5-0 'ocean-off)
+       (if *display-ambient-ocean-off-marks*
+           (set! s3-0 #t)
+           )
+       )
+      ((= s5-0 'ocean-near-off)
+       (if *display-ambient-ocean-near-off-marks*
+           (set! s3-0 #t)
+           )
+       )
+      ((= s5-0 'music)
+       (if *display-ambient-music-marks*
+           (set! s3-0 #t)
+           )
+       )
       )
-     )
-    ((= s5-0 'hint)
-     (when *display-ambient-hint-marks*
-      (set! sv-16 (res-lump-value obj 'text-id uint128))
-      (let ((s3-2 add-debug-text-3d)
-            (s2-1 #t)
-            (s1-1 68)
+    (when s3-0
+      (let ((t9-10 add-debug-sphere)
+            (a0-11 #t)
+            (a1-9 67)
+            (a2-9 gp-0)
+            (a3-7 (-> gp-0 w))
+            (v1-53 s5-0)
             )
-       (format (clear *temp-string*) "TEXT ID #x~X" sv-16)
-       (s3-2
-        s2-1
-        (the-as bucket-id s1-1)
-        *temp-string*
+        (t9-10 a0-11 (the-as bucket-id a1-9) a2-9 a3-7 (the-as rgba (cond
+                                                                      ((= v1-53 'sound)
+                                                                       (the-as uint #x8000ffff)
+                                                                       )
+                                                                      ((= v1-53 'poi)
+                                                                       (the-as uint #x80ff8000)
+                                                                       )
+                                                                      (else
+                                                                        (the-as uint #x800000ff)
+                                                                        )
+                                                                      )
+                                                               )
+               )
+        )
+      (add-debug-text-3d
+        #t
+        (bucket-id debug-draw1)
+        (res-lump-struct obj 'name string)
         gp-0
         (font-color white)
-        (new 'static 'vector2h :y 24)
+        (new 'static 'vector2h :y 8)
         )
-       )
-      (set! s3-0 #t)
-      )
-     )
-    ((= s5-0 'poi)
-     (when *display-ambient-poi-marks*
-      (let ((a1-7 (res-lump-value obj 'loc-name-id uint128)))
-       (when (and (nonzero? a1-7) *common-text*)
-        (add-debug-text-3d
-         #t
-         (bucket-id debug-draw1)
-         (lookup-text! *common-text* (the-as game-text-id a1-7) #f)
-         gp-0
-         (font-color white)
-         (new 'static 'vector2h :y 24)
-         )
-        (set! s3-0 #t)
+      (add-debug-text-3d
+        #t
+        (bucket-id debug-draw1)
+        (symbol->string s5-0)
+        gp-0
+        (font-color white)
+        (new 'static 'vector2h :y 16)
         )
-       )
       )
-     )
-    ((= s5-0 'light)
-     (if *display-ambient-light-marks*
-      (set! s3-0 #t)
-      )
-     )
-    ((= s5-0 'dark)
-     (if *display-ambient-dark-marks*
-      (set! s3-0 #t)
-      )
-     )
-    ((= s5-0 'weather-off)
-     (if *display-ambient-weather-off-marks*
-      (set! s3-0 #t)
-      )
-     )
-    ((= s5-0 'ocean-off)
-     (if *display-ambient-ocean-off-marks*
-      (set! s3-0 #t)
-      )
-     )
-    ((= s5-0 'ocean-near-off)
-     (if *display-ambient-ocean-near-off-marks*
-      (set! s3-0 #t)
-      )
-     )
-    ((= s5-0 'music)
-     (if *display-ambient-music-marks*
-      (set! s3-0 #t)
-      )
-     )
     )
-   (when s3-0
-    (let ((t9-10 add-debug-sphere)
-          (a0-11 #t)
-          (a1-9 67)
-          (a2-9 gp-0)
-          (a3-7 (-> gp-0 w))
-          (v1-53 s5-0)
-          )
-     (t9-10 a0-11 (the-as bucket-id a1-9) a2-9 a3-7 (the-as rgba (cond
-                                                                  ((=
-                                                                    v1-53
-                                                                    'sound
-                                                                    )
-                                                                   (the-as
-                                                                    uint
-                                                                    #x8000ffff
-                                                                    )
-                                                                   )
-                                                                  ((=
-                                                                    v1-53
-                                                                    'poi
-                                                                    )
-                                                                   (the-as
-                                                                    uint
-                                                                    #x80ff8000
-                                                                    )
-                                                                   )
-                                                                  (else
-                                                                   (the-as
-                                                                    uint
-                                                                    #x800000ff
-                                                                    )
-                                                                   )
-                                                                  )
-                                                     )
-      )
-     )
-    (add-debug-text-3d
-     #t
-     (bucket-id debug-draw1)
-     (res-lump-struct obj 'name string)
-     gp-0
-     (font-color white)
-     (new 'static 'vector2h :y 8)
-     )
-    (add-debug-text-3d
-     #t
-     (bucket-id debug-draw1)
-     (symbol->string s5-0)
-     gp-0
-     (font-color white)
-     (new 'static 'vector2h :y 16)
-     )
-    )
-   )
   0
   (none)
   )
diff --git a/goal_src/engine/ambient/weather-part.gc b/goal_src/engine/ambient/weather-part.gc
index 970713d052..4be91f39d9 100644
--- a/goal_src/engine/ambient/weather-part.gc
+++ b/goal_src/engine/ambient/weather-part.gc
@@ -7,17 +7,12 @@
 
 ;; DECOMP BEGINS
 
-(set!
-  (-> *part-group-id-table* 188)
-  (new 'static 'sparticle-launch-group
-   :length 66
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag screen-space)
-   :name "group-rain-screend-drop-real"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 66
-    (sp-item 18 :binding 19)
+(defpartgroup group-rain-screend-drop-real
+  :id 188
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 18 :binding 19)
     (sp-item 19 :flags (start-dead launch-asap) :binding 20)
     (sp-item 19 :flags (start-dead launch-asap) :binding 20)
     (sp-item 19 :flags (start-dead launch-asap) :binding 20)
@@ -84,21 +79,16 @@
     (sp-item 23 :flags (start-dead launch-asap))
     (sp-item 23 :flags (start-dead launch-asap))
     )
-   :bounds (new 'static 'sphere :w 65536.0)
-   )
   )
 
 (define group-rain-screend-drop (-> *part-group-id-table* 188))
 
-(set!
-  (-> *part-id-table* 21)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 21
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -4.5) (meters 9.0) 1.0)
-    (sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -4.5) (meters 9) 1.0)
+    (sp-rnd-flt spt-y (meters -3) (meters 6) 1.0)
     (sp-flt spt-scale-x (meters 2.5))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -111,17 +101,12 @@
     (sp-flt spt-fade-a -0.8)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 22)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 22
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -137,30 +122,20 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 24)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 24)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-scalevel-x (meters 0.004166667))
+(defpart 24
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.004166667))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-a -0.06666667)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 23)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-flt spt-num 1.0)
+(defpart 23
+  :init-specs
+  ((sp-flt spt-num 1.0)
     (sp-int spt-rot-x 12)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 3276.8)
@@ -173,32 +148,21 @@
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 30)
     (sp-launcher-by-id spt-next-launcher 25)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 25)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-g -5.1200004)
-    (sp-end)
-    )
-   )
+(defpart 25
+  :init-specs
+  ((sp-flt spt-fade-g -5.1200004))
   )
 
-(set!
-  (-> *part-id-table* 18)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 18
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -4.5) (meters 9.0) 1.0)
-    (sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
-    (sp-flt spt-scale-x (meters 4.0))
+    (sp-rnd-flt spt-x (meters -4.5) (meters 9) 1.0)
+    (sp-rnd-flt spt-y (meters -3) (meters 6) 1.0)
+    (sp-flt spt-scale-x (meters 4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -210,17 +174,12 @@
     (sp-flt spt-fade-a -0.8)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 19)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 19
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 2.6))
     (sp-copy-from-other spt-scale-y -4)
@@ -236,30 +195,20 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 26)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 26)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-scalevel-x (meters 0.008333334))
+(defpart 26
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.008333334))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-a -0.06666667)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 20)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-flt spt-num 1.0)
+(defpart 20
+  :init-specs
+  ((sp-flt spt-num 1.0)
     (sp-int spt-rot-x 24)
     (sp-flt spt-r 12288.0)
     (sp-flt spt-g 6553.6)
@@ -272,48 +221,27 @@
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 30)
     (sp-launcher-by-id spt-next-launcher 27)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 27)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-g -10.240001)
-    (sp-end)
-    )
-   )
+(defpart 27
+  :init-specs
+  ((sp-flt spt-fade-g -10.240001))
   )
 
-(set!
-  (-> *part-group-id-table* 34)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-stars"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 28)
-    (sp-item 29)
-    (sp-item 30)
-    )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
+(defpartgroup group-stars
+  :id 34
+  :flags (always-draw)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 28) (sp-item 29) (sp-item 30))
   )
 
-(set!
-  (-> *part-id-table* 28)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 28
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 40) (meters 40) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
     (sp-flt spt-g 256.0)
@@ -326,45 +254,26 @@
     (sp-launcher-by-id spt-next-launcher 31)
     (sp-rnd-flt spt-conerot-x (degrees -89.0) (degrees 178.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-    (sp-flt spt-conerot-radius (meters 5000.0))
+    (sp-flt spt-conerot-radius (meters 5000))
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 31)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 29999700)
-    (sp-launcher-by-id spt-next-launcher 32)
-    (sp-end)
-    )
-   )
+(defpart 31
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 29999700) (sp-launcher-by-id spt-next-launcher 32))
   )
 
-(set!
-  (-> *part-id-table* 32)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.42666668)
-    (sp-end)
-    )
-   )
+(defpart 32
+  :init-specs
+  ((sp-flt spt-fade-a -0.42666668))
   )
 
-(set!
-  (-> *part-id-table* 29)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 29
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 40) (meters 40) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
     (sp-flt spt-g 256.0)
@@ -377,21 +286,16 @@
     (sp-launcher-by-id spt-next-launcher 31)
     (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 59.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 2880.0) 1.0)
-    (sp-flt spt-conerot-radius (meters 5000.0))
+    (sp-flt spt-conerot-radius (meters 5000))
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 30)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 30
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 40) (meters 40) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
@@ -404,22 +308,17 @@
     (sp-launcher-by-id spt-next-launcher 31)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 29.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 5760.0) 1.0)
-    (sp-flt spt-conerot-radius (meters 5000.0))
+    (sp-flt spt-conerot-radius (meters 5000))
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 33)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 33
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 4.0)
-    (sp-rnd-flt spt-x (meters 10.0) (meters 10.0) 1.0)
-    (sp-rnd-flt spt-y (meters 2.0) (meters 14.0) 1.0)
+    (sp-rnd-flt spt-x (meters 10) (meters 10) 1.0)
+    (sp-rnd-flt spt-y (meters 2) (meters 14) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -436,20 +335,15 @@
     (sp-int-plain-rnd spt-next-time 75 74 1)
     (sp-launcher-by-id spt-next-launcher 35)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 34)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 34
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters 16.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 20) 1.0)
+    (sp-flt spt-y (meters 16))
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -466,85 +360,55 @@
     (sp-int-plain-rnd spt-next-time 75 74 1)
     (sp-launcher-by-id spt-next-launcher 35)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 35)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 1200)
-    (sp-launcher-by-id spt-next-launcher 36)
-    (sp-end)
-    )
-   )
+(defpart 35
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 1200) (sp-launcher-by-id spt-next-launcher 36))
   )
 
-(set!
-  (-> *part-id-table* 36)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.85333335)
-    (sp-end)
-    )
-   )
+(defpart 36
+  :init-specs
+  ((sp-flt spt-fade-a -0.85333335))
   )
 
 (defun update-snow ((arg0 target))
   (let ((gp-0 (-> arg0 control trans)))
-   (let
-    ((f0-0
-      (lerp-scale
-       0.0
-       1.0
-       (vector-length (-> arg0 control transv))
-       2048.0
-       40960.0
-       )
+    (let ((f0-0 (lerp-scale 0.0 1.0 (vector-length (-> arg0 control transv)) 2048.0 40960.0)))
+      (set! (-> *part-id-table* 34 init-specs 1 initial-valuef) (- 1.0 f0-0))
+      (set! (-> *part-id-table* 33 init-specs 1 initial-valuef) (* 4.0 f0-0))
+      )
+    (set! (-> *part-id-table* 33 init-specs 19 initial-valuef)
+          (+ 32768.0 (vector-y-angle (-> arg0 control transv)))
+          )
+    (sp-launch-particles-var
+      *sp-particle-system-2d*
+      (-> *part-id-table* 34)
+      gp-0
+      (the-as sparticle-launch-state #f)
+      (the-as sparticle-launch-control #f)
+      1.0
+      )
+    (sp-launch-particles-var
+      *sp-particle-system-2d*
+      (-> *part-id-table* 33)
+      gp-0
+      (the-as sparticle-launch-state #f)
+      (the-as sparticle-launch-control #f)
+      1.0
       )
-     )
-    (set! (-> *part-id-table* 34 init-specs 1 initial-valuef) (- 1.0 f0-0))
-    (set! (-> *part-id-table* 33 init-specs 1 initial-valuef) (* 4.0 f0-0))
     )
-   (set!
-    (-> *part-id-table* 33 init-specs 19 initial-valuef)
-    (+ 32768.0 (vector-y-angle (-> arg0 control transv)))
-    )
-   (sp-launch-particles-var
-    *sp-particle-system-2d*
-    (-> *part-id-table* 34)
-    gp-0
-    (the-as sparticle-launch-state #f)
-    (the-as sparticle-launch-control #f)
-    1.0
-    )
-   (sp-launch-particles-var
-    *sp-particle-system-2d*
-    (-> *part-id-table* 33)
-    gp-0
-    (the-as sparticle-launch-state #f)
-    (the-as sparticle-launch-control #f)
-    1.0
-    )
-   )
   0
   (none)
   )
 
-(set!
-  (-> *part-id-table* 37)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 37
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.5)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters 16.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 20) 1.0)
+    (sp-flt spt-y (meters 16))
     (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
     (sp-flt spt-r 50.0)
@@ -557,20 +421,15 @@
     (sp-flt spt-userdata 0.0)
     (sp-func spt-func 'check-drop-level-rain)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 38)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 38
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 4.5)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters 16.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 20) 1.0)
+    (sp-flt spt-y (meters 16))
     (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
     (sp-flt spt-r 50.0)
@@ -581,17 +440,12 @@
     (sp-int spt-timer 240)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 39)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 39
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-rnd-int spt-num 0 1 2.0)
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -606,20 +460,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 25.000002) (degrees 40.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 40)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 40
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters 0.02))
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 110.0 32.0 1.0)
@@ -632,133 +481,94 @@
     (sp-int spt-timer 120)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(defun
-  check-drop-level-rain
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-rain ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 39)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
-    (sp-launch-particles-var
-     *sp-particle-system-3d*
-     (-> *part-id-table* 40)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 39)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
+      (sp-launch-particles-var
+        *sp-particle-system-3d*
+        (-> *part-id-table* 40)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
+      )
     )
-   )
   (none)
   )
 
 (defun update-rain ((arg0 target))
   (let ((a2-0 (new 'stack-no-clear 'vector)))
-   (set! (-> a2-0 x) (-> arg0 control transv x))
-   (set! (-> a2-0 y) 0.0)
-   (set! (-> a2-0 z) (-> arg0 control transv z))
-   (set! (-> a2-0 w) 1.0)
-   (let
-    ((gp-0
-      (vector+float*!
-       (new 'stack-no-clear 'vector)
-       (-> arg0 control trans)
-       a2-0
-       0.0
-       )
+    (set! (-> a2-0 x) (-> arg0 control transv x))
+    (set! (-> a2-0 y) 0.0)
+    (set! (-> a2-0 z) (-> arg0 control transv z))
+    (set! (-> a2-0 w) 1.0)
+    (let ((gp-0 (vector+float*! (new 'stack-no-clear 'vector) (-> arg0 control trans) a2-0 0.0)))
+      (let* ((s5-0 (matrix-local->world #f #f))
+             (f28-0 (lerp-scale 122.88 245.76 (fabs (-> s5-0 vector 2 y)) 0.0 0.7))
+             (f30-0 (lerp-scale 2048.0 245.76 (fabs (-> s5-0 vector 2 y)) 0.0 0.7))
+             )
+        (let ((f26-0 (lerp-scale 0.0 0.1 (-> s5-0 vector 2 y) 0.3 0.7))
+              (f0-10 (lerp-scale 1.0 0.1 (-> s5-0 vector 2 y) 0.3 0.7))
+              )
+          (if (< 0.0 f26-0)
+              (send-event *camera* 'part-water-drip f26-0 f0-10)
+              )
+          )
+        (set! (-> *part-id-table* 37 init-specs 4 initial-valuef) f28-0)
+        (set! (-> *part-id-table* 37 init-specs 4 random-rangef) f28-0)
+        (set! (-> *part-id-table* 38 init-specs 4 initial-valuef) f28-0)
+        (set! (-> *part-id-table* 38 init-specs 4 random-rangef) f28-0)
+        (set! (-> *part-id-table* 37 init-specs 5 initial-valuef) f30-0)
+        (set! (-> *part-id-table* 37 init-specs 5 random-rangef) f30-0)
+        (set! (-> *part-id-table* 38 init-specs 5 initial-valuef) f30-0)
+        (set! (-> *part-id-table* 38 init-specs 5 random-rangef) f30-0)
+        )
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 37)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 38)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
       )
-     )
-    (let* ((s5-0 (matrix-local->world #f #f))
-           (f28-0
-            (lerp-scale 122.88 245.76 (fabs (-> s5-0 vector 2 y)) 0.0 0.7)
-            )
-           (f30-0
-            (lerp-scale 2048.0 245.76 (fabs (-> s5-0 vector 2 y)) 0.0 0.7)
-            )
-           )
-     (let ((f26-0 (lerp-scale 0.0 0.1 (-> s5-0 vector 2 y) 0.3 0.7))
-           (f0-10 (lerp-scale 1.0 0.1 (-> s5-0 vector 2 y) 0.3 0.7))
-           )
-      (if (< 0.0 f26-0)
-       (send-event *camera* 'part-water-drip f26-0 f0-10)
-       )
-      )
-     (set! (-> *part-id-table* 37 init-specs 4 initial-valuef) f28-0)
-     (set! (-> *part-id-table* 37 init-specs 4 random-rangef) f28-0)
-     (set! (-> *part-id-table* 38 init-specs 4 initial-valuef) f28-0)
-     (set! (-> *part-id-table* 38 init-specs 4 random-rangef) f28-0)
-     (set! (-> *part-id-table* 37 init-specs 5 initial-valuef) f30-0)
-     (set! (-> *part-id-table* 37 init-specs 5 random-rangef) f30-0)
-     (set! (-> *part-id-table* 38 init-specs 5 initial-valuef) f30-0)
-     (set! (-> *part-id-table* 38 init-specs 5 random-rangef) f30-0)
-     )
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 37)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 38)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
     )
-   )
   0
   (none)
   )
 
 (defbehavior cam-master-effect camera-master ()
-  (when
-   (<
-    (+ (-> *display* base-frame-counter) -3000)
-    (the-as int (-> self water-drip-time))
+  (when (< (+ (-> *display* base-frame-counter) -3000) (the-as int (-> self water-drip-time)))
+    (set! (-> *part-id-table* 21 init-specs 1 initial-valuef) (-> self water-drip-mult))
+    (set! (-> *part-id-table* 18 init-specs 1 initial-valuef) (* 0.9 (-> self water-drip-mult)))
+    (set! (-> *part-id-table* 22 init-specs 11 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
+    (set! (-> *part-id-table* 23 init-specs 8 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
+    (set! (-> *part-id-table* 19 init-specs 11 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
+    (set! (-> *part-id-table* 20 init-specs 8 initial-valuef) (* -2.7306666 (-> self water-drip-speed)))
+    (spawn (-> self water-drip) *zero-vector*)
     )
-   (set!
-    (-> *part-id-table* 21 init-specs 1 initial-valuef)
-    (-> self water-drip-mult)
-    )
-   (set!
-    (-> *part-id-table* 18 init-specs 1 initial-valuef)
-    (* 0.9 (-> self water-drip-mult))
-    )
-   (set!
-    (-> *part-id-table* 22 init-specs 11 initial-valuef)
-    (* -2.7306666 (-> self water-drip-speed))
-    )
-   (set!
-    (-> *part-id-table* 23 init-specs 8 initial-valuef)
-    (* -2.7306666 (-> self water-drip-speed))
-    )
-   (set!
-    (-> *part-id-table* 19 init-specs 11 initial-valuef)
-    (* -2.7306666 (-> self water-drip-speed))
-    )
-   (set!
-    (-> *part-id-table* 20 init-specs 8 initial-valuef)
-    (* -2.7306666 (-> self water-drip-speed))
-    )
-   (spawn (-> self water-drip) *zero-vector*)
-   )
   0
   (none)
   )
@@ -766,85 +576,47 @@
 (defun sparticle-track-sun ((arg0 int) (arg1 sparticle-cpuinfo) (arg2 matrix))
   (-> arg1 key)
   (let ((s5-0 (the int (-> arg1 user-float))))
-   (let* ((a1-1 (math-camera-pos))
-          (a2-1 (-> *sky-parms* upload-data sun (/ s5-0 4)))
-          (v1-3
-           (vector+float*!
-            (new 'stack-no-clear 'vector)
-            a1-1
-            (the-as vector a2-1)
-            4096.0
-            )
+    (let* ((a1-1 (math-camera-pos))
+           (a2-1 (-> *sky-parms* upload-data sun (/ s5-0 4)))
+           (v1-3 (vector+float*! (new 'stack-no-clear 'vector) a1-1 (the-as vector a2-1) 4096.0))
            )
-          )
-    (set! (-> arg2 vector 0 x) (-> v1-3 x))
-    (set! (-> arg2 vector 0 y) (-> v1-3 y))
-    (set! (-> arg2 vector 0 z) (-> v1-3 z))
+      (set! (-> arg2 vector 0 x) (-> v1-3 x))
+      (set! (-> arg2 vector 0 y) (-> v1-3 y))
+      (set! (-> arg2 vector 0 z) (-> v1-3 z))
+      )
+    (if (!= (-> arg2 vector 2 w) 0.0)
+        (set! (-> arg2 vector 2 w) (* 128.0 (-> *time-of-day-context* sun-fade)))
+        )
+    (cond
+      ((zero? s5-0)
+       (set! (-> arg2 vector 2 x) (-> *time-of-day-context* current-sun sun-color x))
+       (set! (-> arg2 vector 2 y) (-> *time-of-day-context* current-sun sun-color y))
+       (set! (-> arg2 vector 2 z) (-> *time-of-day-context* current-sun sun-color z))
+       )
+      ((or (= s5-0 1) (= s5-0 2))
+       (set! (-> arg2 vector 2 x) (* 0.25 (-> *time-of-day-context* current-sun sun-color x)))
+       (set! (-> arg2 vector 2 y) (* 0.25 (-> *time-of-day-context* current-sun sun-color y)))
+       (set! (-> arg2 vector 2 z) (* 0.25 (-> *time-of-day-context* current-sun sun-color z)))
+       )
+      )
     )
-   (if (!= (-> arg2 vector 2 w) 0.0)
-    (set! (-> arg2 vector 2 w) (* 128.0 (-> *time-of-day-context* sun-fade)))
-    )
-   (cond
-    ((zero? s5-0)
-     (set!
-      (-> arg2 vector 2 x)
-      (-> *time-of-day-context* current-sun sun-color x)
-      )
-     (set!
-      (-> arg2 vector 2 y)
-      (-> *time-of-day-context* current-sun sun-color y)
-      )
-     (set!
-      (-> arg2 vector 2 z)
-      (-> *time-of-day-context* current-sun sun-color z)
-      )
-     )
-    ((or (= s5-0 1) (= s5-0 2))
-     (set!
-      (-> arg2 vector 2 x)
-      (* 0.25 (-> *time-of-day-context* current-sun sun-color x))
-      )
-     (set!
-      (-> arg2 vector 2 y)
-      (* 0.25 (-> *time-of-day-context* current-sun sun-color y))
-      )
-     (set!
-      (-> arg2 vector 2 z)
-      (* 0.25 (-> *time-of-day-context* current-sun sun-color z))
-      )
-     )
-    )
-   )
   0
   (none)
   )
 
-(set!
-  (-> *part-group-id-table* 35)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-sun"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 1950)
-    (sp-item 1951)
-    (sp-item 1952)
-    )
-   :bounds (new 'static 'sphere :w 286720.0)
-   )
+(defpartgroup group-sun
+  :id 35
+  :flags (always-draw)
+  :bounds (static-bspherem 0 0 0 70)
+  :parts
+  ((sp-item 1950) (sp-item 1951) (sp-item 1952))
   )
 
-(set!
-  (-> *part-id-table* 1950)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1950
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1200.0))
+    (sp-flt spt-scale-x (meters 1200))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
     (sp-flt spt-g 255.0)
@@ -854,21 +626,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-flt spt-userdata 0.0)
     (sp-func spt-func 'sparticle-track-sun)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1951)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
+(defpart 1951
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 2800.0))
+    (sp-flt spt-scale-x (meters 2800))
     (sp-flt spt-rot-z (degrees 0.0))
-    (sp-flt spt-scale-y (meters 2200.0))
+    (sp-flt spt-scale-y (meters 2200))
     (sp-flt spt-r 64.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-b 32.0)
@@ -878,21 +645,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-userdata 1.0)
     (sp-func spt-func 'sparticle-track-sun)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1952)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
+(defpart 1952
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 2200.0))
+    (sp-flt spt-scale-x (meters 2200))
     (sp-flt spt-rot-z (degrees 0.0))
-    (sp-flt spt-scale-y (meters 2800.0))
+    (sp-flt spt-scale-y (meters 2800))
     (sp-flt spt-r 64.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-b 32.0)
@@ -902,37 +664,22 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-userdata 2.0)
     (sp-func spt-func 'sparticle-track-sun)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 36)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-green-sun"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 1974)
-    (sp-item 1975)
-    (sp-item 1976)
-    )
-   :bounds (new 'static 'sphere :w 286720.0)
-   )
+(defpartgroup group-green-sun
+  :id 36
+  :flags (always-draw)
+  :bounds (static-bspherem 0 0 0 70)
+  :parts
+  ((sp-item 1974) (sp-item 1975) (sp-item 1976))
   )
 
-(set!
-  (-> *part-id-table* 1974)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1974
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 600.0))
+    (sp-flt spt-scale-x (meters 600))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-flt spt-g 255.0)
@@ -942,21 +689,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-userdata 4.0)
     (sp-func spt-func 'sparticle-track-sun)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1975)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
+(defpart 1975
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1400.0))
+    (sp-flt spt-scale-x (meters 1400))
     (sp-flt spt-rot-z (degrees 0.0))
-    (sp-flt spt-scale-y (meters 1100.0))
+    (sp-flt spt-scale-y (meters 1100))
     (sp-flt spt-r 0.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-b 0.0)
@@ -966,21 +708,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-userdata 5.0)
     (sp-func spt-func 'sparticle-track-sun)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1976)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
+(defpart 1976
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1100.0))
+    (sp-flt spt-scale-x (meters 1100))
     (sp-flt spt-rot-z (degrees 0.0))
-    (sp-flt spt-scale-y (meters 1400.0))
+    (sp-flt spt-scale-y (meters 1400))
     (sp-flt spt-r 0.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-b 0.0)
@@ -990,9 +727,7 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-userdata 6.0)
     (sp-func spt-func 'sparticle-track-sun)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/engine/camera/cam-combiner.gc b/goal_src/engine/camera/cam-combiner.gc
index 200adacaad..adcd4c3dab 100644
--- a/goal_src/engine/camera/cam-combiner.gc
+++ b/goal_src/engine/camera/cam-combiner.gc
@@ -308,10 +308,9 @@
                                    (vector-! (-> s1-0 vector 1) s0-0 s2-0)
                                    (vector-flatten! (the-as vector (-> s1-0 vector)) (the-as vector (-> s1-0 vector)) (-> *camera* local-down))
                                    (vector-flatten! (-> s1-0 vector 1) (-> s1-0 vector 1) (-> *camera* local-down))
-                                   (when (and
-                                           (< 4096.0 (vector-normalize-ret-len! (the-as vector (-> s1-0 vector)) 1.0))
-                                           (< 4096.0 (vector-normalize-ret-len! (-> s1-0 vector 1) 1.0))
-                                           )
+                                   (when (and (< 4096.0 (vector-normalize-ret-len! (the-as vector (-> s1-0 vector)) 1.0))
+                                              (< 4096.0 (vector-normalize-ret-len! (-> s1-0 vector 1) 1.0))
+                                              )
                                      (vector-cross! (-> s1-0 vector 2) (-> s1-0 vector 1) (the-as vector (-> s1-0 vector)))
                                      (when (< (vector-dot (-> s1-0 vector 2) s4-1) -0.01)
                                        )
diff --git a/goal_src/engine/camera/cam-debug-h.gc b/goal_src/engine/camera/cam-debug-h.gc
index 1bcdf3e620..953d471e90 100644
--- a/goal_src/engine/camera/cam-debug-h.gc
+++ b/goal_src/engine/camera/cam-debug-h.gc
@@ -42,6 +42,7 @@
 ;; DECOMP BEGINS
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 (define *redline-table* (the-as (pointer float) (malloc 'debug 1600)))
 
@@ -51,16 +52,16 @@
   (set! (-> *redline-table* *redline-index*) arg0)
   (set! *redline-index* (+ *redline-index* 1))
   (when (>= *redline-index* 400)
-   (set! *redline-index* 0)
-   0
-   )
+    (set! *redline-index* 0)
+    0
+    )
   (none)
   )
 
 (defun float-lookup-redline ((arg0 float))
   (let ((a0-3 (mod (+ (the int arg0) -1 *redline-index*) 400)))
-   (-> *redline-table* a0-3)
-   )
+    (-> *redline-table* a0-3)
+    )
   )
 
 (define *blueline-table* (the-as (pointer float) (malloc 'debug 1600)))
@@ -71,16 +72,16 @@
   (set! (-> *blueline-table* *blueline-index*) arg0)
   (set! *blueline-index* (+ *blueline-index* 1))
   (when (>= *blueline-index* 400)
-   (set! *blueline-index* 0)
-   0
-   )
+    (set! *blueline-index* 0)
+    0
+    )
   (none)
   )
 
 (defun float-lookup-blueline ((arg0 float))
   (let ((a0-3 (mod (+ (the int arg0) -1 *blueline-index*) 400)))
-   (-> *blueline-table* a0-3)
-   )
+    (-> *blueline-table* a0-3)
+    )
   )
 
 (define *greenline-table* (the-as (pointer float) (malloc 'debug 1600)))
@@ -91,16 +92,16 @@
   (set! (-> *greenline-table* *greenline-index*) arg0)
   (set! *greenline-index* (+ *greenline-index* 1))
   (when (>= *greenline-index* 400)
-   (set! *greenline-index* 0)
-   0
-   )
+    (set! *greenline-index* 0)
+    0
+    )
   (none)
   )
 
 (defun float-lookup-greenline ((arg0 float))
   (let ((a0-3 (mod (+ (the int arg0) -1 *greenline-index*) 400)))
-   (-> *greenline-table* a0-3)
-   )
+    (-> *greenline-table* a0-3)
+    )
   )
 
 (define *yellowline-table* (the-as (pointer float) (malloc 'debug 1600)))
@@ -111,16 +112,16 @@
   (set! (-> *yellowline-table* *yellowline-index*) arg0)
   (set! *yellowline-index* (+ *yellowline-index* 1))
   (when (>= *yellowline-index* 400)
-   (set! *yellowline-index* 0)
-   0
-   )
+    (set! *yellowline-index* 0)
+    0
+    )
   (none)
   )
 
 (defun float-lookup-yellowline ((arg0 float))
   (let ((a0-3 (mod (+ (the int arg0) -1 *yellowline-index*) 400)))
-   (-> *yellowline-table* a0-3)
-   )
+    (-> *yellowline-table* a0-3)
+    )
   )
 
 (define *timeplot-table* (the-as (pointer float) (malloc 'debug 1600)))
@@ -131,16 +132,16 @@
   (set! (-> *timeplot-table* *timeplot-index*) arg0)
   (set! *timeplot-index* (+ *timeplot-index* 1))
   (when (>= *timeplot-index* 400)
-   (set! *timeplot-index* 0)
-   0
-   )
+    (set! *timeplot-index* 0)
+    0
+    )
   (none)
   )
 
 (defun float-lookup-timeplot ((arg0 float))
   (let ((a0-3 (mod (+ (the int arg0) -1 *timeplot-index*) 400)))
-   (-> *timeplot-table* a0-3)
-   )
+    (-> *timeplot-table* a0-3)
+    )
   )
 
 (define-perm *cam-layout* symbol #f)
diff --git a/goal_src/engine/camera/cam-layout.gc b/goal_src/engine/camera/cam-layout.gc
index 5d7ba45002..e76999fc49 100644
--- a/goal_src/engine/camera/cam-layout.gc
+++ b/goal_src/engine/camera/cam-layout.gc
@@ -381,11 +381,10 @@
 (defbehavior cam-layout-entity-volume-info cam-layout ()
   (dotimes (gp-0 (-> self num-volumes))
     (cond
-      ((and
-         (= gp-0 (-> self cur-volume))
-         (= *camera-layout-blink* 'volume)
-         (zero? (logand (-> *display* real-actual-frame-counter) 8))
-         )
+      ((and (= gp-0 (-> self cur-volume))
+            (= *camera-layout-blink* 'volume)
+            (zero? (logand (-> *display* real-actual-frame-counter) 8))
+            )
        )
       (else
         (let ((s5-0 (-> *volume-descriptor* pos-vol gp-0)))
@@ -553,10 +552,9 @@
   (let ((s5-0 (new-stack-matrix0))
         (s4-0 (new-stack-vector0))
         )
-    (when (and
-            (cam-slave-get-vector-with-offset arg0 s4-0 'trans)
-            (or (!= *camera-layout-blink* 'camera) (logtest? (-> *display* real-actual-frame-counter) 8))
-            )
+    (when (and (cam-slave-get-vector-with-offset arg0 s4-0 'trans)
+               (or (!= *camera-layout-blink* 'camera) (logtest? (-> *display* real-actual-frame-counter) 8))
+               )
       (cam-slave-get-rot arg0 s5-0)
       (camera-fov-frame
         s5-0
@@ -569,10 +567,9 @@
       )
     )
   (let ((s5-1 (new-stack-vector0)))
-    (if (and
-            (cam-slave-get-vector-with-offset arg0 s5-1 'pivot)
-            (or (!= *camera-layout-blink* 'pivot) (logtest? (-> *display* real-actual-frame-counter) 8))
-            )
+    (if (and (cam-slave-get-vector-with-offset arg0 s5-1 'pivot)
+             (or (!= *camera-layout-blink* 'pivot) (logtest? (-> *display* real-actual-frame-counter) 8))
+             )
         (camera-cross
           (new 'static 'vector :y 1024.0)
           (new 'static 'vector :z 1024.0)
@@ -583,10 +580,9 @@
         )
     )
   (let ((s5-2 (new-stack-vector0)))
-    (if (and
-            (cam-slave-get-vector-with-offset arg0 s5-2 'align)
-            (or (!= *camera-layout-blink* 'align) (logtest? (-> *display* real-actual-frame-counter) 8))
-            )
+    (if (and (cam-slave-get-vector-with-offset arg0 s5-2 'align)
+             (or (!= *camera-layout-blink* 'align) (logtest? (-> *display* real-actual-frame-counter) 8))
+             )
         (camera-cross
           (new 'static 'vector :y 1024.0)
           (new 'static 'vector :z 1024.0)
@@ -597,10 +593,9 @@
         )
     )
   (let ((s5-3 (new-stack-vector0)))
-    (if (and
-            (cam-slave-get-vector-with-offset arg0 s5-3 'interesting)
-            (or (!= *camera-layout-blink* 'interesting) (logtest? (-> *display* real-actual-frame-counter) 8))
-            )
+    (if (and (cam-slave-get-vector-with-offset arg0 s5-3 'interesting)
+             (or (!= *camera-layout-blink* 'interesting) (logtest? (-> *display* real-actual-frame-counter) 8))
+             )
         (camera-cross
           (new 'static 'vector :y 1024.0)
           (new 'static 'vector :z 1024.0)
@@ -615,10 +610,9 @@
         (s5-4 (new-stack-vector0))
         (s4-1 (new-stack-vector0))
         )
-    (when (and
-            (get-curve-data! arg0 s3-1 'campath 'campath-k (the-as float -1000000000.0))
-            (or (!= *camera-layout-blink* 'spline) (logtest? (-> *display* real-actual-frame-counter) 8))
-            )
+    (when (and (get-curve-data! arg0 s3-1 'campath 'campath-k (the-as float -1000000000.0))
+               (or (!= *camera-layout-blink* 'spline) (logtest? (-> *display* real-actual-frame-counter) 8))
+               )
       (cond
         ((cam-slave-get-vector-with-offset arg0 s4-1 'pivot)
          (curve-get-pos! s5-4 (-> (new 'static 'array float 1 0.0) 0) s3-1)
@@ -627,17 +621,17 @@
         (else
           (set! (-> s4-1 quad)
                 (-> (the-as
-                        vector
-                        ((method-of-type res-lump get-property-struct)
-                         arg0
-                         'spline-offset
-                         'interp
-                         (the-as float -1000000000.0)
-                         s4-1
-                         (the-as (pointer res-tag) #f)
-                         *res-static-buf*
-                         )
-                        )
+                      vector
+                      ((method-of-type res-lump get-property-struct)
+                       arg0
+                       'spline-offset
+                       'interp
+                       (the-as float -1000000000.0)
+                       s4-1
+                       (the-as (pointer res-tag) #f)
+                       *res-static-buf*
+                       )
+                      )
                     quad
                     )
                 )
@@ -668,10 +662,9 @@
         (s4-2 (new-stack-vector0))
         (s1-2 (new 'stack 'curve))
         )
-    (when (and
-            (get-curve-data! arg0 s3-2 'intro 'intro-k (the-as float -1000000000.0))
-            (or (!= *camera-layout-blink* 'intro) (logtest? (-> *display* real-actual-frame-counter) 8))
-            )
+    (when (and (get-curve-data! arg0 s3-2 'intro 'intro-k (the-as float -1000000000.0))
+               (or (!= *camera-layout-blink* 'intro) (logtest? (-> *display* real-actual-frame-counter) 8))
+               )
       (cond
         ((cam-slave-get-vector-with-offset arg0 s4-2 'pivot)
          (curve-get-pos! s5-5 (-> (new 'static 'array float 1 1.0) 0) s3-2)
@@ -770,11 +763,10 @@
   (let ((s5-8 (new 'stack 'interp-test-info))
         (s4-5 (new-stack-vector0))
         )
-    (when (and
-            (cam-slave-get-vector-with-offset arg0 (-> s5-8 origin) 'pivot)
-            (cam-slave-get-vector-with-offset arg0 (-> s5-8 to) 'align)
-            (cam-slave-get-vector-with-offset arg0 (-> s5-8 from) 'trans)
-            )
+    (when (and (cam-slave-get-vector-with-offset arg0 (-> s5-8 origin) 'pivot)
+               (cam-slave-get-vector-with-offset arg0 (-> s5-8 to) 'align)
+               (cam-slave-get-vector-with-offset arg0 (-> s5-8 from) 'trans)
+               )
       (camera-line (-> s5-8 from) (-> s5-8 origin) (new 'static 'vector4w :x #x80 :y #x80 :z #x80 :w #x80))
       (camera-line (-> s5-8 to) (-> s5-8 origin) (new 'static 'vector4w :x #x80 :y #x80 :z #x80 :w #x80))
       (vector-! (-> s5-8 from) (-> s5-8 from) (-> s5-8 origin))
@@ -1796,10 +1788,9 @@
 (defun cam-layout-save-splineoffset ((arg0 symbol) (arg1 string) (arg2 entity-actor))
   (the-as
     string
-    (when (and
-            (not (res-lump-struct arg2 'pivot structure :time (the-as float -1000000000.0)))
-            (res-lump-struct arg2 'spline-offset structure :time (the-as float -1000000000.0))
-            )
+    (when (and (not (res-lump-struct arg2 'pivot structure :time (the-as float -1000000000.0)))
+               (res-lump-struct arg2 'spline-offset structure :time (the-as float -1000000000.0))
+               )
       (let ((s4-1 (res-lump-struct arg2 'spline-offset vector :time (the-as float -1000000000.0))))
         (when s4-1
           (if arg0
@@ -1819,18 +1810,17 @@
   )
 
 (defun cam-layout-save-spline-follow-dist-offset ((arg0 symbol) (arg1 string) (arg2 entity-actor))
-  (the-as string (when (and
-                         (not (res-lump-struct arg2 'pivot structure :time (the-as float -1000000000.0)))
-                         ((method-of-type res-lump get-property-value-float)
-                          arg2
-                          'spline-follow-dist-offset
-                          'interp
-                          (the-as float -1000000000.0)
-                          (the-as float #f)
-                          (the-as (pointer res-tag) #f)
-                          *res-static-buf*
-                          )
-                         )
+  (the-as string (when (and (not (res-lump-struct arg2 'pivot structure :time (the-as float -1000000000.0)))
+                            ((method-of-type res-lump get-property-value-float)
+                             arg2
+                             'spline-follow-dist-offset
+                             'interp
+                             (the-as float -1000000000.0)
+                             (the-as float #f)
+                             (the-as (pointer res-tag) #f)
+                             *res-static-buf*
+                             )
+                            )
                    (let ((f30-0 ((method-of-type res-lump get-property-value-float)
                                  arg2
                                  'spline-follow-dist-offset
@@ -2422,51 +2412,48 @@
           )
       (format (clear *res-key-string*) "~S~S" (the-as object arg2) '-off)
       (cond
-        ((logtest?
-           (s3-0
-             s2-0
-             (string->symbol *res-key-string*)
-             'exact
-             f30-0
-             (the-as uint128 0)
-             (the-as (pointer res-tag) #f)
-             *res-static-buf*
-             )
-           s5-0
-           )
+        ((logtest? (s3-0
+                     s2-0
+                     (string->symbol *res-key-string*)
+                     'exact
+                     f30-0
+                     (the-as uint128 0)
+                     (the-as (pointer res-tag) #f)
+                     *res-static-buf*
+                     )
+                   s5-0
+                   )
          (format arg0 ": off")
          )
         ((let ((s3-1 (method-of-type res-lump get-property-value))
                (s2-1 (-> self cam-entity))
                )
            (format (clear *res-key-string*) "~S~S" (the-as object arg2) '-on)
-           (logtest?
-             (s3-1
-               s2-1
-               (string->symbol *res-key-string*)
-               'exact
-               f30-0
-               (the-as uint128 0)
-               (the-as (pointer res-tag) #f)
-               *res-static-buf*
-               )
-             s5-0
-             )
+           (logtest? (s3-1
+                       s2-1
+                       (string->symbol *res-key-string*)
+                       'exact
+                       f30-0
+                       (the-as uint128 0)
+                       (the-as (pointer res-tag) #f)
+                       *res-static-buf*
+                       )
+                     s5-0
+                     )
            )
          (format arg0 ": on")
          )
-        ((zero? (logand
-                  ((method-of-type res-lump get-property-value)
-                   (-> self cam-entity)
-                   (the-as symbol arg2)
-                   'exact
-                   f30-0
-                   (the-as uint128 0)
-                   (the-as (pointer res-tag) #f)
-                   *res-static-buf*
-                   )
-                  s5-0
-                  )
+        ((zero? (logand ((method-of-type res-lump get-property-value)
+                         (-> self cam-entity)
+                         (the-as symbol arg2)
+                         'exact
+                         f30-0
+                         (the-as uint128 0)
+                         (the-as (pointer res-tag) #f)
+                         *res-static-buf*
+                         )
+                        s5-0
+                        )
                 )
          (format arg0 ": off(maya)")
          )
@@ -3626,17 +3613,15 @@
       ((and (logtest? (-> arg0 options) 8) (logtest? (-> *cpad-list* cpads 0 button0-abs 0) (-> arg0 button)))
        #f
        )
-      ((and
-         (zero? (logand (-> arg0 options) 12))
-         (logtest? (-> arg0 options) 1)
-         (zero? (logand (-> *cpad-list* cpads 0 button0-rel 0) (-> arg0 button)))
-         )
+      ((and (zero? (logand (-> arg0 options) 12))
+            (logtest? (-> arg0 options) 1)
+            (zero? (logand (-> *cpad-list* cpads 0 button0-rel 0) (-> arg0 button)))
+            )
        #f
        )
-      ((and
-         (zero? (logand (-> arg0 options) 13))
-         (zero? (logand (-> *cpad-list* cpads 0 button0-abs 0) (-> arg0 button)))
-         )
+      ((and (zero? (logand (-> arg0 options) 13))
+            (zero? (logand (-> *cpad-list* cpads 0 button0-abs 0) (-> arg0 button)))
+            )
        #f
        )
       ((type-type? (-> (the-as basic s5-0) type) clm)
@@ -3771,8 +3756,8 @@
              )
          (dotimes (s2-2 (-> (the-as clm-list s4-3) items (-> (the-as clm-list s4-3) cur-list-item) actions length))
            (if (cam-layout-do-action
-                   (-> (the-as clm-list s4-3) items (-> (the-as clm-list s4-3) cur-list-item) actions s2-2)
-                   )
+                 (-> (the-as clm-list s4-3) items (-> (the-as clm-list s4-3) cur-list-item) actions s2-2)
+                 )
                (goto cfg-65)
                )
            )
diff --git a/goal_src/engine/camera/cam-states-dbg.gc b/goal_src/engine/camera/cam-states-dbg.gc
index 770dba32a1..43891f2251 100644
--- a/goal_src/engine/camera/cam-states-dbg.gc
+++ b/goal_src/engine/camera/cam-states-dbg.gc
@@ -17,143 +17,78 @@
   )
 
 
-(define
-  *CAM_POINT_WATCH-bank*
-  (new 'static 'cam-point-watch-bank :speed 1600.0 :rot-speed (degrees 0.6))
-  )
+(define *CAM_POINT_WATCH-bank* (new 'static 'cam-point-watch-bank :speed 1600.0 :rot-speed (degrees 0.6)))
 
 (defstate cam-point-watch (camera-slave)
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
-   (case arg2 
-    (('teleport)
-      #f
+    (case arg2
+      (('teleport)
+       #f
+       )
+      (else
+        (cam-standard-event-handler arg0 arg1 arg2 arg3)
+        )
       )
-    (else
-     (cam-standard-event-handler arg0 arg1 arg2 arg3)
-     )
     )
-   )
   :enter
   (behavior ()
-   (when (not (-> self enter-has-run))
-    (set! (-> self pivot-rad) 40960.0)
-    (set! (-> self blend-from-type) (the-as uint 1))
-    (set! (-> self blend-to-type) (the-as uint 1))
+    (when (not (-> self enter-has-run))
+      (set! (-> self pivot-rad) 40960.0)
+      (set! (-> self blend-from-type) (the-as uint 1))
+      (set! (-> self blend-to-type) (the-as uint 1))
+      )
+    (none)
     )
-   (none)
-   )
   :code
   (behavior ()
-   (while #t
-    (let ((s5-0 (new-stack-vector0))
-          (gp-0 (new-stack-vector0))
+    (while #t
+      (let ((s5-0 (new-stack-vector0))
+            (gp-0 (new-stack-vector0))
+            )
+        (when *camera-read-analog*
+          (let ((f28-0 (analog-input (the-as int (-> *cpad-list* cpads 0 leftx)) 128.0 48.0 110.0 -1.0))
+                (f30-0 (analog-input (the-as int (-> *cpad-list* cpads 0 lefty)) 128.0 48.0 110.0 -1.0))
+                (f26-0 (analog-input (the-as int (-> *cpad-list* cpads 0 rightx)) 128.0 48.0 110.0 -1.0))
+                (f0-0 (analog-input (the-as int (-> *cpad-list* cpads 0 righty)) 128.0 48.0 110.0 -1.0))
+                )
+            (cond
+              ((logtest? (-> *cpad-list* cpads (-> *CAMERA-bank* joypad) button0-abs 0) (pad-buttons r2))
+               (set! (-> s5-0 y) (- (-> s5-0 y) (* 0.2 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f26-0))))
+               (set! (-> s5-0 x) (- (-> s5-0 x) (* 0.2 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f0-0))))
+               (+! (-> gp-0 x) (* 0.2 (-> *CAM_POINT_WATCH-bank* speed) f28-0))
+               (+! (-> gp-0 z) (* 0.2 (-> *CAM_POINT_WATCH-bank* speed) f30-0))
+               )
+              (else
+                (set! (-> s5-0 y) (- (-> s5-0 y) (* 2.0 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f26-0))))
+                (set! (-> s5-0 x) (- (-> s5-0 x) (* 2.0 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f0-0))))
+                (+! (-> gp-0 x) (* 2.0 (-> *CAM_POINT_WATCH-bank* speed) f28-0))
+                (+! (-> gp-0 z) (* 2.0 (-> *CAM_POINT_WATCH-bank* speed) f30-0))
+                )
+              )
+            )
+          (let ((s4-0 (new-stack-vector0)))
+            (let ((s3-0 (new-stack-matrix0)))
+              (matrix-axis-angle! s3-0 (the-as vector (-> self tracking)) (- (-> s5-0 x)))
+              (vector-matrix*! s4-0 (-> self tracking inv-mat vector 2) s3-0)
+              (matrix-axis-angle! s3-0 (-> *camera* local-down) (- (-> s5-0 y)))
+              (vector-matrix*! s4-0 s4-0 s3-0)
+              )
+            (forward-down->inv-matrix (the-as matrix (-> self tracking)) s4-0 (-> *camera* local-down))
+            )
+          (set! (-> self pivot-rad) (- (-> self pivot-rad) (-> gp-0 z)))
+          (if (< (-> self pivot-rad) 4096.0)
+              (set! (-> self pivot-rad) 4096.0)
+              )
+          (set-vector! gp-0 0.0 0.0 (- (-> self pivot-rad)) 1.0)
+          (vector-matrix*! (-> self trans) gp-0 (the-as matrix (-> self tracking)))
           )
-     (when *camera-read-analog*
-      (let
-       ((f28-0
-         (analog-input
-          (the-as int (-> *cpad-list* cpads 0 leftx))
-          128.0
-          48.0
-          110.0
-          -1.0
-          )
-         )
-        (f30-0
-         (analog-input
-          (the-as int (-> *cpad-list* cpads 0 lefty))
-          128.0
-          48.0
-          110.0
-          -1.0
-          )
-         )
-        (f26-0
-         (analog-input
-          (the-as int (-> *cpad-list* cpads 0 rightx))
-          128.0
-          48.0
-          110.0
-          -1.0
-          )
-         )
-        (f0-0
-         (analog-input
-          (the-as int (-> *cpad-list* cpads 0 righty))
-          128.0
-          48.0
-          110.0
-          -1.0
-          )
-         )
         )
-       (cond
-        ((logtest?
-          (-> *cpad-list* cpads (-> *CAMERA-bank* joypad) button0-abs 0)
-          (pad-buttons r2)
-          )
-         (set!
-          (-> s5-0 y)
-          (-
-           (-> s5-0 y)
-           (* 0.2 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f26-0))
-           )
-          )
-         (set!
-          (-> s5-0 x)
-          (- (-> s5-0 x) (* 0.2 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f0-0)))
-          )
-         (+! (-> gp-0 x) (* 0.2 (-> *CAM_POINT_WATCH-bank* speed) f28-0))
-         (+! (-> gp-0 z) (* 0.2 (-> *CAM_POINT_WATCH-bank* speed) f30-0))
-         )
-        (else
-         (set!
-          (-> s5-0 y)
-          (-
-           (-> s5-0 y)
-           (* 2.0 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f26-0))
-           )
-          )
-         (set!
-          (-> s5-0 x)
-          (- (-> s5-0 x) (* 2.0 (-> *CAM_POINT_WATCH-bank* rot-speed) (- f0-0)))
-          )
-         (+! (-> gp-0 x) (* 2.0 (-> *CAM_POINT_WATCH-bank* speed) f28-0))
-         (+! (-> gp-0 z) (* 2.0 (-> *CAM_POINT_WATCH-bank* speed) f30-0))
-         )
-        )
-       )
-      (let ((s4-0 (new-stack-vector0)))
-       (let ((s3-0 (new-stack-matrix0)))
-        (matrix-axis-angle!
-         s3-0
-         (the-as vector (-> self tracking))
-         (- (-> s5-0 x))
-         )
-        (vector-matrix*! s4-0 (-> self tracking inv-mat vector 2) s3-0)
-        (matrix-axis-angle! s3-0 (-> *camera* local-down) (- (-> s5-0 y)))
-        (vector-matrix*! s4-0 s4-0 s3-0)
-        )
-       (forward-down->inv-matrix
-        (the-as matrix (-> self tracking))
-        s4-0
-        (-> *camera* local-down)
-        )
-       )
-      (set! (-> self pivot-rad) (- (-> self pivot-rad) (-> gp-0 z)))
-      (if (< (-> self pivot-rad) 4096.0)
-       (set! (-> self pivot-rad) 4096.0)
-       )
-      (set-vector! gp-0 0.0 0.0 (- (-> self pivot-rad)) 1.0)
-      (vector-matrix*! (-> self trans) gp-0 (the-as matrix (-> self tracking)))
+      (suspend)
+      0
       )
-     )
-    (suspend)
-    0
+    (none)
     )
-   (none)
-   )
   )
 
 (deftype cam-free-bank (basic)
@@ -166,428 +101,244 @@
   )
 
 
-(define
-  *CAM_FREE-bank*
-  (new 'static 'cam-free-bank :speed 1600.0 :rot-speed (degrees 0.6))
-  )
+(define *CAM_FREE-bank* (new 'static 'cam-free-bank :speed 1600.0 :rot-speed (degrees 0.6)))
 
-(defun
-  cam-free-floating-input
-  ((arg0 vector) (arg1 vector) (arg2 symbol) (arg3 int))
+(defun cam-free-floating-input ((arg0 vector) (arg1 vector) (arg2 symbol) (arg3 int))
   (when (and (!= *master-mode* 'menu) (not *cam-layout*))
-   (when *camera-read-buttons*
-    (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons x))
-     (set!
-      (-> arg0 x)
-      (-
-       (-> arg0 x)
-       (+
-        (-> *CAM_FREE-bank* rot-speed)
-        (analog-input
-         (the-as int (-> *cpad-list* cpads arg3 abutton 6))
-         0.0
-         32.0
-         230.0
-         (-> *CAM_FREE-bank* rot-speed)
-         )
-        )
-       )
+    (when *camera-read-buttons*
+      (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons x))
+          (set! (-> arg0 x)
+                (- (-> arg0 x) (+ (-> *CAM_FREE-bank* rot-speed) (analog-input
+                                                                   (the-as int (-> *cpad-list* cpads arg3 abutton 6))
+                                                                   0.0
+                                                                   32.0
+                                                                   230.0
+                                                                   (-> *CAM_FREE-bank* rot-speed)
+                                                                   )
+                                  )
+                   )
+                )
+          )
       )
-     )
-    )
-   (when *camera-read-buttons*
-    (if
-     (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons triangle))
-     (+!
-      (-> arg0 x)
-      (+
-       (-> *CAM_FREE-bank* rot-speed)
-       (analog-input
-        (the-as int (-> *cpad-list* cpads arg3 abutton 4))
-        0.0
-        32.0
-        230.0
-        (-> *CAM_FREE-bank* rot-speed)
-        )
-       )
+    (when *camera-read-buttons*
+      (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons triangle))
+          (+! (-> arg0 x) (+ (-> *CAM_FREE-bank* rot-speed) (analog-input
+                                                              (the-as int (-> *cpad-list* cpads arg3 abutton 4))
+                                                              0.0
+                                                              32.0
+                                                              230.0
+                                                              (-> *CAM_FREE-bank* rot-speed)
+                                                              )
+                             )
+              )
+          )
       )
-     )
-    )
-   (when *camera-read-buttons*
-    (if
-     (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons square))
-     (+!
-      (-> arg0 y)
-      (+
-       (-> *CAM_FREE-bank* rot-speed)
-       (analog-input
-        (the-as int (-> *cpad-list* cpads arg3 abutton 7))
-        0.0
-        32.0
-        230.0
-        (-> *CAM_FREE-bank* rot-speed)
-        )
-       )
+    (when *camera-read-buttons*
+      (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons square))
+          (+! (-> arg0 y) (+ (-> *CAM_FREE-bank* rot-speed) (analog-input
+                                                              (the-as int (-> *cpad-list* cpads arg3 abutton 7))
+                                                              0.0
+                                                              32.0
+                                                              230.0
+                                                              (-> *CAM_FREE-bank* rot-speed)
+                                                              )
+                             )
+              )
+          )
       )
-     )
-    )
-   (when *camera-read-buttons*
-    (if
-     (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons circle))
-     (set!
-      (-> arg0 y)
-      (-
-       (-> arg0 y)
-       (+
-        (-> *CAM_FREE-bank* rot-speed)
-        (analog-input
-         (the-as int (-> *cpad-list* cpads arg3 abutton 5))
-         0.0
-         32.0
-         230.0
-         (-> *CAM_FREE-bank* rot-speed)
-         )
-        )
-       )
+    (when *camera-read-buttons*
+      (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons circle))
+          (set! (-> arg0 y)
+                (- (-> arg0 y) (+ (-> *CAM_FREE-bank* rot-speed) (analog-input
+                                                                   (the-as int (-> *cpad-list* cpads arg3 abutton 5))
+                                                                   0.0
+                                                                   32.0
+                                                                   230.0
+                                                                   (-> *CAM_FREE-bank* rot-speed)
+                                                                   )
+                                  )
+                   )
+                )
+          )
       )
-     )
     )
-   )
   (when arg2
-   (when *camera-read-buttons*
-    (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons l2))
-     (+!
-      (-> arg0 z)
-      (+
-       (-> *CAM_FREE-bank* rot-speed)
-       (analog-input
-        (the-as int (-> *cpad-list* cpads arg3 abutton 10))
-        0.0
-        32.0
-        230.0
-        (-> *CAM_FREE-bank* rot-speed)
-        )
-       )
+    (when *camera-read-buttons*
+      (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons l2))
+          (+! (-> arg0 z) (+ (-> *CAM_FREE-bank* rot-speed) (analog-input
+                                                              (the-as int (-> *cpad-list* cpads arg3 abutton 10))
+                                                              0.0
+                                                              32.0
+                                                              230.0
+                                                              (-> *CAM_FREE-bank* rot-speed)
+                                                              )
+                             )
+              )
+          )
       )
-     )
-    )
-   (when *camera-read-buttons*
-    (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons r2))
-     (set!
-      (-> arg0 z)
-      (-
-       (-> arg0 z)
-       (+
-        (-> *CAM_FREE-bank* rot-speed)
-        (analog-input
-         (the-as int (-> *cpad-list* cpads arg3 abutton 11))
-         0.0
-         32.0
-         230.0
-         (-> *CAM_FREE-bank* rot-speed)
-         )
-        )
-       )
+    (when *camera-read-buttons*
+      (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons r2))
+          (set! (-> arg0 z)
+                (- (-> arg0 z) (+ (-> *CAM_FREE-bank* rot-speed) (analog-input
+                                                                   (the-as int (-> *cpad-list* cpads arg3 abutton 11))
+                                                                   0.0
+                                                                   32.0
+                                                                   230.0
+                                                                   (-> *CAM_FREE-bank* rot-speed)
+                                                                   )
+                                  )
+                   )
+                )
+          )
       )
-     )
     )
-   )
   (cond
-   ((not *cam-free-move-along-z*)
-    )
-   ((not *camera-read-analog*)
-    )
-   ((logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons r2))
-    (when *camera-read-buttons*
-     (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons r1))
-      (+!
-       (-> arg1 y)
-       (+
-        (* 0.2 (-> *CAM_FREE-bank* speed))
-        (analog-input
-         (the-as int (-> *cpad-list* cpads arg3 abutton 9))
-         0.0
-         32.0
-         230.0
-         (* 0.2 (-> *CAM_FREE-bank* speed))
-         )
-        )
-       )
-      )
+    ((not *cam-free-move-along-z*)
      )
-    (when *camera-read-buttons*
-     (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons l1))
-      (set!
-       (-> arg1 y)
-       (-
-        (-> arg1 y)
-        (+
-         (* 0.2 (-> *CAM_FREE-bank* speed))
-         (analog-input
-          (the-as int (-> *cpad-list* cpads arg3 abutton 8))
-          0.0
-          32.0
-          230.0
-          (* 0.2 (-> *CAM_FREE-bank* speed))
-          )
-         )
-        )
-       )
-      )
+    ((not *camera-read-analog*)
      )
+    ((logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons r2))
+     (when *camera-read-buttons*
+       (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons r1))
+           (+! (-> arg1 y) (+ (* 0.2 (-> *CAM_FREE-bank* speed)) (analog-input
+                                                                   (the-as int (-> *cpad-list* cpads arg3 abutton 9))
+                                                                   0.0
+                                                                   32.0
+                                                                   230.0
+                                                                   (* 0.2 (-> *CAM_FREE-bank* speed))
+                                                                   )
+                              )
+               )
+           )
+       )
+     (when *camera-read-buttons*
+       (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons l1))
+           (set! (-> arg1 y)
+                 (- (-> arg1 y) (+ (* 0.2 (-> *CAM_FREE-bank* speed)) (analog-input
+                                                                        (the-as int (-> *cpad-list* cpads arg3 abutton 8))
+                                                                        0.0
+                                                                        32.0
+                                                                        230.0
+                                                                        (* 0.2 (-> *CAM_FREE-bank* speed))
+                                                                        )
+                                   )
+                    )
+                 )
+           )
+       )
+     )
+    (else
+      (when *camera-read-buttons*
+        (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons r1))
+            (+! (-> arg1 y)
+                (+ (-> *CAM_FREE-bank* speed)
+                   (analog-input (the-as int (-> *cpad-list* cpads arg3 abutton 9)) 0.0 32.0 230.0 (-> *CAM_FREE-bank* speed))
+                   )
+                )
+            )
+        )
+      (when *camera-read-buttons*
+        (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons l1))
+            (set! (-> arg1 y)
+                  (- (-> arg1 y)
+                     (+ (-> *CAM_FREE-bank* speed)
+                        (analog-input (the-as int (-> *cpad-list* cpads arg3 abutton 8)) 0.0 32.0 230.0 (-> *CAM_FREE-bank* speed))
+                        )
+                     )
+                  )
+            )
+        )
+      )
     )
-   (else
-    (when *camera-read-buttons*
-     (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons r1))
-      (+!
-       (-> arg1 y)
-       (+
-        (-> *CAM_FREE-bank* speed)
-        (analog-input
-         (the-as int (-> *cpad-list* cpads arg3 abutton 9))
-         0.0
-         32.0
-         230.0
-         (-> *CAM_FREE-bank* speed)
-         )
-        )
-       )
-      )
-     )
-    (when *camera-read-buttons*
-     (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons l1))
-      (set!
-       (-> arg1 y)
-       (-
-        (-> arg1 y)
-        (+
-         (-> *CAM_FREE-bank* speed)
-         (analog-input
-          (the-as int (-> *cpad-list* cpads arg3 abutton 8))
-          0.0
-          32.0
-          230.0
-          (-> *CAM_FREE-bank* speed)
-          )
-         )
-        )
-       )
-      )
-     )
-    )
-   )
   (when (and (!= *master-mode* 'menu) (not *cam-layout*))
-   (when *camera-read-buttons*
-    (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons left))
-     (+!
-      (-> arg1 x)
-      (+
-       (-> *CAM_FREE-bank* speed)
-       (analog-input
-        (the-as int (-> *cpad-list* cpads arg3 abutton 1))
-        0.0
-        32.0
-        230.0
-        (-> *CAM_FREE-bank* speed)
-        )
-       )
+    (when *camera-read-buttons*
+      (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons left))
+          (+! (-> arg1 x)
+              (+ (-> *CAM_FREE-bank* speed)
+                 (analog-input (the-as int (-> *cpad-list* cpads arg3 abutton 1)) 0.0 32.0 230.0 (-> *CAM_FREE-bank* speed))
+                 )
+              )
+          )
       )
-     )
-    )
-   (when *camera-read-buttons*
-    (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons right))
-     (set!
-      (-> arg1 x)
-      (-
-       (-> arg1 x)
-       (+
-        (-> *CAM_FREE-bank* speed)
-        (analog-input
-         (the-as int (-> *cpad-list* cpads arg3 abutton 0))
-         0.0
-         32.0
-         230.0
-         (-> *CAM_FREE-bank* speed)
-         )
-        )
-       )
+    (when *camera-read-buttons*
+      (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons right))
+          (set! (-> arg1 x)
+                (- (-> arg1 x)
+                   (+ (-> *CAM_FREE-bank* speed)
+                      (analog-input (the-as int (-> *cpad-list* cpads arg3 abutton 0)) 0.0 32.0 230.0 (-> *CAM_FREE-bank* speed))
+                      )
+                   )
+                )
+          )
       )
-     )
-    )
-   (when *camera-read-buttons*
-    (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons up))
-     (+!
-      (-> arg1 z)
-      (+
-       (-> *CAM_FREE-bank* speed)
-       (analog-input
-        (the-as int (-> *cpad-list* cpads arg3 abutton 2))
-        0.0
-        32.0
-        230.0
-        (-> *CAM_FREE-bank* speed)
-        )
-       )
+    (when *camera-read-buttons*
+      (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons up))
+          (+! (-> arg1 z)
+              (+ (-> *CAM_FREE-bank* speed)
+                 (analog-input (the-as int (-> *cpad-list* cpads arg3 abutton 2)) 0.0 32.0 230.0 (-> *CAM_FREE-bank* speed))
+                 )
+              )
+          )
       )
-     )
-    )
-   (when *camera-read-buttons*
-    (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons down))
-     (set!
-      (-> arg1 z)
-      (-
-       (-> arg1 z)
-       (+
-        (-> *CAM_FREE-bank* speed)
-        (analog-input
-         (the-as int (-> *cpad-list* cpads arg3 abutton 3))
-         0.0
-         32.0
-         230.0
-         (-> *CAM_FREE-bank* speed)
-         )
-        )
-       )
+    (when *camera-read-buttons*
+      (if (logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons down))
+          (set! (-> arg1 z)
+                (- (-> arg1 z)
+                   (+ (-> *CAM_FREE-bank* speed)
+                      (analog-input (the-as int (-> *cpad-list* cpads arg3 abutton 3)) 0.0 32.0 230.0 (-> *CAM_FREE-bank* speed))
+                      )
+                   )
+                )
+          )
       )
-     )
     )
-   )
   (when *camera-read-analog*
-   (let
-    ((f28-14
-      (analog-input
-       (the-as int (-> *cpad-list* cpads arg3 leftx))
-       128.0
-       48.0
-       110.0
-       -1.0
-       )
-      )
-     (f30-14
-      (analog-input
-       (the-as int (-> *cpad-list* cpads arg3 lefty))
-       128.0
-       48.0
-       110.0
-       -1.0
-       )
-      )
-     (f24-0
-      (analog-input
-       (the-as int (-> *cpad-list* cpads arg3 rightx))
-       128.0
-       48.0
-       110.0
-       -1.0
-       )
-      )
-     (f26-0
-      (analog-input
-       (the-as int (-> *cpad-list* cpads arg3 righty))
-       128.0
-       48.0
-       110.0
-       -1.0
-       )
-      )
-     )
-    (when *display-load-boundaries*
-     (when
-      (and
-       (!= arg3 1)
-       (zero? (logand (-> *cpad-list* cpads 1 button0-abs 0) (pad-buttons x)))
-       (zero? (logand (-> *cpad-list* cpads 1 button0-abs 0) (pad-buttons r1)))
-       (zero? (logand (-> *cpad-list* cpads 1 button0-abs 0) (pad-buttons r2)))
-       )
-      (+!
-       f28-14
-       (analog-input
-        (the-as int (-> *cpad-list* cpads 1 leftx))
-        128.0
-        48.0
-        110.0
-        -1.0
+    (let ((f28-14 (analog-input (the-as int (-> *cpad-list* cpads arg3 leftx)) 128.0 48.0 110.0 -1.0))
+          (f30-14 (analog-input (the-as int (-> *cpad-list* cpads arg3 lefty)) 128.0 48.0 110.0 -1.0))
+          (f24-0 (analog-input (the-as int (-> *cpad-list* cpads arg3 rightx)) 128.0 48.0 110.0 -1.0))
+          (f26-0 (analog-input (the-as int (-> *cpad-list* cpads arg3 righty)) 128.0 48.0 110.0 -1.0))
+          )
+      (when *display-load-boundaries*
+        (when (and (!= arg3 1)
+                   (zero? (logand (-> *cpad-list* cpads 1 button0-abs 0) (pad-buttons x)))
+                   (zero? (logand (-> *cpad-list* cpads 1 button0-abs 0) (pad-buttons r1)))
+                   (zero? (logand (-> *cpad-list* cpads 1 button0-abs 0) (pad-buttons r2)))
+                   )
+          (+! f28-14 (analog-input (the-as int (-> *cpad-list* cpads 1 leftx)) 128.0 48.0 110.0 -1.0))
+          (+! f30-14 (analog-input (the-as int (-> *cpad-list* cpads 1 lefty)) 128.0 48.0 110.0 -1.0))
+          (+! f24-0 (analog-input (the-as int (-> *cpad-list* cpads 1 rightx)) 128.0 48.0 110.0 -1.0))
+          (+! f26-0 (analog-input (the-as int (-> *cpad-list* cpads 1 righty)) 128.0 48.0 110.0 -1.0))
+          )
         )
-       )
-      (+!
-       f30-14
-       (analog-input
-        (the-as int (-> *cpad-list* cpads 1 lefty))
-        128.0
-        48.0
-        110.0
-        -1.0
-        )
-       )
-      (+!
-       f24-0
-       (analog-input
-        (the-as int (-> *cpad-list* cpads 1 rightx))
-        128.0
-        48.0
-        110.0
-        -1.0
-        )
-       )
-      (+!
-       f26-0
-       (analog-input
-        (the-as int (-> *cpad-list* cpads 1 righty))
-        128.0
-        48.0
-        110.0
-        -1.0
-        )
-       )
-      )
-     )
-    (cond
-     ((logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons r2))
       (cond
-       ((logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons l2))
-        (set!
-         (-> arg0 y)
-         (- (-> arg0 y) (* 0.5 (-> *CAM_FREE-bank* rot-speed) (- f24-0)))
+        ((logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons r2))
+         (cond
+           ((logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons l2))
+            (set! (-> arg0 y) (- (-> arg0 y) (* 0.5 (-> *CAM_FREE-bank* rot-speed) (- f24-0))))
+            (set! (-> arg0 x) (- (-> arg0 x) (* 0.5 (-> *CAM_FREE-bank* rot-speed) (- f26-0))))
+            )
+           (else
+             (set! (-> arg0 y) (- (-> arg0 y) (* (- f24-0) (-> *CAM_FREE-bank* rot-speed))))
+             (set! (-> arg0 x) (- (-> arg0 x) (* (- f26-0) (-> *CAM_FREE-bank* rot-speed))))
+             )
+           )
+         (+! (-> arg1 x) (* 0.2 (-> *CAM_FREE-bank* speed) f28-14))
+         (+! (-> arg1 z) (* 0.2 (-> *CAM_FREE-bank* speed) f30-14))
          )
-        (set!
-         (-> arg0 x)
-         (- (-> arg0 x) (* 0.5 (-> *CAM_FREE-bank* rot-speed) (- f26-0)))
+        ((logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons l2))
+         (+! (-> arg1 x) (* f28-14 (-> *CAM_FREE-bank* speed)))
+         (+! (-> arg1 y) (* f26-0 (-> *CAM_FREE-bank* speed)))
+         (+! (-> arg1 z) (* f30-14 (-> *CAM_FREE-bank* speed)))
          )
+        (else
+          (set! (-> arg0 y) (- (-> arg0 y) (* 2.0 (-> *CAM_FREE-bank* rot-speed) (- f24-0))))
+          (set! (-> arg0 x) (- (-> arg0 x) (* 2.0 (-> *CAM_FREE-bank* rot-speed) (- f26-0))))
+          (+! (-> arg1 x) (* 2.0 (-> *CAM_FREE-bank* speed) f28-14))
+          (+! (-> arg1 z) (* 2.0 (-> *CAM_FREE-bank* speed) f30-14))
+          )
         )
-       (else
-        (set!
-         (-> arg0 y)
-         (- (-> arg0 y) (* (- f24-0) (-> *CAM_FREE-bank* rot-speed)))
-         )
-        (set!
-         (-> arg0 x)
-         (- (-> arg0 x) (* (- f26-0) (-> *CAM_FREE-bank* rot-speed)))
-         )
-        )
-       )
-      (+! (-> arg1 x) (* 0.2 (-> *CAM_FREE-bank* speed) f28-14))
-      (+! (-> arg1 z) (* 0.2 (-> *CAM_FREE-bank* speed) f30-14))
       )
-     ((logtest? (-> *cpad-list* cpads arg3 button0-abs 0) (pad-buttons l2))
-      (+! (-> arg1 x) (* f28-14 (-> *CAM_FREE-bank* speed)))
-      (+! (-> arg1 y) (* f26-0 (-> *CAM_FREE-bank* speed)))
-      (+! (-> arg1 z) (* f30-14 (-> *CAM_FREE-bank* speed)))
-      )
-     (else
-      (set!
-       (-> arg0 y)
-       (- (-> arg0 y) (* 2.0 (-> *CAM_FREE-bank* rot-speed) (- f24-0)))
-       )
-      (set!
-       (-> arg0 x)
-       (- (-> arg0 x) (* 2.0 (-> *CAM_FREE-bank* rot-speed) (- f26-0)))
-       )
-      (+! (-> arg1 x) (* 2.0 (-> *CAM_FREE-bank* speed) f28-14))
-      (+! (-> arg1 z) (* 2.0 (-> *CAM_FREE-bank* speed) f30-14))
-      )
-     )
     )
-   )
   (vector-float*! arg0 arg0 (-> *display* time-adjust-ratio))
   (vector-float*! arg1 arg1 (-> *display* time-adjust-ratio))
   )
@@ -604,88 +355,82 @@
   )
 
 
-(defun
-  cam-free-floating-move
-  ((arg0 matrix) (arg1 vector) (arg2 vector) (arg3 int))
+(defun cam-free-floating-move ((arg0 matrix) (arg1 vector) (arg2 vector) (arg3 int))
   (if (logtest? (-> *cpad-list* cpads arg3 valid) 128)
-   (return (the-as vector #f))
-   )
-  (if (= *master-mode* 'menu)
-   (return (the-as vector #f))
-   )
-  (let ((s3-0 (new 'stack 'camera-free-floating-move-info)))
-   (cam-free-floating-input (-> s3-0 rv) (-> s3-0 tv) (not arg2) arg3)
-   (cond
-    (arg2
-     (matrix-axis-angle! (-> s3-0 tm) arg2 (-> s3-0 rv y))
-     (matrix*! arg0 arg0 (-> s3-0 tm))
-     (cond
-      ((< (vector-dot (-> arg0 vector 1) arg2) 0.0)
-       (forward-down->inv-matrix arg0 (-> arg0 vector 2) arg2)
-       )
-      (else
-       (vector-negate! (-> s3-0 up) arg2)
-       (forward-down->inv-matrix arg0 (-> arg0 vector 2) (-> s3-0 up))
-       )
+      (return (the-as vector #f))
       )
-     )
-    (else
-     (matrix-axis-angle! (-> s3-0 tm) (-> arg0 vector 1) (- (-> s3-0 rv y)))
-     (matrix*! arg0 arg0 (-> s3-0 tm))
-     )
+  (if (= *master-mode* 'menu)
+      (return (the-as vector #f))
+      )
+  (let ((s3-0 (new 'stack 'camera-free-floating-move-info)))
+    (cam-free-floating-input (-> s3-0 rv) (-> s3-0 tv) (not arg2) arg3)
+    (cond
+      (arg2
+        (matrix-axis-angle! (-> s3-0 tm) arg2 (-> s3-0 rv y))
+        (matrix*! arg0 arg0 (-> s3-0 tm))
+        (cond
+          ((< (vector-dot (-> arg0 vector 1) arg2) 0.0)
+           (forward-down->inv-matrix arg0 (-> arg0 vector 2) arg2)
+           )
+          (else
+            (vector-negate! (-> s3-0 up) arg2)
+            (forward-down->inv-matrix arg0 (-> arg0 vector 2) (-> s3-0 up))
+            )
+          )
+        )
+      (else
+        (matrix-axis-angle! (-> s3-0 tm) (-> arg0 vector 1) (- (-> s3-0 rv y)))
+        (matrix*! arg0 arg0 (-> s3-0 tm))
+        )
+      )
+    (matrix-axis-angle! (-> s3-0 tm) (the-as vector (-> arg0 vector)) (- (-> s3-0 rv x)))
+    (matrix*! arg0 arg0 (-> s3-0 tm))
+    (matrix-axis-angle! (-> s3-0 tm) (-> arg0 vector 2) (- (-> s3-0 rv z)))
+    (matrix*! arg0 arg0 (-> s3-0 tm))
+    (vector-matrix*! (-> s3-0 tv) (-> s3-0 tv) arg0)
+    (vector+! arg1 arg1 (-> s3-0 tv))
     )
-   (matrix-axis-angle!
-    (-> s3-0 tm)
-    (the-as vector (-> arg0 vector))
-    (- (-> s3-0 rv x))
-    )
-   (matrix*! arg0 arg0 (-> s3-0 tm))
-   (matrix-axis-angle! (-> s3-0 tm) (-> arg0 vector 2) (- (-> s3-0 rv z)))
-   (matrix*! arg0 arg0 (-> s3-0 tm))
-   (vector-matrix*! (-> s3-0 tv) (-> s3-0 tv) arg0)
-   (vector+! arg1 arg1 (-> s3-0 tv))
-   )
   )
 
 (defstate cam-free-floating (camera-slave)
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
-   (case arg2 
-    (('teleport)
-      #f
+    (case arg2
+      (('teleport)
+       #f
+       )
+      (else
+        (cam-standard-event-handler arg0 arg1 arg2 arg3)
+        )
       )
-    (else
-     (cam-standard-event-handler arg0 arg1 arg2 arg3)
-     )
     )
-   )
   :enter
   (behavior ()
-   (when (not (-> self enter-has-run))
-    (set! (-> self blend-from-type) (the-as uint 1))
-    (set! (-> self blend-to-type) (the-as uint 1))
-    (send-event *camera-combiner* 'stop-tracking)
+    (when (not (-> self enter-has-run))
+      (set! (-> self blend-from-type) (the-as uint 1))
+      (set! (-> self blend-to-type) (the-as uint 1))
+      (send-event *camera-combiner* 'stop-tracking)
+      )
+    (none)
     )
-   (none)
-   )
   :code
   (behavior ()
-   (while #t
-    (let ((a2-0 (-> *camera* local-down)))
-     (if (logtest? (-> self options) 8)
-      (set! a2-0 (the-as vector #f))
+    (while #t
+      (let ((a2-0 (-> *camera* local-down)))
+        (if (logtest? (-> self options) 8)
+            (set! a2-0 (the-as vector #f))
+            )
+        (cam-free-floating-move
+          (the-as matrix (-> self tracking))
+          (-> self trans)
+          a2-0
+          (the-as int (-> *CAMERA-bank* joypad))
+          )
+        )
+      (suspend)
       )
-     (cam-free-floating-move
-      (the-as matrix (-> self tracking))
-      (-> self trans)
-      a2-0
-      (the-as int (-> *CAMERA-bank* joypad))
-      )
-     )
-    (suspend)
+    (none)
     )
-   (none)
-   )
   )
 
 (deftype camera-orbit-info (structure)
@@ -713,15 +458,13 @@
   )
 
 
-(define
-  *CAM_ORBIT-bank*
-  (new 'static 'CAM_ORBIT-bank
-   :RADIUS_MAX 61440.0
-   :RADIUS_MIN 409.6
-   :TARGET_OFF_ADJUST 81.92
-   :ORBIT_OFF_ADJUST 81.92
-   )
-  )
+(define *CAM_ORBIT-bank* (new 'static 'CAM_ORBIT-bank
+                           :RADIUS_MAX 61440.0
+                           :RADIUS_MIN 409.6
+                           :TARGET_OFF_ADJUST 81.92
+                           :ORBIT_OFF_ADJUST 81.92
+                           )
+        )
 
 (define *camera-orbit-info* (new 'static 'camera-orbit-info))
 
@@ -734,179 +477,127 @@
 (defstate cam-orbit (camera-slave)
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
-   (case arg2 
-    (('teleport)
-      #f
+    (case arg2
+      (('teleport)
+       #f
+       )
+      (else
+        (cam-standard-event-handler arg0 arg1 arg2 arg3)
+        )
       )
-    (else
-     (cam-standard-event-handler arg0 arg1 arg2 arg3)
-     )
     )
-   )
   :enter
   (behavior ()
-   (when (not (-> self enter-has-run))
-    (if (not *camera-orbit-target*)
-     (cam-slave-go cam-free-floating)
-     )
-    (let ((v1-4 (new-stack-vector0)))
-     (vector-! v1-4 (-> self trans) (-> *camera-orbit-target* 0 root trans))
-     (set! (-> *camera-orbit-info* rot) (atan (-> v1-4 x) (-> v1-4 z)))
-     )
-    (set! (-> self blend-from-type) (the-as uint 1))
-    (set! (-> self blend-to-type) (the-as uint 1))
+    (when (not (-> self enter-has-run))
+      (if (not *camera-orbit-target*)
+          (cam-slave-go cam-free-floating)
+          )
+      (let ((v1-4 (new-stack-vector0)))
+        (vector-! v1-4 (-> self trans) (-> *camera-orbit-target* 0 root trans))
+        (set! (-> *camera-orbit-info* rot) (atan (-> v1-4 x) (-> v1-4 z)))
+        )
+      (set! (-> self blend-from-type) (the-as uint 1))
+      (set! (-> self blend-to-type) (the-as uint 1))
+      )
+    (none)
     )
-   (none)
-   )
   :exit
   (behavior ()
-   '()
-   (none)
-   )
+    '()
+    (none)
+    )
   :code
   (behavior ()
-   (while #t
-    (if (not *camera-orbit-target*)
-     (cam-slave-go cam-free-floating)
-     )
-    (when *camera-read-analog*
-     (let
-      ((f0-0
-        (analog-input
-         (the-as int (-> *cpad-list* cpads 0 righty))
-         128.0
-         32.0
-         110.0
-         0.05
-         )
+    (while #t
+      (if (not *camera-orbit-target*)
+          (cam-slave-go cam-free-floating)
+          )
+      (when *camera-read-analog*
+        (let ((f0-0 (analog-input (the-as int (-> *cpad-list* cpads 0 righty)) 128.0 32.0 110.0 0.05)))
+          (cond
+            ((< (* 0.05 (- 1.0 (-> *camera-orbit-info* radius-lerp))) f0-0)
+             (+! (-> *camera-orbit-info* radius-lerp) (* 0.05 (- 1.0 (-> *camera-orbit-info* radius-lerp))))
+             )
+            ((< f0-0 (* 0.05 (- (-> *camera-orbit-info* radius-lerp))))
+             (+! (-> *camera-orbit-info* radius-lerp) (* 0.05 (- (-> *camera-orbit-info* radius-lerp))))
+             )
+            (else
+              (+! (-> *camera-orbit-info* radius-lerp) f0-0)
+              )
+            )
+          )
+        (set! (-> *camera-orbit-info* radius)
+              (lerp (-> *CAM_ORBIT-bank* RADIUS_MIN) (-> *CAM_ORBIT-bank* RADIUS_MAX) (-> *camera-orbit-info* radius-lerp))
+              )
         )
-       )
       (cond
-       ((< (* 0.05 (- 1.0 (-> *camera-orbit-info* radius-lerp))) f0-0)
-        (+!
-         (-> *camera-orbit-info* radius-lerp)
-         (* 0.05 (- 1.0 (-> *camera-orbit-info* radius-lerp)))
+        ((cpad-hold? 0 l2)
+         (if (cpad-hold? 0 l1)
+             (set! (-> *camera-orbit-info* target-off y)
+                   (- (-> *camera-orbit-info* target-off y) (-> *CAM_ORBIT-bank* TARGET_OFF_ADJUST))
+                   )
+             )
+         (if (cpad-hold? 0 r1)
+             (+! (-> *camera-orbit-info* target-off y) (-> *CAM_ORBIT-bank* TARGET_OFF_ADJUST))
+             )
          )
+        (else
+          (if (cpad-hold? 0 l1)
+              (set! (-> *camera-orbit-info* orbit-off y)
+                    (- (-> *camera-orbit-info* orbit-off y) (-> *CAM_ORBIT-bank* ORBIT_OFF_ADJUST))
+                    )
+              )
+          (if (cpad-hold? 0 r1)
+              (+! (-> *camera-orbit-info* orbit-off y) (-> *CAM_ORBIT-bank* ORBIT_OFF_ADJUST))
+              )
+          )
         )
-       ((< f0-0 (* 0.05 (- (-> *camera-orbit-info* radius-lerp))))
-        (+!
-         (-> *camera-orbit-info* radius-lerp)
-         (* 0.05 (- (-> *camera-orbit-info* radius-lerp)))
-         )
+      (when *camera-read-analog*
+        (let ((f0-20
+                (analog-input
+                  (the-as int (-> *cpad-list* cpads 0 rightx))
+                  128.0
+                  32.0
+                  110.0
+                  (* 21845.334 (-> *display* seconds-per-frame))
+                  )
+                )
+              )
+          (set! (-> *camera-orbit-info* rot)
+                (the float (sar (shl (the int (+ (-> *camera-orbit-info* rot) f0-20)) 48) 48))
+                )
+          )
         )
-       (else
-        (+! (-> *camera-orbit-info* radius-lerp) f0-0)
+      (let ((gp-0 (new-stack-vector0)))
+        (let ((s5-0 (new-stack-vector0)))
+          (set-vector!
+            (-> self trans)
+            (+ (-> *camera-orbit-target* 0 root trans x)
+               (* (sin (-> *camera-orbit-info* rot)) (-> *camera-orbit-info* radius))
+               )
+            (-> *camera-orbit-target* 0 root trans y)
+            (+ (-> *camera-orbit-target* 0 root trans z)
+               (* (cos (-> *camera-orbit-info* rot)) (-> *camera-orbit-info* radius))
+               )
+            1.0
+            )
+          (vector+! (-> self trans) (-> self trans) (-> *camera-orbit-info* orbit-off))
+          (vector+!
+            (-> self tracking follow-pt)
+            (-> *camera-orbit-target* 0 root trans)
+            (-> *camera-orbit-info* target-off)
+            )
+          (vector-! s5-0 (-> self trans) (-> self tracking follow-pt))
+          (set! (-> gp-0 y) (the float (sar (shl (the int (+ 32768.0 (atan (-> s5-0 x) (-> s5-0 z)))) 48) 48)))
+          (set! (-> gp-0 x) (atan (-> s5-0 y) (vector-xz-length s5-0)))
+          )
+        (set! (-> gp-0 z) 0.0)
+        (matrix-rotate-zxy! (the-as matrix (-> self tracking)) gp-0)
         )
-       )
+      (suspend)
       )
-     (set!
-      (-> *camera-orbit-info* radius)
-      (lerp
-       (-> *CAM_ORBIT-bank* RADIUS_MIN)
-       (-> *CAM_ORBIT-bank* RADIUS_MAX)
-       (-> *camera-orbit-info* radius-lerp)
-       )
-      )
-     )
-    (cond
-     ((logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l2))
-      (if (logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l1))
-       (set!
-        (-> *camera-orbit-info* target-off y)
-        (-
-         (-> *camera-orbit-info* target-off y)
-         (-> *CAM_ORBIT-bank* TARGET_OFF_ADJUST)
-         )
-        )
-       )
-      (if (logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons r1))
-       (+!
-        (-> *camera-orbit-info* target-off y)
-        (-> *CAM_ORBIT-bank* TARGET_OFF_ADJUST)
-        )
-       )
-      )
-     (else
-      (if (logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l1))
-       (set!
-        (-> *camera-orbit-info* orbit-off y)
-        (-
-         (-> *camera-orbit-info* orbit-off y)
-         (-> *CAM_ORBIT-bank* ORBIT_OFF_ADJUST)
-         )
-        )
-       )
-      (if (logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons r1))
-       (+!
-        (-> *camera-orbit-info* orbit-off y)
-        (-> *CAM_ORBIT-bank* ORBIT_OFF_ADJUST)
-        )
-       )
-      )
-     )
-    (when *camera-read-analog*
-     (let
-      ((f0-20
-        (analog-input
-         (the-as int (-> *cpad-list* cpads 0 rightx))
-         128.0
-         32.0
-         110.0
-         (* 21845.334 (-> *display* seconds-per-frame))
-         )
-        )
-       )
-      (set!
-       (-> *camera-orbit-info* rot)
-       (the
-        float
-        (sar (shl (the int (+ (-> *camera-orbit-info* rot) f0-20)) 48) 48)
-        )
-       )
-      )
-     )
-    (let ((gp-0 (new-stack-vector0)))
-     (let ((s5-0 (new-stack-vector0)))
-      (set-vector!
-       (-> self trans)
-       (+
-        (-> *camera-orbit-target* 0 root trans x)
-        (* (sin (-> *camera-orbit-info* rot)) (-> *camera-orbit-info* radius))
-        )
-       (-> *camera-orbit-target* 0 root trans y)
-       (+
-        (-> *camera-orbit-target* 0 root trans z)
-        (* (cos (-> *camera-orbit-info* rot)) (-> *camera-orbit-info* radius))
-        )
-       1.0
-       )
-      (vector+!
-       (-> self trans)
-       (-> self trans)
-       (-> *camera-orbit-info* orbit-off)
-       )
-      (vector+!
-       (-> self tracking follow-pt)
-       (-> *camera-orbit-target* 0 root trans)
-       (-> *camera-orbit-info* target-off)
-       )
-      (vector-! s5-0 (-> self trans) (-> self tracking follow-pt))
-      (set!
-       (-> gp-0 y)
-       (the
-        float
-        (sar (shl (the int (+ 32768.0 (atan (-> s5-0 x) (-> s5-0 z)))) 48) 48)
-        )
-       )
-      (set! (-> gp-0 x) (atan (-> s5-0 y) (vector-xz-length s5-0)))
-      )
-     (set! (-> gp-0 z) 0.0)
-     (matrix-rotate-zxy! (the-as matrix (-> self tracking)) gp-0)
-     )
-    (suspend)
+    (none)
     )
-   (none)
-   )
   )
 
 
diff --git a/goal_src/engine/camera/pov-camera.gc b/goal_src/engine/camera/pov-camera.gc
index 716a7f2985..809ef1da92 100644
--- a/goal_src/engine/camera/pov-camera.gc
+++ b/goal_src/engine/camera/pov-camera.gc
@@ -8,27 +8,18 @@
 ;; DECOMP BEGINS
 
 (defmethod TODO-RENAME-25 pov-camera ((obj pov-camera))
-  (when
-   (or
-    (and
-     (>=
-      (-
-       (-> *display* base-frame-counter)
-       (the-as int (-> obj debounce-start-time))
-       )
-      60
+  (when (or (and (>= (- (-> *display* base-frame-counter) (the-as int (-> obj debounce-start-time))) 60)
+                 (cpad-pressed? 0 triangle)
+                 )
+            (logtest? (-> obj flags) 2)
+            )
+    (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons triangle))
+    (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons triangle))
+    (when (logtest? (-> obj flags) 1)
+      (send-event (handle->process (-> obj notify-handle)) 'notify 'abort-request)
+      #t
       )
-     (logtest? (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons triangle))
-     )
-    (logtest? (-> obj flags) 2)
     )
-   (logclear! (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons triangle))
-   (logclear! (-> *cpad-list* cpads 0 button0-rel 0) (pad-buttons triangle))
-   (when (logtest? (-> obj flags) 1)
-    (send-event (handle->process (-> obj notify-handle)) 'notify 'abort-request)
-    #t
-    )
-   )
   )
 
 (defmethod target-grabbed? pov-camera ((obj pov-camera))
@@ -43,110 +34,81 @@
   :virtual #t
   :code
   (behavior ()
-   (go-virtual pov-camera-start-playing)
-   (none)
-   )
+    (go-virtual pov-camera-start-playing)
+    (none)
+    )
   )
 
 (defstate pov-camera-start-playing (pov-camera)
   :virtual #t
   :code
   (behavior ()
-   (logclear! (-> self mask) (process-mask actor-pause))
-   (while (not (target-grabbed? self))
-    (suspend)
-    )
-   (let ((gp-0 0))
-    (let ((v1-7 (dummy-10 (-> self draw jgeo) "camera" (the-as type #f))))
-     (if v1-7
-      (set! gp-0 (+ (-> v1-7 number) 1))
+    (logclear! (-> self mask) (process-mask actor-pause))
+    (while (not (target-grabbed? self))
+      (suspend)
       )
-     )
-    (let* ((s5-0 (get-process *default-dead-pool* othercam #x4000))
-           (v1-10 (when s5-0
-                   (let ((t9-3 (method-of-type othercam activate)))
-                    (t9-3
-                     (the-as othercam s5-0)
-                     self
-                     'othercam
-                     (the-as pointer #x70004000)
-                     )
-                    )
-                   (run-now-in-process
-                    s5-0
-                    othercam-init-by-other
-                    self
-                    gp-0
-                    #t
-                    #t
-                    )
-                   (-> s5-0 ppointer)
-                   )
+    (let ((gp-0 0))
+      (let ((v1-7 (dummy-10 (-> self draw jgeo) "camera" (the-as type #f))))
+        (if v1-7
+            (set! gp-0 (+ (-> v1-7 number) 1))
             )
-           )
-     (send-event (ppointer->process v1-10) 'mask (-> self mask-to-clear))
-     )
+        )
+      (let* ((s5-0 (get-process *default-dead-pool* othercam #x4000))
+             (v1-10 (when s5-0
+                      (let ((t9-3 (method-of-type othercam activate)))
+                        (t9-3 (the-as othercam s5-0) self 'othercam (the-as pointer #x70004000))
+                        )
+                      (run-now-in-process s5-0 othercam-init-by-other self gp-0 #t #t)
+                      (-> s5-0 ppointer)
+                      )
+                    )
+             )
+        (send-event (ppointer->process v1-10) 'mask (-> self mask-to-clear))
+        )
+      )
+    (go-virtual pov-camera-playing)
+    (none)
     )
-   (go-virtual pov-camera-playing)
-   (none)
-   )
   )
 
-(defbehavior
-  pov-camera-play-and-reposition pov-camera
-  ((arg0 joint-anim-compressed) (arg1 vector) (arg2 float))
+(defbehavior pov-camera-play-and-reposition pov-camera ((arg0 joint-anim-compressed) (arg1 vector) (arg2 float))
   (let ((s4-0 #f))
-   (let ((v1-2 (-> self skel root-channel 0)))
-    (set! (-> v1-2 frame-group) (the-as art-joint-anim arg0))
-    (set! (-> v1-2 param 0) (the float (+ (-> arg0 data 9 unknown-half) -1)))
-    (set! (-> v1-2 param 1) arg2)
-    (set! (-> v1-2 frame-num) 0.0)
-    (joint-control-channel-group!
-     v1-2
-     (the-as art-joint-anim arg0)
-     num-func-seek!
-     )
-    )
-   (until (ja-done? 0)
-    (let
-     ((v1-4
-       (and
-        (not s4-0)
-        (< (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                              (-> self skel root-channel 0 frame-group)
-                              )
-                          data
-                          0
-                          length
-                          )
-                       -4
+    (let ((v1-2 (-> self skel root-channel 0)))
+      (set! (-> v1-2 frame-group) (the-as art-joint-anim arg0))
+      (set! (-> v1-2 param 0) (the float (+ (-> arg0 data 9 unknown-half) -1)))
+      (set! (-> v1-2 param 1) arg2)
+      (set! (-> v1-2 frame-num) 0.0)
+      (joint-control-channel-group! v1-2 (the-as art-joint-anim arg0) num-func-seek!)
+      )
+    (until (ja-done? 0)
+      (let ((v1-4 (and (not s4-0) (< (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                           (-> self skel root-channel 0 frame-group)
+                                                           )
+                                                       data
+                                                       0
+                                                       length
+                                                       )
+                                                   -4
+                                                   )
+                                          )
+                                     (ja-frame-num 0)
+                                     )
                        )
+                  )
             )
-         (ja-frame-num 0)
-         )
+        (when v1-4
+          (set! s4-0 #t)
+          (send-event *camera* 'teleport-to-vector-start-string arg1)
+          )
+        )
+      (suspend)
+      (let ((a0-4 (-> self skel root-channel 0)))
+        (set! (-> a0-4 param 0) (the float (+ (-> a0-4 frame-group data 0 length) -1)))
+        (set! (-> a0-4 param 1) arg2)
+        (joint-control-channel-group-eval! a0-4 (the-as art-joint-anim #f) num-func-seek!)
         )
-       )
       )
-     (when v1-4
-      (set! s4-0 #t)
-      (send-event *camera* 'teleport-to-vector-start-string arg1)
-      )
-     )
-    (suspend)
-    (let ((a0-4 (-> self skel root-channel 0)))
-     (set!
-      (-> a0-4 param 0)
-      (the float (+ (-> a0-4 frame-group data 0 length) -1))
-      )
-     (set! (-> a0-4 param 1) arg2)
-     (joint-control-channel-group-eval!
-      a0-4
-      (the-as art-joint-anim #f)
-      num-func-seek!
-      )
-     )
     )
-   )
   0
   (none)
   )
@@ -155,158 +117,129 @@
   :virtual #t
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
-   (case arg2 
-    (('abort)
-      (when (logtest? (-> self flags) 1)
-       (logior! (-> self flags) 2)
-       (if (= (-> self anim-name type) string)
-        (go-virtual pov-camera-abort)
-        )
+    (case arg2
+      (('abort)
+       (when (logtest? (-> self flags) 1)
+         (logior! (-> self flags) 2)
+         (if (= (-> self anim-name type) string)
+             (go-virtual pov-camera-abort)
+             )
+         )
        )
       )
     )
-   )
   :enter
   (behavior ()
-   (set!
-    (-> self debounce-start-time)
-    (the-as uint (-> *display* base-frame-counter))
+    (set! (-> self debounce-start-time) (the-as uint (-> *display* base-frame-counter)))
+    (if (= (-> self anim-name type) string)
+        (backup-load-state-and-set-cmds *load-state* (-> self command-list))
+        )
+    (none)
     )
-   (if (= (-> self anim-name type) string)
-    (backup-load-state-and-set-cmds *load-state* (-> self command-list))
-    )
-   (none)
-   )
   :exit
   (behavior ()
-   (if (= (-> self anim-name type) string)
-    (restore-load-state-and-cleanup *load-state*)
+    (if (= (-> self anim-name type) string)
+        (restore-load-state-and-cleanup *load-state*)
+        )
+    (clear-pending-settings-from-process *setting-control* self 'music-volume)
+    (clear-pending-settings-from-process *setting-control* self 'sfx-volume)
+    (none)
     )
-   (clear-pending-settings-from-process *setting-control* self 'music-volume)
-   (clear-pending-settings-from-process *setting-control* self 'sfx-volume)
-   (none)
-   )
   :code
   (behavior ()
-   (push-setting!
-    *setting-control*
-    self
-    'music-volume
-    'rel
-    (-> self music-volume-movie)
-    0
-    )
-   (push-setting!
-    *setting-control*
-    self
-    'sfx-volume
-    'rel
-    (-> self sfx-volume-movie)
-    0
-    )
-   (cond
-    ((= (-> self anim-name type) string)
-     (let ((a0-4 (-> self skel root-channel 0)))
-      (set! (-> a0-4 frame-group) (if (> (-> self skel active-channels) 0)
-                                   (-> self skel root-channel 0 frame-group)
-                                   )
+    (push-setting! *setting-control* self 'music-volume 'rel (-> self music-volume-movie) 0)
+    (push-setting! *setting-control* self 'sfx-volume 'rel (-> self sfx-volume-movie) 0)
+    (cond
+      ((= (-> self anim-name type) string)
+       (let ((a0-4 (-> self skel root-channel 0)))
+         (set! (-> a0-4 frame-group) (if (> (-> self skel active-channels) 0)
+                                         (-> self skel root-channel 0 frame-group)
+                                         )
+               )
+         (set! (-> a0-4 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                       (-> self skel root-channel 0 frame-group)
+                                                       )
+                                                   data
+                                                   0
+                                                   length
+                                                   )
+                                               -1
+                                               )
+                                      )
+               )
+         (set! (-> a0-4 param 1) 1.0)
+         (set! (-> a0-4 frame-num) 0.0)
+         (joint-control-channel-group!
+           a0-4
+           (if (> (-> self skel active-channels) 0)
+               (-> self skel root-channel 0 frame-group)
+               )
+           num-func-seek!
+           )
+         )
+       (until (ja-done? 0)
+         (TODO-RENAME-25 self)
+         (suspend)
+         (let ((a0-6 (-> self skel root-channel 0)))
+           (set! (-> a0-6 param 0) (the float (+ (-> a0-6 frame-group data 0 length) -1)))
+           (set! (-> a0-6 param 1) 1.0)
+           (joint-control-channel-group-eval! a0-6 (the-as art-joint-anim #f) num-func-seek!)
+           )
+         )
        )
-      (set!
-       (-> a0-4 param 0)
-       (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                          (-> self skel root-channel 0 frame-group)
-                          )
-                      data
-                      0
-                      length
-                      )
-                   -1
-                   )
-        )
-       )
-      (set! (-> a0-4 param 1) 1.0)
-      (set! (-> a0-4 frame-num) 0.0)
-      (joint-control-channel-group!
-       a0-4
-       (if (> (-> self skel active-channels) 0)
-        (-> self skel root-channel 0 frame-group)
-        )
-       num-func-seek!
+      ((= (-> self anim-name type) spool-anim)
+       (ja-play-spooled-anim
+         (the-as spool-anim (-> self anim-name))
+         (the-as art-joint-anim #f)
+         (the-as art-joint-anim #f)
+         (method-of-object self TODO-RENAME-25)
+         )
        )
       )
-     (until (ja-done? 0)
-      (TODO-RENAME-25 self)
-      (suspend)
-      (let ((a0-6 (-> self skel root-channel 0)))
-       (set!
-        (-> a0-6 param 0)
-        (the float (+ (-> a0-6 frame-group data 0 length) -1))
-        )
-       (set! (-> a0-6 param 1) 1.0)
-       (joint-control-channel-group-eval!
-        a0-6
-        (the-as art-joint-anim #f)
-        num-func-seek!
-        )
-       )
-      )
-     )
-    ((= (-> self anim-name type) spool-anim)
-     (ja-play-spooled-anim
-      (the-as spool-anim (-> self anim-name))
-      (the-as art-joint-anim #f)
-      (the-as art-joint-anim #f)
-      (method-of-object self TODO-RENAME-25)
-      )
-     )
+    (go-virtual pov-camera-done-playing)
+    (none)
     )
-   (go-virtual pov-camera-done-playing)
-   (none)
-   )
   :post
   (behavior ()
-   (if (= (-> self anim-name type) string)
-    (execute-commands-up-to *load-state* (ja-aframe-num 0))
+    (if (= (-> self anim-name type) string)
+        (execute-commands-up-to *load-state* (ja-aframe-num 0))
+        )
+    (ja-post)
+    (none)
     )
-   (ja-post)
-   (none)
-   )
   )
 
 (defstate pov-camera-abort (pov-camera)
   :virtual #t
   :enter
   (behavior ()
-   (logior! (-> self flags) 2)
-   (none)
-   )
+    (logior! (-> self flags) 2)
+    (none)
+    )
   :code
   (behavior ()
-   (set-blackout-frames 10)
-   (suspend)
-   (suspend)
-   (go-virtual pov-camera-done-playing)
-   (none)
-   )
+    (set-blackout-frames 10)
+    (suspend)
+    (suspend)
+    (go-virtual pov-camera-done-playing)
+    (none)
+    )
   )
 
 (defstate pov-camera-done-playing (pov-camera)
   :virtual #t
   :code
   (behavior ()
-   (while (begin
-           self
-           (not ((method-of-object self target-released?)))
-           )
+    (while (begin self (not ((method-of-object self target-released?))))
+      (suspend)
+      )
+    (send-event (handle->process (-> self notify-handle)) 'notify 'die)
     (suspend)
+    (suspend)
+    (dummy-18 self)
+    (deactivate self)
+    (none)
     )
-   (send-event (handle->process (-> self notify-handle)) 'notify 'die)
-   (suspend)
-   (suspend)
-   (dummy-18 self)
-   (deactivate self)
-   (none)
-   )
   )
 
 (defmethod dummy-27 pov-camera ()
@@ -318,15 +251,7 @@
   (none)
   )
 
-(defbehavior
-  pov-camera-init-by-other pov-camera
-  ((arg0 vector)
-   (arg1 skeleton-group)
-   (arg2 string)
-   (arg3 int)
-   (arg4 process-drawable)
-   (arg5 pair)
-   )
+(defbehavior pov-camera-init-by-other pov-camera ((arg0 vector) (arg1 skeleton-group) (arg2 string) (arg3 int) (arg4 process-drawable) (arg5 pair))
   (set-stack-size! self)
   (set! (-> *game-info* pov-camera-handle) (process->handle self))
   (set! (-> self flags) arg3)
@@ -334,81 +259,68 @@
   (set! (-> self music-volume-movie) 100.0)
   (set! (-> self sfx-volume-movie) 100.0)
   (if arg4
-   (set! (-> self notify-handle) (process->handle arg4))
-   (set! (-> self notify-handle) (the-as handle #f))
-   )
-  (set!
-   (-> self debounce-start-time)
-   (the-as uint (-> *display* base-frame-counter))
-   )
-  (logclear!
-   (-> self mask)
-   (process-mask actor-pause movie enemy platform projectile)
-   )
+      (set! (-> self notify-handle) (process->handle arg4))
+      (set! (-> self notify-handle) (the-as handle #f))
+      )
+  (set! (-> self debounce-start-time) (the-as uint (-> *display* base-frame-counter)))
+  (logclear! (-> self mask) (process-mask actor-pause movie enemy platform projectile))
   (set! (-> self root) (new 'process 'trsqv))
   (set! (-> self root trans quad) (-> arg0 quad))
   (when (logtest? (-> self flags) 4)
-   (let
-    ((v1-20
-      (if (and (nonzero? arg4) (type-type? (-> arg4 type) process-drawable))
-       arg4
-       )
+    (let ((v1-20 (if (and (nonzero? arg4) (type-type? (-> arg4 type) process-drawable))
+                     arg4
+                     )
+                 )
+          )
+      (quaternion-copy! (-> self root quat) (-> v1-20 root quat))
       )
-     )
-    (quaternion-copy! (-> self root quat) (-> v1-20 root quat))
     )
-   )
   (initialize-skeleton self arg1 '())
-  (logior! (-> self draw status) 32)
+  (logior! (-> self draw status) (draw-status drwf05))
   (logior! (-> self skel status) 1)
   (set! (-> self anim-name) arg2)
   (cond
-   ((= (-> arg2 type) string)
-    (logior! (-> self skel status) 32)
-    (let ((s5-1 (dummy-10 (-> self draw art-group) arg2 art-joint-anim)))
-     (if (not s5-1)
-      (go process-drawable-art-error arg2)
-      )
-     (ja-channel-set! 1)
-     (set!
-      (-> self skel root-channel 0 frame-group)
-      (the-as art-joint-anim s5-1)
-      )
+    ((= (-> arg2 type) string)
+     (logior! (-> self skel status) 32)
+     (let ((s5-1 (dummy-10 (-> self draw art-group) arg2 art-joint-anim)))
+       (if (not s5-1)
+           (go process-drawable-art-error arg2)
+           )
+       (ja-channel-set! 1)
+       (set! (-> self skel root-channel 0 frame-group) (the-as art-joint-anim s5-1))
+       )
+     )
+    ((= (-> arg2 type) spool-anim)
      )
     )
-   ((= (-> arg2 type) spool-anim)
-    )
-   )
   (set! (-> self mask-to-clear) (the-as uint #x4a0800))
-  (set!
-   (-> self event-hook)
-   (lambda :behavior pov-camera
-    ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
-    (let ((v1-0 arg2))
-     (the-as object (cond
-                     ((= v1-0 'mask)
-                      (let ((v0-0 (the-as number (-> arg3 param 0))))
-                       (set! (-> self mask-to-clear) (the-as uint v0-0))
-                       v0-0
-                       )
-                      )
-                     ((= v1-0 'music-movie-volume)
-                      (let ((f0-0 (the-as float (-> arg3 param 0))))
-                       (set! (-> self music-volume-movie) f0-0)
-                       f0-0
-                       )
-                      )
-                     ((= v1-0 'sfx-movie-volume)
-                      (let ((f0-1 (the-as float (-> arg3 param 0))))
-                       (set! (-> self sfx-volume-movie) f0-1)
-                       f0-1
-                       )
-                      )
-                     )
-      )
-     )
-    )
-   )
+  (set! (-> self event-hook) (lambda :behavior pov-camera
+                               ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
+                               (let ((v1-0 arg2))
+                                 (the-as object (cond
+                                                  ((= v1-0 'mask)
+                                                   (let ((v0-0 (the-as number (-> arg3 param 0))))
+                                                     (set! (-> self mask-to-clear) (the-as uint v0-0))
+                                                     v0-0
+                                                     )
+                                                   )
+                                                  ((= v1-0 'music-movie-volume)
+                                                   (let ((f0-0 (the-as float (-> arg3 param 0))))
+                                                     (set! (-> self music-volume-movie) f0-0)
+                                                     f0-0
+                                                     )
+                                                   )
+                                                  ((= v1-0 'sfx-movie-volume)
+                                                   (let ((f0-1 (the-as float (-> arg3 param 0))))
+                                                     (set! (-> self sfx-volume-movie) f0-1)
+                                                     f0-1
+                                                     )
+                                                   )
+                                                  )
+                                         )
+                                 )
+                               )
+        )
   ((method-of-object self dummy-27))
   (go-virtual pov-camera-startup)
   (none)
diff --git a/goal_src/engine/debug/anim-tester.gc b/goal_src/engine/debug/anim-tester.gc
index 380474a7be..dc82b72f0a 100644
--- a/goal_src/engine/debug/anim-tester.gc
+++ b/goal_src/engine/debug/anim-tester.gc
@@ -32,6 +32,7 @@
 ;; DECOMP BEGINS
 
 ;; this file is debug only
+(declare-file (debug))
 (when *debug-segment*
 (deftype list-control (structure)
   ((listfunc            (function int list-control symbol)  :offset-assert   0)
@@ -56,7 +57,8 @@
    (user-info-u         uint32                              :offset         72)
    (return-int          int32                               :offset-assert  76)
    )
-  :allow-misaligned  :method-count-assert 9
+  :allow-misaligned
+  :method-count-assert 9
   :size-assert         #x50
   :flag-assert         #x900000050
   )
@@ -656,22 +658,20 @@
               )
             (let ((v1-18 (-> (the-as anim-test-sequence s5-0) item-list)))
               "is the list empty, #t = empty"
-              (if (or
-                      (= (-> v1-18 tailpred) v1-18)
-                      (and
-                        (= (glst-num-elements (-> (the-as anim-test-sequence s5-0) item-list)) 1)
-                        (begin
-                          (let ((v1-21 #t)
-                                (a0-13 (-> (the-as anim-test-sequence s5-0) item-list))
-                                )
-                            "return the start of the list"
-                            (let ((a0-16 (the-as int (logand (-> (the-as anim-test-seq-item (-> a0-13 head)) flags) 1))))
-                              (cmove-#f-zero v1-19 a0-16 v1-21)
-                              )
-                            )
-                          v1-19
-                          )
-                        )
+              (if (or (= (-> v1-18 tailpred) v1-18)
+                      (and (= (glst-num-elements (-> (the-as anim-test-sequence s5-0) item-list)) 1)
+                           (begin
+                             (let ((v1-21 #t)
+                                   (a0-13 (-> (the-as anim-test-sequence s5-0) item-list))
+                                   )
+                               "return the start of the list"
+                               (let ((a0-16 (the-as int (logand (-> (the-as anim-test-seq-item (-> a0-13 head)) flags) 1))))
+                                 (cmove-#f-zero v1-19 a0-16 v1-21)
+                                 )
+                               )
+                             v1-19
+                             )
+                           )
                       )
                   (glst-remove (-> arg0 seq-list) (the-as anim-test-sequence s5-0))
                   )
@@ -1484,10 +1484,9 @@
     )
   (let ((gp-0 (-> arg1 the-node))
         (s4-0 (the-as object (-> arg1 list-owner)))
-        (s2-0 (and
-                (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3))
-                (zero? (-> *anim-tester* 0 item-field))
-                )
+        (s2-0 (and (logtest? (-> *anim-tester* 0 flags) (anim-tester-flags fanimt3))
+                   (zero? (-> *anim-tester* 0 item-field))
+                   )
               )
         )
     (cond
@@ -2229,7 +2228,10 @@
   :event
   anim-tester-standard-event-handler
   :enter
-  (behavior () (logior! (-> self flags) (anim-tester-flags fanimt1)) (none))
+  (behavior ()
+    (logior! (-> self flags) (anim-tester-flags fanimt1))
+    (none)
+    )
   :trans
   (behavior ()
     (if (and (zero? (logand (-> self flags) (anim-tester-flags fanimt1))) (= *master-mode* 'menu))
@@ -2284,8 +2286,8 @@
            )
           ((begin
              (if (>= (-> (the-as anim-test-obj s4-0) list-con current-index)
-                       (glst-num-elements (-> (the-as anim-test-obj s4-0) seq-list))
-                       )
+                     (glst-num-elements (-> (the-as anim-test-obj s4-0) seq-list))
+                     )
                  (set! (-> (the-as anim-test-obj s4-0) list-con current-index)
                        (+ (glst-num-elements (-> (the-as anim-test-obj s4-0) seq-list)) -1)
                        )
diff --git a/goal_src/engine/debug/default-menu.gc b/goal_src/engine/debug/default-menu.gc
index f08917c163..feb2e68468 100644
--- a/goal_src/engine/debug/default-menu.gc
+++ b/goal_src/engine/debug/default-menu.gc
@@ -4221,8 +4221,8 @@
   (debug-menu-append-item (-> *debug-menu-context* root-menu)
     (debug-menu-make-from-template *debug-menu-context*
       '(menu "PC Settings"
-         (flag "Debug" #f (dm-lambda-boolean-flag (-> *pc-settings* debug?)))
-         (flag "Use native vis" #f (dm-lambda-boolean-flag (-> *pc-settings* use-vis?)))
+         (flag "Debug" #f ,(dm-lambda-boolean-flag (-> *pc-settings* debug?)))
+         (flag "Use native vis" #f ,(dm-lambda-boolean-flag (-> *pc-settings* use-vis?)))
          (function "Toggle game aspect" #f (lambda ()
                                               (cond
                                                 ((= (-> *setting-control* default aspect-ratio) 'aspect4x3)
@@ -4235,7 +4235,7 @@
                                                  )
                                                 )
                                               ))
-         (flag "Auto aspect" #f (dm-lambda-boolean-flag (-> *pc-settings* aspect-ratio-auto?)))
+         (flag "Auto aspect" #f ,(dm-lambda-boolean-flag (-> *pc-settings* aspect-ratio-auto?)))
          (menu "Aspect test"
             (function "4 x 3" #f (lambda () (set-aspect! *pc-settings* 4 3)))
             (function "16 x 9" #f (lambda () (set-aspect! *pc-settings* 16 9)))
@@ -4245,8 +4245,8 @@
             (function "37 x 20" #f (lambda () (set-aspect! *pc-settings* 37 20)))
             (function "21 x 9" #f (lambda () (set-aspect! *pc-settings* 21 9)))
             (function "64 x 18" #f (lambda () (set-aspect! *pc-settings* 64 18)))
-            (int-var "Custom aspect X" #f (dm-lambda-int-var (-> *pc-settings* aspect-custom-x)) 20 1 #t 1 1000)
-            (int-var "Custom aspect Y" #f (dm-lambda-int-var (-> *pc-settings* aspect-custom-y)) 20 1 #t 1 1000)
+            (int-var "Custom aspect X" #f ,(dm-lambda-int-var (-> *pc-settings* aspect-custom-x)) 20 1 #t 1 1000)
+            (int-var "Custom aspect Y" #f ,(dm-lambda-int-var (-> *pc-settings* aspect-custom-y)) 20 1 #t 1 1000)
             (function "Custom" #f (lambda () (set-aspect! *pc-settings* (-> *pc-settings* aspect-custom-x) (-> *pc-settings* aspect-custom-y))))
             )
          (menu "Fullscreen"
@@ -4273,37 +4273,37 @@
             (function "512 x 448" #f (lambda () (set-size! *pc-settings* 512 448)))
             (function "512 x 512" #f (lambda () (set-size! *pc-settings* 512 512)))
             )
-         (flag "Letterbox" #f (dm-lambda-boolean-flag (-> *pc-settings* letterbox?)))
-         (flag "Skip movies" #f (dm-lambda-boolean-flag (-> *pc-settings* skip-movies?)))
-         (flag "Subtitles" #f (dm-lambda-boolean-flag (-> *pc-settings* subtitles?)))
-         (flag "Hinttitles" #f (dm-lambda-boolean-flag (-> *pc-settings* hinttitles?)))
+         (flag "Letterbox" #f ,(dm-lambda-boolean-flag (-> *pc-settings* letterbox?)))
+         (flag "Skip movies" #f ,(dm-lambda-boolean-flag (-> *pc-settings* skip-movies?)))
+         (flag "Subtitles" #f ,(dm-lambda-boolean-flag (-> *pc-settings* subtitles?)))
+         (flag "Hinttitles" #f ,(dm-lambda-boolean-flag (-> *pc-settings* hinttitles?)))
          (menu "Game fixes"
-            (flag "sagecage crash" #f (dm-lambda-boolean-flag (-> *pc-settings* fixes crash-sagecage)))
-            (flag "memory crash" #f (dm-lambda-boolean-flag (-> *pc-settings* fixes crash-dma)))
-            (flag "light eco crash" #f (dm-lambda-boolean-flag (-> *pc-settings* fixes crash-light-eco)))
-            (flag "softlock pelican" #f (dm-lambda-boolean-flag (-> *pc-settings* fixes lockout-pelican)))
-            (flag "softlock pipegame" #f (dm-lambda-boolean-flag (-> *pc-settings* fixes lockout-pipegame)))
-            (flag "softlock gambler" #f (dm-lambda-boolean-flag (-> *pc-settings* fixes lockout-gambler)))
-            (flag "fix movies" #f (dm-lambda-boolean-flag (-> *pc-settings* fixes fix-movies)))
-            (flag "fix credits" #f (dm-lambda-boolean-flag (-> *pc-settings* fixes fix-credits)))
+            (flag "sagecage crash" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fixes crash-sagecage)))
+            (flag "memory crash" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fixes crash-dma)))
+            (flag "light eco crash" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fixes crash-light-eco)))
+            (flag "softlock pelican" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fixes lockout-pelican)))
+            (flag "softlock pipegame" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fixes lockout-pipegame)))
+            (flag "softlock gambler" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fixes lockout-gambler)))
+            (flag "fix movies" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fixes fix-movies)))
+            (flag "fix credits" #f ,(dm-lambda-boolean-flag (-> *pc-settings* fixes fix-credits)))
             )
          (menu "PS2 settings"
-            (flag "PS2 Load speed" #f (dm-lambda-boolean-flag (-> *pc-settings* ps2-read-speed?)))
-            (flag "PS2 Particles" #f (dm-lambda-boolean-flag (-> *pc-settings* ps2-parts?)))
-            (flag "PS2 Music" #f (dm-lambda-boolean-flag (-> *pc-settings* ps2-music?)))
-            (flag "PS2 Sound effects" #f (dm-lambda-boolean-flag (-> *pc-settings* ps2-se?)))
-            (flag "PS2 Hints" #f (dm-lambda-boolean-flag (-> *pc-settings* ps2-hints?)))
+            (flag "PS2 Load speed" #f ,(dm-lambda-boolean-flag (-> *pc-settings* ps2-read-speed?)))
+            (flag "PS2 Particles" #f ,(dm-lambda-boolean-flag (-> *pc-settings* ps2-parts?)))
+            (flag "PS2 Music" #f ,(dm-lambda-boolean-flag (-> *pc-settings* ps2-music?)))
+            (flag "PS2 Sound effects" #f ,(dm-lambda-boolean-flag (-> *pc-settings* ps2-se?)))
+            (flag "PS2 Hints" #f ,(dm-lambda-boolean-flag (-> *pc-settings* ps2-hints?)))
             )
          (menu "Level of detail"
-               (flag "PS2 LOD      " #f (dm-lambda-boolean-flag (-> *pc-settings* ps2-lod-dist?)))
+               (flag "PS2 LOD      " #f ,(dm-lambda-boolean-flag (-> *pc-settings* ps2-lod-dist?)))
             (int-var "LOD Tfrag" 0 dm-lod-int 0 1 #t 0 3)
             (int-var "LOD Tie" 1 dm-lod-int 0 1 #t 0 3)
             (int-var "LOD Ocean" 2 dm-lod-int 0 1 #t 0 3)
             (int-var "LOD Actor" 3 dm-lod-int 0 1 #t 0 3)
             )
-         ;(flag "Alt load boundaries" #f (dm-lambda-boolean-flag (-> *pc-settings* new-lb?)))
-         (flag "Display actor bank" #f (dm-lambda-boolean-flag (-> *pc-settings* display-actor-bank)))
-         (flag "Pad display" #f (dm-lambda-boolean-flag (-> *pc-settings* debug-pad-display)))
+         ;(flag "Alt load boundaries" #f ,(dm-lambda-boolean-flag (-> *pc-settings* new-lb?)))
+         (flag "Display actor bank" #f ,(dm-lambda-boolean-flag (-> *pc-settings* display-actor-bank)))
+         (flag "Pad display" #f ,(dm-lambda-boolean-flag (-> *pc-settings* debug-pad-display)))
          (function "Reset" #f (lambda () (reset *pc-settings*)))
          (function "Save" #f (lambda () (write-to-file *pc-settings* PC_SETTINGS_FILE_NAME)))
          (function "Load" #f (lambda () (read-from-file *pc-settings* PC_SETTINGS_FILE_NAME)))
@@ -4318,9 +4318,9 @@
                  (flag "DECI Count" *display-deci-count* dm-boolean-toggle-pick-func)
                  (flag "Actor graph" *display-actor-graph* dm-boolean-toggle-pick-func)
                  (flag "Update vis outside bsp" *update-leaf-when-outside-bsp* dm-boolean-toggle-pick-func)
-                 (float-var "Actor birth dist" #f (dm-lambda-meters-var (-> *ACTOR-bank* birth-dist)) 20 1 #t 0 10000 1)
-                 (float-var "Actor pause dist" #f (dm-lambda-meters-var (-> *ACTOR-bank* pause-dist)) 20 1 #t 0 10000 1)
-                 (flag "Force progress" #f (dm-lambda-boolean-flag (-> *pc-settings* progress-force?)))
+                 (float-var "Actor birth dist" #f ,(dm-lambda-meters-var (-> *ACTOR-bank* birth-dist)) 20 1 #t 0 10000 1)
+                 (float-var "Actor pause dist" #f ,(dm-lambda-meters-var (-> *ACTOR-bank* pause-dist)) 20 1 #t 0 10000 1)
+                 (flag "Force progress" #f ,(dm-lambda-boolean-flag (-> *pc-settings* progress-force?)))
                  )
               ))
          (other-menu (-> (the-as debug-menu-item-submenu other-menu-node) submenu))
diff --git a/goal_src/engine/debug/part-tester.gc b/goal_src/engine/debug/part-tester.gc
index e4e83278b4..bd64b27b71 100644
--- a/goal_src/engine/debug/part-tester.gc
+++ b/goal_src/engine/debug/part-tester.gc
@@ -14,17 +14,7 @@
 ;; this file is debug only
 (declare-file (debug))
 (when *debug-segment*
-(set! (-> *part-group-id-table* 105)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-tester"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 56) (sp-item 57))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-tester :id 105 :bounds (static-bspherem 0 0 0 1) :parts ((sp-item 56) (sp-item 57)))
 
 (deftype part-tester (process)
   ((root      trsqv                     :offset-assert 112)
diff --git a/goal_src/engine/debug/viewer.gc b/goal_src/engine/debug/viewer.gc
index 77777516f2..3a3678cf2c 100644
--- a/goal_src/engine/debug/viewer.gc
+++ b/goal_src/engine/debug/viewer.gc
@@ -17,13 +17,13 @@
 (deftype viewer (process-drawable)
   ((janim art-joint-anim  :offset-assert 176)
    )
-  (:states
-    viewer-process
-    )
   :heap-base #x50
   :method-count-assert 20
   :size-assert         #xb4
   :flag-assert         #x14005000b4
+  (:states
+    viewer-process
+    )
   )
 
 (define-extern *viewer* viewer)
@@ -118,9 +118,9 @@
 (defbehavior init-viewer viewer ((arg0 string))
   (let ((s2-0 (load-to-heap-by-name
                 (-> (if (-> self entity)
-                          (-> self entity extra level)
-                          (-> *level* level-default)
-                          )
+                        (-> self entity extra level)
+                        (-> *level* level-default)
+                        )
                     art-group
                     )
                 arg0
diff --git a/goal_src/engine/draw/drawable.gc b/goal_src/engine/draw/drawable.gc
index 93c9dd6164..ed948265a8 100644
--- a/goal_src/engine/draw/drawable.gc
+++ b/goal_src/engine/draw/drawable.gc
@@ -123,7 +123,7 @@
 
 (defun real-main-draw-hook ()
   (when *slow-frame-rate*
-    (dotimes (v1-2 #xc350000) ;; changed from ps2 for... obvious reasons.
+    (dotimes (v1-2 40000000) ;; was 50000
       (nop!)
       (nop!)
       (nop!)
diff --git a/goal_src/engine/draw/process-drawable.gc b/goal_src/engine/draw/process-drawable.gc
index a50c2df6ac..1265bc31e0 100644
--- a/goal_src/engine/draw/process-drawable.gc
+++ b/goal_src/engine/draw/process-drawable.gc
@@ -1003,12 +1003,11 @@
     )
   (set! (-> self state-time) (-> *display* base-frame-counter))
   (process-grab? *target*)
-  (while (or
-           (-> *setting-control* current talking)
-           (-> *setting-control* current spooling)
-           (-> *setting-control* current hint)
-           (-> *setting-control* current ambient)
-           )
+  (while (or (-> *setting-control* current talking)
+             (-> *setting-control* current spooling)
+             (-> *setting-control* current hint)
+             (-> *setting-control* current ambient)
+             )
     (suspend)
     )
   (while (< (- (-> *display* base-frame-counter) (-> self state-time)) arg0)
diff --git a/goal_src/engine/game/collectables-part.gc b/goal_src/engine/game/collectables-part.gc
index 7b7b8319ba..096361eeb1 100644
--- a/goal_src/engine/game/collectables-part.gc
+++ b/goal_src/engine/game/collectables-part.gc
@@ -13,45 +13,34 @@
 ;; DECOMP BEGINS
 
 (defun eco-fadeout ((arg0 sparticle-system) (arg1 sparticle-cpuinfo))
-  (if
-   (zero?
-    (logand (-> (the-as process-drawable (-> arg1 key proc)) state-flags) 1)
-    )
-   (set! (-> arg1 next-time) (the-as uint (* (-> *sp-frame-time* x) 2)))
-   )
-  0
-  (none)
-  )
-
-(defun
-  eco-track-root-prim-fadeout
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
-  (let ((v1-1 (the-as process-drawable (-> arg1 key proc))))
-   (let
-    ((a0-3
-      (-> (the-as collide-shape-moving (-> v1-1 root)) root-prim prim-core)
+  (if (zero? (logand (-> (the-as process-drawable (-> arg1 key proc)) state-flags) 1))
+      (set! (-> arg1 next-time) (the-as uint (* (-> *sp-frame-time* x) 2)))
       )
-     )
-    (set! (-> arg2 x) (-> a0-3 world-sphere x))
-    (set! (-> arg2 y) (-> a0-3 world-sphere y))
-    (set! (-> arg2 z) (-> a0-3 world-sphere z))
-    )
-   (if (zero? (logand (-> v1-1 state-flags) 1))
-    (set! (-> arg1 next-time) (the-as uint (* (-> *sp-frame-time* x) 2)))
-    )
-   )
   0
   (none)
   )
 
-(defun
-  part-tracker-track-root
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun eco-track-root-prim-fadeout ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+  (let ((v1-1 (the-as process-drawable (-> arg1 key proc))))
+    (let ((a0-3 (-> (the-as collide-shape-moving (-> v1-1 root)) root-prim prim-core)))
+      (set! (-> arg2 x) (-> a0-3 world-sphere x))
+      (set! (-> arg2 y) (-> a0-3 world-sphere y))
+      (set! (-> arg2 z) (-> a0-3 world-sphere z))
+      )
+    (if (zero? (logand (-> v1-1 state-flags) 1))
+        (set! (-> arg1 next-time) (the-as uint (* (-> *sp-frame-time* x) 2)))
+        )
+    )
+  0
+  (none)
+  )
+
+(defun part-tracker-track-root ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (let ((v1-3 (-> (the-as process-drawable (-> arg1 key proc)) root trans)))
-   (set! (-> arg2 x) (-> v1-3 x))
-   (set! (-> arg2 y) (-> v1-3 y))
-   (set! (-> arg2 z) (-> v1-3 z))
-   )
+    (set! (-> arg2 x) (-> v1-3 x))
+    (set! (-> arg2 y) (-> v1-3 y))
+    (set! (-> arg2 z) (-> v1-3 z))
+    )
   0
   (none)
   )
@@ -59,59 +48,45 @@
 (defun part-tracker-move-to-target ((arg0 part-tracker))
   (let* ((v1-0 *target*)
          (a2-0 (if (not v1-0)
-                (-> arg0 root trans)
-                (vector<-cspace!
-                 (new 'stack-no-clear 'vector)
-                 (-> v1-0 node-list data 5)
-                 )
-                )
-          )
+                   (-> arg0 root trans)
+                   (vector<-cspace! (new 'stack-no-clear 'vector) (-> v1-0 node-list data 5))
+                   )
+               )
          )
-   (vector-lerp!
-    (-> arg0 root trans)
-    (-> arg0 offset)
-    a2-0
-    (*
-     0.006666667
-     (the float (- (-> *display* base-frame-counter) (-> arg0 start-time)))
-     )
+    (vector-lerp!
+      (-> arg0 root trans)
+      (-> arg0 offset)
+      a2-0
+      (* 0.006666667 (the float (- (-> *display* base-frame-counter) (the-as int (-> arg0 start-time)))))
+      )
     )
-   )
   )
 
 (defun part-tracker-track-target ((arg0 part-tracker))
   (set! (-> arg0 linger-callback) (-> arg0 callback))
   (let* ((v1-1 *target*)
          (v1-3 (if (not v1-1)
-                (-> arg0 root trans)
-                (vector<-cspace!
-                 (new 'stack-no-clear 'vector)
-                 (-> v1-1 node-list data 5)
-                 )
-                )
-          )
+                   (-> arg0 root trans)
+                   (vector<-cspace! (new 'stack-no-clear 'vector) (-> v1-1 node-list data 5))
+                   )
+               )
          (v0-1 (-> arg0 root trans))
          )
-   (set! (-> v0-1 quad) (-> v1-3 quad))
-   v0-1
-   )
+    (set! (-> v0-1 quad) (-> v1-3 quad))
+    v0-1
+    )
   )
 
-(set!
-  (-> *part-group-id-table* 42)
-  (new 'static 'sparticle-launch-group
-   :length 20
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-eco-blue"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 20
-    (sp-item 2 :flags (launch-asap) :binding 3)
-    (sp-item 3 :fade-after (meters 40.0) :flags (start-dead launch-asap) :binding 5)
-    (sp-item 3 :fade-after (meters 60.0) :flags (start-dead launch-asap) :binding 5)
-    (sp-item 3 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 5)
-    (sp-item 3 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 5)
-    (sp-item 3 :fade-after (meters 130.0) :flags (start-dead launch-asap) :binding 5)
+(defpartgroup group-eco-blue
+  :id 42
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2 :flags (launch-asap) :binding 3)
+    (sp-item 3 :fade-after (meters 40) :flags (start-dead launch-asap) :binding 5)
+    (sp-item 3 :fade-after (meters 60) :flags (start-dead launch-asap) :binding 5)
+    (sp-item 3 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 5)
+    (sp-item 3 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 5)
+    (sp-item 3 :fade-after (meters 130) :flags (start-dead launch-asap) :binding 5)
     (sp-item 3 :flags (start-dead launch-asap) :binding 5)
     (sp-item 5 :flags (start-dead launch-asap) :binding 7)
     (sp-item 5 :flags (start-dead launch-asap) :binding 8)
@@ -119,46 +94,36 @@
     (sp-item 5 :flags (start-dead launch-asap) :binding 7)
     (sp-item 5 :flags (start-dead launch-asap) :binding 8)
     (sp-item 5 :flags (start-dead launch-asap) :binding 9)
-    (sp-item 7 :fade-after (meters 60.0) :flags (start-dead) :binding 10)
-    (sp-item 8 :fade-after (meters 70.0) :flags (start-dead) :binding 10)
-    (sp-item 9 :fade-after (meters 80.0) :flags (start-dead) :binding 10)
-    (sp-item 7 :fade-after (meters 90.0) :flags (start-dead) :binding 10)
-    (sp-item 8 :fade-after (meters 100.0) :flags (start-dead) :binding 10)
-    (sp-item 9 :fade-after (meters 100.0) :flags (start-dead) :binding 10)
+    (sp-item 7 :fade-after (meters 60) :flags (start-dead) :binding 10)
+    (sp-item 8 :fade-after (meters 70) :flags (start-dead) :binding 10)
+    (sp-item 9 :fade-after (meters 80) :flags (start-dead) :binding 10)
+    (sp-item 7 :fade-after (meters 90) :flags (start-dead) :binding 10)
+    (sp-item 8 :fade-after (meters 100) :flags (start-dead) :binding 10)
+    (sp-item 9 :fade-after (meters 100) :flags (start-dead) :binding 10)
     (sp-item 10 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 4096.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 4.0))
+    (sp-flt spt-x (meters 4))
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-func spt-func 'sparticle-track-root-prim)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 3)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 3
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 1228.8 614.4 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.3) (meters 0.15) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 0.0 32.0 1.0)
@@ -167,40 +132,28 @@
     (sp-flt spt-a 32.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit3 bit7 bit14)
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 4)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 4)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-a -0.21333334)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 4
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 5)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 5
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 819.2 409.6 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.2) (meters 0.1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.8) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -210,39 +163,27 @@
     (sp-rnd-flt spt-a 32.0 32.0 1.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees 269.52002) (degrees 208.99998) 1.0)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 6)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 6)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-a -0.16)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 6
+  :init-specs
+  ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 7)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 7
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-rnd-flt spt-num 0.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
@@ -255,19 +196,14 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 8)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+(defpart 8
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
     (sp-rnd-flt spt-num 0.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
@@ -280,19 +216,14 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 9)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+(defpart 9
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
     (sp-rnd-flt spt-num 0.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
@@ -305,19 +236,14 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 10)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 11
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 10
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 32.0)
     (sp-flt spt-g 32.0)
@@ -325,51 +251,41 @@
     (sp-rnd-flt spt-a 96.0 64.0 1.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 43)
-  (new 'static 'sparticle-launch-group
-   :length 18
-   :duration #x96
-   :linger-duration #x258
-   :name "group-eco-blue-collect"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 18
-    (sp-item 11 :flags (launch-asap) :binding 12)
+(defpartgroup group-eco-blue-collect
+  :id 43
+  :duration 150
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 11 :flags (launch-asap) :binding 12)
     (sp-item 12 :flags (start-dead launch-asap) :binding 13)
     (sp-item 12 :flags (start-dead launch-asap) :binding 14)
     (sp-item 12 :flags (start-dead launch-asap) :binding 13)
     (sp-item 12 :flags (start-dead launch-asap) :binding 14)
     (sp-item 12 :flags (start-dead launch-asap) :binding 147)
-    (sp-item 13 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 13 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 13 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 13 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 14 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 14 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 14 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 14 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 147 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 147 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 147 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 147 :fade-after (meters 40.0) :flags (start-dead))
+    (sp-item 13 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 13 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 13 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 13 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 14 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 14 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 14 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 14 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 147 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 147 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 147 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 147 :fade-after (meters 40) :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 11)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 11
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 4.0))
+    (sp-flt spt-scale-x (meters 4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 96.0)
@@ -382,20 +298,15 @@
     (sp-func spt-func 'part-tracker-track-root)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 148)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 12)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 12
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-rnd-flt spt-y (meters -4.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 327.68)
+    (sp-rnd-flt spt-y (meters -4) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.08))
     (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 64.0)
@@ -404,24 +315,19 @@
     (sp-flt spt-a 127.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-vel-z (meters 0.08))
     (sp-flt spt-accel-z -21.845333)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 13)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 13
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
@@ -434,19 +340,14 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 14)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+(defpart 14
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
@@ -459,19 +360,14 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 147)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+(defpart 147
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
@@ -484,68 +380,45 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 44)
-  (new 'static 'sparticle-launch-group
-   :length 15
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-vent-blue-active"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 15
-    (sp-item 149 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 156)
-    (sp-item 149 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 155)
-    (sp-item 149 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 154)
+(defpartgroup group-part-vent-blue-active
+  :id 44
+  :bounds (static-bspherem 0 5 0 5)
+  :parts
+  ((sp-item 149 :fade-after (meters 140) :falloff-to (meters 140) :binding 156)
+    (sp-item 149 :fade-after (meters 140) :falloff-to (meters 140) :binding 155)
+    (sp-item 149 :fade-after (meters 140) :falloff-to (meters 140) :binding 154)
     (sp-item 150)
-    (sp-item 151 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 152 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 153 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 154 :fade-after (meters 30.0) :falloff-to (meters 30.0) :flags (start-dead))
-    (sp-item 155 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (start-dead))
-    (sp-item 156 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 154 :fade-after (meters 90.0) :falloff-to (meters 90.0) :flags (start-dead))
-    (sp-item 155 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-    (sp-item 156 :fade-after (meters 110.0) :falloff-to (meters 110.0) :flags (start-dead))
-    (sp-item 154 :fade-after (meters 120.0) :falloff-to (meters 120.0) :flags (start-dead))
-    (sp-item 155 :fade-after (meters 120.0) :falloff-to (meters 120.0) :flags (start-dead))
+    (sp-item 151 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 152 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 153 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 154 :fade-after (meters 30) :falloff-to (meters 30) :flags (start-dead))
+    (sp-item 155 :fade-after (meters 60) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 156 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 154 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
+    (sp-item 155 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 156 :fade-after (meters 110) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 154 :fade-after (meters 120) :falloff-to (meters 120) :flags (start-dead))
+    (sp-item 155 :fade-after (meters 120) :falloff-to (meters 120) :flags (start-dead))
     )
-   :bounds
-   (new 'static 'sphere :y 20480.0 :w 20480.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 45)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-vent-blue-inactive"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 149 :fade-after (meters 100.0))
-    (sp-item 150)
-    )
-   :bounds
-   (new 'static 'sphere :y 20480.0 :w 20480.0)
-   )
+(defpartgroup group-part-vent-blue-inactive
+  :id 45
+  :bounds (static-bspherem 0 5 0 5)
+  :parts
+  ((sp-item 149 :fade-after (meters 100)) (sp-item 150))
   )
 
-(set!
-  (-> *part-id-table* 150)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 150
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
     (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 32.0)
@@ -556,21 +429,16 @@
     (sp-flt spt-fade-a -0.2)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 149)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 149
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.1 1.0)
     (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 64.0)
@@ -580,17 +448,12 @@
     (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 156)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 156
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
     (sp-int spt-rot-x 4)
@@ -605,17 +468,12 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 155)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+(defpart 155
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
     (sp-int spt-rot-x 4)
@@ -630,17 +488,12 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 154)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+(defpart 154
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
     (sp-int spt-rot-x 4)
@@ -655,21 +508,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 151)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 151
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-rnd-flt spt-num 0.1 0.5 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
@@ -683,21 +531,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 152)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+(defpart 152
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
     (sp-rnd-flt spt-num 0.2 0.4 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
@@ -711,21 +554,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 153)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+(defpart 153
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
     (sp-rnd-flt spt-num 0.3 0.1 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
@@ -739,36 +577,24 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 146)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-r 64.0)
+(defpart 146
+  :init-specs
+  ((sp-flt spt-r 64.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-fade-r -1.0)
     (sp-flt spt-fade-g -1.0)
     (sp-flt spt-fade-a -2.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 48)
-  (new 'static 'sparticle-launch-group
-   :length 16
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-eco-red"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 16
-    (sp-item 160 :flags (launch-asap) :binding 161)
+(defpartgroup group-eco-red
+  :id 48
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 160 :flags (launch-asap) :binding 161)
     (sp-item 161 :flags (start-dead launch-asap) :binding 162)
     (sp-item 161 :flags (start-dead launch-asap) :binding 162)
     (sp-item 161 :flags (start-dead launch-asap) :binding 162)
@@ -778,45 +604,35 @@
     (sp-item 162 :flags (start-dead launch-asap) :binding 163)
     (sp-item 162 :flags (start-dead launch-asap) :binding 163)
     (sp-item 162 :flags (start-dead launch-asap) :binding 163)
-    (sp-item 163 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 164)
-    (sp-item 163 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 164)
-    (sp-item 163 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 164)
-    (sp-item 164 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-    (sp-item 164 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-    (sp-item 164 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
+    (sp-item 163 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 164)
+    (sp-item 163 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 164)
+    (sp-item 163 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 164)
+    (sp-item 164 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 164 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 164 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 4096.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 160)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 160
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 4.0))
+    (sp-flt spt-x (meters 4))
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-func spt-func 'sparticle-track-root-prim)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 161)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 161
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 614.4 819.2 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.15) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -825,40 +641,28 @@
     (sp-flt spt-a 24.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit3 bit7 bit14)
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 165)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 165)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-a -0.16)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 165
+  :init-specs
+  ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 162)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 162
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 1024.0 409.6 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.25) (meters 0.1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -866,40 +670,28 @@
     (sp-flt spt-a 32.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 166)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 166)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-a -0.21333334)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 166
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 163)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 163
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 286.72 122.88 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.07) (meters 0.03) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -911,17 +703,12 @@
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 166)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 164)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 164
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -940,56 +727,40 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 167)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 167)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-g 0.0)
-    (sp-end)
-    )
-   )
+(defpart 167
+  :init-specs
+  ((sp-flt spt-fade-g 0.0))
   )
 
-(set!
-  (-> *part-group-id-table* 49)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #x96
-   :linger-duration #x258
-   :flags (sp-group-flag use-local-clock)
-   :name "group-eco-red-collect"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 168 :flags (launch-asap) :binding 169)
+(defpartgroup group-eco-red-collect
+  :id 49
+  :duration 150
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 168 :flags (launch-asap) :binding 169)
     (sp-item 169 :flags (start-dead launch-asap) :binding 170)
     (sp-item 169 :flags (start-dead launch-asap) :binding 170)
     (sp-item 169 :flags (start-dead launch-asap) :binding 170)
     (sp-item 169 :flags (start-dead launch-asap) :binding 170)
     (sp-item 169 :flags (start-dead launch-asap) :binding 170)
-    (sp-item 170 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 170 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 170 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 170 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 170 :fade-after (meters 40.0) :flags (start-dead))
+    (sp-item 170 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 170 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 170 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 170 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 170 :fade-after (meters 40) :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 168)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 168
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 4.0))
+    (sp-flt spt-scale-x (meters 4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1002,20 +773,15 @@
     (sp-func spt-func 'part-tracker-track-root)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 148)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 169)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 169
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-rnd-flt spt-y (meters -4.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 327.68)
+    (sp-rnd-flt spt-y (meters -4) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.08))
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -1024,24 +790,19 @@
     (sp-flt spt-a 127.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-vel-z (meters 0.08))
     (sp-flt spt-accel-z -21.845333)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 170)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 170
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 100.0 28.0 1.0)
@@ -1059,25 +820,18 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 171)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 50)
-  (new 'static 'sparticle-launch-group
-   :length 31
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-vent-red-active"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 31
-    (sp-item 172 :fade-after (meters 30.0) :period 330 :length 5 :binding 173)
-    (sp-item 172 :fade-after (meters 60.0) :period 736 :length 5 :binding 173)
-    (sp-item 172 :fade-after (meters 90.0) :period 936 :length 5 :binding 173)
-    (sp-item 172 :fade-after (meters 130.0) :period 528 :length 5 :binding 173)
-    (sp-item 172 :fade-after (meters 170.0) :period 801 :length 5 :binding 173)
+(defpartgroup group-part-vent-red-active
+  :id 50
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 172 :fade-after (meters 30) :period 330 :length 5 :binding 173)
+    (sp-item 172 :fade-after (meters 60) :period 736 :length 5 :binding 173)
+    (sp-item 172 :fade-after (meters 90) :period 936 :length 5 :binding 173)
+    (sp-item 172 :fade-after (meters 130) :period 528 :length 5 :binding 173)
+    (sp-item 172 :fade-after (meters 170) :period 801 :length 5 :binding 173)
     (sp-item 173 :flags (start-dead launch-asap) :binding 174)
     (sp-item 173 :flags (start-dead launch-asap) :binding 174)
     (sp-item 173 :flags (start-dead launch-asap) :binding 174)
@@ -1094,49 +848,33 @@
     (sp-item 174 :flags (start-dead launch-asap) :binding 175)
     (sp-item 174 :flags (start-dead launch-asap) :binding 175)
     (sp-item 174 :flags (start-dead launch-asap) :binding 175)
-    (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 50.0) :flags (start-dead))
-    (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 60.0) :flags (start-dead))
-    (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 70.0) :flags (start-dead))
-    (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 90.0) :flags (start-dead))
-    (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-    (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-    (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-    (sp-item 176 :fade-after (meters 140.0) :falloff-to (meters 140.0))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 50) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 70) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 176 :fade-after (meters 140) :falloff-to (meters 140))
     (sp-item 177)
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 20480.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 51)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-vent-red-inactive"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 176 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-    (sp-item 177)
-    )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 20480.0)
-   )
+(defpartgroup group-part-vent-red-inactive
+  :id 51
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 176 :fade-after (meters 140) :falloff-to (meters 140)) (sp-item 177))
   )
 
-(set!
-  (-> *part-id-table* 177)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 177
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.6 0.6 1.0)
     (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.9) (meters 1.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1149,21 +887,16 @@
     (sp-flt spt-fade-a -0.10666667)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 176)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 176
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1176,19 +909,14 @@
     (sp-flt spt-fade-a -0.21333334)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 172)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 172
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 1.5) 1.0)
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-a 1.0)
@@ -1197,21 +925,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 173)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 173
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 2048.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.5))
+    (sp-flt spt-scale-x (meters 1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1220,50 +943,40 @@
     (sp-flt spt-a 128.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
     (sp-flt spt-fade-a -0.28444445)
     (sp-int spt-timer 450)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 174)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 174
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 1024.0 409.6 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.25) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
     (sp-rnd-flt spt-g 64.0 64.0 1.0)
     (sp-flt spt-a 32.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 450)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 175)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 175
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 100.0 28.0 1.0)
@@ -1281,36 +994,23 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 171)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 171)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-g 0.0)
-    (sp-end)
-    )
-   )
+(defpart 171
+  :init-specs
+  ((sp-flt spt-fade-g 0.0))
   )
 
-(set!
-  (-> *part-group-id-table* 52)
-  (new 'static 'sparticle-launch-group
-   :length 31
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-vent-yellow-active"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 31
-    (sp-item 178 :fade-after (meters 40.0) :period 330 :length 5 :binding 179)
-    (sp-item 178 :fade-after (meters 60.0) :period 736 :length 5 :binding 179)
-    (sp-item 178 :fade-after (meters 80.0) :period 936 :length 5 :binding 179)
-    (sp-item 178 :fade-after (meters 100.0) :period 528 :length 5 :binding 179)
-    (sp-item 178 :fade-after (meters 130.0) :period 801 :length 5 :binding 179)
+(defpartgroup group-part-vent-yellow-active
+  :id 52
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 178 :fade-after (meters 40) :period 330 :length 5 :binding 179)
+    (sp-item 178 :fade-after (meters 60) :period 736 :length 5 :binding 179)
+    (sp-item 178 :fade-after (meters 80) :period 936 :length 5 :binding 179)
+    (sp-item 178 :fade-after (meters 100) :period 528 :length 5 :binding 179)
+    (sp-item 178 :fade-after (meters 130) :period 801 :length 5 :binding 179)
     (sp-item 179 :flags (start-dead launch-asap) :binding 180)
     (sp-item 179 :flags (start-dead launch-asap) :binding 180)
     (sp-item 179 :flags (start-dead launch-asap) :binding 180)
@@ -1327,49 +1027,33 @@
     (sp-item 180 :flags (start-dead launch-asap) :binding 181)
     (sp-item 180 :flags (start-dead launch-asap) :binding 181)
     (sp-item 180 :flags (start-dead launch-asap) :binding 181)
-    (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 60.0) :flags (start-dead))
-    (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 70.0) :flags (start-dead))
-    (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 90.0) :flags (start-dead))
-    (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-    (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-    (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-    (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-    (sp-item 182 :fade-after (meters 140.0) :falloff-to (meters 140.0))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 70) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 182 :fade-after (meters 140) :falloff-to (meters 140))
     (sp-item 183)
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 20480.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 53)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-vent-yellow-inactive"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 182 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-    (sp-item 183)
-    )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 20480.0)
-   )
+(defpartgroup group-part-vent-yellow-inactive
+  :id 53
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 182 :fade-after (meters 140) :falloff-to (meters 140)) (sp-item 183))
   )
 
-(set!
-  (-> *part-id-table* 183)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 183
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.6 0.6 1.0)
     (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.9) (meters 1.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1382,21 +1066,16 @@
     (sp-flt spt-fade-a -0.10666667)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 182)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 182
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1409,19 +1088,14 @@
     (sp-flt spt-fade-a -0.21333334)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 178)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 178
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 1.5) 1.0)
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-a 1.0)
@@ -1430,22 +1104,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 179)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 179
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z 819.2 819.2 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters 0.2) (meters 0.2) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1456,22 +1125,17 @@
     (sp-flt spt-fade-a -0.34133333)
     (sp-int spt-timer 375)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 180)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 180
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 819.2)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.2))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1482,17 +1146,12 @@
     (sp-flt spt-fade-a -0.34133333)
     (sp-int spt-timer 375)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 181)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 181
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.5 2.0 1.0)
     (sp-flt spt-y (meters -0.05))
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
@@ -1515,32 +1174,19 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 0.05))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 190)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-r 0.0)
-    (sp-end)
-    )
-   )
+(defpart 190
+  :init-specs
+  ((sp-flt spt-fade-r 0.0))
   )
 
-(set!
-  (-> *part-group-id-table* 56)
-  (new 'static 'sparticle-launch-group
-   :length 19
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-eco-yellow"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 19
-    (sp-item 191 :flags (launch-asap) :binding 192)
+(defpartgroup group-eco-yellow
+  :id 56
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 191 :flags (launch-asap) :binding 192)
     (sp-item 192 :flags (start-dead launch-asap) :binding 193)
     (sp-item 192 :flags (start-dead launch-asap) :binding 193)
     (sp-item 192 :flags (start-dead launch-asap) :binding 193)
@@ -1551,47 +1197,37 @@
     (sp-item 193 :flags (start-dead launch-asap) :binding 194)
     (sp-item 193 :flags (start-dead launch-asap) :binding 194)
     (sp-item 193 :flags (start-dead launch-asap) :binding 194)
-    (sp-item 194 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 195)
-    (sp-item 194 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 195)
-    (sp-item 194 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 195)
-    (sp-item 194 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 195)
-    (sp-item 195 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-    (sp-item 195 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-    (sp-item 195 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-    (sp-item 195 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
+    (sp-item 194 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 195)
+    (sp-item 194 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 195)
+    (sp-item 194 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 195)
+    (sp-item 194 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 195)
+    (sp-item 195 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 195 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 195 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 195 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 4096.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 191)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 191
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 4.0))
+    (sp-flt spt-x (meters 4))
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-func spt-func 'sparticle-track-root-prim)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 192)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 192
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 614.4 819.2 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.15) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1600,40 +1236,28 @@
     (sp-flt spt-a 16.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit3 bit7 bit14)
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 196)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 196)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-a -0.10666667)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 196
+  :init-specs
+  ((sp-flt spt-fade-a -0.10666667) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 193)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 193
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 3072.0 409.6 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.75) (meters 0.1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1641,40 +1265,28 @@
     (sp-flt spt-a 32.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 197)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 197)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-a -0.16)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 197
+  :init-specs
+  ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 194)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 194
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 491.52 122.88 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.12) (meters 0.03) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1686,17 +1298,12 @@
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 197)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 195)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 195
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1713,55 +1320,39 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 198)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 198)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-g 0.0)
-    (sp-end)
-    )
-   )
+(defpart 198
+  :init-specs
+  ((sp-flt spt-fade-g 0.0))
   )
 
-(set!
-  (-> *part-group-id-table* 57)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #x96
-   :linger-duration #x258
-   :name "group-eco-yellow-collect"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 199 :flags (launch-asap) :binding 200)
+(defpartgroup group-eco-yellow-collect
+  :id 57
+  :duration 150
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 199 :flags (launch-asap) :binding 200)
     (sp-item 200 :flags (start-dead launch-asap) :binding 201)
     (sp-item 200 :flags (start-dead launch-asap) :binding 201)
     (sp-item 200 :flags (start-dead launch-asap) :binding 201)
     (sp-item 200 :flags (start-dead launch-asap) :binding 201)
     (sp-item 200 :flags (start-dead launch-asap) :binding 201)
-    (sp-item 201 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 201 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 201 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 201 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 201 :fade-after (meters 40.0) :flags (start-dead))
+    (sp-item 201 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 201 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 201 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 201 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 201 :fade-after (meters 40) :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 199)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 199
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 4.0))
+    (sp-flt spt-scale-x (meters 4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1774,20 +1365,15 @@
     (sp-func spt-func 'part-tracker-track-root)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 148)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 200)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 200
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-rnd-flt spt-y (meters -4.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 327.68)
+    (sp-rnd-flt spt-y (meters -4) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.08))
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -1796,22 +1382,17 @@
     (sp-flt spt-a 127.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-vel-z (meters 0.08))
     (sp-flt spt-accel-z -21.845333)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 201)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 201
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1828,21 +1409,14 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 198)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 58)
-  (new 'static 'sparticle-launch-group
-   :length 18
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-eco-green"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 18
-    (sp-item 202 :flags (launch-asap) :binding 203)
+(defpartgroup group-eco-green
+  :id 58
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 202 :flags (launch-asap) :binding 203)
     (sp-item 203 :flags (start-dead launch-asap) :binding 204)
     (sp-item 203 :flags (start-dead launch-asap) :binding 204)
     (sp-item 203 :flags (start-dead launch-asap) :binding 204)
@@ -1850,29 +1424,24 @@
     (sp-item 203 :flags (start-dead launch-asap) :binding 204)
     (sp-item 203 :flags (start-dead launch-asap) :binding 204)
     (sp-item 203 :flags (start-dead launch-asap) :binding 204)
-    (sp-item 204 :fade-after (meters 90.0) :flags (start-dead launch-asap) :binding 205)
-    (sp-item 204 :fade-after (meters 90.0) :flags (start-dead launch-asap) :binding 205)
-    (sp-item 204 :fade-after (meters 90.0) :flags (start-dead launch-asap) :binding 205)
-    (sp-item 204 :fade-after (meters 90.0) :flags (start-dead launch-asap) :binding 205)
-    (sp-item 204 :fade-after (meters 90.0) :flags (start-dead launch-asap) :binding 205)
-    (sp-item 205 :fade-after (meters 40.0) :falloff-to (meters 60.0) :flags (start-dead))
-    (sp-item 205 :fade-after (meters 40.0) :falloff-to (meters 60.0) :flags (start-dead))
-    (sp-item 205 :fade-after (meters 40.0) :falloff-to (meters 60.0) :flags (start-dead))
-    (sp-item 205 :fade-after (meters 40.0) :falloff-to (meters 60.0) :flags (start-dead))
-    (sp-item 205 :fade-after (meters 40.0) :falloff-to (meters 60.0) :flags (start-dead))
+    (sp-item 204 :fade-after (meters 90) :flags (start-dead launch-asap) :binding 205)
+    (sp-item 204 :fade-after (meters 90) :flags (start-dead launch-asap) :binding 205)
+    (sp-item 204 :fade-after (meters 90) :flags (start-dead launch-asap) :binding 205)
+    (sp-item 204 :fade-after (meters 90) :flags (start-dead launch-asap) :binding 205)
+    (sp-item 204 :fade-after (meters 90) :flags (start-dead launch-asap) :binding 205)
+    (sp-item 205 :fade-after (meters 40) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 205 :fade-after (meters 40) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 205 :fade-after (meters 40) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 205 :fade-after (meters 40) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 205 :fade-after (meters 40) :falloff-to (meters 60) :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 4096.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 202)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 202
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 4.0))
+    (sp-flt spt-x (meters 4))
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1881,21 +1450,16 @@
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-func spt-func 'sparticle-track-root-prim)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 203)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 203
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 1228.8 1024.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.3) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 32.0 92.0 1.0)
@@ -1903,40 +1467,28 @@
     (sp-flt spt-a 24.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit3 bit7 bit14)
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 206)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 206)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-a -0.16)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 206
+  :init-specs
+  ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 204)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 204
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 1228.8)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.3))
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 64.0 1.0)
@@ -1944,36 +1496,24 @@
     (sp-flt spt-a 64.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.0148148155) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 207)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 207)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-a -0.42666668)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 207
+  :init-specs
+  ((sp-flt spt-fade-a -0.42666668) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 205)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 205
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.25)
     (sp-flt spt-y (meters -0.05))
     (sp-flt spt-scale-x (meters 0.3))
@@ -1990,50 +1530,32 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 90)
     (sp-launcher-by-id spt-next-launcher 208)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 208)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-r 0.0)
-    (sp-end)
-    )
-   )
+(defpart 208
+  :init-specs
+  ((sp-flt spt-fade-r 0.0))
   )
 
-(set!
-  (-> *part-group-id-table* 59)
-  (new 'static 'sparticle-launch-group
-   :length 8
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-eco-green-pill"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 8
-    (sp-item 209 :flags (launch-asap) :binding 210)
+(defpartgroup group-eco-green-pill
+  :id 59
+  :bounds (static-bspherem 0 0 0 0.4)
+  :parts
+  ((sp-item 209 :flags (launch-asap) :binding 210)
     (sp-item 210 :flags (start-dead launch-asap) :binding 211)
     (sp-item 211 :flags (start-dead launch-asap) :binding 212)
     (sp-item 212 :flags (start-dead launch-asap) :binding 213)
     (sp-item 212 :flags (start-dead launch-asap))
     (sp-item 212 :flags (start-dead launch-asap))
     (sp-item 212 :flags (start-dead launch-asap))
-    (sp-item 213 :fade-after (meters 40.0) :flags (start-dead))
+    (sp-item 213 :fade-after (meters 40) :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 1638.4)
-   )
   )
 
-(set!
-  (-> *part-id-table* 209)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 11
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 209
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
@@ -2043,20 +1565,15 @@
     (sp-func spt-func 'eco-track-root-prim-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 214)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 210)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 210
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 819.2 409.6 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.2) (meters 0.1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2066,39 +1583,27 @@
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.026666667) 1.0)
     (sp-flt spt-vel-y (meters 0.0014814815))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-func spt-func 'eco-track-root-prim-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 214)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 214)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-a -0.16)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 214
+  :init-specs
+  ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 211)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 211
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 3.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 0.0 819.2 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 0.2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2107,28 +1612,23 @@
     (sp-flt spt-a 24.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-func spt-func 'eco-track-root-prim-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 214)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 212)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 212
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 327.68)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.08))
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.05) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2136,37 +1636,24 @@
     (sp-flt spt-a 127.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-flt spt-vel-x (meters 0.10666667))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-func spt-func 'eco-fadeout)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 215)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 215)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-a -0.8466667)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 215
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-a -0.8466667) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 213)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 213
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.25)
     (sp-flt spt-y (meters -0.05))
     (sp-flt spt-scale-x (meters 0.15))
@@ -2183,69 +1670,54 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 90)
     (sp-launcher-by-id spt-next-launcher 208)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 60)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #x96
-   :linger-duration #x258
-   :name "group-eco-green-pill-collect"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 216 :flags (launch-asap) :binding 217)
+(defpartgroup group-eco-green-pill-collect
+  :id 60
+  :duration 150
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 216 :flags (launch-asap) :binding 217)
     (sp-item 217 :flags (start-dead launch-asap) :binding 218)
     (sp-item 217 :flags (start-dead launch-asap) :binding 218)
     (sp-item 217 :flags (start-dead launch-asap) :binding 218)
     (sp-item 217 :flags (start-dead launch-asap) :binding 218)
     (sp-item 217 :flags (start-dead launch-asap) :binding 218)
-    (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 61)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #x96
-   :linger-duration #x258
-   :name "group-eco-green-collect"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 216 :flags (launch-asap) :binding 219)
+(defpartgroup group-eco-green-collect
+  :id 61
+  :duration 150
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 216 :flags (launch-asap) :binding 219)
     (sp-item 219 :flags (start-dead launch-asap) :binding 218)
     (sp-item 219 :flags (start-dead launch-asap) :binding 218)
     (sp-item 219 :flags (start-dead launch-asap) :binding 218)
     (sp-item 219 :flags (start-dead launch-asap) :binding 218)
     (sp-item 219 :flags (start-dead launch-asap) :binding 218)
-    (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 216)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 216
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 4.0))
+    (sp-flt spt-scale-x (meters 4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 32.0 92.0 1.0)
@@ -2257,34 +1729,24 @@
     (sp-func spt-func 'part-tracker-track-root)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 148)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 148)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-scale-x (meters 0.1))
+(defpart 148
+  :init-specs
+  ((sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-a 0.0)
     (sp-flt spt-fade-a 0.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 219)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 219
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-rnd-flt spt-y (meters -4.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 327.68)
+    (sp-rnd-flt spt-y (meters -4) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.08))
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2292,25 +1754,20 @@
     (sp-flt spt-a 127.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-vel-z (meters 0.08))
     (sp-flt spt-accel-z -21.845333)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 217)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 217
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters -4.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 327.68)
+    (sp-rnd-flt spt-y (meters -4) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.08))
     (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.05) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2318,22 +1775,17 @@
     (sp-flt spt-a 127.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-vel-z (meters 0.04))
     (sp-flt spt-accel-z -10.922667)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 220)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 220
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters -0.05))
     (sp-flt spt-scale-x (meters 0.3))
@@ -2350,17 +1802,12 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 90)
     (sp-launcher-by-id spt-next-launcher 221)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 218)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 218
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters -0.05))
     (sp-flt spt-scale-x (meters 0.2))
@@ -2377,69 +1824,56 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 90)
     (sp-launcher-by-id spt-next-launcher 221)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 62)
-  (new 'static 'sparticle-launch-group
-   :length 33
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-vent-green-active"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 33
-    (sp-item 222 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 48 :length 5 :binding 223)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-    (sp-item 225 :fade-after (meters 100.0))
+(defpartgroup group-part-vent-green-active
+  :id 62
+  :bounds (static-bspherem 0 5 0 5)
+  :parts
+  ((sp-item 222 :fade-after (meters 80) :falloff-to (meters 80) :period 48 :length 5 :binding 223)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 225 :fade-after (meters 100))
     (sp-item 226)
     )
-   :bounds
-   (new 'static 'sphere :y 20480.0 :w 20480.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 226)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 226
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.6 0.6 1.0)
     (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.9) (meters 1.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2452,21 +1886,16 @@
     (sp-flt spt-fade-a -0.10666667)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 225)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 225
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2479,39 +1908,29 @@
     (sp-flt spt-fade-a -0.21333334)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 222)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 10
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 222
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
     (sp-int spt-timer 750)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 223)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 223
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 819.2 2457.6 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.2) (meters 0.6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2520,37 +1939,24 @@
     (sp-flt spt-a 127.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.053333335) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-r -0.2)
     (sp-int-plain-rnd spt-timer 600 149 1)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-int-plain-rnd spt-next-time 450 149 1)
     (sp-launcher-by-id spt-next-launcher 227)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 227)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-a -0.8466667)
-    (sp-int spt-timer 150)
-    (sp-end)
-    )
-   )
+(defpart 227
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-a -0.8466667) (sp-int spt-timer 150))
   )
 
-(set!
-  (-> *part-id-table* 224)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 224
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.2))
     (sp-copy-from-other spt-scale-y -4)
@@ -2566,36 +1972,23 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 90)
     (sp-launcher-by-id spt-next-launcher 208)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 63)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-fuel-cell-starburst"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 228 :fade-after (meters 35.0))
-    (sp-item 229 :fade-after (meters 20.0))
+(defpartgroup group-fuel-cell-starburst
+  :id 63
+  :bounds (static-bspherem 0 0.5 0 1.5)
+  :parts
+  ((sp-item 228 :fade-after (meters 35))
+    (sp-item 229 :fade-after (meters 20))
     (sp-item 230 :flags (bit1 launch-asap))
     (sp-item 231 :flags (bit1 launch-asap))
     )
-   :bounds
-   (new 'static 'sphere :y 2048.0 :w 6144.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 228)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 228
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 0.5)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-int spt-rot-x 4)
@@ -2614,30 +2007,19 @@
     (sp-func spt-func 'sparticle-track-root-prim)
     (sp-int spt-next-time 90)
     (sp-launcher-by-id spt-next-launcher 232)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 232)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.53333336)
-    (sp-end)
-    )
-   )
+(defpart 232
+  :init-specs
+  ((sp-flt spt-fade-a -0.53333336))
   )
 
-(set!
-  (-> *part-id-table* 229)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 229
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-scale-y (meters 0.2))
@@ -2653,21 +2035,16 @@
     (sp-func spt-func 'sparticle-track-root-prim)
     (sp-int spt-next-time 75)
     (sp-launcher-by-id spt-next-launcher 232)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 230)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 230
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 3.5))
     (sp-flt spt-rot-z (degrees 0.0))
-    (sp-flt spt-scale-y (meters 3.0))
+    (sp-flt spt-scale-y (meters 3))
     (sp-flt spt-r 192.0)
     (sp-flt spt-g 192.0)
     (sp-rnd-flt spt-b 0.0 128.0 1.0)
@@ -2676,19 +2053,14 @@
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-func spt-func 'sparticle-track-root-prim)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 231)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 231
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 4.0))
+    (sp-flt spt-scale-x (meters 4))
     (sp-flt spt-rot-z (degrees 0.0))
     (sp-flt spt-scale-y (meters 3.5))
     (sp-flt spt-r 128.0)
@@ -2699,33 +2071,26 @@
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-func spt-func 'sparticle-track-root-prim)
-    (sp-end)
     )
-   )
   )
 
-(defun
-  sparticle-track-root-money
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun sparticle-track-root-money ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (let ((v1-1 (-> arg1 key proc)))
-   (when (!= (-> v1-1 type) hud-money)
-    (let ((v1-3 (-> (the-as process-drawable v1-1) root trans)))
-     (set! (-> arg2 x) (-> v1-3 x))
-     (set! (-> arg2 y) (+ 2048.0 (-> v1-3 y)))
-     (set! (-> arg2 z) (-> v1-3 z))
-     )
+    (when (!= (-> v1-1 type) hud-money)
+      (let ((v1-3 (-> (the-as process-drawable v1-1) root trans)))
+        (set! (-> arg2 x) (-> v1-3 x))
+        (set! (-> arg2 y) (+ 2048.0 (-> v1-3 y)))
+        (set! (-> arg2 z) (-> v1-3 z))
+        )
+      )
     )
-   )
   0
   (none)
   )
 
-(set!
-  (-> *part-id-table* 233)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 233
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 0.5)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-int spt-rot-x 4)
@@ -2743,30 +2108,19 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 90)
     (sp-launcher-by-id spt-next-launcher 234)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 234)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.53333336)
-    (sp-end)
-    )
-   )
+(defpart 234
+  :init-specs
+  ((sp-flt spt-fade-a -0.53333336))
   )
 
-(set!
-  (-> *part-id-table* 235)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 235
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-scale-y (meters 0.2))
@@ -2781,21 +2135,16 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 75)
     (sp-launcher-by-id spt-next-launcher 234)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 236)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 236
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 2.5))
     (sp-flt spt-rot-z (degrees 0.0))
-    (sp-flt spt-scale-y (meters 2.0))
+    (sp-flt spt-scale-y (meters 2))
     (sp-flt spt-r 192.0)
     (sp-flt spt-g 192.0)
     (sp-rnd-flt spt-b 0.0 128.0 1.0)
@@ -2804,19 +2153,14 @@
     (sp-int spt-timer 3600)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-func spt-func 'sparticle-track-root-money)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 237)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 237
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 3.0))
+    (sp-flt spt-scale-x (meters 3))
     (sp-flt spt-rot-z (degrees 0.0))
     (sp-flt spt-scale-y (meters 2.5))
     (sp-flt spt-r 192.0)
@@ -2827,47 +2171,21 @@
     (sp-int spt-timer 3600)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-func spt-func 'sparticle-track-root-money)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 64)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-money-starburst"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1 (sp-item 238))
-   :bounds
-   (new 'static 'sphere :y 2048.0 :w 6144.0)
-   )
+(defpartgroup group-money-starburst :id 64 :bounds (static-bspherem 0 0.5 0 1.5) :parts ((sp-item 238)))
+
+(defpartgroup group-buzzer-effect
+  :id 65
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 239 :flags (is-3d)) (sp-item 240 :flags (is-3d)))
   )
 
-(set!
-  (-> *part-group-id-table* 65)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-buzzer-effect"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 239 :flags (is-3d))
-    (sp-item 240 :flags (is-3d))
-    )
-   :bounds (new 'static 'sphere :w 4096.0)
-   )
-  )
-
-(set!
-  (-> *part-id-table* 239)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1a :page #x2))
+(defpart 239
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1a :page #x2))
     (sp-flt spt-num 2.0)
     (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
     (sp-rnd-flt spt-rot-x 0.0 12743.111 1.0)
@@ -2882,17 +2200,12 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -180.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-launchrot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 240)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1a :page #x2))
+(defpart 240
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1a :page #x2))
     (sp-flt spt-num 2.0)
     (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
     (sp-rnd-flt spt-rot-x 20024.889 12743.111 1.0)
@@ -2907,40 +2220,27 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -180.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-launchrot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 66)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #x5
-   :linger-duration #x4b0
-   :flags (sp-group-flag use-local-clock)
-   :name "group-green-collect"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 241)
-    (sp-item 242)
-    (sp-item 243)
-    )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
+(defpartgroup group-green-collect
+  :id 66
+  :duration 5
+  :linger-duration 1200
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 241) (sp-item 242) (sp-item 243))
   )
 
-(set!
-  (-> *part-id-table* 241)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 241
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 16.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-r 32.0 92.0 1.0)
     (sp-rnd-flt spt-g 128.0 128.0 1.0)
     (sp-flt spt-b 0.0)
@@ -2954,19 +2254,14 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int-plain-rnd spt-next-time 5 19 1)
     (sp-launcher-by-id spt-next-launcher 244)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 242)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 242
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 2) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-scale-y (meters 0.5))
@@ -2982,19 +2277,14 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int-plain-rnd spt-next-time 5 19 1)
     (sp-launcher-by-id spt-next-launcher 244)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 243)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 243
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 6.0))
+    (sp-flt spt-scale-x (meters 6))
     (sp-flt spt-rot-z (degrees 0.0))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 32.0 92.0 1.0)
@@ -3010,40 +2300,27 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int spt-next-time 60)
     (sp-launcher-by-id spt-next-launcher 245)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 67)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #x5
-   :linger-duration #x4b0
-   :flags (sp-group-flag use-local-clock)
-   :name "group-blue-collect"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 246)
-    (sp-item 247)
-    (sp-item 248)
-    )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
+(defpartgroup group-blue-collect
+  :id 67
+  :duration 5
+  :linger-duration 1200
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 246) (sp-item 247) (sp-item 248))
   )
 
-(set!
-  (-> *part-id-table* 246)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 246
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 16.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
     (sp-rnd-flt spt-g 60.0 20.0 1.0)
     (sp-rnd-flt spt-b 128.0 64.0 1.0)
@@ -3057,19 +2334,14 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int-plain-rnd spt-next-time 5 19 1)
     (sp-launcher-by-id spt-next-launcher 244)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 247)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 247
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 2) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-scale-y (meters 0.5))
@@ -3085,19 +2357,14 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int-plain-rnd spt-next-time 5 19 1)
     (sp-launcher-by-id spt-next-launcher 244)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 248)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 248
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 6.0))
+    (sp-flt spt-scale-x (meters 6))
     (sp-flt spt-rot-z (degrees 0.0))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
@@ -3113,40 +2380,27 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int spt-next-time 60)
     (sp-launcher-by-id spt-next-launcher 245)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 68)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #x5
-   :linger-duration #x4b0
-   :flags (sp-group-flag use-local-clock)
-   :name "group-yellow-collect"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 249)
-    (sp-item 250)
-    (sp-item 251)
-    )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
+(defpartgroup group-yellow-collect
+  :id 68
+  :duration 5
+  :linger-duration 1200
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 249) (sp-item 250) (sp-item 251))
   )
 
-(set!
-  (-> *part-id-table* 249)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 249
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 16.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
     (sp-rnd-flt spt-g 64.0 192.0 1.0)
     (sp-flt spt-b 0.0)
@@ -3160,30 +2414,19 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int-plain-rnd spt-next-time 5 19 1)
     (sp-launcher-by-id spt-next-launcher 244)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 244)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.15238096)
-    (sp-end)
-    )
-   )
+(defpart 244
+  :init-specs
+  ((sp-flt spt-fade-a -0.15238096))
   )
 
-(set!
-  (-> *part-id-table* 250)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 250
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 2) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-scale-y (meters 0.5))
@@ -3199,19 +2442,14 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int-plain-rnd spt-next-time 5 19 1)
     (sp-launcher-by-id spt-next-launcher 244)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 251)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 251
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 6.0))
+    (sp-flt spt-scale-x (meters 6))
     (sp-flt spt-rot-z (degrees 0.0))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -3227,52 +2465,32 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int spt-next-time 60)
     (sp-launcher-by-id spt-next-launcher 245)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 245)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-scalevel-x (meters -0.025))
-    (sp-copy-from-other spt-scalevel-y -4)
-    (sp-end)
-    )
-   )
+(defpart 245
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters -0.025)) (sp-copy-from-other spt-scalevel-y -4))
   )
 
-(set!
-  (-> *part-group-id-table* 69)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #x5
-   :linger-duration #x4b0
-   :flags (sp-group-flag use-local-clock)
-   :name "group-red-collect"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 252)
-    (sp-item 253)
-    (sp-item 254)
-    )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
+(defpartgroup group-red-collect
+  :id 69
+  :duration 5
+  :linger-duration 1200
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 252) (sp-item 253) (sp-item 254))
   )
 
-(set!
-  (-> *part-id-table* 252)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 252
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 16.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
     (sp-rnd-flt spt-g 0.0 64.0 1.0)
     (sp-flt spt-b 0.0)
@@ -3286,19 +2504,14 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int-plain-rnd spt-next-time 5 19 1)
     (sp-launcher-by-id spt-next-launcher 244)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 253)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 253
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 2) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-scale-y (meters 0.5))
@@ -3314,19 +2527,14 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int-plain-rnd spt-next-time 5 19 1)
     (sp-launcher-by-id spt-next-launcher 244)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 254)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 254
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 6.0))
+    (sp-flt spt-scale-x (meters 6))
     (sp-flt spt-rot-z (degrees 0.0))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -3342,9 +2550,7 @@
     (sp-func spt-func 'sparticle-track-root)
     (sp-int spt-next-time 60)
     (sp-launcher-by-id spt-next-launcher 245)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/engine/game/crates.gc b/goal_src/engine/game/crates.gc
index 81a5842c8d..7433f92bba 100644
--- a/goal_src/engine/game/crates.gc
+++ b/goal_src/engine/game/crates.gc
@@ -118,479 +118,402 @@
   (rider-post)
   )
 
-(set! (-> *part-id-table* 281) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-flt spt-accel-y 2.7306666)
-                                   (sp-int spt-timer 120)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 30 59 1)
-                                   (sp-launcher-by-id spt-next-launcher 282)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 281
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-flt spt-accel-y 2.7306666)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int-plain-rnd spt-next-time 30 59 1)
+    (sp-launcher-by-id spt-next-launcher 282)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 282)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 282
+  :init-specs
+  ((sp-flt spt-fade-a -1.0666667))
+  )
 
-(set! (-> *part-id-table* 283) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-flt spt-scale-x (meters 6.0))
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1.0) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 30)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 284)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 283
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-flt spt-y (meters 0.75))
+    (sp-flt spt-scale-x (meters 6))
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1) 1.0)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 2.1333334)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 15)
+    (sp-launcher-by-id spt-next-launcher 284)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 284)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.1333334) (sp-end))
-        )
-      )
+(defpart 284
+  :init-specs
+  ((sp-flt spt-fade-a -2.1333334))
+  )
 
-(set! (-> *part-id-table* 285) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-flt spt-scale-x (meters 8.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 28.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 285
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 8))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 28.0)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 286) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
-                                   (sp-flt spt-num 5.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.3))
-                                   (sp-flt spt-r 160.0)
-                                   (sp-flt spt-g 160.0)
-                                   (sp-flt spt-b 160.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-rotvel-x (degrees 1.2))
-                                   (sp-flt spt-rotvel-y (degrees 2.4))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
-                                   (sp-flt spt-accel-y -13.653334)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 287)
-                                   (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 286
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
+    (sp-flt spt-num 5.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.3))
+    (sp-flt spt-r 160.0)
+    (sp-flt spt-g 160.0)
+    (sp-flt spt-b 160.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+    (sp-flt spt-rotvel-x (degrees 1.2))
+    (sp-flt spt-rotvel-y (degrees 2.4))
+    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
+    (sp-flt spt-accel-y -13.653334)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 287)
+    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 287)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -3.4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 287
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters -0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -3.4)
+    )
+  )
 
-(set! (-> *part-id-table* 288) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
-                                   (sp-flt spt-num 4.5)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.3))
-                                   (sp-flt spt-r 100.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 100.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-rotvel-x (degrees 1.2))
-                                   (sp-flt spt-rotvel-y (degrees 2.4))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
-                                   (sp-flt spt-accel-y -13.653334)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 287)
-                                   (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 288
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
+    (sp-flt spt-num 4.5)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.3))
+    (sp-flt spt-r 100.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 100.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+    (sp-flt spt-rotvel-x (degrees 1.2))
+    (sp-flt spt-rotvel-y (degrees 2.4))
+    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
+    (sp-flt spt-accel-y -13.653334)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 287)
+    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 71) (new 'static 'sparticle-launch-group
-                                      :length 5
-                                      :duration #x5
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag use-local-clock)
-                                      :name "group-crate-explode"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 5
-                                        (sp-item 281)
-                                        (sp-item 283)
-                                        (sp-item 285)
-                                        (sp-item 286)
-                                        (sp-item 288)
-                                        )
-                                      :bounds (new 'static 'sphere :w 49152.0)
-                                      )
-      )
+(defpartgroup group-crate-explode
+  :id 71
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 281) (sp-item 283) (sp-item 285) (sp-item 286) (sp-item 288))
+  )
 
-(set! (-> *part-group-id-table* 72) (new 'static 'sparticle-launch-group
-                                      :length 6
-                                      :duration #x5
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag use-local-clock)
-                                      :name "group-crate-steel-explode"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 6
-                                        (sp-item 281)
-                                        (sp-item 283)
-                                        (sp-item 285)
-                                        (sp-item 288)
-                                        (sp-item 288)
-                                        (sp-item 288)
-                                        )
-                                      :bounds (new 'static 'sphere :w 49152.0)
-                                      )
-      )
+(defpartgroup group-crate-steel-explode
+  :id 72
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 281) (sp-item 283) (sp-item 285) (sp-item 288) (sp-item 288) (sp-item 288))
+  )
 
-(set! (-> *part-group-id-table* 73)
-      (new 'static 'sparticle-launch-group
-        :length 38
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-eco-box-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 38
-          (sp-item 295 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 292 :fade-after (meters 160.0) :period 600 :length 5)
-          (sp-item 2095 :period 600 :length 5)
-          (sp-item 2096 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
-          (sp-item 2097 :period 600 :length 20)
-          (sp-item 2098 :fade-after (meters 120.0) :falloff-to (meters 120.0) :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-dark-eco-box-explosion
+  :id 73
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 295 :fade-after (meters 100) :period 600 :length 5 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 292 :fade-after (meters 160) :period 600 :length 5)
+    (sp-item 2095 :period 600 :length 5)
+    (sp-item 2096 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
+    (sp-item 2097 :period 600 :length 20)
+    (sp-item 2098 :fade-after (meters 120) :falloff-to (meters 120) :period 600 :length 20)
+    )
+  )
 
-(set! (-> *part-id-table* 2096) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2099)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2096
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0016666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 29 1)
+    (sp-launcher-by-id spt-next-launcher 2099)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2099)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2099
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
+  )
 
-(set! (-> *part-id-table* 2098) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-flt spt-scale-x (meters 0.2))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 8.0))
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.42666668))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2098
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 8))
+    (sp-rnd-flt spt-r 64.0 192.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 0.42666668))
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2095) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -1.7454545)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2095
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 16))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 192.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-fade-a -1.7454545)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2097) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2097
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 295) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-accel-y -1.3653333)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 295
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 240)
+    (sp-cpuinfo-flags bit3 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 296) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 1228.8 1228.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.000909091))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.26666668)
-                                   (sp-flt spt-fade-a -0.19393939)
-                                   (sp-int-plain-rnd spt-timer 90 149 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 296
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.3) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.000909091))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.26666668)
+    (sp-flt spt-fade-a -0.19393939)
+    (sp-int-plain-rnd spt-timer 90 149 1)
+    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 297) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0006190476))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.01904762)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 240)
-                                   (sp-launcher-by-id spt-next-launcher 198)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 297
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0006190476))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.01904762)
+    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+    (sp-int-plain-rnd spt-timer 30 299 1)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 240)
+    (sp-launcher-by-id spt-next-launcher 198)
+    )
+  )
 
-(set! (-> *part-id-table* 292) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
-                                   (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.3))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-rnd-int spt-g 1115684864 1 32.0)
-                                   (sp-flt spt-b 32.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-rotvel-x (degrees 1.2))
-                                   (sp-flt spt-rotvel-y (degrees 2.4))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
-                                   (sp-flt spt-accel-y -13.653334)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 301)
-                                   (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 292
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.3))
+    (sp-flt spt-r 128.0)
+    (sp-rnd-int spt-g 1115684864 1 32.0)
+    (sp-flt spt-b 32.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+    (sp-flt spt-rotvel-x (degrees 1.2))
+    (sp-flt spt-rotvel-y (degrees 2.4))
+    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
+    (sp-flt spt-accel-y -13.653334)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 301)
+    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 301)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -3.4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 301
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters -0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -3.4)
+    )
+  )
 
 (defbehavior crate-standard-event-handler crate ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
   (case arg2
@@ -1402,43 +1325,39 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 74) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x1c2
-                                      :name "group-buzzer-crate"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 302))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
+(defpartgroup group-buzzer-crate
+  :id 74
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 302))
+  )
 
-(set! (-> *part-id-table* 302)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 302
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (deftype crate-buzzer (crate)
   ()
diff --git a/goal_src/engine/game/effect-control-h.gc b/goal_src/engine/game/effect-control-h.gc
index 56290453a2..8090e99333 100644
--- a/goal_src/engine/game/effect-control-h.gc
+++ b/goal_src/engine/game/effect-control-h.gc
@@ -7,23 +7,23 @@
 
 (define-extern effect-param->sound-spec (function sound-spec (pointer float) int sound-spec))
 
-;; decomp begins
+;; DECOMP BEGINS
 
 (deftype effect-control (basic)
-  ((process          process-drawable   :offset-assert 4)
-   (flags            uint32  :offset-assert 8)
-   (last-frame-group art-joint-anim   :offset-assert 12)
-   (last-frame-num   float   :offset-assert 16)
-   (channel-offset   int32   :offset-assert 20)
-   (res              res-lump   :offset-assert 24)
-   (name             (pointer res-tag)  :offset-assert 28)
-   (param            uint32  :offset-assert 32)
+  ((process          process-drawable   :offset-assert   4)
+   (flags            uint32             :offset-assert   8)
+   (last-frame-group art-joint-anim     :offset-assert  12)
+   (last-frame-num   float              :offset-assert  16)
+   (channel-offset   int32              :offset-assert  20)
+   (res              res-lump           :offset-assert  24)
+   (name             (pointer res-tag)  :offset-assert  28)
+   (param            uint32             :offset-assert  32)
    )
   :method-count-assert 15
   :size-assert         #x24
   :flag-assert         #xf00000024
   (:methods
-    (new (symbol type process-drawable) _type_)
+    (new (symbol type process-drawable) _type_ 0)
     (TODO-RENAME-9 (_type_) none 9)
     (dummy-10 (_type_ symbol float int) object 10)
     (dummy-11 (_type_ symbol basic int basic int) none 11)
@@ -33,10 +33,10 @@
     )
   )
 
+
 (defmethod new effect-control ((allocation symbol) (type-to-make type) (arg0 process-drawable))
   (cond
-    ;; for some reason, we check if we have an effect-name struct.
-    ((res-lump-struct (the res-lump (-> arg0 draw jgeo extra)) 'effect-name object)
+    ((res-lump-struct (-> arg0 draw jgeo extra) 'effect-name structure)
      (let ((v0-1 (object-new allocation type-to-make (the-as int (-> type-to-make size)))))
        (set! (-> v0-1 process) arg0)
        (set! (-> v0-1 last-frame-group) #f)
@@ -44,14 +44,13 @@
        )
      )
     (else
-     (the-as effect-control #f)
-     )
+      (the-as effect-control #f)
+      )
     )
   )
 
-;; definition for method 13 of type effect-control
-;; INFO: Return type mismatch int vs none.
 (defmethod set-channel-offset! effect-control ((obj effect-control) (arg0 int))
   (set! (-> obj channel-offset) arg0)
+  0
   (none)
   )
diff --git a/goal_src/engine/game/effect-control.gc b/goal_src/engine/game/effect-control.gc
index 47c5fabc35..965ba4461b 100644
--- a/goal_src/engine/game/effect-control.gc
+++ b/goal_src/engine/game/effect-control.gc
@@ -17,1365 +17,1176 @@
         (a1-1 "~S-~S~S")
         (v1-1 (shr (shl arg1 52) 58))
         )
-   (gp-0 a0-2 a1-1 arg0 (cond
-                         ((= v1-1 5)
-                          "sand"
-                          )
-                         ((= v1-1 6)
-                          "wood"
-                          )
-                         ((= v1-1 13)
-                          "crwood"
-                          )
-                         ((or (= v1-1 18) (= v1-1 8))
-                          "pcmetal"
-                          )
-                         ((or (= v1-1 16) (= v1-1 21))
-                          "metal"
-                          )
-                         ((= v1-1 9)
-                          "snow"
-                          )
-                         ((= v1-1 10)
-                          "dpsnow"
-                          )
-                         ((= v1-1 14)
-                          "gravel"
-                          )
-                         ((= v1-1 15)
-                          "dirt"
-                          )
-                         ((zero? v1-1)
-                          "stone"
-                          )
-                         ((= v1-1 3)
-                          "water"
-                          )
-                         ((= v1-1 4)
-                          "tar"
-                          )
-                         ((= v1-1 17)
-                          "straw"
-                          )
-                         ((= v1-1 1)
-                          "ice"
-                          )
-                         ((= v1-1 19)
-                          "swamp"
-                          )
-                         ((= v1-1 22)
-                          "neutral"
-                          )
-                         (else
-                          "grass"
-                          )
-                         )
-    arg2
+    (gp-0
+      a0-2
+      a1-1
+      arg0
+      (cond
+        ((= v1-1 5)
+         "sand"
+         )
+        ((= v1-1 6)
+         "wood"
+         )
+        ((= v1-1 13)
+         "crwood"
+         )
+        ((or (= v1-1 18) (= v1-1 8))
+         "pcmetal"
+         )
+        ((or (= v1-1 16) (= v1-1 21))
+         "metal"
+         )
+        ((= v1-1 9)
+         "snow"
+         )
+        ((= v1-1 10)
+         "dpsnow"
+         )
+        ((= v1-1 14)
+         "gravel"
+         )
+        ((= v1-1 15)
+         "dirt"
+         )
+        ((zero? v1-1)
+         "stone"
+         )
+        ((= v1-1 3)
+         "water"
+         )
+        ((= v1-1 4)
+         "tar"
+         )
+        ((= v1-1 17)
+         "straw"
+         )
+        ((= v1-1 1)
+         "ice"
+         )
+        ((= v1-1 19)
+         "swamp"
+         )
+        ((= v1-1 22)
+         "neutral"
+         )
+        (else
+          "grass"
+          )
+        )
+      arg2
+      )
     )
-   )
   (string->sound-name *temp-string*)
   )
 
-(defun
-  effect-param->sound-spec
-  ((arg0 sound-spec) (arg1 (pointer float)) (arg2 int))
+(defun effect-param->sound-spec ((arg0 sound-spec) (arg1 (pointer float)) (arg2 int))
   (while (> arg2 0)
-   (case (the int (-> arg1 0)) 
-    ((3)
-      (logior! (-> arg0 mask) 1)
-      (set! (-> arg0 volume) (the int (* 10.24 (-> arg1 1))))
+    (case (the int (-> arg1 0))
+      ((3)
+       (logior! (-> arg0 mask) 1)
+       (set! (-> arg0 volume) (the int (* 10.24 (-> arg1 1))))
+       )
+      ((4)
+       (logior! (-> arg0 mask) 1)
+       (+! (-> arg0 volume) (the int (* 10.24 (* (-> arg1 1) (rand-vu)))))
+       )
+      ((5)
+       (logior! (-> arg0 mask) 2)
+       (set! (-> arg0 pitch-mod) (the int (* 1524.0 (-> arg1 1))))
+       )
+      ((6)
+       (logior! (-> arg0 mask) 2)
+       (+! (-> arg0 pitch-mod) (the int (* 1524.0 (* (-> arg1 1) (rand-vu)))))
+       )
+      ((9)
+       (logior! (-> arg0 mask) 4)
+       (set! (-> arg0 bend) (the int (* 327.66998 (-> arg1 1))))
+       )
+      ((10)
+       (logior! (-> arg0 mask) 4)
+       (+! (-> arg0 bend) (the int (* 327.66998 (* (-> arg1 1) (rand-vu)))))
+       )
+      ((11)
+       (logior! (-> arg0 mask) 64)
+       (set! (-> arg0 fo-min) (the int (-> arg1 1)))
+       )
+      ((12)
+       (logior! (-> arg0 mask) 128)
+       (set! (-> arg0 fo-max) (the int (-> arg1 1)))
+       )
+      ((13)
+       (logior! (-> arg0 mask) 256)
+       (set! (-> arg0 fo-curve) (the int (-> arg1 1)))
+       )
+      ((19)
+       (set! (-> arg0 priority) (the int (-> arg1 1)))
+       )
       )
-    ((4)
-     (logior! (-> arg0 mask) 1)
-     (+! (-> arg0 volume) (the int (* 10.24 (* (-> arg1 1) (rand-vu)))))
-     )
-    ((5)
-     (logior! (-> arg0 mask) 2)
-     (set! (-> arg0 pitch-mod) (the int (* 1524.0 (-> arg1 1))))
-     )
-    ((6)
-     (logior! (-> arg0 mask) 2)
-     (+! (-> arg0 pitch-mod) (the int (* 1524.0 (* (-> arg1 1) (rand-vu)))))
-     )
-    ((9)
-     (logior! (-> arg0 mask) 4)
-     (set! (-> arg0 bend) (the int (* 327.66998 (-> arg1 1))))
-     )
-    ((10)
-     (logior! (-> arg0 mask) 4)
-     (+! (-> arg0 bend) (the int (* 327.66998 (* (-> arg1 1) (rand-vu)))))
-     )
-    ((11)
-     (logior! (-> arg0 mask) 64)
-     (set! (-> arg0 fo-min) (the int (-> arg1 1)))
-     )
-    ((12)
-     (logior! (-> arg0 mask) 128)
-     (set! (-> arg0 fo-max) (the int (-> arg1 1)))
-     )
-    ((13)
-     (logior! (-> arg0 mask) 256)
-     (set! (-> arg0 fo-curve) (the int (-> arg1 1)))
-     )
-    ((19)
-     (set! (-> arg0 priority) (the int (-> arg1 1)))
-     )
+    (+! arg2 -2)
+    (set! arg1 (&-> arg1 2))
     )
-   (+! arg2 -2)
-   (set! arg1 (&-> arg1 2))
-   )
   arg0
   )
 
 (defmethod TODO-RENAME-9 effect-control ((obj effect-control))
   (let* ((a0-1 (-> obj process skel))
          (v1-3 (if (< (-> obj channel-offset) (-> a0-1 active-channels))
-                (-> a0-1 root-channel (-> obj channel-offset))
-                (the-as joint-control-channel #f)
-                )
-          )
+                   (-> a0-1 root-channel (-> obj channel-offset))
+                   (the-as joint-control-channel #f)
+                   )
+               )
          )
-   (cond
-    ((and v1-3 (-> v1-3 frame-group))
-     (let* ((s5-0 (-> v1-3 frame-group))
-            (f30-0
-             (+
-              (* (-> v1-3 frame-num) (-> s5-0 artist-step))
-              (-> s5-0 artist-base)
+    (cond
+      ((and v1-3 (-> v1-3 frame-group))
+       (let* ((s5-0 (-> v1-3 frame-group))
+              (f30-0 (+ (* (-> v1-3 frame-num) (-> s5-0 artist-step)) (-> s5-0 artist-base)))
               )
-             )
-            )
-      (let ((a0-3 (-> a0-1 root-channel 0 num-func)))
-       (cond
-        ((!= s5-0 (-> obj last-frame-group))
-         (set! (-> obj res) (-> s5-0 extra))
-         (let
-          ((v1-6
-            (->
-             (lookup-tag-idx (-> s5-0 extra) 'effect-name 'base -1000000000.0)
-             lo
-             )
-            )
-           )
-          (set! (-> obj name) (if (>= (the-as int v1-6) 0)
-                               (&-> (-> s5-0 extra tag) v1-6)
-                               (the-as (pointer res-tag) #f)
-                               )
-           )
-          )
-         (if (and (-> obj name) (= (-> obj name 0 key-frame) -1000000000.0))
-          (set! (-> obj name) (&-> (-> obj name) 1))
-          )
-         (TODO-RENAME-14 obj f30-0 f30-0 f30-0)
-         )
-        ((or (not (-> obj name)) (= f30-0 (-> obj last-frame-num)))
-         )
-        (else
-         (let ((f28-0 (-> obj last-frame-num))
-               (f26-0 f30-0)
-               )
-          (cond
-           ((= a0-3 num-func-seek!)
-            (let
-             ((f0-6
-               (+
-                (* (-> v1-3 param 0) (-> s5-0 artist-step))
-                (-> s5-0 artist-base)
+         (let ((a0-3 (-> a0-1 root-channel 0 num-func)))
+           (cond
+             ((!= s5-0 (-> obj last-frame-group))
+              (set! (-> obj res) (-> s5-0 extra))
+              (let ((v1-6 (-> (lookup-tag-idx (-> s5-0 extra) 'effect-name 'base -1000000000.0) lo)))
+                (set! (-> obj name) (if (>= (the-as int v1-6) 0)
+                                        (&-> (-> s5-0 extra tag) v1-6)
+                                        (the-as (pointer res-tag) #f)
+                                        )
+                      )
                 )
-               )
+              (if (and (-> obj name) (= (-> obj name 0 key-frame) -1000000000.0))
+                  (set! (-> obj name) (&-> (-> obj name) 1))
+                  )
+              (TODO-RENAME-14 obj f30-0 f30-0 f30-0)
               )
-             (cond
-              ((< f26-0 f28-0)
-               (if (>= f28-0 f0-6)
-                (TODO-RENAME-14 obj f26-0 f28-0 f30-0)
-                )
-               )
-              (else
-               (if (>= f0-6 f28-0)
-                (TODO-RENAME-14 obj f28-0 f26-0 f30-0)
-                )
-               )
-              )
-             )
-            )
-           ((= a0-3 num-func-loop!)
-            (cond
-             ((>= (-> v1-3 param 0) 0.0)
-              (cond
-               ((< f26-0 f28-0)
-                (TODO-RENAME-14 obj f28-0 9999999.0 f30-0)
-                (TODO-RENAME-14 obj -100000000.0 f26-0 9999999.0)
-                )
-               (else
-                (TODO-RENAME-14 obj f28-0 f26-0 f30-0)
-                )
-               )
-              )
-             ((< f28-0 f26-0)
-              (TODO-RENAME-14 obj f26-0 9999999.0 f30-0)
-              (TODO-RENAME-14 obj -100000000.0 f28-0 9999999.0)
+             ((or (not (-> obj name)) (= f30-0 (-> obj last-frame-num)))
               )
              (else
-              (TODO-RENAME-14 obj f26-0 f28-0 f30-0)
-              )
-             )
-            )
-           ((= a0-3 num-func-+!)
-            (if (>= (-> v1-3 param 0) 0.0)
-             (TODO-RENAME-14 obj f28-0 f26-0 f30-0)
-             (TODO-RENAME-14 obj f26-0 f28-0 f30-0)
-             )
-            )
-           ((= a0-3 num-func-identity)
-            (TODO-RENAME-14 obj f30-0 f30-0 f30-0)
-            )
-           )
-          )
-         )
-        )
-       )
-      (set! (-> obj last-frame-group) s5-0)
-      (set! (-> obj last-frame-num) f30-0)
-      )
-     )
-    (else
-     (set! (-> obj last-frame-group) #f)
-     )
-    )
-   )
-  0
-  (none)
-  )
-
-(defmethod
-  TODO-RENAME-14
-  effect-control
-  ((obj effect-control) (arg0 float) (arg1 float) (arg2 float))
-  (let ((s2-0 (-> obj name)))
-   (while (= (-> s2-0 0 name) 'effect-name)
-    (let ((f0-0 (-> s2-0 0 key-frame)))
-     (when (or (and (< f0-0 arg1) (< arg0 f0-0)) (= f0-0 arg2))
-      (let* ((a0-1 obj)
-             (t9-0 (method-of-object a0-1 dummy-10))
-             (v1-7 (-> obj res))
-             (a1-1 (-> s2-0 0))
-             )
-       (t9-0
-        a0-1
-        (the-as
-         symbol
-         (->
-          (the-as
-           (pointer uint32)
-           (&+ (-> v1-7 data-base) (-> a1-1 data-offset))
-           )
-          )
-         )
-        f0-0
-        -1
-        )
-       )
-      )
-     )
-    (set! s2-0 (&-> s2-0 1))
-    )
-   )
-  0
-  (none)
-  )
-
-;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code?
-;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code?
-;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code?
-;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code?
-;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code?
-;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code?
-;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code?
-(defmethod
-  dummy-10
-  effect-control
-  ((obj effect-control) (arg0 symbol) (arg1 float) (arg2 int))
-  (local-vars
-   (sv-160 int)
-   (sv-176 symbol)
-   (sv-192 symbol)
-   (sv-208 symbol)
-   (sv-224 int)
-   (sv-240 symbol)
-   (sv-256 symbol)
-   (sv-272 symbol)
-   (sv-288 res-lump)
-   )
-  (with-pp
-   (let ((s3-0 (-> arg0 value))
-         (s5-0 (cond
-                ((< arg2 0)
-                 (let
-                  ((v0-0
-                    (get-property-value
-                     (-> obj res)
-                     'effect-joint
-                     'exact
-                     arg1
-                     (the-as uint128 0)
-                     (the-as (pointer res-tag) #f)
-                     *res-static-buf*
+               (let ((f28-0 (-> obj last-frame-num))
+                     (f26-0 f30-0)
                      )
+                 (cond
+                   ((= a0-3 num-func-seek!)
+                    (let ((f0-6 (+ (* (-> v1-3 param 0) (-> s5-0 artist-step)) (-> s5-0 artist-base))))
+                      (cond
+                        ((< f26-0 f28-0)
+                         (if (>= f28-0 f0-6)
+                             (TODO-RENAME-14 obj f26-0 f28-0 f30-0)
+                             )
+                         )
+                        (else
+                          (if (>= f0-6 f28-0)
+                              (TODO-RENAME-14 obj f28-0 f26-0 f30-0)
+                              )
+                          )
+                        )
+                      )
                     )
-                   )
-                  (if (zero? v0-0)
-                   0
-                   (the-as int (+ v0-0 1))
-                   )
-                  )
-                 )
-                (else
-                 (empty)
-                 arg2
-                 )
-                )
-          )
-         )
-    (when (logtest? (-> obj flags) 1)
-     (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
-      (set! (-> a1-2 from) pp)
-      (set! (-> a1-2 num-params) 3)
-      (set! (-> a1-2 message) 'effect)
-      (set! (-> a1-2 param 0) (the-as uint arg0))
-      (set! (-> a1-2 param 1) (the-as uint arg1))
-      (set! (-> a1-2 param 2) (the-as uint s5-0))
-      (if (send-event-function (-> obj process) a1-2)
-       (return (the-as object 0))
-       )
-      )
-     )
-    (let ((v1-10 (symbol->string arg0)))
-     (cond
-      ((and
-        (= (-> v1-10 data 0) 101)
-        (= (-> v1-10 data 1) 102)
-        (= (-> v1-10 data 2) 102)
-        (= (-> v1-10 data 3) 101)
-        (= (-> v1-10 data 4) 99)
-        (= (-> v1-10 data 5) 116)
-        (= (-> v1-10 data 6) 45)
-        )
-       (let* ((s3-1 (-> obj process root))
-              (v1-14
-               (if
-                (and
-                 (nonzero? s3-1)
-                 (type-type? (-> s3-1 type) collide-shape-moving)
-                 )
-                s3-1
-                )
-               )
-              (t1-1 (if v1-14
-                     (the-as
-                      int
-                      (-> (the-as collide-shape-moving v1-14) ground-pat)
-                      )
-                     *footstep-surface*
-                     )
-               )
-              )
-        (dummy-11 obj arg0 (the-as basic arg1) s5-0 (-> obj res) t1-1)
-        )
-       )
-      ((let ((v1-18 (symbol->string arg0)))
-        (and
-         (= (-> v1-18 data 0) 103)
-         (= (-> v1-18 data 1) 114)
-         (= (-> v1-18 data 2) 111)
-         (= (-> v1-18 data 3) 117)
-         (= (-> v1-18 data 4) 112)
-         (= (-> v1-18 data 5) 45)
-         )
-        )
-       (set! s3-0 (cond
-                   ((zero? s3-0)
-                    (let
-                     ((v0-5
-                       (lookup-part-group-pointer-by-name (symbol->string arg0))
+                   ((= a0-3 num-func-loop!)
+                    (cond
+                      ((>= (-> v1-3 param 0) 0.0)
+                       (cond
+                         ((< f26-0 f28-0)
+                          (TODO-RENAME-14 obj f28-0 9999999.0 f30-0)
+                          (TODO-RENAME-14 obj -100000000.0 f26-0 9999999.0)
+                          )
+                         (else
+                           (TODO-RENAME-14 obj f28-0 f26-0 f30-0)
+                           )
+                         )
                        )
-                      )
-                     (when v0-5
-                      (set! (-> arg0 value) v0-5)
-                      (set! s3-0 (-> v0-5 0))
-                      )
-                     )
-                    (the-as (pointer sparticle-launch-group) s3-0)
-                    )
-                   (else
-                    (-> (the-as (pointer sparticle-launch-group) s3-0) 0)
-                    )
-                   )
-        )
-       (when
-        (and
-         (nonzero? s3-0)
-         (=
-          (-> (the-as sparticle-launch-group s3-0) type)
-          sparticle-launch-group
-          )
-         )
-        (if *debug-effect-control*
-         (format
-          #t
-          "(~5D) effect group ~A ~A frame ~F joint ~D~%"
-          (-> *display* base-frame-counter)
-          (-> obj process name)
-          arg0
-          arg1
-          s5-0
-          )
-         )
-        (let ((s4-1 (get-process *default-dead-pool* part-tracker #x4000)))
-         (when s4-1
-          (let ((t9-7 (method-of-type part-tracker activate)))
-           (t9-7
-            (the-as part-tracker s4-1)
-            (-> obj process)
-            'part-tracker
-            (the-as pointer #x70004000)
-            )
-           )
-          (let ((s2-1 run-function-in-process)
-                (s1-0 s4-1)
-                (s0-0 part-tracker-init)
-                )
-           (set! sv-160 -1)
-           (set! sv-176 (the-as symbol #f))
-           (set! sv-192 (the-as symbol #f))
-           (set! sv-208 (the-as symbol #f))
-           (let
-            ((t3-0
-              (vector<-cspace!
-               (new 'stack-no-clear 'vector)
-               (-> obj process node-list data s5-0)
-               )
-              )
-             )
-            ((the-as
-              (function object object object object object object object object none)
-              s2-1
-              )
-             s1-0
-             s0-0
-             (the-as sparticle-launch-group s3-0)
-             sv-160
-             sv-176
-             sv-192
-             sv-208
-             t3-0
-             )
-            )
-           )
-          (-> s4-1 ppointer)
-          )
-         )
-        )
-       )
-      ((= arg0 'camera-shake)
-       (activate! *camera-smush-control* 819.2 37 600 1.0 0.995)
-       )
-      ((zero? s3-0)
-       (dummy-12
-        obj
-        arg0
-        (the-as basic arg1)
-        s5-0
-        (-> obj res)
-        (string->sound-name (symbol->string arg0))
-        )
-       )
-      ((= (-> (the-as basic s3-0) type) sparticle-launcher)
-       (if *debug-effect-control*
-        (format
-         #t
-         "(~5D) effect part  ~A ~A frame ~F joint ~D~%"
-         (-> *display* base-frame-counter)
-         (-> obj process name)
-         arg0
-         arg1
-         s5-0
-         )
-        )
-       (format
-        #t
-        "-----> (~5D) effect part  ~A ~A frame ~F joint ~D~%"
-        (-> *display* base-frame-counter)
-        (-> obj process name)
-        arg0
-        arg1
-        s5-0
-        )
-       (sp-launch-particles-var
-        *sp-particle-system-2d*
-        (the-as sparticle-launcher s3-0)
-        (vector<-cspace!
-         (new 'stack-no-clear 'vector)
-         (-> obj process node-list data s5-0)
-         )
-        (the-as sparticle-launch-state #f)
-        (the-as sparticle-launch-control #f)
-        1.0
-        )
-       )
-      ((= (-> (the-as basic s3-0) type) sparticle-launch-group)
-       (if *debug-effect-control*
-        (format
-         #t
-         "(~5D) effect group ~A ~A frame ~F joint ~D~%"
-         (-> *display* base-frame-counter)
-         (-> obj process name)
-         arg0
-         arg1
-         s5-0
-         )
-        )
-       (let ((s4-3 (get-process *default-dead-pool* part-tracker #x4000)))
-        (when s4-3
-         (let ((t9-19 (method-of-type part-tracker activate)))
-          (t9-19
-           (the-as part-tracker s4-3)
-           (-> obj process)
-           'part-tracker
-           (the-as pointer #x70004000)
-           )
-          )
-         (let ((s2-3 run-function-in-process)
-               (s1-2 s4-3)
-               (s0-2 part-tracker-init)
-               )
-          (set! sv-224 -1)
-          (set! sv-240 (the-as symbol #f))
-          (set! sv-256 (the-as symbol #f))
-          (set! sv-272 (the-as symbol #f))
-          (let
-           ((t3-1
-             (vector<-cspace!
-              (new 'stack-no-clear 'vector)
-              (-> obj process node-list data s5-0)
-              )
-             )
-            )
-           ((the-as
-             (function object object object object object object object object none)
-             s2-3
-             )
-            s1-2
-            s0-2
-            s3-0
-            sv-224
-            sv-240
-            sv-256
-            sv-272
-            t3-1
-            )
-           )
-          )
-         (-> s4-3 ppointer)
-         )
-        )
-       )
-      ((= (-> (the-as basic s3-0) type) sound-spec)
-       (sound-play-by-spec
-        (the-as sound-spec s3-0)
-        (new-sound-id)
-        (vector<-cspace!
-         (new 'stack-no-clear 'vector)
-         (-> obj process node-list data s5-0)
-         )
-        )
-       )
-      ((= (-> (the-as basic s3-0) type) death-info)
-       (let ((v1-67 (-> obj process draw)))
-        (let ((a1-42 (-> (the-as death-info s3-0) vertex-skip))
-              (a0-55
-               (max
-                2
-                (the-as
-                 int
-                 (/
-                  (-> (the-as death-info s3-0) timer)
-                  (the-as uint (the int (-> *display* time-factor)))
-                  )
-                 )
-                )
-               )
-              )
-         (when (= (-> *setting-control* current video-mode) 'pal)
-          (if (< (the-as uint 1) a1-42)
-           (set!
-            a1-42
-            (/ (the-as uint (* (the-as uint 50) a1-42)) (the-as uint 60))
-            )
-           )
-          )
-         (let
-          ((a2-29
-            (-> *display* frames (-> *display* last-screen) frame run-time)
-            )
-           )
-          (cond
-           ((< 9000 (the-as int a2-29))
-            (set! a1-42 (* a1-42 4))
-            )
-           ((< 7000 (the-as int a2-29))
-            (set! a1-42 (* a1-42 2))
-            )
-           )
-          )
-         (set! (-> v1-67 death-vertex-skip) a1-42)
-         (set! (-> v1-67 death-effect) (-> (the-as death-info s3-0) effect))
-         (set! (-> v1-67 death-timer) (+ a0-55 1))
-         )
-        (set! (-> v1-67 death-timer-org) (-> v1-67 death-timer))
-        (set!
-         (-> v1-67 death-draw-overlap)
-         (-> (the-as death-info s3-0) overlap)
-         )
-        )
-       (when (-> (the-as death-info s3-0) sound)
-        (let* ((s2-5 obj)
-               (s1-3 (method-of-object s2-5 dummy-12))
-               (s0-3 (-> (the-as death-info s3-0) sound))
-               )
-         (set! sv-288 (-> obj res))
-         (let
-          ((t1-11
-            (string->sound-name
-             (the-as
-              string
-              (->
-               (the-as
-                (pointer uint32)
-                (+ #xff38 (the-as int (-> (the-as death-info s3-0) sound)))
-                )
-               )
-              )
-             )
-            )
-           )
-          (s1-3 s2-5 (the-as symbol s0-3) (the-as basic arg1) s5-0 sv-288 t1-11)
-          )
-         )
-        )
-       (send-event (-> obj process) 'death-start (the-as death-info s3-0))
-       )
-      (else
-       (dummy-12
-        obj
-        arg0
-        (the-as basic arg1)
-        s5-0
-        (-> obj res)
-        (string->sound-name (symbol->string arg0))
-        )
-       )
-      )
-     )
-    )
-   0
-   )
-  )
-
-(defmethod
-  dummy-11
-  effect-control
-  ((obj effect-control)
-   (arg0 symbol)
-   (arg1 basic)
-   (arg2 int)
-   (arg3 basic)
-   (arg4 int)
-   )
-  (local-vars
-   (sv-48
-    (function sparticle-system sparticle-launcher vector sparticle-launch-state sparticle-launch-control float none)
-    )
-   (sv-64 sparticle-system)
-   (sv-80
-    (function sparticle-system sparticle-launcher vector sparticle-launch-state sparticle-launch-control float none)
-    )
-   (sv-96 sparticle-system)
-   )
-  (let ((s1-0 (the-as sound-name #f)))
-   (let ((a0-4 (-> *display* frames (-> *display* last-screen) frame run-time)))
-    (case arg0 
-     (('effect-walk-step-left 'effect-run-step-left)
-       (set! s1-0 (sound-name-with-material 'walk arg4 "1"))
-       )
-     (('effect-walk-step-right 'effect-run-step-right)
-      (set! s1-0 (sound-name-with-material 'walk arg4 "2"))
-      )
-     (('effect-roll)
-      (set! s1-0 (sound-name-with-material 'roll arg4 ""))
-      )
-     (('effect-slide)
-      (set! s1-0 (sound-name-with-material 'slide arg4 ""))
-      )
-     (('effect-land)
-      (set! s1-0 (sound-name-with-material 'land arg4 ""))
-      )
-     (('effect-zoom-land)
-      (set! s1-0 (sound-name-with-material 'zoom-land arg4 ""))
-      )
-     (('effect-zoom-hit)
-      (set! s1-0 (sound-name-with-material 'zoom-hit arg4 ""))
-      )
-     (('effect-flut-land)
-      (set! s1-0 (sound-name-with-material 'flut-land arg4 ""))
-      )
-     (('effect-land-poof)
-      (when (< (the-as int a0-4) 9000)
-       (let* ((a0-13 obj)
-              (t9-8 (method-of-object a0-13 dummy-10))
-              (v1-15 (shr (shl arg4 52) 58))
-              )
-        (t9-8 a0-13 (cond
-                     ((= v1-15 5)
-                      'group-land-poof-sand
-                      )
-                     ((= v1-15 6)
-                      'group-land-poof-wood
-                      )
-                     ((= v1-15 13)
-                      'group-land-poof-crwood
-                      )
-                     ((or (= v1-15 18) (= v1-15 8))
-                      'group-land-poof-pcmetal
-                      )
-                     ((or (= v1-15 16) (= v1-15 21))
-                      'group-land-poof-metal
-                      )
-                     ((= v1-15 1)
-                      'group-land-poof-ice
-                      )
-                     ((= v1-15 9)
-                      'group-land-poof-snow
-                      )
-                     ((= v1-15 10)
-                      'group-land-poof-dpsnow
-                      )
-                     ((= v1-15 14)
-                      'group-land-poof-gravel
-                      )
-                     ((= v1-15 15)
-                      'group-land-poof-dirt
-                      )
-                     ((zero? v1-15)
-                      'group-land-poof-stone
-                      )
-                     ((= v1-15 3)
-                      'group-land-poof-water
-                      )
-                     ((= v1-15 4)
-                      'group-land-poof-tar
-                      )
-                     ((= v1-15 17)
-                      'group-land-poof-straw
-                      )
-                     ((= v1-15 19)
-                      'group-land-poof-swamp
-                      )
-                     ((= v1-15 22)
-                      'group-land-poof-neutral
-                      )
-                     (else
-                      'group-land-poof-grass
-                      )
-                     )
-         (the-as float arg1) -1
-         )
-        )
-       )
-      )
-     (('effect-run-poof)
-      (when (< (the-as int a0-4) 9000)
-       (let* ((a0-14 obj)
-              (t9-9 (method-of-object a0-14 dummy-10))
-              (v1-20 (shr (shl arg4 52) 58))
-              )
-        (t9-9 a0-14 (cond
-                     ((= v1-20 5)
-                      'group-run-poof-sand
-                      )
-                     ((= v1-20 6)
-                      'group-run-poof-wood
-                      )
-                     ((= v1-20 13)
-                      'group-run-poof-crwood
-                      )
-                     ((or (= v1-20 18) (= v1-20 8))
-                      'group-run-poof-pcmetal
-                      )
-                     ((or (= v1-20 16) (= v1-20 21))
-                      'group-run-poof-metal
-                      )
-                     ((= v1-20 1)
-                      'group-run-poof-ice
-                      )
-                     ((= v1-20 9)
-                      'group-run-poof-snow
-                      )
-                     ((= v1-20 10)
-                      'group-run-poof-dpsnow
-                      )
-                     ((= v1-20 14)
-                      'group-run-poof-gravel
-                      )
-                     ((= v1-20 15)
-                      'group-run-poof-dirt
-                      )
-                     ((zero? v1-20)
-                      'group-run-poof-stone
-                      )
-                     ((= v1-20 3)
-                      'group-run-poof-water
-                      )
-                     ((= v1-20 4)
-                      'group-run-poof-tar
-                      )
-                     ((= v1-20 17)
-                      'group-run-poof-straw
-                      )
-                     ((= v1-20 19)
-                      'group-run-poof-swamp
-                      )
-                     ((= v1-20 22)
-                      'group-run-poof-neutral
-                      )
-                     (else
-                      'group-run-poof-grass
-                      )
-                     )
-         (the-as float arg1) -1
-         )
-        )
-       )
-      )
-     (('effect-just-footprint)
-      (let* ((a0-15 obj)
-             (t9-10 (method-of-object a0-15 dummy-10))
-             (v1-24 (shr (shl arg4 52) 58))
-             )
-       (t9-10 a0-15 (cond
-                     ((= v1-24 5)
-                      'group-just-footprint-sand
-                      )
-                     ((= v1-24 6)
-                      'group-just-footprint-wood
-                      )
-                     ((= v1-24 13)
-                      'group-just-footprint-crwood
-                      )
-                     ((or (= v1-24 18) (= v1-24 8))
-                      'group-just-footprint-pcmetal
-                      )
-                     ((or (= v1-24 16) (= v1-24 21))
-                      'group-just-footprint-metal
-                      )
-                     ((= v1-24 1)
-                      'group-just-footprint-ice
-                      )
-                     ((= v1-24 9)
-                      'group-just-footprint-snow
-                      )
-                     ((= v1-24 10)
-                      'group-just-footprint-dpsnow
-                      )
-                     ((= v1-24 14)
-                      'group-just-footprint-gravel
-                      )
-                     ((= v1-24 15)
-                      'group-just-footprint-dirt
-                      )
-                     ((zero? v1-24)
-                      'group-just-footprint-stone
-                      )
-                     ((= v1-24 3)
-                      'group-just-footprint-water
-                      )
-                     ((= v1-24 4)
-                      'group-just-footprint-tar
-                      )
-                     ((= v1-24 17)
-                      'group-just-footprint-straw
-                      )
-                     ((= v1-24 19)
-                      'group-just-footprint-swamp
-                      )
-                     ((= v1-24 22)
-                      'group-just-footprint-neutral
-                      )
-                     (else
-                      'group-just-footprint-grass
-                      )
-                     )
-        (the-as float arg1) -1
-        )
-       )
-      )
-     (('effect-just-poof)
-      (when (< (the-as int a0-4) 9000)
-       (let* ((a0-16 obj)
-              (t9-11 (method-of-object a0-16 dummy-10))
-              (v1-29 (shr (shl arg4 52) 58))
-              )
-        (t9-11 a0-16 (cond
-                      ((= v1-29 5)
-                       'group-just-poof-sand
-                       )
-                      ((= v1-29 6)
-                       'group-just-poof-wood
-                       )
-                      ((= v1-29 13)
-                       'group-just-poof-crwood
-                       )
-                      ((or (= v1-29 18) (= v1-29 8))
-                       'group-just-poof-pcmetal
-                       )
-                      ((or (= v1-29 16) (= v1-29 21))
-                       'group-just-poof-metal
-                       )
-                      ((= v1-29 1)
-                       'group-just-poof-ice
-                       )
-                      ((= v1-29 9)
-                       'group-just-poof-snow
-                       )
-                      ((= v1-29 10)
-                       'group-just-poof-dpsnow
-                       )
-                      ((= v1-29 14)
-                       'group-just-poof-gravel
-                       )
-                      ((= v1-29 15)
-                       'group-just-poof-dirt
-                       )
-                      ((zero? v1-29)
-                       'group-just-poof-stone
-                       )
-                      ((= v1-29 3)
-                       'group-just-poof-water
-                       )
-                      ((= v1-29 4)
-                       'group-just-poof-tar
-                       )
-                      ((= v1-29 17)
-                       'group-just-poof-straw
-                       )
-                      ((= v1-29 19)
-                       'group-just-poof-swamp
-                       )
-                      ((= v1-29 22)
-                       'group-just-poof-neutral
+                      ((< f28-0 f26-0)
+                       (TODO-RENAME-14 obj f26-0 9999999.0 f30-0)
+                       (TODO-RENAME-14 obj -100000000.0 f28-0 9999999.0)
                        )
                       (else
-                       'group-just-poof-grass
-                       )
+                        (TODO-RENAME-14 obj f26-0 f28-0 f30-0)
+                        )
                       )
-         (the-as float arg1) -1
-         )
-        )
-       )
-      )
-     (('effect-slide-poof)
-      (let* ((a0-19 obj)
-             (t9-12 (method-of-object a0-19 dummy-10))
-             (v1-33 (shr (shl arg4 52) 58))
-             )
-       (t9-12 a0-19 (cond
-                     ((= v1-33 5)
-                      'group-slide-poof-sand
-                      )
-                     ((= v1-33 6)
-                      'group-slide-poof-wood
-                      )
-                     ((= v1-33 13)
-                      'group-slide-poof-crwood
-                      )
-                     ((or (= v1-33 18) (= v1-33 8))
-                      'group-slide-poof-pcmetal
-                      )
-                     ((or (= v1-33 16) (= v1-33 21))
-                      'group-slide-poof-metal
-                      )
-                     ((= v1-33 1)
-                      'group-slide-poof-ice
-                      )
-                     ((= v1-33 9)
-                      'group-slide-poof-snow
-                      )
-                     ((= v1-33 10)
-                      'group-slide-poof-dpsnow
-                      )
-                     ((= v1-33 14)
-                      'group-slide-poof-gravel
-                      )
-                     ((= v1-33 15)
-                      'group-slide-poof-dirt
-                      )
-                     ((zero? v1-33)
-                      'group-slide-poof-stone
-                      )
-                     ((= v1-33 3)
-                      'group-slide-poof-water
-                      )
-                     ((= v1-33 4)
-                      'group-slide-poof-tar
-                      )
-                     ((= v1-33 17)
-                      'group-slide-poof-straw
-                      )
-                     ((= v1-33 19)
-                      'group-slide-poof-swamp
-                      )
-                     ((= v1-33 22)
-                      'group-slide-poof-neutral
-                      )
-                     (else
-                      'group-slide-poof-grass
-                      )
-                     )
-        (the-as float arg1) -1
-        )
-       )
-      )
-     (('effect-droppings)
-      (let* ((v1-36 (shr (shl arg4 52) 58))
-             (s0-0 (cond
-                    ((= v1-36 5)
-                     (-> *part-id-table* 95)
-                     )
-                    ((= v1-36 6)
-                     (-> *part-id-table* 97)
-                     )
-                    ((= v1-36 13)
-                     (-> *part-id-table* 99)
-                     )
-                    ((or (= v1-36 18) (= v1-36 8))
-                     (-> *part-id-table* 2248)
-                     )
-                    ((or (= v1-36 16) (= v1-36 21))
-                     (-> *part-id-table* 2334)
-                     )
-                    ((= v1-36 1)
-                     (-> *part-id-table* 2249)
-                     )
-                    ((= v1-36 9)
-                     (-> *part-id-table* 2250)
-                     )
-                    ((= v1-36 10)
-                     (-> *part-id-table* 2251)
-                     )
-                    ((= v1-36 14)
-                     (-> *part-id-table* 2252)
-                     )
-                    ((= v1-36 15)
-                     (-> *part-id-table* 2253)
-                     )
-                    ((zero? v1-36)
-                     (-> *part-id-table* 98)
-                     )
-                    ((= v1-36 3)
-                     (-> *part-id-table* 2254)
-                     )
-                    ((= v1-36 4)
-                     (-> *part-id-table* 2255)
-                     )
-                    ((= v1-36 17)
-                     (-> *part-id-table* 2256)
-                     )
-                    ((= v1-36 19)
-                     (-> *part-id-table* 2257)
-                     )
-                    ((= v1-36 22)
-                     (-> *part-id-table* 2773)
-                     )
-                    (else
-                     (-> *part-id-table* 96)
-                     )
                     )
-              )
-             )
-       (when (nonzero? s0-0)
-        (set! sv-48 sp-launch-particles-var)
-        (set! sv-64 *sp-particle-system-2d*)
-        (let
-         ((a2-36
-           (vector<-cspace!
-            (new 'stack-no-clear 'vector)
-            (-> obj process node-list data arg2)
-            )
-           )
-          (a3-6 #f)
-          (t0-1 #f)
-          (t1-1 1.0)
-          )
-         (sv-48
-          sv-64
-          s0-0
-          a2-36
-          (the-as sparticle-launch-state a3-6)
-          (the-as sparticle-launch-control t0-1)
-          t1-1
-          )
-         )
-        )
-       )
-      )
-     (('effect-jump-droppings)
-      (let* ((v1-61 (shr (shl arg4 52) 58))
-             (s0-1 (cond
-                    ((= v1-61 5)
-                     (-> *part-id-table* 106)
-                     )
-                    ((= v1-61 6)
-                     (-> *part-id-table* 2258)
-                     )
-                    ((= v1-61 13)
-                     (-> *part-id-table* 2259)
-                     )
-                    ((or (= v1-61 18) (= v1-61 8))
-                     (-> *part-id-table* 2260)
-                     )
-                    ((or (= v1-61 16) (= v1-61 21))
-                     (-> *part-id-table* 2335)
-                     )
-                    ((= v1-61 1)
-                     (-> *part-id-table* 2261)
-                     )
-                    ((= v1-61 9)
-                     (-> *part-id-table* 2262)
-                     )
-                    ((= v1-61 10)
-                     (-> *part-id-table* 2263)
-                     )
-                    ((= v1-61 14)
-                     (-> *part-id-table* 2264)
-                     )
-                    ((= v1-61 15)
-                     (-> *part-id-table* 2265)
-                     )
-                    ((zero? v1-61)
-                     (-> *part-id-table* 2266)
-                     )
-                    ((= v1-61 3)
-                     (-> *part-id-table* 2267)
-                     )
-                    ((= v1-61 4)
-                     (-> *part-id-table* 2268)
-                     )
-                    ((= v1-61 17)
-                     (-> *part-id-table* 2269)
-                     )
-                    ((= v1-61 19)
-                     (-> *part-id-table* 2270)
-                     )
-                    ((= v1-61 22)
-                     (-> *part-id-table* 2774)
-                     )
-                    (else
-                     (-> *part-id-table* 107)
-                     )
+                   ((= a0-3 num-func-+!)
+                    (if (>= (-> v1-3 param 0) 0.0)
+                        (TODO-RENAME-14 obj f28-0 f26-0 f30-0)
+                        (TODO-RENAME-14 obj f26-0 f28-0 f30-0)
+                        )
                     )
-              )
+                   ((= a0-3 num-func-identity)
+                    (TODO-RENAME-14 obj f30-0 f30-0 f30-0)
+                    )
+                   )
+                 )
+               )
              )
-       (when (nonzero? s0-1)
-        (set! sv-80 sp-launch-particles-var)
-        (set! sv-96 *sp-particle-system-2d*)
-        (let
-         ((a2-37
-           (vector<-cspace!
-            (new 'stack-no-clear 'vector)
-            (-> obj process node-list data arg2)
-            )
            )
-          (a3-7 #f)
-          (t0-2 #f)
-          (t1-2 1.0)
-          )
-         (sv-80
-          sv-96
-          s0-1
-          a2-37
-          (the-as sparticle-launch-state a3-7)
-          (the-as sparticle-launch-control t0-2)
-          t1-2
-          )
+         (set! (-> obj last-frame-group) s5-0)
+         (set! (-> obj last-frame-num) f30-0)
          )
-        )
        )
+      (else
+        (set! (-> obj last-frame-group) #f)
+        )
       )
-     )
     )
-   (if s1-0
-    (dummy-12 obj arg0 arg1 arg2 arg3 s1-0)
-    )
-   )
   0
   (none)
   )
 
-(defmethod
-  dummy-12
-  effect-control
-  ((obj effect-control)
-   (arg0 symbol)
-   (arg1 basic)
-   (arg2 int)
-   (arg3 basic)
-   (arg4 sound-name)
-   )
+(defmethod TODO-RENAME-14 effect-control ((obj effect-control) (arg0 float) (arg1 float) (arg2 float))
+  (let ((s2-0 (-> obj name)))
+    (while (= (-> s2-0 0 name) 'effect-name)
+      (let ((f0-0 (-> s2-0 0 key-frame)))
+        (when (or (and (< f0-0 arg1) (< arg0 f0-0)) (= f0-0 arg2))
+          (let* ((a0-1 obj)
+                 (t9-0 (method-of-object a0-1 dummy-10))
+                 (v1-7 (-> obj res))
+                 (a1-1 (-> s2-0 0))
+                 )
+            (t9-0
+              a0-1
+              (the-as symbol (-> (the-as (pointer uint32) (&+ (-> v1-7 data-base) (-> a1-1 data-offset)))))
+              f0-0
+              -1
+              )
+            )
+          )
+        )
+      (set! s2-0 (&-> s2-0 1))
+      )
+    )
+  0
+  (none)
+  )
+
+;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 205]
+;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 217]
+;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 237]
+;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 343]
+;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 364]
+;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 450]
+;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 469]
+(defmethod dummy-10 effect-control ((obj effect-control) (arg0 symbol) (arg1 float) (arg2 int))
   (local-vars
-   (r0-0 uint128)
-   (v1-10 uint128)
-   (sv-112 int)
-   (sv-128 sound-name)
-   (sv-144 basic)
-   (sv-160 (function vector vector float))
-   )
+    (sv-160 int)
+    (sv-176 symbol)
+    (sv-192 symbol)
+    (sv-208 symbol)
+    (sv-224 int)
+    (sv-240 symbol)
+    (sv-256 symbol)
+    (sv-272 symbol)
+    (sv-288 res-lump)
+    )
+  (with-pp
+    (let ((s3-0 (-> arg0 value))
+          (s5-0 (cond
+                  ((< arg2 0)
+                   (let ((v0-0 (get-property-value
+                                 (-> obj res)
+                                 'effect-joint
+                                 'exact
+                                 arg1
+                                 (the-as uint128 0)
+                                 (the-as (pointer res-tag) #f)
+                                 *res-static-buf*
+                                 )
+                               )
+                         )
+                     (if (zero? v0-0)
+                         0
+                         (the-as int (+ v0-0 1))
+                         )
+                     )
+                   )
+                  (else
+                    (empty)
+                    arg2
+                    )
+                  )
+                )
+          )
+      (when (logtest? (-> obj flags) 1)
+        (let ((a1-2 (new 'stack-no-clear 'event-message-block)))
+          (set! (-> a1-2 from) pp)
+          (set! (-> a1-2 num-params) 3)
+          (set! (-> a1-2 message) 'effect)
+          (set! (-> a1-2 param 0) (the-as uint arg0))
+          (set! (-> a1-2 param 1) (the-as uint arg1))
+          (set! (-> a1-2 param 2) (the-as uint s5-0))
+          (if (send-event-function (-> obj process) a1-2)
+              (return (the-as object 0))
+              )
+          )
+        )
+      (let ((v1-10 (symbol->string arg0)))
+        (cond
+          ((and (= (-> v1-10 data 0) 101)
+                (= (-> v1-10 data 1) 102)
+                (= (-> v1-10 data 2) 102)
+                (= (-> v1-10 data 3) 101)
+                (= (-> v1-10 data 4) 99)
+                (= (-> v1-10 data 5) 116)
+                (= (-> v1-10 data 6) 45)
+                )
+           (let* ((s3-1 (-> obj process root))
+                  (v1-14 (if (and (nonzero? s3-1) (type-type? (-> s3-1 type) collide-shape-moving))
+                             s3-1
+                             )
+                         )
+                  (t1-1 (if v1-14
+                            (the-as int (-> (the-as collide-shape-moving v1-14) ground-pat))
+                            *footstep-surface*
+                            )
+                        )
+                  )
+             (dummy-11 obj arg0 (the-as basic arg1) s5-0 (-> obj res) t1-1)
+             )
+           )
+          ((let ((v1-18 (symbol->string arg0)))
+             (and (= (-> v1-18 data 0) 103)
+                  (= (-> v1-18 data 1) 114)
+                  (= (-> v1-18 data 2) 111)
+                  (= (-> v1-18 data 3) 117)
+                  (= (-> v1-18 data 4) 112)
+                  (= (-> v1-18 data 5) 45)
+                  )
+             )
+           (set! s3-0 (cond
+                        ((zero? s3-0)
+                         (let ((v0-5 (lookup-part-group-pointer-by-name (symbol->string arg0))))
+                           (when v0-5
+                             (set! (-> arg0 value) v0-5)
+                             (set! s3-0 (-> v0-5 0))
+                             )
+                           )
+                         (the-as (pointer sparticle-launch-group) s3-0)
+                         )
+                        (else
+                          (-> (the-as (pointer sparticle-launch-group) s3-0) 0)
+                          )
+                        )
+                 )
+           (when (and (nonzero? s3-0) (= (-> (the-as sparticle-launch-group s3-0) type) sparticle-launch-group))
+             (if *debug-effect-control*
+                 (format
+                   #t
+                   "(~5D) effect group ~A ~A frame ~F joint ~D~%"
+                   (-> *display* base-frame-counter)
+                   (-> obj process name)
+                   arg0
+                   arg1
+                   s5-0
+                   )
+                 )
+             (let ((s4-1 (get-process *default-dead-pool* part-tracker #x4000)))
+               (when s4-1
+                 (let ((t9-7 (method-of-type part-tracker activate)))
+                   (t9-7 (the-as part-tracker s4-1) (-> obj process) 'part-tracker (the-as pointer #x70004000))
+                   )
+                 (let ((s2-1 run-function-in-process)
+                       (s1-0 s4-1)
+                       (s0-0 part-tracker-init)
+                       )
+                   (set! sv-160 -1)
+                   (set! sv-176 (the-as symbol #f))
+                   (set! sv-192 (the-as symbol #f))
+                   (set! sv-208 (the-as symbol #f))
+                   (let ((t3-0 (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj process node-list data s5-0))))
+                     ((the-as (function object object object object object object object object none) s2-1)
+                      s1-0
+                      s0-0
+                      (the-as sparticle-launch-group s3-0)
+                      sv-160
+                      sv-176
+                      sv-192
+                      sv-208
+                      t3-0
+                      )
+                     )
+                   )
+                 (-> s4-1 ppointer)
+                 )
+               )
+             )
+           )
+          ((= arg0 'camera-shake)
+           (activate! *camera-smush-control* 819.2 37 600 1.0 0.995)
+           )
+          ((zero? s3-0)
+           (dummy-12 obj arg0 (the-as basic arg1) s5-0 (-> obj res) (string->sound-name (symbol->string arg0)))
+           )
+          ((= (-> (the-as basic s3-0) type) sparticle-launcher)
+           (if *debug-effect-control*
+               (format
+                 #t
+                 "(~5D) effect part  ~A ~A frame ~F joint ~D~%"
+                 (-> *display* base-frame-counter)
+                 (-> obj process name)
+                 arg0
+                 arg1
+                 s5-0
+                 )
+               )
+           (format
+             #t
+             "-----> (~5D) effect part  ~A ~A frame ~F joint ~D~%"
+             (-> *display* base-frame-counter)
+             (-> obj process name)
+             arg0
+             arg1
+             s5-0
+             )
+           (sp-launch-particles-var
+             *sp-particle-system-2d*
+             (the-as sparticle-launcher s3-0)
+             (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj process node-list data s5-0))
+             (the-as sparticle-launch-state #f)
+             (the-as sparticle-launch-control #f)
+             1.0
+             )
+           )
+          ((= (-> (the-as basic s3-0) type) sparticle-launch-group)
+           (if *debug-effect-control*
+               (format
+                 #t
+                 "(~5D) effect group ~A ~A frame ~F joint ~D~%"
+                 (-> *display* base-frame-counter)
+                 (-> obj process name)
+                 arg0
+                 arg1
+                 s5-0
+                 )
+               )
+           (let ((s4-3 (get-process *default-dead-pool* part-tracker #x4000)))
+             (when s4-3
+               (let ((t9-19 (method-of-type part-tracker activate)))
+                 (t9-19 (the-as part-tracker s4-3) (-> obj process) 'part-tracker (the-as pointer #x70004000))
+                 )
+               (let ((s2-3 run-function-in-process)
+                     (s1-2 s4-3)
+                     (s0-2 part-tracker-init)
+                     )
+                 (set! sv-224 -1)
+                 (set! sv-240 (the-as symbol #f))
+                 (set! sv-256 (the-as symbol #f))
+                 (set! sv-272 (the-as symbol #f))
+                 (let ((t3-1 (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj process node-list data s5-0))))
+                   ((the-as (function object object object object object object object object none) s2-3)
+                    s1-2
+                    s0-2
+                    s3-0
+                    sv-224
+                    sv-240
+                    sv-256
+                    sv-272
+                    t3-1
+                    )
+                   )
+                 )
+               (-> s4-3 ppointer)
+               )
+             )
+           )
+          ((= (-> (the-as basic s3-0) type) sound-spec)
+           (sound-play-by-spec
+             (the-as sound-spec s3-0)
+             (new-sound-id)
+             (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj process node-list data s5-0))
+             )
+           )
+          ((= (-> (the-as basic s3-0) type) death-info)
+           (let ((v1-67 (-> obj process draw)))
+             (let ((a1-42 (-> (the-as death-info s3-0) vertex-skip))
+                   (a0-55
+                     (max
+                       2
+                       (the-as int (/ (-> (the-as death-info s3-0) timer) (the-as uint (the int (-> *display* time-factor)))))
+                       )
+                     )
+                   )
+               (when (= (-> *setting-control* current video-mode) 'pal)
+                 (if (< (the-as uint 1) a1-42)
+                     (set! a1-42 (/ (the-as uint (* (the-as uint 50) a1-42)) (the-as uint 60)))
+                     )
+                 )
+               (let ((a2-29 (-> *display* frames (-> *display* last-screen) frame run-time)))
+                 (cond
+                   ((< 9000 (the-as int a2-29))
+                    (set! a1-42 (* a1-42 4))
+                    )
+                   ((< 7000 (the-as int a2-29))
+                    (set! a1-42 (* a1-42 2))
+                    )
+                   )
+                 )
+               (set! (-> v1-67 death-vertex-skip) a1-42)
+               (set! (-> v1-67 death-effect) (-> (the-as death-info s3-0) effect))
+               (set! (-> v1-67 death-timer) (+ a0-55 1))
+               )
+             (set! (-> v1-67 death-timer-org) (-> v1-67 death-timer))
+             (set! (-> v1-67 death-draw-overlap) (-> (the-as death-info s3-0) overlap))
+             )
+           (when (-> (the-as death-info s3-0) sound)
+             (let* ((s2-5 obj)
+                    (s1-3 (method-of-object s2-5 dummy-12))
+                    (s0-3 (-> (the-as death-info s3-0) sound))
+                    )
+               (set! sv-288 (-> obj res))
+               (let ((t1-11
+                       (string->sound-name
+                         (the-as string (-> (the-as (pointer uint32) (+ #xff38 (the-as int (-> (the-as death-info s3-0) sound))))))
+                         )
+                       )
+                     )
+                 (s1-3 s2-5 (the-as symbol s0-3) (the-as basic arg1) s5-0 sv-288 t1-11)
+                 )
+               )
+             )
+           (send-event (-> obj process) 'death-start (the-as death-info s3-0))
+           )
+          (else
+            (dummy-12 obj arg0 (the-as basic arg1) s5-0 (-> obj res) (string->sound-name (symbol->string arg0)))
+            )
+          )
+        )
+      )
+    0
+    )
+  )
+
+(defmethod dummy-11 effect-control ((obj effect-control) (arg0 symbol) (arg1 basic) (arg2 int) (arg3 basic) (arg4 int))
+  (local-vars
+    (sv-48
+      (function sparticle-system sparticle-launcher vector sparticle-launch-state sparticle-launch-control float none)
+      )
+    (sv-64 sparticle-system)
+    (sv-80
+      (function sparticle-system sparticle-launcher vector sparticle-launch-state sparticle-launch-control float none)
+      )
+    (sv-96 sparticle-system)
+    )
+  (let ((s1-0 (the-as sound-name #f)))
+    (let ((a0-4 (-> *display* frames (-> *display* last-screen) frame run-time)))
+      (case arg0
+        (('effect-walk-step-left 'effect-run-step-left)
+         (set! s1-0 (sound-name-with-material 'walk arg4 "1"))
+         )
+        (('effect-walk-step-right 'effect-run-step-right)
+         (set! s1-0 (sound-name-with-material 'walk arg4 "2"))
+         )
+        (('effect-roll)
+         (set! s1-0 (sound-name-with-material 'roll arg4 ""))
+         )
+        (('effect-slide)
+         (set! s1-0 (sound-name-with-material 'slide arg4 ""))
+         )
+        (('effect-land)
+         (set! s1-0 (sound-name-with-material 'land arg4 ""))
+         )
+        (('effect-zoom-land)
+         (set! s1-0 (sound-name-with-material 'zoom-land arg4 ""))
+         )
+        (('effect-zoom-hit)
+         (set! s1-0 (sound-name-with-material 'zoom-hit arg4 ""))
+         )
+        (('effect-flut-land)
+         (set! s1-0 (sound-name-with-material 'flut-land arg4 ""))
+         )
+        (('effect-land-poof)
+         (when (< (the-as int a0-4) 9000)
+           (let* ((a0-13 obj)
+                  (t9-8 (method-of-object a0-13 dummy-10))
+                  (v1-15 (shr (shl arg4 52) 58))
+                  )
+             (t9-8
+               a0-13
+               (cond
+                 ((= v1-15 5)
+                  'group-land-poof-sand
+                  )
+                 ((= v1-15 6)
+                  'group-land-poof-wood
+                  )
+                 ((= v1-15 13)
+                  'group-land-poof-crwood
+                  )
+                 ((or (= v1-15 18) (= v1-15 8))
+                  'group-land-poof-pcmetal
+                  )
+                 ((or (= v1-15 16) (= v1-15 21))
+                  'group-land-poof-metal
+                  )
+                 ((= v1-15 1)
+                  'group-land-poof-ice
+                  )
+                 ((= v1-15 9)
+                  'group-land-poof-snow
+                  )
+                 ((= v1-15 10)
+                  'group-land-poof-dpsnow
+                  )
+                 ((= v1-15 14)
+                  'group-land-poof-gravel
+                  )
+                 ((= v1-15 15)
+                  'group-land-poof-dirt
+                  )
+                 ((zero? v1-15)
+                  'group-land-poof-stone
+                  )
+                 ((= v1-15 3)
+                  'group-land-poof-water
+                  )
+                 ((= v1-15 4)
+                  'group-land-poof-tar
+                  )
+                 ((= v1-15 17)
+                  'group-land-poof-straw
+                  )
+                 ((= v1-15 19)
+                  'group-land-poof-swamp
+                  )
+                 ((= v1-15 22)
+                  'group-land-poof-neutral
+                  )
+                 (else
+                   'group-land-poof-grass
+                   )
+                 )
+               (the-as float arg1)
+               -1
+               )
+             )
+           )
+         )
+        (('effect-run-poof)
+         (when (< (the-as int a0-4) 9000)
+           (let* ((a0-14 obj)
+                  (t9-9 (method-of-object a0-14 dummy-10))
+                  (v1-20 (shr (shl arg4 52) 58))
+                  )
+             (t9-9
+               a0-14
+               (cond
+                 ((= v1-20 5)
+                  'group-run-poof-sand
+                  )
+                 ((= v1-20 6)
+                  'group-run-poof-wood
+                  )
+                 ((= v1-20 13)
+                  'group-run-poof-crwood
+                  )
+                 ((or (= v1-20 18) (= v1-20 8))
+                  'group-run-poof-pcmetal
+                  )
+                 ((or (= v1-20 16) (= v1-20 21))
+                  'group-run-poof-metal
+                  )
+                 ((= v1-20 1)
+                  'group-run-poof-ice
+                  )
+                 ((= v1-20 9)
+                  'group-run-poof-snow
+                  )
+                 ((= v1-20 10)
+                  'group-run-poof-dpsnow
+                  )
+                 ((= v1-20 14)
+                  'group-run-poof-gravel
+                  )
+                 ((= v1-20 15)
+                  'group-run-poof-dirt
+                  )
+                 ((zero? v1-20)
+                  'group-run-poof-stone
+                  )
+                 ((= v1-20 3)
+                  'group-run-poof-water
+                  )
+                 ((= v1-20 4)
+                  'group-run-poof-tar
+                  )
+                 ((= v1-20 17)
+                  'group-run-poof-straw
+                  )
+                 ((= v1-20 19)
+                  'group-run-poof-swamp
+                  )
+                 ((= v1-20 22)
+                  'group-run-poof-neutral
+                  )
+                 (else
+                   'group-run-poof-grass
+                   )
+                 )
+               (the-as float arg1)
+               -1
+               )
+             )
+           )
+         )
+        (('effect-just-footprint)
+         (let* ((a0-15 obj)
+                (t9-10 (method-of-object a0-15 dummy-10))
+                (v1-24 (shr (shl arg4 52) 58))
+                )
+           (t9-10
+             a0-15
+             (cond
+               ((= v1-24 5)
+                'group-just-footprint-sand
+                )
+               ((= v1-24 6)
+                'group-just-footprint-wood
+                )
+               ((= v1-24 13)
+                'group-just-footprint-crwood
+                )
+               ((or (= v1-24 18) (= v1-24 8))
+                'group-just-footprint-pcmetal
+                )
+               ((or (= v1-24 16) (= v1-24 21))
+                'group-just-footprint-metal
+                )
+               ((= v1-24 1)
+                'group-just-footprint-ice
+                )
+               ((= v1-24 9)
+                'group-just-footprint-snow
+                )
+               ((= v1-24 10)
+                'group-just-footprint-dpsnow
+                )
+               ((= v1-24 14)
+                'group-just-footprint-gravel
+                )
+               ((= v1-24 15)
+                'group-just-footprint-dirt
+                )
+               ((zero? v1-24)
+                'group-just-footprint-stone
+                )
+               ((= v1-24 3)
+                'group-just-footprint-water
+                )
+               ((= v1-24 4)
+                'group-just-footprint-tar
+                )
+               ((= v1-24 17)
+                'group-just-footprint-straw
+                )
+               ((= v1-24 19)
+                'group-just-footprint-swamp
+                )
+               ((= v1-24 22)
+                'group-just-footprint-neutral
+                )
+               (else
+                 'group-just-footprint-grass
+                 )
+               )
+             (the-as float arg1)
+             -1
+             )
+           )
+         )
+        (('effect-just-poof)
+         (when (< (the-as int a0-4) 9000)
+           (let* ((a0-16 obj)
+                  (t9-11 (method-of-object a0-16 dummy-10))
+                  (v1-29 (shr (shl arg4 52) 58))
+                  )
+             (t9-11
+               a0-16
+               (cond
+                 ((= v1-29 5)
+                  'group-just-poof-sand
+                  )
+                 ((= v1-29 6)
+                  'group-just-poof-wood
+                  )
+                 ((= v1-29 13)
+                  'group-just-poof-crwood
+                  )
+                 ((or (= v1-29 18) (= v1-29 8))
+                  'group-just-poof-pcmetal
+                  )
+                 ((or (= v1-29 16) (= v1-29 21))
+                  'group-just-poof-metal
+                  )
+                 ((= v1-29 1)
+                  'group-just-poof-ice
+                  )
+                 ((= v1-29 9)
+                  'group-just-poof-snow
+                  )
+                 ((= v1-29 10)
+                  'group-just-poof-dpsnow
+                  )
+                 ((= v1-29 14)
+                  'group-just-poof-gravel
+                  )
+                 ((= v1-29 15)
+                  'group-just-poof-dirt
+                  )
+                 ((zero? v1-29)
+                  'group-just-poof-stone
+                  )
+                 ((= v1-29 3)
+                  'group-just-poof-water
+                  )
+                 ((= v1-29 4)
+                  'group-just-poof-tar
+                  )
+                 ((= v1-29 17)
+                  'group-just-poof-straw
+                  )
+                 ((= v1-29 19)
+                  'group-just-poof-swamp
+                  )
+                 ((= v1-29 22)
+                  'group-just-poof-neutral
+                  )
+                 (else
+                   'group-just-poof-grass
+                   )
+                 )
+               (the-as float arg1)
+               -1
+               )
+             )
+           )
+         )
+        (('effect-slide-poof)
+         (let* ((a0-19 obj)
+                (t9-12 (method-of-object a0-19 dummy-10))
+                (v1-33 (shr (shl arg4 52) 58))
+                )
+           (t9-12
+             a0-19
+             (cond
+               ((= v1-33 5)
+                'group-slide-poof-sand
+                )
+               ((= v1-33 6)
+                'group-slide-poof-wood
+                )
+               ((= v1-33 13)
+                'group-slide-poof-crwood
+                )
+               ((or (= v1-33 18) (= v1-33 8))
+                'group-slide-poof-pcmetal
+                )
+               ((or (= v1-33 16) (= v1-33 21))
+                'group-slide-poof-metal
+                )
+               ((= v1-33 1)
+                'group-slide-poof-ice
+                )
+               ((= v1-33 9)
+                'group-slide-poof-snow
+                )
+               ((= v1-33 10)
+                'group-slide-poof-dpsnow
+                )
+               ((= v1-33 14)
+                'group-slide-poof-gravel
+                )
+               ((= v1-33 15)
+                'group-slide-poof-dirt
+                )
+               ((zero? v1-33)
+                'group-slide-poof-stone
+                )
+               ((= v1-33 3)
+                'group-slide-poof-water
+                )
+               ((= v1-33 4)
+                'group-slide-poof-tar
+                )
+               ((= v1-33 17)
+                'group-slide-poof-straw
+                )
+               ((= v1-33 19)
+                'group-slide-poof-swamp
+                )
+               ((= v1-33 22)
+                'group-slide-poof-neutral
+                )
+               (else
+                 'group-slide-poof-grass
+                 )
+               )
+             (the-as float arg1)
+             -1
+             )
+           )
+         )
+        (('effect-droppings)
+         (let* ((v1-36 (shr (shl arg4 52) 58))
+                (s0-0 (cond
+                        ((= v1-36 5)
+                         (-> *part-id-table* 95)
+                         )
+                        ((= v1-36 6)
+                         (-> *part-id-table* 97)
+                         )
+                        ((= v1-36 13)
+                         (-> *part-id-table* 99)
+                         )
+                        ((or (= v1-36 18) (= v1-36 8))
+                         (-> *part-id-table* 2248)
+                         )
+                        ((or (= v1-36 16) (= v1-36 21))
+                         (-> *part-id-table* 2334)
+                         )
+                        ((= v1-36 1)
+                         (-> *part-id-table* 2249)
+                         )
+                        ((= v1-36 9)
+                         (-> *part-id-table* 2250)
+                         )
+                        ((= v1-36 10)
+                         (-> *part-id-table* 2251)
+                         )
+                        ((= v1-36 14)
+                         (-> *part-id-table* 2252)
+                         )
+                        ((= v1-36 15)
+                         (-> *part-id-table* 2253)
+                         )
+                        ((zero? v1-36)
+                         (-> *part-id-table* 98)
+                         )
+                        ((= v1-36 3)
+                         (-> *part-id-table* 2254)
+                         )
+                        ((= v1-36 4)
+                         (-> *part-id-table* 2255)
+                         )
+                        ((= v1-36 17)
+                         (-> *part-id-table* 2256)
+                         )
+                        ((= v1-36 19)
+                         (-> *part-id-table* 2257)
+                         )
+                        ((= v1-36 22)
+                         (-> *part-id-table* 2773)
+                         )
+                        (else
+                          (-> *part-id-table* 96)
+                          )
+                        )
+                      )
+                )
+           (when (nonzero? s0-0)
+             (set! sv-48 sp-launch-particles-var)
+             (set! sv-64 *sp-particle-system-2d*)
+             (let ((a2-36 (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj process node-list data arg2)))
+                   (a3-6 #f)
+                   (t0-1 #f)
+                   (t1-1 1.0)
+                   )
+               (sv-48 sv-64 s0-0 a2-36 (the-as sparticle-launch-state a3-6) (the-as sparticle-launch-control t0-1) t1-1)
+               )
+             )
+           )
+         )
+        (('effect-jump-droppings)
+         (let* ((v1-61 (shr (shl arg4 52) 58))
+                (s0-1 (cond
+                        ((= v1-61 5)
+                         (-> *part-id-table* 106)
+                         )
+                        ((= v1-61 6)
+                         (-> *part-id-table* 2258)
+                         )
+                        ((= v1-61 13)
+                         (-> *part-id-table* 2259)
+                         )
+                        ((or (= v1-61 18) (= v1-61 8))
+                         (-> *part-id-table* 2260)
+                         )
+                        ((or (= v1-61 16) (= v1-61 21))
+                         (-> *part-id-table* 2335)
+                         )
+                        ((= v1-61 1)
+                         (-> *part-id-table* 2261)
+                         )
+                        ((= v1-61 9)
+                         (-> *part-id-table* 2262)
+                         )
+                        ((= v1-61 10)
+                         (-> *part-id-table* 2263)
+                         )
+                        ((= v1-61 14)
+                         (-> *part-id-table* 2264)
+                         )
+                        ((= v1-61 15)
+                         (-> *part-id-table* 2265)
+                         )
+                        ((zero? v1-61)
+                         (-> *part-id-table* 2266)
+                         )
+                        ((= v1-61 3)
+                         (-> *part-id-table* 2267)
+                         )
+                        ((= v1-61 4)
+                         (-> *part-id-table* 2268)
+                         )
+                        ((= v1-61 17)
+                         (-> *part-id-table* 2269)
+                         )
+                        ((= v1-61 19)
+                         (-> *part-id-table* 2270)
+                         )
+                        ((= v1-61 22)
+                         (-> *part-id-table* 2774)
+                         )
+                        (else
+                          (-> *part-id-table* 107)
+                          )
+                        )
+                      )
+                )
+           (when (nonzero? s0-1)
+             (set! sv-80 sp-launch-particles-var)
+             (set! sv-96 *sp-particle-system-2d*)
+             (let ((a2-37 (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj process node-list data arg2)))
+                   (a3-7 #f)
+                   (t0-2 #f)
+                   (t1-2 1.0)
+                   )
+               (sv-80 sv-96 s0-1 a2-37 (the-as sparticle-launch-state a3-7) (the-as sparticle-launch-control t0-2) t1-2)
+               )
+             )
+           )
+         )
+        )
+      )
+    (if s1-0
+        (dummy-12 obj arg0 arg1 arg2 arg3 s1-0)
+        )
+    )
+  0
+  (none)
+  )
+
+(defmethod dummy-12 effect-control ((obj effect-control) (arg0 symbol) (arg1 basic) (arg2 int) (arg3 basic) (arg4 sound-name))
+  (local-vars
+    (r0-0 uint128)
+    (v1-10 uint128)
+    (sv-112 int)
+    (sv-128 sound-name)
+    (sv-144 basic)
+    (sv-160 (function vector vector float))
+    )
   (set! sv-144 arg3)
   (let ((s0-0 arg4)
         (gp-0 (new 'stack 'sound-spec))
         (s5-0 (if (< arg2 0)
-               (the-as vector #f)
-               (vector<-cspace!
-                (new 'stack-no-clear 'vector)
-                (-> obj process node-list data arg2)
-                )
-               )
-         )
+                  (the-as vector #f)
+                  (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj process node-list data arg2))
+                  )
+              )
         )
-   (set! (-> gp-0 sound-name) s0-0)
-   (logior! (-> gp-0 mask) 1)
-   (set! (-> gp-0 volume) 1024)
-   (logior! (-> gp-0 mask) 4)
-   (set!
-    (-> gp-0 bend)
-    (the int (* 327.66998 (rand-vu-float-range -100.0 100.0)))
-    )
-   (set! sv-112 0)
-   (let* ((t9-3 (method-of-type res-lump get-property-data))
-          (a1-6 'effect-param)
-          (a2-1 'exact)
-          (a3-1 arg1)
-          (t0-1 #f)
-          (t1-1 (the-as (pointer int) (& sv-112)))
-          (t2-0 *res-static-buf*)
-          (a1-7
-           (t9-3
-            (the-as res-lump sv-144)
-            a1-6
-            a2-1
-            (the-as float a3-1)
-            (the-as pointer t0-1)
-            (the-as (pointer res-tag) t1-1)
-            t2-0
-            )
+    (set! (-> gp-0 sound-name) s0-0)
+    (logior! (-> gp-0 mask) 1)
+    (set! (-> gp-0 volume) 1024)
+    (logior! (-> gp-0 mask) 4)
+    (set! (-> gp-0 bend) (the int (* 327.66998 (rand-vu-float-range -100.0 100.0))))
+    (set! sv-112 0)
+    (let* ((t9-3 (method-of-type res-lump get-property-data))
+           (a1-6 'effect-param)
+           (a2-1 'exact)
+           (a3-1 arg1)
+           (t0-1 #f)
+           (t1-1 (the-as (pointer int) (& sv-112)))
+           (t2-0 *res-static-buf*)
+           (a1-7 (t9-3
+                   (the-as res-lump sv-144)
+                   a1-6
+                   a2-1
+                   (the-as float a3-1)
+                   (the-as pointer t0-1)
+                   (the-as (pointer res-tag) t1-1)
+                   t2-0
+                   )
+                 )
            )
+      (when a1-7
+        (let ((t9-4 effect-param->sound-spec)
+              (a0-5 gp-0)
+              )
+          (let ((v1-9 (the-as uint128 sv-112)))
+            (.pcpyud v1-10 v1-9 r0-0)
+            )
+          (t9-4 a0-5 (the-as (pointer float) a1-7) (shr (* (the-as int v1-10) 2) 49))
           )
-    (when a1-7
-     (let ((t9-4 effect-param->sound-spec)
-           (a0-5 gp-0)
-           )
-      (let ((v1-9 (the-as uint128 sv-112)))
-       (.pcpyud v1-10 v1-9 r0-0)
-       )
-      (t9-4
-       a0-5
-       (the-as (pointer float) a1-7)
-       (shr (* (the-as int v1-10) 2) 49)
-       )
+        )
       )
-     )
-    )
-   (if
-    (and
-     (nonzero? (-> gp-0 fo-max))
-     (let ((f30-1 (* 4096.0 (the float (-> gp-0 fo-max)))))
-      (set! sv-160 vector-vector-distance)
-      (let ((a0-6 (ear-trans))
-            (a1-8 s5-0)
-            )
-       (< f30-1 (sv-160 a0-6 a1-8))
-       )
+    (if (and (nonzero? (-> gp-0 fo-max)) (let ((f30-1 (* 4096.0 (the float (-> gp-0 fo-max)))))
+                                           (set! sv-160 vector-vector-distance)
+                                           (let ((a0-6 (ear-trans))
+                                                 (a1-8 s5-0)
+                                                 )
+                                             (< f30-1 (sv-160 a0-6 a1-8))
+                                             )
+                                           )
+             )
+        (return 0)
+        )
+    (when *debug-effect-control*
+      (set! sv-128 s0-0)
+      (string<-charp (clear *temp-string*) (the-as (pointer uint8) (& sv-128)))
+      (format
+        #t
+        "(~5D) effect sound ~A ~A (~S) frame ~F joint ~D "
+        (-> *display* base-frame-counter)
+        (-> obj process name)
+        arg0
+        *temp-string*
+        arg1
+        arg2
+        )
+      (format
+        #t
+        "volume: ~f  pitch-mod: ~f~%"
+        (* 0.09765625 (the float (-> gp-0 volume)))
+        (* 0.000656168 (the float (-> gp-0 pitch-mod)))
+        )
       )
-     )
-    (return 0)
+    (sound-play-by-spec gp-0 (new-sound-id) s5-0)
     )
-   (when *debug-effect-control*
-    (set! sv-128 s0-0)
-    (string<-charp (clear *temp-string*) (the-as (pointer uint8) (& sv-128)))
-    (format
-     #t
-     "(~5D) effect sound ~A ~A (~S) frame ~F joint ~D "
-     (-> *display* base-frame-counter)
-     (-> obj process name)
-     arg0
-     *temp-string*
-     arg1
-     arg2
-     )
-    (format
-     #t
-     "volume: ~f  pitch-mod: ~f~%"
-     (* 0.09765625 (the float (-> gp-0 volume)))
-     (* 0.000656168 (the float (-> gp-0 pitch-mod)))
-     )
-    )
-   (sound-play-by-spec gp-0 (new-sound-id) s5-0)
-   )
   0
   )
 
 (defbehavior target-land-effect target ()
   (cond
-   ((logtest? (-> self control root-prim prim-core action) #x4000)
-    (dummy-10 (-> self skel effect) 'effect-land-poof -1.0 -1)
-    (dummy-10 (-> self skel effect) 'effect-flut-land -1.0 -1)
-    )
-   ((logtest? (-> self control root-prim prim-core action) 512)
-    (sound-play-by-name
-     (sound-name-with-material
-      'zoom-land
-      (the-as int (-> self control ground-pat))
-      ""
-      )
-     (new-sound-id)
-     (the
-      int
-      (*
-       10.24
-       (*
-        100.0
-        (the
-         float
-         (the
-          int
-          (* 10.24 (* 0.000016276043 (-> self control ground-impact-vel)))
-          )
-         )
-        )
-       )
-      )
-     0
-     0
-     1
-     #t
+    ((logtest? (-> self control root-prim prim-core action) (collide-action ca-14))
+     (dummy-10 (-> self skel effect) 'effect-land-poof -1.0 -1)
+     (dummy-10 (-> self skel effect) 'effect-flut-land -1.0 -1)
      )
+    ((logtest? (-> self control root-prim prim-core action) (collide-action ca-9))
+     (sound-play-by-name
+       (sound-name-with-material 'zoom-land (the-as int (-> self control ground-pat)) "")
+       (new-sound-id)
+       (the int
+            (* 10.24 (* 100.0 (the float (the int (* 10.24 (* 0.000016276043 (-> self control ground-impact-vel)))))))
+            )
+       0
+       0
+       1
+       #t
+       )
+     )
+    ((logtest? (-> self water flags) 512)
+     (dummy-10 (-> self skel effect) 'effect-land-water -1.0 -1)
+     )
+    (else
+      (dummy-10 (-> self skel effect) 'effect-land-poof -1.0 -1)
+      (dummy-10 (-> self skel effect) 'effect-land -1.0 -1)
+      )
     )
-   ((logtest? (-> self water flags) 512)
-    (dummy-10 (-> self skel effect) 'effect-land-water -1.0 -1)
-    )
-   (else
-    (dummy-10 (-> self skel effect) 'effect-land-poof -1.0 -1)
-    (dummy-10 (-> self skel effect) 'effect-land -1.0 -1)
-    )
-   )
   0
   (none)
   )
diff --git a/goal_src/engine/game/generic-obs.gc b/goal_src/engine/game/generic-obs.gc
index 750a1a8090..4c14249821 100644
--- a/goal_src/engine/game/generic-obs.gc
+++ b/goal_src/engine/game/generic-obs.gc
@@ -1529,308 +1529,257 @@
   )
 
 
-(set! (-> *part-group-id-table* 37)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-launcher"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 45 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 46 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 47 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 48 :fade-after (meters 50.0) :falloff-to (meters 80.0))
-          (sp-item 49 :fade-after (meters 70.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 20480.0)
-        )
-      )
+(defpartgroup group-beach-launcher
+  :id 37
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 45 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 46 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 47 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 48 :fade-after (meters 50) :falloff-to (meters 80))
+    (sp-item 49 :fade-after (meters 70) :falloff-to (meters 100))
+    )
+  )
 
-(set! (-> *part-id-table* 45)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-flt spt-x (meters 1.5))
-                                                     (sp-flt spt-y (meters -0.5))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2867.2)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-int spt-timer 270)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 180)
-                                                     (sp-launcher-by-id spt-next-launcher 50)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 45
+  :init-specs
+  ((sp-flt spt-num 1.5)
+    (sp-flt spt-x (meters 1.5))
+    (sp-flt spt-y (meters -0.5))
+    (sp-int spt-rot-x 5)
+    (sp-flt spt-r 4096.0)
+    (sp-flt spt-g 2867.2)
+    (sp-flt spt-b 3276.8)
+    (sp-flt spt-vel-y (meters 0.026666667))
+    (sp-int spt-timer 270)
+    (sp-cpuinfo-flags aux-list)
+    (sp-int spt-next-time 180)
+    (sp-launcher-by-id spt-next-launcher 50)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 50)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -4.551111) (sp-end))
-        )
-      )
+(defpart 50
+  :init-specs
+  ((sp-flt spt-fade-b -4.551111))
+  )
 
-(set! (-> *part-id-table* 46) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-x (meters 0.0) (meters 1.8) 1.0)
-                                  (sp-flt spt-scale-x (meters 0.2))
-                                  (sp-flt spt-rot-x 16384.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 2.5) (meters 2.5) 1.0)
-                                  (sp-rnd-int spt-r 0 1 128.0)
-                                  (sp-rnd-flt spt-g 64.0 196.0 1.0)
-                                  (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                  (sp-flt spt-a 128.0)
-                                  (sp-flt spt-scalevel-x (meters -0.0025))
-                                  (sp-rnd-flt spt-scalevel-y (meters 0.24414062) (meters 0.48828125) 1.0)
-                                  (sp-int spt-timer 81)
-                                  (sp-cpuinfo-flags bit3)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 46
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 1.8) 1.0)
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-flt spt-rot-x 16384.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 2.5) 1.0)
+    (sp-rnd-int spt-r 0 1 128.0)
+    (sp-rnd-flt spt-g 64.0 196.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-scalevel-x (meters -0.0025))
+    (sp-rnd-flt spt-scalevel-y (meters 0.24414062) (meters 0.48828125) 1.0)
+    (sp-int spt-timer 81)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 47) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 2.0)
-                                  (sp-rnd-flt spt-x (meters 1.8) (meters 1.0) 1.0)
-                                  (sp-flt spt-scale-x (meters 0.2))
-                                  (sp-flt spt-rot-x 16384.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                  (sp-rnd-int spt-r 0 1 128.0)
-                                  (sp-rnd-flt spt-g 64.0 196.0 1.0)
-                                  (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                  (sp-flt spt-a 128.0)
-                                  (sp-flt spt-scalevel-x (meters -0.0025))
-                                  (sp-rnd-flt spt-scalevel-y (meters 0.048828125) (meters 0.09765625) 1.0)
-                                  (sp-int spt-timer 81)
-                                  (sp-cpuinfo-flags bit3)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 47
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-x (meters 1.8) (meters 1) 1.0)
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-flt spt-rot-x 16384.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-int spt-r 0 1 128.0)
+    (sp-rnd-flt spt-g 64.0 196.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-scalevel-x (meters -0.0025))
+    (sp-rnd-flt spt-scalevel-y (meters 0.048828125) (meters 0.09765625) 1.0)
+    (sp-int spt-timer 81)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 48) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 21
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                  (sp-flt spt-num 1.5)
-                                  (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
-                                  (sp-flt spt-y (meters -0.5))
-                                  (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.1) 1.0)
-                                  (sp-rnd-flt spt-r 10.0 6.0 1.0)
-                                  (sp-rnd-flt spt-g 64.0 128.0 1.0)
-                                  (sp-rnd-flt spt-b 10.0 6.0 1.0)
-                                  (sp-flt spt-a 80.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-                                  (sp-flt spt-vel-y (meters 0.0))
-                                  (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                  (sp-flt spt-fade-a -0.2)
-                                  (sp-flt spt-accel-y 6.826667)
-                                  (sp-flt spt-friction 0.996)
-                                  (sp-int-plain-rnd spt-timer 180 119 1)
-                                  (sp-cpuinfo-flags bit2)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 48
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-flt spt-num 1.5)
+    (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-r 10.0 6.0 1.0)
+    (sp-rnd-flt spt-g 64.0 128.0 1.0)
+    (sp-rnd-flt spt-b 10.0 6.0 1.0)
+    (sp-flt spt-a 80.0)
+    (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+    (sp-flt spt-fade-a -0.2)
+    (sp-flt spt-accel-y 6.826667)
+    (sp-flt spt-friction 0.996)
+    (sp-int-plain-rnd spt-timer 180 119 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 49) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 23
-                                  (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                  (sp-flt spt-num 0.5)
-                                  (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
-                                  (sp-flt spt-y (meters -0.5))
-                                  (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                  (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                  (sp-rnd-flt spt-b 10.0 5.0 1.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-                                  (sp-flt spt-vel-y (meters 0.0))
-                                  (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                  (sp-flt spt-fade-a 0.6)
-                                  (sp-flt spt-accel-y 6.826667)
-                                  (sp-flt spt-friction 0.996)
-                                  (sp-int spt-timer 270)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 45)
-                                  (sp-launcher-by-id spt-next-launcher 51)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 49
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 32.0 1.0)
+    (sp-rnd-flt spt-g 32.0 32.0 1.0)
+    (sp-rnd-flt spt-b 10.0 5.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+    (sp-flt spt-fade-a 0.6)
+    (sp-flt spt-accel-y 6.826667)
+    (sp-flt spt-friction 0.996)
+    (sp-int spt-timer 270)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 45)
+    (sp-launcher-by-id spt-next-launcher 51)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 51)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.18) (sp-end))
-        )
-      )
+(defpart 51
+  :init-specs
+  ((sp-flt spt-fade-a -0.18))
+  )
 
-(set! (-> *part-group-id-table* 38)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-jungle-launcher"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 45 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 52 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 53 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 54 :fade-after (meters 70.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 20480.0)
-        )
-      )
+(defpartgroup group-jungle-launcher
+  :id 38
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 45 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 52 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 53 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 54 :fade-after (meters 70) :falloff-to (meters 100))
+    )
+  )
 
-(set! (-> *part-id-table* 52) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-x (meters 0.0) (meters 1.4) 1.0)
-                                  (sp-flt spt-scale-x (meters 0.2))
-                                  (sp-flt spt-rot-x 16384.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 2.5) (meters 2.5) 1.0)
-                                  (sp-rnd-int spt-r 0 1 128.0)
-                                  (sp-rnd-flt spt-g 64.0 196.0 1.0)
-                                  (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                  (sp-flt spt-a 128.0)
-                                  (sp-flt spt-scalevel-x (meters -0.0025))
-                                  (sp-rnd-flt spt-scalevel-y (meters 0.24414062) (meters 0.48828125) 1.0)
-                                  (sp-int spt-timer 81)
-                                  (sp-cpuinfo-flags bit3)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 52
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 1.4) 1.0)
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-flt spt-rot-x 16384.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 2.5) 1.0)
+    (sp-rnd-int spt-r 0 1 128.0)
+    (sp-rnd-flt spt-g 64.0 196.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-scalevel-x (meters -0.0025))
+    (sp-rnd-flt spt-scalevel-y (meters 0.24414062) (meters 0.48828125) 1.0)
+    (sp-int spt-timer 81)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 53) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 2.0)
-                                  (sp-rnd-flt spt-x (meters 1.4) (meters 0.9) 1.0)
-                                  (sp-flt spt-scale-x (meters 0.2))
-                                  (sp-flt spt-rot-x 16384.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                  (sp-rnd-int spt-r 0 1 128.0)
-                                  (sp-rnd-flt spt-g 64.0 196.0 1.0)
-                                  (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                  (sp-flt spt-a 128.0)
-                                  (sp-flt spt-scalevel-x (meters -0.0025))
-                                  (sp-rnd-flt spt-scalevel-y (meters 0.048828125) (meters 0.09765625) 1.0)
-                                  (sp-int spt-timer 81)
-                                  (sp-cpuinfo-flags bit3)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 53
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-x (meters 1.4) (meters 0.9) 1.0)
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-flt spt-rot-x 16384.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-int spt-r 0 1 128.0)
+    (sp-rnd-flt spt-g 64.0 196.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-scalevel-x (meters -0.0025))
+    (sp-rnd-flt spt-scalevel-y (meters 0.048828125) (meters 0.09765625) 1.0)
+    (sp-int spt-timer 81)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 54) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 23
-                                  (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                  (sp-flt spt-num 0.5)
-                                  (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
-                                  (sp-flt spt-y (meters -0.5))
-                                  (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                  (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                  (sp-rnd-flt spt-b 10.0 5.0 1.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-                                  (sp-flt spt-vel-y (meters 0.0))
-                                  (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                  (sp-flt spt-fade-a 0.6)
-                                  (sp-flt spt-accel-y 6.826667)
-                                  (sp-flt spt-friction 0.996)
-                                  (sp-int spt-timer 270)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 45)
-                                  (sp-launcher-by-id spt-next-launcher 51)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 54
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 32.0 1.0)
+    (sp-rnd-flt spt-g 32.0 32.0 1.0)
+    (sp-rnd-flt spt-b 10.0 5.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+    (sp-flt spt-fade-a 0.6)
+    (sp-flt spt-accel-y 6.826667)
+    (sp-flt spt-friction 0.996)
+    (sp-int spt-timer 270)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 45)
+    (sp-launcher-by-id spt-next-launcher 51)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 39)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-launcher"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 45 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 46 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 47 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 55 :fade-after (meters 70.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 20480.0)
-        )
-      )
+(defpartgroup group-swamp-launcher
+  :id 39
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 45 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 46 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 47 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 55 :fade-after (meters 70) :falloff-to (meters 100))
+    )
+  )
 
-(set! (-> *part-id-table* 55) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 23
-                                  (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                  (sp-flt spt-num 0.5)
-                                  (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
-                                  (sp-flt spt-y (meters -0.5))
-                                  (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-flt spt-r 16.0 16.0 1.0)
-                                  (sp-rnd-flt spt-g 16.0 16.0 1.0)
-                                  (sp-rnd-flt spt-b 5.0 2.5 1.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-                                  (sp-flt spt-vel-y (meters 0.0))
-                                  (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                  (sp-flt spt-fade-a 0.6)
-                                  (sp-flt spt-accel-y 6.826667)
-                                  (sp-flt spt-friction 0.996)
-                                  (sp-int spt-timer 270)
-                                  (sp-cpuinfo-flags bit2)
-                                  (sp-int spt-next-time 45)
-                                  (sp-launcher-by-id spt-next-launcher 51)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 55
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 16.0 16.0 1.0)
+    (sp-rnd-flt spt-g 16.0 16.0 1.0)
+    (sp-rnd-flt spt-b 5.0 2.5 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+    (sp-flt spt-fade-a 0.6)
+    (sp-flt spt-accel-y 6.826667)
+    (sp-flt spt-friction 0.996)
+    (sp-int spt-timer 270)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 45)
+    (sp-launcher-by-id spt-next-launcher 51)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defbehavior cam-launcher-joystick camera-slave ()
   (when *camera-read-analog*
@@ -2542,24 +2491,21 @@
     )
   )
 
-(set! (-> *part-id-table* 2528) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-set-quat)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-scale-y (meters 5.6))
-                                    (sp-rnd-flt spt-r 0.0 44.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2528
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
+    (sp-func spt-birth-func 'birth-func-set-quat)
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+    (sp-flt spt-scale-y (meters 5.6))
+    (sp-rnd-flt spt-r 0.0 44.0 1.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 32.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
+    )
+  )
 
 (defun draw-eco-beam ((arg0 vector) (arg1 vector))
   (when (line-in-view-frustum? arg0 arg1)
diff --git a/goal_src/engine/game/powerups.gc b/goal_src/engine/game/powerups.gc
index 02d097e91e..3e4914f6b9 100644
--- a/goal_src/engine/game/powerups.gc
+++ b/goal_src/engine/game/powerups.gc
@@ -59,545 +59,470 @@
   (none)
   )
 
-(set! (-> *part-id-table* 255) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-fade-a -1.0666667)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 255
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 192.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -1.0666667)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
 
-(set! (-> *part-id-table* 256)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-int spt-timer 60)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 256
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 192.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -1.0666667)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
 
-(set! (-> *part-id-table* 257) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 3.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 258)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 257
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 1.0 3.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 258)
+    )
+  )
 
-(set! (-> *part-id-table* 259) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 3.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 91)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 258)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 259
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 0.0 3.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 91)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 258)
+    )
+  )
 
-(set! (-> *part-id-table* 258)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -1.0)
-                                                     (sp-flt spt-fade-g -0.4)
-                                                     (sp-flt spt-fade-a -2.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 258
+  :init-specs
+  ((sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-fade-r -1.0)
+    (sp-flt spt-fade-g -0.4)
+    (sp-flt spt-fade-a -2.0)
+    )
+  )
 
-(set! (-> *part-id-table* 260) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 128.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00033333333))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.2)
-                                   (sp-flt spt-accel-y -0.06826667)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit0 bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 260
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-rnd-flt spt-g 32.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 128.0 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00033333333))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.2)
+    (sp-flt spt-accel-y -0.06826667)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit0 bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 70) (new 'static 'sparticle-launch-group
-                                      :length 5
-                                      :duration #x5
-                                      :linger-duration #x1c2
-                                      :name "group-blue-hit-ground-effect"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 5
-                                        (sp-item 261)
-                                        (sp-item 262)
-                                        (sp-item 263 :flags (is-3d))
-                                        (sp-item 264)
-                                        (sp-item 265 :flags (is-3d))
-                                        )
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
+(defpartgroup group-blue-hit-ground-effect
+  :id 70
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 261) (sp-item 262) (sp-item 263 :flags (is-3d)) (sp-item 264) (sp-item 265 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 264) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 32.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                   (sp-rnd-int spt-a 0 63 1.0)
-                                   (sp-flt spt-vel-y (meters 0.093333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-int-plain-rnd spt-next-time 20 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 266)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 264
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-flt spt-y (meters 0.5))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 32.0 32.0 1.0)
+    (sp-rnd-flt spt-b 192.0 63.0 1.0)
+    (sp-rnd-int spt-a 0 63 1.0)
+    (sp-flt spt-vel-y (meters 0.093333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit3)
+    (sp-int-plain-rnd spt-next-time 20 19 1)
+    (sp-launcher-by-id spt-next-launcher 266)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0))
+    )
+  )
 
-(set! (-> *part-id-table* 266)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                                     (sp-rnd-int spt-a 0 63 1.0)
-                                                     (sp-int-plain-rnd spt-next-time 20 19 1)
-                                                     (sp-launcher-by-id spt-next-launcher 266)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 266
+  :init-specs
+  ((sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 32.0 32.0 1.0)
+    (sp-rnd-flt spt-b 192.0 63.0 1.0)
+    (sp-rnd-int spt-a 0 63 1.0)
+    (sp-int-plain-rnd spt-next-time 20 19 1)
+    (sp-launcher-by-id spt-next-launcher 266)
+    )
+  )
 
-(set! (-> *part-id-table* 265) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-flt spt-scale-x (meters 0.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                   (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.21333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-int spt-timer 120)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 60)
-                                   (sp-launcher-by-id spt-next-launcher 267)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 265
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0.5))
+    (sp-flt spt-scale-x (meters 0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 32.0 32.0 1.0)
+    (sp-rnd-flt spt-b 192.0 63.0 1.0)
+    (sp-rnd-flt spt-a 96.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.21333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 60)
+    (sp-launcher-by-id spt-next-launcher 267)
+    )
+  )
 
-(set! (-> *part-id-table* 267)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.1333334) (sp-end))
-        )
-      )
+(defpart 267
+  :init-specs
+  ((sp-flt spt-fade-a -2.1333334))
+  )
 
-(set! (-> *part-id-table* 263) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-flt spt-scale-x (meters 0.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.22666667))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.7111111)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 45)
-                                   (sp-launcher-by-id spt-next-launcher 268)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 263
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0.5))
+    (sp-flt spt-scale-x (meters 0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 32.0 32.0 1.0)
+    (sp-rnd-flt spt-b 192.0 63.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.22666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.7111111)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 45)
+    (sp-launcher-by-id spt-next-launcher 268)
+    )
+  )
 
-(set! (-> *part-id-table* 268)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.4222223) (sp-end))
-        )
-      )
+(defpart 268
+  :init-specs
+  ((sp-flt spt-fade-a -1.4222223))
+  )
 
-(set! (-> *part-id-table* 261) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 32.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y -1.3653333)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 261
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 32.0 32.0 1.0)
+    (sp-rnd-flt spt-b 192.0 63.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 262) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 12.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-flt spt-accel-y -1.3653333)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 262
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 32.0 32.0 1.0)
+    (sp-rnd-flt spt-b 192.0 63.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 269) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 92.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 32.0 92.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-fade-a -1.0)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 269
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 92.0 32.0 1.0)
+    (sp-rnd-flt spt-g 32.0 92.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -1.0)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
 
-(set! (-> *part-id-table* 270)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 92.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 32.0 92.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-a -1.0)
-                                                     (sp-int spt-timer 60)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 270
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 92.0 32.0 1.0)
+    (sp-rnd-flt spt-g 32.0 92.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -1.0)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
 
-(set! (-> *part-id-table* 271) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 2.0 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.024242423)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
-                                   (sp-flt spt-friction 0.93)
-                                   (sp-int-plain-rnd spt-timer 30 209 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 272)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.05))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 271
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 0.5 2.0 1.0)
+    (sp-flt spt-y (meters -0.05))
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 28.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00083333335))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.4)
+    (sp-flt spt-fade-a -0.024242423)
+    (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
+    (sp-flt spt-friction 0.93)
+    (sp-int-plain-rnd spt-timer 30 209 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 272)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.05))
+    )
+  )
 
-(set! (-> *part-id-table* 272)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-r 0.0) (sp-end))
-        )
-      )
+(defpart 272
+  :init-specs
+  ((sp-flt spt-fade-r 0.0))
+  )
 
-(set! (-> *part-id-table* 273) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 92.0 32.0 1.0)
-                                   (sp-flt spt-g 0.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-fade-a -1.0)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 273
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 92.0 32.0 1.0)
+    (sp-flt spt-g 0.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -1.0)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
 
-(set! (-> *part-id-table* 274)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 92.0 32.0 1.0)
-                                                     (sp-flt spt-g 0.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-a -1.0)
-                                                     (sp-int spt-timer 60)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 274
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 92.0 32.0 1.0)
+    (sp-flt spt-g 0.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -1.0)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
 
-(set! (-> *part-id-table* 275) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 2.0 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-flt spt-g 0.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.024242423)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
-                                   (sp-flt spt-friction 0.93)
-                                   (sp-int-plain-rnd spt-timer 30 209 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 276)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.05))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 275
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 0.5 2.0 1.0)
+    (sp-flt spt-y (meters -0.05))
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 28.0 1.0)
+    (sp-flt spt-g 0.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00083333335))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.4)
+    (sp-flt spt-fade-a -0.024242423)
+    (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
+    (sp-flt spt-friction 0.93)
+    (sp-int-plain-rnd spt-timer 30 209 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 276)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.05))
+    )
+  )
 
-(set! (-> *part-id-table* 276)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-r 0.0) (sp-end))
-        )
-      )
+(defpart 276
+  :init-specs
+  ((sp-flt spt-fade-r 0.0))
+  )
 
-(set! (-> *part-id-table* 277) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 92.0 32.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-fade-a -1.0)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 277
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 92.0 32.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -1.0)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
 
-(set! (-> *part-id-table* 278)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-flt spt-g 92.0 32.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-a -1.0)
-                                                     (sp-int spt-timer 60)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 278
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 92.0 32.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -1.0)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
 
-(set! (-> *part-id-table* 279) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 2.0 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 100.0 28.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.024242423)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
-                                   (sp-flt spt-friction 0.93)
-                                   (sp-int-plain-rnd spt-timer 30 209 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 280)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.05))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 279
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 0.5 2.0 1.0)
+    (sp-flt spt-y (meters -0.05))
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 100.0 28.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00083333335))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.4)
+    (sp-flt spt-fade-a -0.024242423)
+    (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
+    (sp-flt spt-friction 0.93)
+    (sp-int-plain-rnd spt-timer 30 209 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 280)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.05))
+    )
+  )
 
-(set! (-> *part-id-table* 280)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-g 0.0) (sp-end))
-        )
-      )
+(defpart 280
+  :init-specs
+  ((sp-flt spt-fade-g 0.0))
+  )
 
 (defun eco-blue-glow ((arg0 vector))
   (sp-launch-particles-var
diff --git a/goal_src/engine/game/projectiles.gc b/goal_src/engine/game/projectiles.gc
index 8385d2b6a8..f54215411b 100644
--- a/goal_src/engine/game/projectiles.gc
+++ b/goal_src/engine/game/projectiles.gc
@@ -174,514 +174,444 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 102)
-      (new 'static 'sparticle-launch-group
-        :length 34
-        :duration #x12c
-        :linger-duration #x5dc
-        :name "group-yellow-eco-fireball"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 34
-          (sp-item 349 :flags (launch-asap) :binding 350)
-          (sp-item 350 :flags (start-dead launch-asap) :binding 351)
-          (sp-item 351 :flags (start-dead launch-asap) :binding 352)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
+(defpartgroup group-yellow-eco-fireball
+  :id 102
+  :duration 300
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 349 :flags (launch-asap) :binding 350)
+    (sp-item 350 :flags (start-dead launch-asap) :binding 351)
+    (sp-item 351 :flags (start-dead launch-asap) :binding 352)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 349) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 9
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 349
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.01))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 0.0)
+    (sp-int spt-timer 1200)
+    (sp-cpuinfo-flags bit3)
+    (sp-func spt-func 'sparticle-track-root-prim)
+    )
+  )
 
-(set! (-> *part-id-table* 350) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 0.0)
-                                   (sp-flt spt-scale-x (meters 5.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 1 873.81335)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 350
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0))
+    (sp-flt spt-scale-x (meters 5))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-flt spt-a 32.0)
+    (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 1 873.81335)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
+    (sp-int spt-timer 1200)
+    (sp-cpuinfo-flags bit2 bit3 bit7)
+    )
+  )
 
-(set! (-> *part-id-table* 351)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                                     (sp-flt spt-z 0.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.11259259))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                                     (sp-int spt-timer 1200)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit7)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 351
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-flt spt-vel-x (meters 0.11259259))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-int spt-timer 1200)
+    (sp-cpuinfo-flags bit2 bit3 bit7)
+    )
+  )
 
-(set! (-> *part-id-table* 352)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-scalevel-x (meters -0.02))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -1.0)
-                                                     (sp-int spt-timer 54)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 352
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-scalevel-x (meters -0.02))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -1.0)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 353) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.011666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.000909091))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.024242423)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
-                                   (sp-flt spt-friction 0.93)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 354)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.3))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 353
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 0.5 0.5 1.0)
+    (sp-flt spt-y (meters -0.05))
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 28.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 96.0)
+    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.011666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.000909091))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.4)
+    (sp-flt spt-fade-a -0.024242423)
+    (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
+    (sp-flt spt-friction 0.93)
+    (sp-int-plain-rnd spt-timer 30 299 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 354)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.3))
+    )
+  )
 
-(set! (-> *part-id-table* 354)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-r 0.0) (sp-end))
-        )
-      )
+(defpart 354
+  :init-specs
+  ((sp-flt spt-fade-r 0.0))
+  )
 
-(set! (-> *part-group-id-table* 103) (new 'static 'sparticle-launch-group
-                                       :length 20
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :name
-                                       "group-part-yellow-eco-fireball-launcher"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 20
-                                         (sp-item 355 :flags (launch-asap))
-                                         (sp-item 356 :flags (bit1) :period 630 :length 15)
-                                         (sp-item 357 :flags (launch-asap))
-                                         (sp-item 358 :flags (launch-asap) :binding 359)
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-part-yellow-eco-fireball-launcher
+  :id 103
+  :duration 600
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 355 :flags (launch-asap))
+    (sp-item 356 :flags (bit1) :period 630 :length 15)
+    (sp-item 357 :flags (launch-asap))
+    (sp-item 358 :flags (launch-asap) :binding 359)
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    )
+  )
 
-(set! (-> *part-id-table* 355) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 8.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-scalevel-x (meters -0.06666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -204.8) 1 74565.41)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.0)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 355
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 8))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-scalevel-x (meters -0.06666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -204.8) 1 74565.41)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.0)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 357)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 5.0)
-                                                     (sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.6) (meters 1.2) 1.0)
-                                                     (sp-rnd-flt spt-z -2457.6 4915.2 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.75) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                                     (sp-flt spt-b 32.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0044444446))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.14222223)
-                                                     (sp-flt spt-fade-a -0.14222223)
-                                                     (sp-flt spt-accel-y -0.06826667)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 357
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 5.0)
+    (sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.6) (meters 1.2) 1.0)
+    (sp-rnd-flt spt-z (meters -0.6) (meters 1.2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.75) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 28.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-flt spt-b 32.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0044444446))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.14222223)
+    (sp-flt spt-fade-a -0.14222223)
+    (sp-flt spt-accel-y -0.06826667)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 356) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 12.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0025000002))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -1.0666667)
-                                   (sp-flt spt-fade-a -0.17777778)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int-plain-rnd spt-timer 60 59 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 180.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 356
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 28.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0025000002))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -1.0666667)
+    (sp-flt spt-fade-a -0.17777778)
+    (sp-flt spt-accel-y -4.096)
+    (sp-flt spt-friction 0.99)
+    (sp-int-plain-rnd spt-timer 60 59 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 180.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 360) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 24.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0025000002))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -1.0666667)
-                                   (sp-flt spt-fade-a -0.17777778)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int-plain-rnd spt-timer 60 59 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 360
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 24.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 28.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0025000002))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -1.0666667)
+    (sp-flt spt-fade-a -0.17777778)
+    (sp-flt spt-accel-y -4.096)
+    (sp-flt spt-friction 0.99)
+    (sp-int-plain-rnd spt-timer 60 59 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 358) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-accel-y -2.048)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 330)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 100.00001) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 180.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 358
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
+    (sp-flt spt-accel-y -2.048)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 330)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 100.00001) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 180.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 361) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 32.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-accel-y -2.048)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 330)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 361
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
+    (sp-flt spt-accel-y -2.048)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 330)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 359) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 409.6 819.2 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.10666667))
-                                   (sp-flt spt-scalevel-x (meters -0.000909091))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.26666668)
-                                   (sp-flt spt-fade-a -0.19393939)
-                                   (sp-int-plain-rnd spt-timer 90 239 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 359
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.1) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 28.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-flt spt-vel-x (meters 0.10666667))
+    (sp-flt spt-scalevel-x (meters -0.000909091))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.26666668)
+    (sp-flt spt-fade-a -0.19393939)
+    (sp-int-plain-rnd spt-timer 90 239 1)
+    (sp-cpuinfo-flags bit2 bit3 bit7)
+    )
+  )
 
-(set! (-> *part-group-id-table* 104)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-part-yellow-eco-fireball-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 2059 :period 600 :length 5)
-          (sp-item 2060 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
-          (sp-item 2061 :period 600 :length 20)
-          (sp-item 2062 :fade-after (meters 120.0) :falloff-to (meters 120.0) :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-part-yellow-eco-fireball-hit
+  :id 104
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 2059 :period 600 :length 5)
+    (sp-item 2060 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
+    (sp-item 2061 :period 600 :length 20)
+    (sp-item 2062 :fade-after (meters 120) :falloff-to (meters 120) :period 600 :length 20)
+    )
+  )
 
-(set! (-> *part-id-table* 2060) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2063)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2060
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0016666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 29 1)
+    (sp-launcher-by-id spt-next-launcher 2063)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2063)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2063
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
+  )
 
-(set! (-> *part-id-table* 2062) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-flt spt-scale-x (meters 0.2))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 8.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.42666668))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2062
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 8))
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 0.42666668))
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2059) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -1.7454545)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2059
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 16))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 192.0 32.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-fade-a -1.7454545)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2061) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int spt-next-time 42)
-                                    (sp-launcher-by-id spt-next-launcher 2064)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2061
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -1.6)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int spt-next-time 42)
+    (sp-launcher-by-id spt-next-launcher 2064)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2064)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r -0.53333336)
-                                                     (sp-flt spt-fade-g -0.53333336)
-                                                     (sp-flt spt-fade-b -1.0666667)
-                                                     (sp-flt spt-fade-a -0.53333336)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2064
+  :init-specs
+  ((sp-flt spt-fade-r -0.53333336)
+    (sp-flt spt-fade-g -0.53333336)
+    (sp-flt spt-fade-b -1.0666667)
+    (sp-flt spt-fade-a -0.53333336)
+    )
+  )
 
 (defmethod dummy-24 projectile ((obj projectile))
   (spawn (-> obj part) (the-as vector (-> obj root-override root-prim prim-core)))
diff --git a/goal_src/engine/game/voicebox.gc b/goal_src/engine/game/voicebox.gc
index c491677c88..6b3d453bca 100644
--- a/goal_src/engine/game/voicebox.gc
+++ b/goal_src/engine/game/voicebox.gc
@@ -68,10 +68,9 @@
       )
     (vector-lerp! (-> self root trans) gp-0 s5-0 (-> self blend))
     )
-  (+!
-    (-> self root trans y)
-    (* 1638.4 (sin (* 54.613335 (the float (mod (-> *display* base-frame-counter) 1200)))))
-    )
+  (+! (-> self root trans y)
+      (* 1638.4 (sin (* 54.613335 (the float (mod (-> *display* base-frame-counter) 1200)))))
+      )
   (let ((gp-1 (new 'stack-no-clear 'quaternion)))
     (forward-up->quaternion
       gp-1
@@ -120,12 +119,13 @@
 (defstate enter (voicebox)
   :virtual #t
   :event
-  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block)) (case arg2
-                                                                                   (('die)
-                                                                                    (go-virtual exit)
-                                                                                    )
-                                                                                   )
-            )
+  (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
+    (case arg2
+      (('die)
+       (go-virtual exit)
+       )
+      )
+    )
   :trans
   (behavior ()
     (voicebox-track)
@@ -137,7 +137,7 @@
   :code
   (behavior ()
     (set-setting! *setting-control* self 'sound-flava #f 20.0 6)
-    (if (and *target* (logtest? (-> *target* control root-prim prim-core action) 512))
+    (if (and *target* (logtest? (-> *target* control root-prim prim-core action) (collide-action ca-9)))
         (send-event
           (ppointer->process (-> self parent-override))
           'set-dist
@@ -196,11 +196,10 @@
     (clear-pending-settings-from-process *setting-control* self 'sound-flava)
     (set! (-> self state-time) (-> *display* base-frame-counter))
     (set! (-> self seeker target) 1.0)
-    (while (and (< (-> self blend) 0.9999) (not (and
-                                                  (not (handle->process (-> self hint)))
-                                                  (>= (- (-> *display* base-frame-counter) (-> self state-time)) 15)
-                                                  (-> *setting-control* current hint)
-                                                  )
+    (while (and (< (-> self blend) 0.9999) (not (and (not (handle->process (-> self hint)))
+                                                     (>= (- (-> *display* base-frame-counter) (-> self state-time)) 15)
+                                                     (-> *setting-control* current hint)
+                                                     )
                                                 )
                 )
       (update! (-> self seeker) 0.0)
diff --git a/goal_src/engine/gfx/depth-cue.gc b/goal_src/engine/gfx/depth-cue.gc
index 742bd77c7f..9e171d4b0d 100644
--- a/goal_src/engine/gfx/depth-cue.gc
+++ b/goal_src/engine/gfx/depth-cue.gc
@@ -421,8 +421,8 @@
 
 (defun depth-cue-calc-z ((arg0 float))
   (+ (* (+ (* arg0 (-> *math-camera* perspective vector 2 z)) (-> *math-camera* perspective vector 3 z))
-         (/ (-> *math-camera* d) arg0)
-         )
+        (/ (-> *math-camera* d) arg0)
+        )
      (-> *math-camera* hvdf-off z)
      )
   )
@@ -567,10 +567,9 @@
               (set! (-> v1-27 length) (max 84 (-> v1-27 length)))
               (set! (-> v1-27 data 83 name) "depth-cue")
               (+! (-> v1-27 data 83 count) 1)
-              (+!
-                (-> v1-27 data 83 used)
-                (&- (-> *display* frames (-> *display* on-screen) frame global-buf base) (the-as uint gp-0))
-                )
+              (+! (-> v1-27 data 83 used)
+                  (&- (-> *display* frames (-> *display* on-screen) frame global-buf base) (the-as uint gp-0))
+                  )
               (set! (-> v1-27 data 83 total) (-> v1-27 data 83 used))
               )
             )
diff --git a/goal_src/engine/gfx/merc/merc-death.gc b/goal_src/engine/gfx/merc/merc-death.gc
index 6f435897de..3621183c58 100644
--- a/goal_src/engine/gfx/merc/merc-death.gc
+++ b/goal_src/engine/gfx/merc/merc-death.gc
@@ -29,69 +29,38 @@
 
 (define
   death-beach-puppy
-  (new 'static 'death-info
-   :vertex-skip #x82
-   :timer #x4b
-   :overlap #x4
-   :effect #x29
-   :sound 'temp-enemy-die
-   )
+  (new 'static 'death-info :vertex-skip #x82 :timer #x4b :overlap #x4 :effect #x29 :sound 'temp-enemy-die)
   )
 
 (define
   death-jungle-snake
-  (new 'static 'death-info
-   :vertex-skip #xa
-   :timer #x4b
-   :overlap #x4
-   :effect #x29
-   :sound 'temp-enemy-die
-   )
+  (new 'static 'death-info :vertex-skip #xa :timer #x4b :overlap #x4 :effect #x29 :sound 'temp-enemy-die)
   )
 
 (define
   death-default
-  (new 'static 'death-info
-   :vertex-skip #x50
-   :timer #x4b
-   :overlap #x4
-   :effect #x29
-   :sound 'temp-enemy-die
-   )
+  (new 'static 'death-info :vertex-skip #x50 :timer #x4b :overlap #x4 :effect #x29 :sound 'temp-enemy-die)
   )
 
 (define
   death-warp-in
-  (new 'static 'death-info
-   :vertex-skip #x96
-   :timer #x4b
-   :effect #x29
-   :sound 'warpgate-tele
-   )
+  (new 'static 'death-info :vertex-skip #x96 :timer #x4b :effect #x29 :sound 'warpgate-tele)
   )
 
 (define
   death-warp-out
-  (new 'static 'death-info
-   :vertex-skip #x96
-   :timer #x96
-   :effect #x29
-   :sound 'warpgate-tele
-   )
+  (new 'static 'death-info :vertex-skip #x96 :timer #x96 :effect #x29 :sound 'warpgate-tele)
   )
 
-(set!
-  (-> *part-id-table* 41)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-scale-x (meters 0.5))
+(defpart 41
+  :init-specs
+  ((sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 32.0 1.0)
     (sp-rnd-flt spt-g 16.0 32.0 1.0)
     (sp-rnd-flt spt-b 48.0 32.0 1.0)
     (sp-rnd-flt spt-a 48.0 48.0 1.0)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
     (sp-flt spt-scalevel-x (meters -0.0016666667))
     (sp-flt spt-scalevel-y (meters 0.02))
     (sp-flt spt-accel-y -2.7306666)
@@ -99,44 +68,29 @@
     (sp-cpuinfo-flags bit2 bit3 bit12)
     (sp-int-plain-rnd spt-next-time 15 59 1)
     (sp-launcher-by-id spt-next-launcher 42)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 42)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-a -1.4222223)
+(defpart 42
+  :init-specs
+  ((sp-flt spt-fade-a -1.4222223)
     (sp-int spt-timer 45)
     (sp-int spt-next-time 42)
     (sp-launcher-by-id spt-next-launcher 43)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 43)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-scalevel-x (meters 0.0))
-    (sp-flt spt-fade-a -0.21333334)
-    (sp-int-plain-rnd spt-timer 0 296 1)
-    (sp-end)
-    )
-   )
+(defpart 43
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0)) (sp-flt spt-fade-a -0.21333334) (sp-int-plain-rnd spt-timer 0 296 1))
   )
 
 (defun merc-death-spawn ((arg0 int) (arg1 vector) (arg2 vector))
   (let ((v1-2 (-> *part-id-table* arg0)))
-   (if (and (nonzero? v1-2) (= (-> v1-2 type) sparticle-launcher))
-    (sp-launch-particles-death *sp-particle-system-2d* v1-2 arg1)
+    (if (and (nonzero? v1-2) (= (-> v1-2 type) sparticle-launcher))
+        (sp-launch-particles-death *sp-particle-system-2d* v1-2 arg1)
+        )
     )
-   )
   0
   (none)
   )
diff --git a/goal_src/engine/gfx/shadow/shadow.gc b/goal_src/engine/gfx/shadow/shadow.gc
index b91a698dfe..1b13559b4b 100644
--- a/goal_src/engine/gfx/shadow/shadow.gc
+++ b/goal_src/engine/gfx/shadow/shadow.gc
@@ -158,32 +158,29 @@
   (none)
   )
 
-(set! (-> *part-id-table* 362) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 90.0)
-                                   (sp-flt spt-g 90.0)
-                                   (sp-flt spt-b 90.0)
-                                   (sp-rnd-flt spt-a 20.0 20.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.002))
-                                   (sp-flt spt-scalevel-x (meters 0.004166667))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.3)
-                                   (sp-int spt-timer 5004)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 15.0) 1.0)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.2))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 362
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-flt spt-scale-x (meters 0.3))
+    (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 90.0)
+    (sp-flt spt-g 90.0)
+    (sp-flt spt-b 90.0)
+    (sp-rnd-flt spt-a 20.0 20.0 1.0)
+    (sp-flt spt-vel-y (meters 0.002))
+    (sp-flt spt-scalevel-x (meters 0.004166667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.3)
+    (sp-int spt-timer 5004)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 15.0) 1.0)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.2))
+    )
+  )
 
 
 
diff --git a/goal_src/engine/gfx/shrub/shrub-work.gc b/goal_src/engine/gfx/shrub/shrub-work.gc
index 3b54746c73..3474ad33d6 100644
--- a/goal_src/engine/gfx/shrub/shrub-work.gc
+++ b/goal_src/engine/gfx/shrub/shrub-work.gc
@@ -10,642 +10,488 @@
 (define
   *instance-shrub-work*
   (new 'static 'instance-shrub-work
-   :matrix-tmpl
-   (new 'static 'inline-array qword 20
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c050143)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050148)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05014d)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050152)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050157)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05015c)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050161)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050166)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05016b)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c050170)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c050176)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05017b)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050180)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050185)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05018a)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05018f)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050194)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050199)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05019e)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c0501a3)
-     )
-    )
-   :count-tmpl
-   (new 'static 'inline-array qword 20
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #xa)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x1)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x2)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x3)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x4)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x5)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x6)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x7)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x8)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x9)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #xa)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x1)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x2)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x3)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x4)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x5)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x6)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x7)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x8)
-     )
-    (new 'static 'qword
-     :data
-     (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x9)
-     )
-    )
-   :mscalf-tmpl
-   (new 'static 'dma-packet
-    :dma
-    (new 'static 'dma-tag :id (dma-tag-id next))
-    :vif0
-    (new 'static 'vif-tag :cmd (vif-cmd mscalf) :msk #x1)
-    )
-   :mscalf-ret-tmpl
-   (new 'static 'dma-packet
-    :dma
-    (new 'static 'dma-tag :id (dma-tag-id ret))
-    :vif0
-    (new 'static 'vif-tag :cmd (vif-cmd mscalf) :msk #x1)
-    )
-   :adgif-tmpl
-   (new 'static 'dma-gif-packet
-    :dma-vif
+    :matrix-tmpl
+    (new 'static 'inline-array qword 20
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c050143))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050148))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05014d))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050152))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050157))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05015c))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050161))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050166))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05016b))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c050170))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c050176))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05017b))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050180))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050185))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05018a))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05018f))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050194))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c050199))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000005 #x0 #x0 #x6c05019e))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x10000005 #x0 #x0 #x6c0501a3))
+      )
+    :count-tmpl
+    (new 'static 'inline-array qword 20
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #xa))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x1))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x2))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x3))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x4))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x5))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x6))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x7))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x8))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #x9))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010142 #xa))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x1))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x2))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x3))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x4))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x5))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x6))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x7))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x8))
+      (new 'static 'qword :data (new 'static 'array uint32 4 #x20000000 #x0 #x60010175 #x9))
+      )
+    :mscalf-tmpl
     (new 'static 'dma-packet
-     :dma
-     (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id next))
-     :vif1
-     (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
-     )
-    :gif
-    (new 'static 'array uint64 2 #x1000000000008005 #xe)
-    )
-   :billboard-tmpl
-   (new 'static 'dma-gif-packet
-    :dma-vif
+      :dma
+      (new 'static 'dma-tag :id (dma-tag-id next))
+      :vif0
+      (new 'static 'vif-tag :cmd (vif-cmd mscalf) :msk #x1)
+      )
+    :mscalf-ret-tmpl
     (new 'static 'dma-packet
-     :dma
-     (new 'static 'dma-tag :qwc #xd :id (dma-tag-id next))
-     :vif1
-     (new 'static 'vif-tag :imm #xd :cmd (vif-cmd direct) :msk #x1)
-     )
-    :gif
-    (new 'static 'array uint64 2 #x303e400000008004 #x412)
+      :dma
+      (new 'static 'dma-tag :id (dma-tag-id ret))
+      :vif0
+      (new 'static 'vif-tag :cmd (vif-cmd mscalf) :msk #x1)
+      )
+    :adgif-tmpl
+    (new 'static 'dma-gif-packet
+      :dma-vif
+      (new 'static 'dma-packet
+        :dma
+        (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id next))
+        :vif1
+        (new 'static 'vif-tag :imm #x6 :cmd (vif-cmd direct) :msk #x1)
+        )
+      :gif
+      (new 'static 'array uint64 2 #x1000000000008005 #xe)
+      )
+    :billboard-tmpl
+    (new 'static 'dma-gif-packet
+      :dma-vif
+      (new 'static 'dma-packet
+        :dma
+        (new 'static 'dma-tag :qwc #xd :id (dma-tag-id next))
+        :vif1
+        (new 'static 'vif-tag :imm #xd :cmd (vif-cmd direct) :msk #x1)
+        )
+      :gif
+      (new 'static 'array uint64 2 #x303e400000008004 #x412)
+      )
+    :shrub-near-packets
+    (new 'static 'inline-array shrub-near-packet 6
+      (new 'static 'shrub-near-packet
+        :matrix-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x345 :num #x6 :cmd (vif-cmd unpack-v4-32))
+          )
+        :header-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x34c :cmd (vif-cmd unpack-v4-32))
+          )
+        :stq-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif0
+          (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x9 :cmd (vif-cmd unpack-v2-16))
+          )
+        :color-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x400a :cmd (vif-cmd unpack-v3-8))
+          )
+        :vertex-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #xb :cmd (vif-cmd unpack-v3-16))
+          )
+        :mscal-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
+          )
+        :init-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
+          )
+        :init-data
+        (new 'static 'array uint32 8 #x0 #x0 #x345 #x117 #x0 #x0 #x0 #x1500000c)
+        )
+      (new 'static 'shrub-near-packet
+        :matrix-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x363 :num #x6 :cmd (vif-cmd unpack-v4-32))
+          )
+        :header-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x36a :cmd (vif-cmd unpack-v4-32))
+          )
+        :stq-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif0
+          (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x120 :cmd (vif-cmd unpack-v2-16))
+          )
+        :color-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x4121 :cmd (vif-cmd unpack-v3-8))
+          )
+        :vertex-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x122 :cmd (vif-cmd unpack-v3-16))
+          )
+        :mscal-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
+          )
+        :init-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
+          )
+        :init-data
+        (new 'static 'array uint32 8 #x0 #x0 #x363 #x22e #x0 #x0 #x0 #x1500000c)
+        )
+      (new 'static 'shrub-near-packet
+        :matrix-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x345 :num #x6 :cmd (vif-cmd unpack-v4-32))
+          )
+        :header-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x34c :cmd (vif-cmd unpack-v4-32))
+          )
+        :stq-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif0
+          (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x237 :cmd (vif-cmd unpack-v2-16))
+          )
+        :color-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x4238 :cmd (vif-cmd unpack-v3-8))
+          )
+        :vertex-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x239 :cmd (vif-cmd unpack-v3-16))
+          )
+        :mscal-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
+          )
+        :init-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
+          )
+        :init-data
+        (new 'static 'array uint32 8 #x0 #x0 #x345 #x0 #x0 #x0 #x0 #x1500000c)
+        )
+      (new 'static 'shrub-near-packet
+        :matrix-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x363 :num #x6 :cmd (vif-cmd unpack-v4-32))
+          )
+        :header-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x36a :cmd (vif-cmd unpack-v4-32))
+          )
+        :stq-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif0
+          (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x9 :cmd (vif-cmd unpack-v2-16))
+          )
+        :color-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x400a :cmd (vif-cmd unpack-v3-8))
+          )
+        :vertex-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #xb :cmd (vif-cmd unpack-v3-16))
+          )
+        :mscal-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
+          )
+        :init-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
+          )
+        :init-data
+        (new 'static 'array uint32 8 #x0 #x0 #x363 #x117 #x0 #x0 #x0 #x1500000c)
+        )
+      (new 'static 'shrub-near-packet
+        :matrix-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x345 :num #x6 :cmd (vif-cmd unpack-v4-32))
+          )
+        :header-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x34c :cmd (vif-cmd unpack-v4-32))
+          )
+        :stq-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif0
+          (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x120 :cmd (vif-cmd unpack-v2-16))
+          )
+        :color-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x4121 :cmd (vif-cmd unpack-v3-8))
+          )
+        :vertex-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x122 :cmd (vif-cmd unpack-v3-16))
+          )
+        :mscal-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
+          )
+        :init-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
+          )
+        :init-data
+        (new 'static 'array uint32 8 #x0 #x0 #x345 #x22e #x0 #x0 #x0 #x1500000c)
+        )
+      (new 'static 'shrub-near-packet
+        :matrix-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x363 :num #x6 :cmd (vif-cmd unpack-v4-32))
+          )
+        :header-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x36a :cmd (vif-cmd unpack-v4-32))
+          )
+        :stq-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif0
+          (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x237 :cmd (vif-cmd unpack-v2-16))
+          )
+        :color-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x4238 :cmd (vif-cmd unpack-v3-8))
+          )
+        :vertex-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id ref))
+          :vif1
+          (new 'static 'vif-tag :imm #x239 :cmd (vif-cmd unpack-v3-16))
+          )
+        :mscal-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
+          )
+        :init-tmpl
+        (new 'static 'dma-packet
+          :dma
+          (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
+          :vif0
+          (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
+          :vif1
+          (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
+          )
+        :init-data
+        (new 'static 'array uint32 8 #x0 #x0 #x363 #x0 #x0 #x0 #x0 #x1500000c)
+        )
+      )
+    :dma-ref
+    (new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id ref)))
+    :dma-end
+    (new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id end)))
+    :wind-const
+    (new 'static 'vector :x 0.5 :y 100.0 :z 0.0166 :w -1.0)
+    :constants (new 'static 'vector :x 128.0 :y 1.0)
+    :color-constant
+    (new 'static 'vector4w :x #x47000000 :y #x47000000 :z #x47000000)
+    :start-bank
+    (new 'static 'array uint8 20 #x0 #x1 #x1 #x1 #x1 #x1 #x1 #x1 #x1 #x1 #x1 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0 #x0)
     )
-   :shrub-near-packets
-   (new 'static 'inline-array shrub-near-packet 6
-    (new 'static 'shrub-near-packet
-     :matrix-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x345 :num #x6 :cmd (vif-cmd unpack-v4-32))
-      )
-     :header-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x34c :cmd (vif-cmd unpack-v4-32))
-      )
-     :stq-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif0
-      (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x9 :cmd (vif-cmd unpack-v2-16))
-      )
-     :color-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x400a :cmd (vif-cmd unpack-v3-8))
-      )
-     :vertex-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #xb :cmd (vif-cmd unpack-v3-16))
-      )
-     :mscal-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
-      )
-     :init-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
-      )
-     :init-data
-     (new 'static 'array uint32 8 #x0 #x0 #x345 #x117 #x0 #x0 #x0 #x1500000c)
-     )
-    (new 'static 'shrub-near-packet
-     :matrix-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x363 :num #x6 :cmd (vif-cmd unpack-v4-32))
-      )
-     :header-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x36a :cmd (vif-cmd unpack-v4-32))
-      )
-     :stq-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif0
-      (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x120 :cmd (vif-cmd unpack-v2-16))
-      )
-     :color-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x4121 :cmd (vif-cmd unpack-v3-8))
-      )
-     :vertex-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x122 :cmd (vif-cmd unpack-v3-16))
-      )
-     :mscal-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
-      )
-     :init-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
-      )
-     :init-data
-     (new 'static 'array uint32 8 #x0 #x0 #x363 #x22e #x0 #x0 #x0 #x1500000c)
-     )
-    (new 'static 'shrub-near-packet
-     :matrix-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x345 :num #x6 :cmd (vif-cmd unpack-v4-32))
-      )
-     :header-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x34c :cmd (vif-cmd unpack-v4-32))
-      )
-     :stq-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif0
-      (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x237 :cmd (vif-cmd unpack-v2-16))
-      )
-     :color-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x4238 :cmd (vif-cmd unpack-v3-8))
-      )
-     :vertex-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x239 :cmd (vif-cmd unpack-v3-16))
-      )
-     :mscal-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
-      )
-     :init-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
-      )
-     :init-data
-     (new 'static 'array uint32 8 #x0 #x0 #x345 #x0 #x0 #x0 #x0 #x1500000c)
-     )
-    (new 'static 'shrub-near-packet
-     :matrix-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x363 :num #x6 :cmd (vif-cmd unpack-v4-32))
-      )
-     :header-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x36a :cmd (vif-cmd unpack-v4-32))
-      )
-     :stq-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif0
-      (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x9 :cmd (vif-cmd unpack-v2-16))
-      )
-     :color-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x400a :cmd (vif-cmd unpack-v3-8))
-      )
-     :vertex-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #xb :cmd (vif-cmd unpack-v3-16))
-      )
-     :mscal-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
-      )
-     :init-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
-      )
-     :init-data
-     (new 'static 'array uint32 8 #x0 #x0 #x363 #x117 #x0 #x0 #x0 #x1500000c)
-     )
-    (new 'static 'shrub-near-packet
-     :matrix-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x345 :num #x6 :cmd (vif-cmd unpack-v4-32))
-      )
-     :header-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x34c :cmd (vif-cmd unpack-v4-32))
-      )
-     :stq-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif0
-      (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x120 :cmd (vif-cmd unpack-v2-16))
-      )
-     :color-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x4121 :cmd (vif-cmd unpack-v3-8))
-      )
-     :vertex-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x122 :cmd (vif-cmd unpack-v3-16))
-      )
-     :mscal-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
-      )
-     :init-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
-      )
-     :init-data
-     (new 'static 'array uint32 8 #x0 #x0 #x345 #x22e #x0 #x0 #x0 #x1500000c)
-     )
-    (new 'static 'shrub-near-packet
-     :matrix-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x363 :num #x6 :cmd (vif-cmd unpack-v4-32))
-      )
-     :header-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x36a :cmd (vif-cmd unpack-v4-32))
-      )
-     :stq-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif0
-      (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x237 :cmd (vif-cmd unpack-v2-16))
-      )
-     :color-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x4238 :cmd (vif-cmd unpack-v3-8))
-      )
-     :vertex-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id ref))
-      :vif1
-      (new 'static 'vif-tag :imm #x239 :cmd (vif-cmd unpack-v3-16))
-      )
-     :mscal-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
-      )
-     :init-tmpl
-     (new 'static 'dma-packet
-      :dma
-      (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id next))
-      :vif0
-      (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-      :vif1
-      (new 'static 'vif-tag :imm #x38a :num #x1 :cmd (vif-cmd unpack-v4-32))
-      )
-     :init-data
-     (new 'static 'array uint32 8 #x0 #x0 #x363 #x0 #x0 #x0 #x0 #x1500000c)
-     )
-    )
-   :dma-ref
-   (new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id ref)))
-   :dma-end
-   (new 'static 'dma-packet :dma (new 'static 'dma-tag :id (dma-tag-id end)))
-   :wind-const
-   (new 'static 'vector :x 0.5 :y 100.0 :z 0.0166 :w -1.0)
-   :constants (new 'static 'vector :x 128.0 :y 1.0)
-   :color-constant
-   (new 'static 'vector4w :x #x47000000 :y #x47000000 :z #x47000000)
-   :start-bank
-   (new 'static 'array uint8 20
-    #x0
-    #x1
-    #x1
-    #x1
-    #x1
-    #x1
-    #x1
-    #x1
-    #x1
-    #x1
-    #x1
-    #x0
-    #x0
-    #x0
-    #x0
-    #x0
-    #x0
-    #x0
-    #x0
-    #x0
-    )
-   )
   )
 
 (set! (-> *instance-shrub-work* mscalf-tmpl vif0 imm) 103)
 
 (set! (-> *instance-shrub-work* mscalf-ret-tmpl vif0 imm) 103)
 
-(defun
-  upload-generic-shrub
-  ((arg0 dma-buffer) (arg1 generic-shrub-fragment) (arg2 int) (arg3 int))
+(defun upload-generic-shrub ((arg0 dma-buffer) (arg1 generic-shrub-fragment) (arg2 int) (arg3 int))
   (let* ((v1-0 arg0)
          (t0-0 (the-as object (-> v1-0 base)))
          )
-   (set!
-    (-> (the-as dma-packet t0-0) dma)
-    (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt))
+    (set! (-> (the-as dma-packet t0-0) dma) (new 'static 'dma-tag :qwc #x6 :id (dma-tag-id cnt)))
+    (set! (-> (the-as dma-packet t0-0) vif0) (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl)))
+    (set! (-> (the-as dma-packet t0-0) vif1)
+          (new 'static 'vif-tag :num #x6 :cmd (vif-cmd unpack-v4-32) :imm (shr (shl arg2 54) 54))
+          )
+    (set! (-> v1-0 base) (&+ (the-as pointer t0-0) 16))
     )
-   (set!
-    (-> (the-as dma-packet t0-0) vif0)
-    (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-    )
-   (set!
-    (-> (the-as dma-packet t0-0) vif1)
-    (new 'static 'vif-tag
-     :num #x6
-     :cmd (vif-cmd unpack-v4-32)
-     :imm (shr (shl arg2 54) 54)
-     )
-    )
-   (set! (-> v1-0 base) (&+ (the-as pointer t0-0) 16))
-   )
   (let* ((v1-1 (the-as matrix (-> arg0 base)))
          (t3-0 (-> *math-camera* camera-temp))
          (t0-3 (-> t3-0 vector 0 quad))
@@ -653,136 +499,81 @@
          (t2-4 (-> t3-0 vector 2 quad))
          (t3-1 (-> t3-0 vector 3 quad))
          )
-   (set! (-> v1-1 vector 0 quad) t0-3)
-   (set! (-> v1-1 vector 1 quad) t1-4)
-   (set! (-> v1-1 vector 2 quad) t2-4)
-   (set! (-> v1-1 vector 3 quad) t3-1)
-   )
+    (set! (-> v1-1 vector 0 quad) t0-3)
+    (set! (-> v1-1 vector 1 quad) t1-4)
+    (set! (-> v1-1 vector 2 quad) t2-4)
+    (set! (-> v1-1 vector 3 quad) t3-1)
+    )
   (&+! (-> arg0 base) 64)
   (let* ((v1-4 arg0)
          (t0-4 (the-as object (-> v1-4 base)))
          )
-   (set! (-> (the-as vector4w-2 t0-4) vector 0 x) #x3f800000)
-   (set! (-> (the-as vector4w-2 t0-4) vector 0 y) #x3f800000)
-   (set! (-> (the-as vector4w-2 t0-4) vector 0 z) #x3f800000)
-   (set! (-> (the-as vector4w-2 t0-4) vector 0 w) 128)
-   (set!
-    (-> (the-as vector4w-2 t0-4) vector 1 x)
-    (the-as int (-> arg1 vtx-cnt))
+    (set! (-> (the-as vector4w-2 t0-4) vector 0 x) #x3f800000)
+    (set! (-> (the-as vector4w-2 t0-4) vector 0 y) #x3f800000)
+    (set! (-> (the-as vector4w-2 t0-4) vector 0 z) #x3f800000)
+    (set! (-> (the-as vector4w-2 t0-4) vector 0 w) 128)
+    (set! (-> (the-as vector4w-2 t0-4) vector 1 x) (the-as int (-> arg1 vtx-cnt)))
+    (set! (-> (the-as vector4w-2 t0-4) vector 1 y) 0)
+    (set! (-> (the-as vector4w-2 t0-4) vector 1 z) 0)
+    (set! (-> (the-as vector4w-2 t0-4) vector 1 w) 0)
+    (set! (-> v1-4 base) (&+ (the-as pointer t0-4) 32))
     )
-   (set! (-> (the-as vector4w-2 t0-4) vector 1 y) 0)
-   (set! (-> (the-as vector4w-2 t0-4) vector 1 z) 0)
-   (set! (-> (the-as vector4w-2 t0-4) vector 1 w) 0)
-   (set! (-> v1-4 base) (&+ (the-as pointer t0-4) 32))
-   )
   (let* ((v1-5 arg0)
          (t0-6 (the-as object (-> v1-5 base)))
          )
-   (set!
-    (-> (the-as dma-packet t0-6) dma)
-    (new 'static 'dma-tag
-     :id (dma-tag-id ref)
-     :addr (-> arg1 cnt)
-     :qwc (-> arg1 cnt-qwc)
-     )
+    (set! (-> (the-as dma-packet t0-6) dma)
+          (new 'static 'dma-tag :id (dma-tag-id ref) :addr (-> arg1 cnt) :qwc (-> arg1 cnt-qwc))
+          )
+    (set! (-> (the-as dma-packet t0-6) vif0) (new 'static 'vif-tag))
+    (set! (-> (the-as dma-packet t0-6) vif1)
+          (new 'static 'vif-tag :cmd (vif-cmd unpack-v4-32) :imm (shr (shl (+ arg2 6) 54) 54) :num (-> arg1 cnt-qwc))
+          )
+    (set! (-> v1-5 base) (&+ (the-as pointer t0-6) 16))
     )
-   (set! (-> (the-as dma-packet t0-6) vif0) (new 'static 'vif-tag))
-   (set!
-    (-> (the-as dma-packet t0-6) vif1)
-    (new 'static 'vif-tag
-     :cmd (vif-cmd unpack-v4-32)
-     :imm (shr (shl (+ arg2 6) 54) 54)
-     :num (-> arg1 cnt-qwc)
-     )
-    )
-   (set! (-> v1-5 base) (&+ (the-as pointer t0-6) 16))
-   )
   (let* ((v1-6 arg0)
          (a2-8 (the-as object (-> v1-6 base)))
          )
-   (set!
-    (-> (the-as dma-packet a2-8) dma)
-    (new 'static 'dma-tag
-     :id (dma-tag-id ref)
-     :addr (-> arg1 stq)
-     :qwc (-> arg1 stq-qwc)
-     )
+    (set! (-> (the-as dma-packet a2-8) dma)
+          (new 'static 'dma-tag :id (dma-tag-id ref) :addr (-> arg1 stq) :qwc (-> arg1 stq-qwc))
+          )
+    (set! (-> (the-as dma-packet a2-8) vif0) (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl)))
+    (set! (-> (the-as dma-packet a2-8) vif1)
+          (new 'static 'vif-tag :cmd (vif-cmd unpack-v2-16) :imm (shr (shl arg3 54) 54) :num (-> arg1 vtx-cnt))
+          )
+    (set! (-> v1-6 base) (&+ (the-as pointer a2-8) 16))
     )
-   (set!
-    (-> (the-as dma-packet a2-8) vif0)
-    (new 'static 'vif-tag :imm #x103 :cmd (vif-cmd stcycl))
-    )
-   (set!
-    (-> (the-as dma-packet a2-8) vif1)
-    (new 'static 'vif-tag
-     :cmd (vif-cmd unpack-v2-16)
-     :imm (shr (shl arg3 54) 54)
-     :num (-> arg1 vtx-cnt)
-     )
-    )
-   (set! (-> v1-6 base) (&+ (the-as pointer a2-8) 16))
-   )
   (let* ((v1-7 arg0)
          (a2-10 (the-as object (-> v1-7 base)))
          )
-   (set!
-    (-> (the-as dma-packet a2-10) dma)
-    (new 'static 'dma-tag
-     :id (dma-tag-id ref)
-     :addr (-> arg1 col)
-     :qwc (-> arg1 col-qwc)
-     )
+    (set! (-> (the-as dma-packet a2-10) dma)
+          (new 'static 'dma-tag :id (dma-tag-id ref) :addr (-> arg1 col) :qwc (-> arg1 col-qwc))
+          )
+    (set! (-> (the-as dma-packet a2-10) vif0) (new 'static 'vif-tag))
+    (set! (-> (the-as dma-packet a2-10) vif1)
+          (new 'static 'vif-tag :cmd (vif-cmd unpack-v3-8) :imm (shr (shl (+ arg3 1) 54) 54) :num (-> arg1 vtx-cnt))
+          )
+    (set! (-> v1-7 base) (&+ (the-as pointer a2-10) 16))
     )
-   (set! (-> (the-as dma-packet a2-10) vif0) (new 'static 'vif-tag))
-   (set!
-    (-> (the-as dma-packet a2-10) vif1)
-    (new 'static 'vif-tag
-     :cmd (vif-cmd unpack-v3-8)
-     :imm (shr (shl (+ arg3 1) 54) 54)
-     :num (-> arg1 vtx-cnt)
-     )
-    )
-   (set! (-> v1-7 base) (&+ (the-as pointer a2-10) 16))
-   )
   (let* ((v1-8 arg0)
          (a2-12 (the-as object (-> v1-8 base)))
          )
-   (set!
-    (-> (the-as dma-packet a2-12) dma)
-    (new 'static 'dma-tag
-     :id (dma-tag-id ref)
-     :addr (-> arg1 vtx)
-     :qwc (-> arg1 vtx-qwc)
-     )
+    (set! (-> (the-as dma-packet a2-12) dma)
+          (new 'static 'dma-tag :id (dma-tag-id ref) :addr (-> arg1 vtx) :qwc (-> arg1 vtx-qwc))
+          )
+    (set! (-> (the-as dma-packet a2-12) vif0) (new 'static 'vif-tag))
+    (set! (-> (the-as dma-packet a2-12) vif1)
+          (new 'static 'vif-tag :cmd (vif-cmd unpack-v3-16) :imm (shr (shl (+ arg3 2) 54) 54) :num (-> arg1 vtx-cnt))
+          )
+    (set! (-> v1-8 base) (&+ (the-as pointer a2-12) 16))
     )
-   (set! (-> (the-as dma-packet a2-12) vif0) (new 'static 'vif-tag))
-   (set!
-    (-> (the-as dma-packet a2-12) vif1)
-    (new 'static 'vif-tag
-     :cmd (vif-cmd unpack-v3-16)
-     :imm (shr (shl (+ arg3 2) 54) 54)
-     :num (-> arg1 vtx-cnt)
-     )
-    )
-   (set! (-> v1-8 base) (&+ (the-as pointer a2-12) 16))
-   )
   (let* ((v1-9 arg0)
          (a1-7 (the-as object (-> v1-9 base)))
          )
-   (set!
-    (-> (the-as dma-packet a1-7) dma)
-    (new 'static 'dma-tag :id (dma-tag-id cnt))
+    (set! (-> (the-as dma-packet a1-7) dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
+    (set! (-> (the-as dma-packet a1-7) vif0) (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl)))
+    (set! (-> (the-as dma-packet a1-7) vif1) (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1))
+    (set! (-> v1-9 base) (&+ (the-as pointer a1-7) 16))
     )
-   (set!
-    (-> (the-as dma-packet a1-7) vif0)
-    (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
-    )
-   (set!
-    (-> (the-as dma-packet a1-7) vif1)
-    (new 'static 'vif-tag :imm #xa :cmd (vif-cmd mscal) :msk #x1)
-    )
-   (set! (-> v1-9 base) (&+ (the-as pointer a1-7) 16))
-   )
   arg0
   )
 
diff --git a/goal_src/engine/gfx/water/water.gc b/goal_src/engine/gfx/water/water.gc
index 71b58e712e..cec38d0865 100644
--- a/goal_src/engine/gfx/water/water.gc
+++ b/goal_src/engine/gfx/water/water.gc
@@ -7,35 +7,30 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-id-table* 108) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.6) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.001) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 109)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 108
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.001) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 109)
+    )
+  )
 
-(set! (-> *part-id-table* 109)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.2) (sp-end))
-        )
-      )
+(defpart 109
+  :init-specs
+  ((sp-flt spt-fade-a -0.2))
+  )
 
 (defun birth-func-y->userdata ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
   (+! (-> arg1 user-float) (-> arg2 vector 0 y))
@@ -83,717 +78,597 @@
   (none)
   )
 
-(set! (-> *part-id-table* 110) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 12.0)
-                                   (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.05) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.05) (meters 0.05) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 24.0 40.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 1500)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-above-and-die)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 110
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-y (meters -0.05) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.05) (meters 0.05) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 24.0 40.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-above-and-die)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 111) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 0.1)
-                                   (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                   (sp-flt spt-y (meters 0.15))
-                                   (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.05) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-accel-y 1.3653333)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 1500)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-above-and-die)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 111
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 0.1)
+    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+    (sp-flt spt-y (meters 0.15))
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.05) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 40.0 24.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-above-and-die)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 112) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 0.05)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.001) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.42666668)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 113)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 112
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 0.05)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.001) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.42666668)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 113)
+    )
+  )
 
-(set! (-> *part-id-table* 113)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 360)
-                                                     (sp-launcher-by-id spt-next-launcher 114)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 113
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 114))
+  )
 
-(set! (-> *part-id-table* 114)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.7111111) (sp-end))
-        )
-      )
+(defpart 114
+  :init-specs
+  ((sp-flt spt-fade-a -0.7111111))
+  )
 
-(set! (-> *part-id-table* 115) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-rnd-flt spt-num 0.04 0.03 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-z -819.2 1638.4 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.008333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.64)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 116)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 115
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-rnd-flt spt-num 0.04 0.03 1.0)
+    (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.2) (meters 0.4) 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.008333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.64)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 116)
+    )
+  )
 
-(set! (-> *part-id-table* 116)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 117)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 116
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.0)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 117)
+    )
+  )
 
-(set! (-> *part-id-table* 117)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.005))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.32)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 117
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.005)) (sp-copy-from-other spt-scalevel-y -4) (sp-flt spt-fade-a -0.32))
+  )
 
-(set! (-> *part-id-table* 118) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
-                                   (sp-flt spt-num 0.06)
-                                   (sp-flt spt-x (meters 10.0))
-                                   (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1.5) 1.0)
-                                   (sp-flt spt-rot-y (degrees 0.0))
-                                   (sp-rnd-flt spt-scale-y (meters 0.75) (meters 1.5) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.004333333) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.0033333334) (meters 0.004333333) 1.0)
-                                   (sp-flt spt-fade-a 0.7111111)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 119)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 118
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
+    (sp-flt spt-num 0.06)
+    (sp-flt spt-x (meters 10))
+    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1.5) 1.0)
+    (sp-flt spt-rot-y (degrees 0.0))
+    (sp-rnd-flt spt-scale-y (meters 0.75) (meters 1.5) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.004333333) 1.0)
+    (sp-rnd-flt spt-scalevel-y (meters 0.0033333334) (meters 0.004333333) 1.0)
+    (sp-flt spt-fade-a 0.7111111)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 119)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 119)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 90 119 1)
-                                                     (sp-launcher-by-id spt-next-launcher 120)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 119
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int-plain-rnd spt-next-time 90 119 1) (sp-launcher-by-id spt-next-launcher 120))
+  )
 
-(set! (-> *part-id-table* 120)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 120
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
+  )
 
-(set! (-> *part-id-table* 121) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-rnd-flt spt-num 0.05 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-z 2048.0 6144.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.7) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.003) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.42666668)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 122)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 121
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-rnd-flt spt-num 0.05 0.4 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.7) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.003) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.42666668)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 122)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 122)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 360)
-                                                     (sp-launcher-by-id spt-next-launcher 123)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 122
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 123))
+  )
 
-(set! (-> *part-id-table* 123)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.7111111) (sp-end))
-        )
-      )
+(defpart 123
+  :init-specs
+  ((sp-flt spt-fade-a -0.7111111))
+  )
 
-(set! (-> *part-group-id-table* 40) (new 'static 'sparticle-launch-group
-                                      :length 30
-                                      :duration #x384
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag use-local-clock)
-                                      :name "group-part-water-splash"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 30
-                                        (sp-item 124 :flags (is-3d) :period 900 :length 63)
-                                        (sp-item 125 :period 900 :length 15)
-                                        (sp-item 126 :flags (is-3d) :period 900 :length 15)
-                                        (sp-item 127 :flags (is-3d) :period 900 :length 15)
-                                        (sp-item 128 :period 900 :length 15 :binding 129)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 130 :flags (is-3d) :period 900 :length 15 :offset 840)
-                                        (sp-item 131 :flags (is-3d) :period 900 :length 60 :offset 840)
-                                        (sp-item 132 :period 900 :length 10 :offset 840 :binding 133)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        )
-                                      :bounds
-                                      (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                      )
-      )
+(defpartgroup group-part-water-splash
+  :id 40
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 124 :flags (is-3d) :period 900 :length 63)
+    (sp-item 125 :period 900 :length 15)
+    (sp-item 126 :flags (is-3d) :period 900 :length 15)
+    (sp-item 127 :flags (is-3d) :period 900 :length 15)
+    (sp-item 128 :period 900 :length 15 :binding 129)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 130 :flags (is-3d) :period 900 :length 15 :offset 840)
+    (sp-item 131 :flags (is-3d) :period 900 :length 60 :offset 840)
+    (sp-item 132 :period 900 :length 10 :offset 840 :binding 133)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    )
+  )
 
-(set! (-> *part-group-id-table* 41) (new 'static 'sparticle-launch-group
-                                      :length 16
-                                      :duration #x384
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag use-local-clock)
-                                      :name "group-part-water-splash-small"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 16
-                                        (sp-item 124 :flags (is-3d) :period 900 :length 63)
-                                        (sp-item 125 :period 900 :length 15)
-                                        (sp-item 126 :flags (is-3d) :period 900 :length 15)
-                                        (sp-item 127 :flags (is-3d) :period 900 :length 15)
-                                        (sp-item 128 :period 900 :length 10 :binding 129)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        )
-                                      :bounds
-                                      (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                      )
-      )
+(defpartgroup group-part-water-splash-small
+  :id 41
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 124 :flags (is-3d) :period 900 :length 63)
+    (sp-item 125 :period 900 :length 15)
+    (sp-item 126 :flags (is-3d) :period 900 :length 15)
+    (sp-item 127 :flags (is-3d) :period 900 :length 15)
+    (sp-item 128 :period 900 :length 10 :binding 129)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    )
+  )
 
-(set! (-> *part-id-table* 129) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 0.4)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.000033333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-rnd-flt spt-accel-y -1.6384001 -0.81920004 1.0)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop-and-die)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 129
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 0.4)
+    (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 40.0 24.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.000033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -1.6384001 -0.81920004 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit3)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop-and-die)
+    )
+  )
 
-(set! (-> *part-id-table* 133) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 0.4)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.000033333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-rnd-flt spt-accel-y -1.6384001 -0.81920004 1.0)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop-and-die)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 133
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 0.4)
+    (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 40.0 24.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.000033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -1.6384001 -0.81920004 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit3)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop-and-die)
+    )
+  )
 
-(set! (-> *part-id-table* 131) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 0.3)
-                                   (sp-rnd-flt spt-scale-x (meters 0.080000006) (meters 0.32000002) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.080000006) (meters 0.32000002) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0090666665) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0090666665) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 134)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 131
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 0.3)
+    (sp-rnd-flt spt-scale-x (meters 0.080000006) (meters 0.32000002) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.080000006) (meters 0.32000002) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0090666665) 1.0)
+    (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0090666665) 1.0)
+    (sp-flt spt-fade-a 0.32)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 134)
+    )
+  )
 
-(set! (-> *part-id-table* 132) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 3.2)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.35) (meters 0.075) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.075) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.002) (meters 0.004) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.018666666) (meters 0.0053333333) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.002) (meters 0.004) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00066666666))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-rnd-flt spt-accel-y -3.2768002 -0.81920004 1.0)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop)
-                                   (sp-int spt-next-time 120)
-                                   (sp-launcher-by-id spt-next-launcher 135)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 132
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 3.2)
+    (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.35) (meters 0.075) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.075) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 40.0 24.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.002) (meters 0.004) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.018666666) (meters 0.0053333333) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.002) (meters 0.004) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00066666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -3.2768002 -0.81920004 1.0)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit3)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop)
+    (sp-int spt-next-time 120)
+    (sp-launcher-by-id spt-next-launcher 135)
+    )
+  )
 
-(set! (-> *part-id-table* 130) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x10 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.24000001) (meters 0.71999997) 1.0)
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-rnd-flt spt-scale-y (meters 0.8) (meters 1.7600001) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.053333335) (meters 0.013333334) 1.0)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat set-conerot)
-                                   (sp-int-plain-rnd spt-next-time 20 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 136)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 130
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x10 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.24000001) (meters 0.71999997) 1.0)
+    (sp-flt spt-rot-x 16384.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-rot-z (degrees 0.0))
+    (sp-rnd-flt spt-scale-y (meters 0.8) (meters 1.7600001) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-scalevel-y (meters 0.053333335) (meters 0.013333334) 1.0)
+    (sp-int spt-timer 240)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat set-conerot)
+    (sp-int-plain-rnd spt-next-time 20 19 1)
+    (sp-launcher-by-id spt-next-launcher 136)
+    )
+  )
 
-(set! (-> *part-id-table* 136)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-y (meters 0.026666667))
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 137)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 136
+  :init-specs
+  ((sp-flt spt-scalevel-y (meters 0.026666667))
+    (sp-int spt-next-time 20)
+    (sp-launcher-by-id spt-next-launcher 137)
+    )
+  )
 
-(set! (-> *part-id-table* 137)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-scalevel-y (meters 0.0))
-                                                     (sp-flt spt-fade-a -0.64)
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 138)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 137
+  :init-specs
+  ((sp-flt spt-scalevel-y (meters 0))
+    (sp-flt spt-fade-a -0.64)
+    (sp-int spt-next-time 20)
+    (sp-launcher-by-id spt-next-launcher 138)
+    )
+  )
 
-(set! (-> *part-id-table* 138)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-flt spt-scalevel-y (meters -0.026666667))
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 139)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 138
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-flt spt-scalevel-y (meters -0.026666667))
+    (sp-int spt-next-time 20)
+    (sp-launcher-by-id spt-next-launcher 139)
+    )
+  )
 
-(set! (-> *part-id-table* 139)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-flt spt-scalevel-y (meters -0.053333335))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 139
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.0033333334)) (sp-flt spt-scalevel-y (meters -0.053333335)))
+  )
 
-(set! (-> *part-id-table* 126) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0037333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0037333334) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 134)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 126
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 2.4) (meters 1.6) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0037333334) 1.0)
+    (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0037333334) 1.0)
+    (sp-flt spt-fade-a 0.32)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 134)
+    )
+  )
 
-(set! (-> *part-id-table* 134)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 360)
-                                                     (sp-launcher-by-id spt-next-launcher 140)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 134
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 140))
+  )
 
-(set! (-> *part-id-table* 140)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 140
+  :init-specs
+  ((sp-flt spt-fade-a -0.53333336))
+  )
 
-(set! (-> *part-id-table* 127) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0026666666) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0026666666) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 134)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 127
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-rnd-flt spt-num 0.5 1.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.8) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0026666666) 1.0)
+    (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0026666666) 1.0)
+    (sp-flt spt-fade-a 0.32)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 134)
+    )
+  )
 
-(set! (-> *part-id-table* 128) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 3.2)
-                                   (sp-flt spt-x (meters 0.96000004))
-                                   (sp-rnd-flt spt-scale-x (meters 0.35) (meters 0.075) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.075) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0026666666) (meters 0.0053333333) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016) (meters 0.0053333333) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00066666666))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-rnd-flt spt-accel-y -3.2768002 -0.81920004 1.0)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop)
-                                   (sp-int spt-next-time 120)
-                                   (sp-launcher-by-id spt-next-launcher 135)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 128
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 3.2)
+    (sp-flt spt-x (meters 0.96000004))
+    (sp-rnd-flt spt-scale-x (meters 0.35) (meters 0.075) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.075) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 40.0 24.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.0026666666) (meters 0.0053333333) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016) (meters 0.0053333333) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00066666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -3.2768002 -0.81920004 1.0)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit3)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop)
+    (sp-int spt-next-time 120)
+    (sp-launcher-by-id spt-next-launcher 135)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 135)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 135
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0)) (sp-copy-from-other spt-scalevel-y -4))
+  )
 
-(set! (-> *part-id-table* 125) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-flt spt-x (meters 0.8))
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.05) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0026666666) (meters 0.0053333333) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0053333333) (meters 0.0053333333) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00033333333))
-                                   (sp-flt spt-scalevel-y (meters -0.00033333333))
-                                   (sp-rnd-flt spt-accel-y -2.1845336 -0.5461334 1.0)
-                                   (sp-int spt-timer 375)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop-and-die)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 125
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-flt spt-x (meters 0.8))
+    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.05) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 40.0 24.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.0026666666) (meters 0.0053333333) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0053333333) (meters 0.0053333333) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00033333333))
+    (sp-flt spt-scalevel-y (meters -0.00033333333))
+    (sp-rnd-flt spt-accel-y -2.1845336 -0.5461334 1.0)
+    (sp-int spt-timer 375)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop-and-die)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 124) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x10 :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-rnd-flt spt-x (meters 0.96000004) (meters 0.16000001) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.32000002) (meters 0.96000004) 1.0)
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-rnd-flt spt-scale-y (meters 0.16000001) (meters 1.7600001) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 48.0 24.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.0026666666))
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.0) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-rotvel-x (degrees 0.2))
-                                   (sp-flt spt-scalevel-y (meters 0.04))
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat set-conerot)
-                                   (sp-int-plain-rnd spt-next-time 20 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 141)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 124
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x10 :page #x2))
+    (sp-flt spt-num 1.5)
+    (sp-rnd-flt spt-x (meters 0.96000004) (meters 0.16000001) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.32000002) (meters 0.96000004) 1.0)
+    (sp-flt spt-rot-x 16384.0)
+    (sp-flt spt-rot-y (degrees 90.0))
+    (sp-flt spt-rot-z (degrees 0.0))
+    (sp-rnd-flt spt-scale-y (meters 0.16000001) (meters 1.7600001) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 48.0 24.0 1.0)
+    (sp-flt spt-vel-x (meters 0.0026666666))
+    (sp-rnd-flt spt-scalevel-x (meters 0) (meters 0.0016666667) 1.0)
+    (sp-flt spt-rotvel-x (degrees 0.2))
+    (sp-flt spt-scalevel-y (meters 0.04))
+    (sp-int spt-timer 240)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat set-conerot)
+    (sp-int-plain-rnd spt-next-time 20 19 1)
+    (sp-launcher-by-id spt-next-launcher 141)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 141)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-flt spt-rotvel-x (degrees 0.16666667))
-                                                     (sp-flt spt-scalevel-y (meters 0.016666668))
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 142)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 141
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0))
+    (sp-flt spt-rotvel-x (degrees 0.16666667))
+    (sp-flt spt-scalevel-y (meters 0.016666668))
+    (sp-int spt-next-time 20)
+    (sp-launcher-by-id spt-next-launcher 142)
+    )
+  )
 
-(set! (-> *part-id-table* 142)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-rotvel-x (degrees 0.13333334))
-                                                     (sp-flt spt-scalevel-y (meters 0.0))
-                                                     (sp-flt spt-fade-a -0.64)
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 143)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 142
+  :init-specs
+  ((sp-flt spt-rotvel-x (degrees 0.13333334))
+    (sp-flt spt-scalevel-y (meters 0))
+    (sp-flt spt-fade-a -0.64)
+    (sp-int spt-next-time 20)
+    (sp-launcher-by-id spt-next-launcher 143)
+    )
+  )
 
-(set! (-> *part-id-table* 143)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-rotvel-x (degrees 0.1))
-                                                     (sp-flt spt-scalevel-y (meters -0.016666668))
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 144)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 143
+  :init-specs
+  ((sp-flt spt-rotvel-x (degrees 0.1))
+    (sp-flt spt-scalevel-y (meters -0.016666668))
+    (sp-int spt-next-time 20)
+    (sp-launcher-by-id spt-next-launcher 144)
+    )
+  )
 
-(set! (-> *part-id-table* 144)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-rotvel-x (degrees 0.06666667))
-                                                     (sp-flt spt-scalevel-y (meters -0.033333335))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 144
+  :init-specs
+  ((sp-flt spt-rotvel-x (degrees 0.06666667)) (sp-flt spt-scalevel-y (meters -0.033333335)))
+  )
 
-(set! (-> *part-id-table* 145) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.016666668) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.016666668))
-                                   (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00016666666))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-accel-y -2.7306666)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop-and-die)
-                                   (sp-int spt-next-time 225)
-                                   (sp-launcher-by-id spt-next-launcher 114)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 145
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 40.0 24.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.016666668) (meters 0.0016666667) 1.0)
+    (sp-flt spt-vel-y (meters 0.016666668))
+    (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.0016666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00016666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-accel-y -2.7306666)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop-and-die)
+    (sp-int spt-next-time 225)
+    (sp-launcher-by-id spt-next-launcher 114)
+    )
+  )
 
 (defmethod dummy-9 water-control ((obj water-control))
   0
diff --git a/goal_src/engine/math/vector-h.gc b/goal_src/engine/math/vector-h.gc
index 9c13451719..3ec6ff0f46 100644
--- a/goal_src/engine/math/vector-h.gc
+++ b/goal_src/engine/math/vector-h.gc
@@ -389,10 +389,16 @@
   :flag-assert         #x900000010
   )
 
+(defmacro static-vectorm (x y z w)
+  `(new 'static 'vector :x (meters ,x) :y (meters ,y) :z (meters ,z) :w (meters ,w))
+  )
 (defmacro static-spherem (x y z r)
-  "actually makes a vector"
+  "actually makes a vector. use bspherem for sphere."
   `(new 'static 'vector :x (meters ,x) :y (meters ,y) :z (meters ,z) :w (meters ,r))
   )
+(defmacro static-bspherem (x y z r)
+  `(new 'static 'sphere :x (meters ,x) :y (meters ,y) :z (meters ,z) :w (meters ,r))
+  )
 
 (deftype box8s (structure)
   ((data   float 8       :offset-assert 0)
diff --git a/goal_src/engine/sparticle/sparticle-launcher-h.gc b/goal_src/engine/sparticle/sparticle-launcher-h.gc
index ef2dbc601d..7c702a773b 100644
--- a/goal_src/engine/sparticle/sparticle-launcher-h.gc
+++ b/goal_src/engine/sparticle/sparticle-launcher-h.gc
@@ -246,6 +246,14 @@
         )
   )
 
+(defmacro sp-sound (sound)
+  `(new 'static 'sp-field-init-spec
+        :field (sp-field-id spt-sound)
+        :sound ,sound
+        :flags (sp-flag plain-v2)
+        )
+  )
+
 (defmacro sp-end ()
   `(new 'static 'sp-field-init-spec
         :field (sp-field-id spt-end)
@@ -405,3 +413,38 @@
 
 (set! (-> sparticle-launch-control heap-base) (the-as uint 32))
 
+
+(defmacro defpartgroup (name &key id &key parts &key (duration 3000) &key (linger-duration 1500) &key (flags ()) &key bounds)
+  "define a new part group. defines a constant with the name of the group with the ID as its value"
+  `(begin
+    (defconstant ,name ,id)
+    (set! (-> *part-group-id-table* ,id)
+      (new 'static 'sparticle-launch-group
+          :duration ,duration
+          :linger-duration ,linger-duration
+          :flags (sp-group-flag ,@flags)
+          :bounds ,bounds
+          :name ,(symbol->string name)
+          :length ,(length parts)
+          :launcher (new 'static 'inline-array sparticle-group-item ,(length parts) ,@parts)
+          )
+      )
+    )
+  )
+
+(defmacro get-part-group (id)
+  `(-> *part-group-id-table* ,id)
+  )
+
+(defmacro defpart (id &key (init-specs ()))
+  "define a new sparticle-launcher"
+  `(set! (-> *part-id-table* ,id)
+      (new 'static 'sparticle-launcher
+          :init-specs (new 'static 'inline-array sp-field-init-spec ,(1+ (length init-specs))
+                  ,@init-specs
+                  (sp-end)
+                  )))
+  )
+
+
+
diff --git a/goal_src/engine/sparticle/sparticle-launcher.gc b/goal_src/engine/sparticle/sparticle-launcher.gc
index 9b32794a36..4750e0e23c 100644
--- a/goal_src/engine/sparticle/sparticle-launcher.gc
+++ b/goal_src/engine/sparticle/sparticle-launcher.gc
@@ -49,7 +49,7 @@
 
 ;; All particle effects (sparticle-launcher) and groups (sparticle-launch-groups) are statically defined
 ;; Code defining particle effects should add itself to the tables.
-;; When a level heap is discarded, it should call (unlike-part-group-by-heap <heap>) to remove references to
+;; When a level heap is discarded, it should call (unlink-part-group-by-heap <heap>) to remove references to
 ;; particle effects that are going to be discarded.
 
 ;; All the particle launchers.
diff --git a/goal_src/engine/target/target-part.gc b/goal_src/engine/target/target-part.gc
index 6174f7938e..0f01810991 100644
--- a/goal_src/engine/target/target-part.gc
+++ b/goal_src/engine/target/target-part.gc
@@ -184,2396 +184,2078 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 1)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-target-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 56) (sp-item 57))
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-(set! (-> *part-id-table* 56) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 18
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                  (sp-flt spt-num 32.0)
-                                  (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
-                                  (sp-int spt-rot-x 4)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-scale-y (meters 0.06))
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 128.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-flt spt-scalevel-x (meters 0.16))
-                                  (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                  (sp-flt spt-fade-a 6.4)
-                                  (sp-int spt-timer 150)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 10)
-                                  (sp-launcher-by-id spt-next-launcher 58)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-id-table* 58)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.64) (sp-end))
-        )
-      )
-
-(set! (-> *part-id-table* 57) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 14
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-scale-x (meters 12.0))
-                                  (sp-flt spt-rot-z (degrees 0.0))
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 128.0)
-                                  (sp-flt spt-a 64.0)
-                                  (sp-flt spt-rotvel-z (degrees -0.4))
-                                  (sp-flt spt-fade-a -1.4222221)
-                                  (sp-int spt-timer 42)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-group-id-table* 2)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xa
-        :linger-duration #x1c2
-        :name "group-red-eco-strike-ground"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 59) (sp-item 60))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 59) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 25
-                                  (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                  (sp-flt spt-num 24.0)
-                                  (sp-flt spt-y (meters 1.0))
-                                  (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 32.0)
-                                  (sp-rnd-flt spt-a 8.0 56.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.13333334) (meters 0.16666667) 1.0)
-                                  (sp-flt spt-scalevel-x (meters 0.013333334))
-                                  (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-g -1.4222223)
-                                  (sp-flt spt-fade-a -0.35555556)
-                                  (sp-flt spt-accel-y 0.34133333)
-                                  (sp-flt spt-friction 0.7)
-                                  (sp-int spt-timer 180)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 90)
-                                  (sp-launcher-by-id spt-next-launcher 61)
-                                  (sp-flt spt-conerot-x (degrees 90.0))
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-id-table* 60) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 21
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 32.0)
-                                  (sp-flt spt-y (meters 1.0))
-                                  (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-rnd-flt spt-a 64.0 8.0 1.0)
-                                  (sp-flt spt-vel-y (meters 0.3))
-                                  (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-g -2.8444445)
-                                  (sp-flt spt-fade-a -0.82222223)
-                                  (sp-flt spt-friction 0.7)
-                                  (sp-int spt-timer 90)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 45)
-                                  (sp-launcher-by-id spt-next-launcher 61)
-                                  (sp-flt spt-conerot-x (degrees 90.0))
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-group-id-table* 3)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xa
-        :linger-duration #x1c2
-        :name "group-red-eco-spinkick"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 62) (sp-item 63) (sp-item 64))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 62)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 32.0)
-                                                     (sp-rnd-flt spt-a 8.0 56.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.013333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -1.4222223)
-                                                     (sp-flt spt-fade-a -0.35555556)
-                                                     (sp-flt spt-accel-y 0.34133333)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int spt-next-time 90)
-                                                     (sp-launcher-by-id spt-next-launcher 61)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 61)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r -0.7111111)
-                                                     (sp-flt spt-fade-g 0.7111111)
-                                                     (sp-flt spt-fade-b 0.35555556)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 63) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 19
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 0.66)
-                                  (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-rnd-flt spt-a 64.0 8.0 1.0)
-                                  (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-g -2.8444445)
-                                  (sp-flt spt-fade-a -0.82222223)
-                                  (sp-int spt-timer 90)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 45)
-                                  (sp-launcher-by-id spt-next-launcher 61)
-                                  (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.1) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-id-table* 64) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 13
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 96.0)
-                                  (sp-flt spt-a 64.0)
-                                  (sp-flt spt-fade-a -4.0)
-                                  (sp-flt spt-accel-y 0.34133333)
-                                  (sp-int spt-timer 10)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-group-id-table* 4)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xa
-        :linger-duration #x1c2
-        :name "group-spin-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 65) (sp-item 66))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-group-id-table* 5)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xa
-        :linger-duration #x1c2
-        :name "group-punch-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 65) (sp-item 66))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 65) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 21
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                  (sp-flt spt-num 4.0)
-                                  (sp-flt spt-y (meters 0.75))
-                                  (sp-flt spt-scale-x (meters 3.0))
-                                  (sp-int spt-rot-x 4)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.5) 1.0)
-                                  (sp-flt spt-r 192.0)
-                                  (sp-flt spt-g 192.0)
-                                  (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-flt spt-scalevel-x (meters 0.009765625))
-                                  (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                  (sp-flt spt-scalevel-y (meters 0.009765625))
-                                  (sp-flt spt-fade-a 2.1333334)
-                                  (sp-int spt-timer 30)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 15)
-                                  (sp-launcher-by-id spt-next-launcher 67)
-                                  (sp-flt spt-rotate-y (degrees 0.0))
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-id-table* 67)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.1333334) (sp-end))
-        )
-      )
-
-(set! (-> *part-id-table* 66) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 13
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-y (meters 1.0))
-                                  (sp-flt spt-scale-x (meters 3.0))
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 196.0)
-                                  (sp-flt spt-g 196.0)
-                                  (sp-flt spt-b 196.0)
-                                  (sp-flt spt-a 28.0)
-                                  (sp-int spt-timer 10)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-group-id-table* 6) (new 'static 'sparticle-launch-group
-                                     :length 23
-                                     :duration #xa
-                                     :linger-duration #x1c2
-                                     :name "group-smack-surface"
-                                     :launcher
-                                     (new 'static 'inline-array sparticle-group-item 23
-                                       (sp-item 68)
-                                       (sp-item 69)
-                                       (sp-item 72 :binding 71)
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       )
-                                     :bounds (new 'static 'sphere :w 8192.0)
-                                     )
-      )
-
-(set! (-> *part-id-table* 68)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-func spt-birth-func 'birth-func-copy-target-y-rot)
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 69)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-func spt-birth-func 'birth-func-copy-target-y-rot)
-                                                     (sp-flt spt-num 8.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 72) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 11
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                  (sp-rnd-flt spt-num 12.0 8.0 1.0)
-                                  (sp-flt spt-scale-x (meters 1.0))
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-int spt-timer 604)
-                                  (sp-cpuinfo-flags bit3)
-                                  (sp-flt spt-userdata 8.0)
-                                  (sp-func spt-func 'part-tracker-track-target-joint)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-id-table* 71) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 19
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-x (meters 0.0))
-                                  (sp-rnd-flt spt-y (meters -1.3333334) (meters 2.6666667) 1.0)
-                                  (sp-rnd-flt spt-z 2048.0 2048.0 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                  (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                  (sp-flt spt-b 0.0)
-                                  (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                  (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                  (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
-                                  (sp-flt spt-vel-y (meters 0.0))
-                                  (sp-flt spt-vel-z (meters 0.0033333334))
-                                  (sp-flt spt-fade-a -0.30476192)
-                                  (sp-int spt-timer 604)
-                                  (sp-cpuinfo-flags bit2 bit3 bit7)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-group-id-table* 8)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-sand"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 73) (sp-item 74) (sp-item 75))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 73)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 74)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 75) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 20
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                  (sp-flt spt-num 32.0)
-                                  (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                  (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-int spt-r 1124073472 2 32.0)
-                                  (sp-rnd-int spt-g 1115684864 1 64.0)
-                                  (sp-rnd-int spt-b 1107296256 1 32.0)
-                                  (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
-                                  (sp-flt spt-fade-a -0.42666668)
-                                  (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
-                                  (sp-int spt-timer 300)
-                                  (sp-cpuinfo-flags bit2 bit12)
-                                  (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-conerot-radius (meters 0.5))
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-group-id-table* 575)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-dirt"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 2371) (sp-item 2372) (sp-item 2370))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 2371)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 2372)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 2370) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 2 32.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1107296256 1 32.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-group-id-table* 9)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-snow"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 76) (sp-item 77) (sp-item 78))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 76)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 77)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 78) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 20
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                  (sp-flt spt-num 32.0)
-                                  (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                  (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-int spt-r 1128529920 1 64.0)
-                                  (sp-rnd-int spt-g 1128529920 1 64.0)
-                                  (sp-rnd-int spt-b 1128529920 1 64.0)
-                                  (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
-                                  (sp-flt spt-fade-a -0.42666668)
-                                  (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
-                                  (sp-int spt-timer 300)
-                                  (sp-cpuinfo-flags bit2 bit12)
-                                  (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-conerot-radius (meters 0.5))
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-group-id-table* 580)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-ice"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 76) (sp-item 77) (sp-item 78))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-group-id-table* 10)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-grass"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 79) (sp-item 80) (sp-item 81))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 79)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 80)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 81) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 21
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                  (sp-flt spt-num 32.0)
-                                  (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                  (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-scale-y (meters 0.15))
-                                  (sp-rnd-flt spt-r 0.0 2.0 64.0)
-                                  (sp-rnd-int spt-g 1115684864 2 64.0)
-                                  (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
-                                  (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
-                                  (sp-flt spt-fade-a -0.42666668)
-                                  (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
-                                  (sp-int spt-timer 300)
-                                  (sp-cpuinfo-flags bit2 bit12)
-                                  (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-conerot-radius (meters 0.5))
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-group-id-table* 11)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-wood"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 82) (sp-item 83))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 82)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 83)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 12)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x5
-        :linger-duration #x2ee
-        :name "group-land-poof-crwood"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 82) (sp-item 83) (sp-item 84) (sp-item 84))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-group-id-table* 13)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-stone"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 85) (sp-item 86))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 85)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 86)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 581)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-pcmetal"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2373) (sp-item 2374))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 2373)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 70.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 24.0 24.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 2374)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 70.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 14) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-run-poof-stone"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 87))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-(set! (-> *part-group-id-table* 15) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-just-poof-stone"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 87))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-(set! (-> *part-id-table* 87)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 582)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x258
-        :name "group-run-poof-snow"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2375) (sp-item 2376 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-group-id-table* 583) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-just-poof-snow"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2375))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 584)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x5
-        :linger-duration #x258
-        :name "group-just-footprint-snow"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2376 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 2376) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-target-orient)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -0.25))
-                                    (sp-flt spt-scale-x (meters 0.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-flt spt-g 32.0)
-                                    (sp-flt spt-b 16.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-flt spt-fade-a -0.07111111)
-                                    (sp-int spt-timer 1050)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-id-table* 2375)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 24.0 24.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 585) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-run-poof-ice"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2375))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 586) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-just-poof-ice"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2375))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 16)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x258
-        :name "group-run-poof-crwood"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 89) (sp-item 89) (sp-item 84))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-group-id-table* 17) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-just-poof-crwood"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 88))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-(set! (-> *part-id-table* 84)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-flt spt-y (meters -1.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters -0.0033333334) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.16)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-int spt-timer 900)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int-plain-rnd spt-next-time 75 74 1)
-                                                     (sp-launcher-by-id spt-next-launcher 90)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 3.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 90)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 150 149 1)
-                                                     (sp-launcher-by-id spt-next-launcher 91)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 91)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.08) (sp-end))
-        )
-      )
-
-(set! (-> *part-group-id-table* 18) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-run-poof-wood"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 89))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-(set! (-> *part-group-id-table* 19) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-just-poof-wood"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 89))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-(set! (-> *part-id-table* 89)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 587) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-run-poof-pcmetal"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2377))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 588) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-just-poof-pcmetal"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2377))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-id-table* 2377)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 70.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 20)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x258
-        :name "group-run-poof-grass"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 92) (sp-item 93 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-group-id-table* 21) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-just-poof-grass"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 92))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-(set! (-> *part-group-id-table* 22)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x5
-        :linger-duration #x258
-        :name "group-just-footprint-grass"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 93 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 92)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 93) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 14
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
-                                  (sp-func spt-birth-func 'birth-func-target-orient)
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-x (meters -0.25))
-                                  (sp-flt spt-scale-x (meters 0.6))
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 32.0)
-                                  (sp-flt spt-g 32.0)
-                                  (sp-flt spt-b 16.0)
-                                  (sp-flt spt-a 48.0)
-                                  (sp-flt spt-fade-a -0.053333335)
-                                  (sp-int spt-timer 1050)
-                                  (sp-cpuinfo-flags bit2 bit12 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-group-id-table* 23)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x258
-        :name "group-run-poof-sand"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 88) (sp-item 94 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-group-id-table* 24) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-just-poof-sand"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 88))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-(set! (-> *part-group-id-table* 25)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x5
-        :linger-duration #x258
-        :name "group-just-footprint-sand"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 94 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 88)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 94) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 14
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
-                                  (sp-func spt-birth-func 'birth-func-target-orient)
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-x (meters -0.25))
-                                  (sp-flt spt-scale-x (meters 0.6))
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 32.0)
-                                  (sp-flt spt-g 32.0)
-                                  (sp-flt spt-b 16.0)
-                                  (sp-flt spt-a 32.0)
-                                  (sp-flt spt-fade-a -0.035555556)
-                                  (sp-int spt-timer 1050)
-                                  (sp-cpuinfo-flags bit2 bit12 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-group-id-table* 576) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-run-poof-dirt"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2378))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 577) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-just-poof-dirt"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2378))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 578)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x5
-        :linger-duration #x258
-        :name "group-just-footprint-dirt"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2379 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 2378)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 2379) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-target-orient)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -0.25))
-                                    (sp-flt spt-scale-x (meters 0.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-flt spt-g 32.0)
-                                    (sp-flt spt-b 16.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-flt spt-fade-a -0.035555556)
-                                    (sp-int spt-timer 1050)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-id-table* 95) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 19
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                  (sp-rnd-flt spt-num 0.0 6.0 1.0)
-                                  (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                  (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-int spt-r 1124073472 2 32.0)
-                                  (sp-rnd-int spt-g 1115684864 1 64.0)
-                                  (sp-rnd-int spt-b 1107296256 1 32.0)
-                                  (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
-                                  (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                  (sp-flt spt-fade-a -0.42666668)
-                                  (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
-                                  (sp-int spt-timer 300)
-                                  (sp-cpuinfo-flags bit2 bit12 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-id-table* 2253) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 6.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 2 32.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1107296256 1 32.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-id-table* 96) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 20
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                  (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                  (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                  (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-scale-y (meters 0.1))
-                                  (sp-rnd-flt spt-r 0.0 2.0 64.0)
-                                  (sp-rnd-int spt-g 1115684864 2 64.0)
-                                  (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
-                                  (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                  (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
-                                  (sp-flt spt-fade-a -0.42666668)
-                                  (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
-                                  (sp-int spt-timer 300)
-                                  (sp-cpuinfo-flags bit2 bit12 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-(set! (-> *part-id-table* 2250) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 6.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1128529920 1 64.0)
-                                    (sp-rnd-int spt-g 1128529920 1 64.0)
-                                    (sp-rnd-int spt-b 1128529920 1 64.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-id-table* 97)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 1 (sp-end)))
-      )
-
-(set! (-> *part-id-table* 98)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 1 (sp-end)))
-      )
-
-(set! (-> *part-id-table* 99)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 1 (sp-end)))
-      )
-
-(set! (-> *part-group-id-table* 26)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-slide-poof-sand"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 100) (sp-item 101))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 100)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 101) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-int spt-r 1124073472 2 32.0)
-                                   (sp-rnd-int spt-g 1115684864 1 64.0)
-                                   (sp-rnd-int spt-b 1107296256 1 32.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-(set! (-> *part-group-id-table* 579)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-slide-poof-dirt"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2380) (sp-item 2381))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 2380)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 2381) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 2 32.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1107296256 1 32.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-group-id-table* 27)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-slide-poof-grass"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 102) (sp-item 103))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-id-table* 102)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 103) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.15))
-                                   (sp-rnd-flt spt-r 0.0 2.0 64.0)
-                                   (sp-rnd-int spt-g 1115684864 2 64.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-(set! (-> *part-group-id-table* 28) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x1c2
-                                      :name "group-slide-poof-stone"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 104))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-(set! (-> *part-id-table* 104)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 589) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x1c2
-                                       :name "group-slide-poof-pcmetal"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2382))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-id-table* 2382)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 70.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 590) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x1c2
-                                       :name "group-slide-poof-snow"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2383))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-id-table* 2383)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-int spt-r 1128529920 1 64.0)
-                                                     (sp-rnd-int spt-g 1128529920 1 64.0)
-                                                     (sp-rnd-int spt-b 1128529920 1 64.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 591) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x1c2
-                                       :name "group-slide-poof-ice"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2383))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 29) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x1c2
-                                      :name "group-slide-poof-wood"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 105))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-(set! (-> *part-id-table* 105)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-group-id-table* 30) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x2ee
-                                      :name "group-slide-poof-crwood"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 105))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-(set! (-> *part-id-table* 106) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-int spt-r 1124073472 2 32.0)
-                                   (sp-rnd-int spt-g 1115684864 1 64.0)
-                                   (sp-rnd-int spt-b 1107296256 1 32.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-(set! (-> *part-id-table* 2265) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 2 32.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1107296256 1 32.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-id-table* 2262) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1128529920 1 64.0)
-                                    (sp-rnd-int spt-g 1128529920 1 64.0)
-                                    (sp-rnd-int spt-b 1128529920 1 64.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-id-table* 107) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.15))
-                                   (sp-rnd-flt spt-r 0.0 2.0 64.0)
-                                   (sp-rnd-int spt-g 1115684864 2 64.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-(set! (-> *part-group-id-table* 31)
-      (new 'static 'sparticle-launch-group
-        :length 36
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-eco-death"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 36
-          (sp-item 295 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2095 :period 600 :length 5)
-          (sp-item 2096 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
-          (sp-item 2097 :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-(set! (-> *part-group-id-table* 32)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x4b
-        :linger-duration #x258
-        :name "group-lava-death"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2003) (sp-item 2004) (sp-item 2005) (sp-item 2006))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-(set! (-> *part-group-id-table* 708) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x96
-                                       :linger-duration #x258
-                                       :name "group-burn-death"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2003))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-(set! (-> *part-id-table* 2006) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.04) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0023333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y -5.4613333)
-                                    (sp-int spt-timer 360)
-                                    (sp-cpuinfo-flags bit0 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 1.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-id-table* 2003) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.023529412))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.5058824)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 81)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-id-table* 2004)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 32.0)
-                                                     (sp-rnd-flt spt-x (meters 0.5) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0016666667) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.04444444))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -2.8444443)
-                                                     (sp-flt spt-friction 0.98)
-                                                     (sp-int spt-timer 42)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-(set! (-> *part-id-table* 2005) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 28
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.008888889))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.56666666)
-                                    (sp-flt spt-fade-g -0.56666666)
-                                    (sp-flt spt-fade-b -0.56666666)
-                                    (sp-flt spt-fade-a 0.15)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 81 80 1)
-                                    (sp-launcher-by-id spt-next-launcher 2007)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-(set! (-> *part-id-table* 2007)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.08) (sp-end))
-        )
-      )
-
-(set! (-> *part-id-table* 2002)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 20
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 1.0)
-          (sp-rnd-flt spt-scale-x (meters 1.5) (meters 2.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 32.0 32.0 1.0)
-          (sp-rnd-flt spt-g 32.0 32.0 1.0)
-          (sp-rnd-flt spt-b 32.0 32.0 1.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.85333335)
-          (sp-flt spt-friction 0.98)
-          (sp-int spt-timer 450)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 15 59 1)
-          (sp-launcher-by-id spt-next-launcher 2008)
-          (sp-end)
-          )
-        )
-      )
-
-(set! (-> *part-id-table* 2008)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.28444445) (sp-end))
-        )
-      )
+(defpartgroup group-target-hit
+  :id 1
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 56) (sp-item 57))
+  )
+
+(defpart 56
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.06))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.16))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-fade-a 6.4)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 58)
+    )
+  )
+
+(defpart 58
+  :init-specs
+  ((sp-flt spt-fade-a -0.64))
+  )
+
+(defpart 57
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 12))
+    (sp-flt spt-rot-z (degrees 0.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-rotvel-z (degrees -0.4))
+    (sp-flt spt-fade-a -1.4222221)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
+
+(defpartgroup group-red-eco-strike-ground
+  :id 2
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 59) (sp-item 60))
+  )
+
+(defpart 59
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 24.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 32.0)
+    (sp-rnd-flt spt-a 8.0 56.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.13333334) (meters 0.16666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -1.4222223)
+    (sp-flt spt-fade-a -0.35555556)
+    (sp-flt spt-accel-y 0.34133333)
+    (sp-flt spt-friction 0.7)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 61)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 60
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-rnd-flt spt-a 64.0 8.0 1.0)
+    (sp-flt spt-vel-y (meters 0.3))
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -2.8444445)
+    (sp-flt spt-fade-a -0.82222223)
+    (sp-flt spt-friction 0.7)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 45)
+    (sp-launcher-by-id spt-next-launcher 61)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-red-eco-spinkick
+  :id 3
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 62) (sp-item 63) (sp-item 64))
+  )
+
+(defpart 62
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 32.0)
+    (sp-rnd-flt spt-a 8.0 56.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -1.4222223)
+    (sp-flt spt-fade-a -0.35555556)
+    (sp-flt spt-accel-y 0.34133333)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 61)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+    )
+  )
+
+(defpart 61
+  :init-specs
+  ((sp-flt spt-fade-r -0.7111111) (sp-flt spt-fade-g 0.7111111) (sp-flt spt-fade-b 0.35555556))
+  )
+
+(defpart 63
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 0.66)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-rnd-flt spt-a 64.0 8.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -2.8444445)
+    (sp-flt spt-fade-a -0.82222223)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 45)
+    (sp-launcher-by-id spt-next-launcher 61)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.1) 1.0)
+    )
+  )
+
+(defpart 64
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -4.0)
+    (sp-flt spt-accel-y 0.34133333)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
+
+(defpartgroup group-spin-hit
+  :id 4
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 65) (sp-item 66))
+  )
+
+(defpartgroup group-punch-hit
+  :id 5
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 65) (sp-item 66))
+  )
+
+(defpart 65
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-flt spt-y (meters 0.75))
+    (sp-flt spt-scale-x (meters 3))
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.5) 1.0)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 2.1333334)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 15)
+    (sp-launcher-by-id spt-next-launcher 67)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
+
+(defpart 67
+  :init-specs
+  ((sp-flt spt-fade-a -2.1333334))
+  )
+
+(defpart 66
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 3))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 28.0)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
+
+(defpartgroup group-smack-surface
+  :id 6
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 68)
+    (sp-item 69)
+    (sp-item 72 :binding 71)
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    )
+  )
+
+(defpart 68
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-func spt-birth-func 'birth-func-copy-target-y-rot)
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 96.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
+
+(defpart 69
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-func spt-birth-func 'birth-func-copy-target-y-rot)
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 96.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
+
+(defpart 72
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 12.0 8.0 1.0)
+    (sp-flt spt-scale-x (meters 1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-int spt-timer 604)
+    (sp-cpuinfo-flags bit3)
+    (sp-flt spt-userdata 8.0)
+    (sp-func spt-func 'part-tracker-track-target-joint)
+    )
+  )
+
+(defpart 71
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 0))
+    (sp-rnd-flt spt-y (meters -1.3333334) (meters 2.6666667) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 92.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0.0033333334))
+    (sp-flt spt-fade-a -0.30476192)
+    (sp-int spt-timer 604)
+    (sp-cpuinfo-flags bit2 bit3 bit7)
+    )
+  )
+
+(defpartgroup group-land-poof-sand
+  :id 8
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 73) (sp-item 74) (sp-item 75))
+  )
+
+(defpart 73
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 74
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 75
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 2 32.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1107296256 1 32.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
+
+(defpartgroup group-land-poof-dirt
+  :id 575
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2371) (sp-item 2372) (sp-item 2370))
+  )
+
+(defpart 2371
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 2372
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 2370
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 2 32.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1107296256 1 32.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
+
+(defpartgroup group-land-poof-snow
+  :id 9
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 76) (sp-item 77) (sp-item 78))
+  )
+
+(defpart 76
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 196.0 64.0 1.0)
+    (sp-rnd-flt spt-g 196.0 64.0 1.0)
+    (sp-rnd-flt spt-b 196.0 64.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 77
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 196.0 64.0 1.0)
+    (sp-rnd-flt spt-g 196.0 64.0 1.0)
+    (sp-rnd-flt spt-b 196.0 64.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 78
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1128529920 1 64.0)
+    (sp-rnd-int spt-g 1128529920 1 64.0)
+    (sp-rnd-int spt-b 1128529920 1 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
+
+(defpartgroup group-land-poof-ice
+  :id 580
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 76) (sp-item 77) (sp-item 78))
+  )
+
+(defpartgroup group-land-poof-grass
+  :id 10
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 79) (sp-item 80) (sp-item 81))
+  )
+
+(defpart 79
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 32.0 1.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 80
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 32.0 1.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 81
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.15))
+    (sp-rnd-flt spt-r 0.0 2.0 64.0)
+    (sp-rnd-int spt-g 1115684864 2 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
+
+(defpartgroup group-land-poof-wood
+  :id 11
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 82) (sp-item 83))
+  )
+
+(defpart 82
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 32.0 1.0)
+    (sp-flt spt-g 64.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 83
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 32.0 1.0)
+    (sp-flt spt-g 64.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-land-poof-crwood
+  :id 12
+  :duration 5
+  :linger-duration 750
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 82) (sp-item 83) (sp-item 84) (sp-item 84))
+  )
+
+(defpartgroup group-land-poof-stone
+  :id 13
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 85) (sp-item 86))
+  )
+
+(defpart 85
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 32.0 1.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 96.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 86
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 32.0 1.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 96.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-land-poof-pcmetal
+  :id 581
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2373) (sp-item 2374))
+  )
+
+(defpart 2373
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 70.0 32.0 1.0)
+    (sp-rnd-flt spt-b 40.0 20.0 1.0)
+    (sp-rnd-flt spt-a 24.0 24.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 2374
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 70.0 32.0 1.0)
+    (sp-rnd-flt spt-b 40.0 20.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-run-poof-stone
+  :id 14
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 87))
+  )
+
+(defpartgroup group-just-poof-stone
+  :id 15
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 87))
+  )
+
+(defpart 87
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 32.0 1.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 96.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-fade-a -0.45714286)
+    (sp-flt spt-friction 0.965)
+    (sp-int spt-timer 105)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-run-poof-snow
+  :id 582
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2375) (sp-item 2376 :flags (is-3d)))
+  )
+
+(defpartgroup group-just-poof-snow
+  :id 583
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2375))
+  )
+
+(defpartgroup group-just-footprint-snow
+  :id 584
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2376 :flags (is-3d)))
+  )
+
+(defpart 2376
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
+    (sp-func spt-birth-func 'birth-func-target-orient)
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters -0.25))
+    (sp-flt spt-scale-x (meters 0.6))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 16.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -0.07111111)
+    (sp-int spt-timer 1050)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpart 2375
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 196.0 64.0 1.0)
+    (sp-rnd-flt spt-g 196.0 64.0 1.0)
+    (sp-rnd-flt spt-b 196.0 64.0 1.0)
+    (sp-rnd-flt spt-a 24.0 24.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-fade-a -0.45714286)
+    (sp-flt spt-friction 0.965)
+    (sp-int spt-timer 105)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-run-poof-ice
+  :id 585
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2375))
+  )
+
+(defpartgroup group-just-poof-ice
+  :id 586
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2375))
+  )
+
+(defpartgroup group-run-poof-crwood
+  :id 16
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 89) (sp-item 89) (sp-item 84))
+  )
+
+(defpartgroup group-just-poof-crwood
+  :id 17
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 88))
+  )
+
+(defpart 84
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-flt spt-y (meters -1))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 32.0 1.0)
+    (sp-flt spt-g 64.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters -0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.16)
+    (sp-flt spt-accel-y -0.27306667)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int-plain-rnd spt-next-time 75 74 1)
+    (sp-launcher-by-id spt-next-launcher 90)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 3) 1.0)
+    )
+  )
+
+(defpart 90
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int-plain-rnd spt-next-time 150 149 1) (sp-launcher-by-id spt-next-launcher 91))
+  )
+
+(defpart 91
+  :init-specs
+  ((sp-flt spt-fade-a -0.08))
+  )
+
+(defpartgroup group-run-poof-wood
+  :id 18
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 89))
+  )
+
+(defpartgroup group-just-poof-wood
+  :id 19
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 89))
+  )
+
+(defpart 89
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 32.0 1.0)
+    (sp-flt spt-g 64.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-fade-a -0.45714286)
+    (sp-flt spt-friction 0.965)
+    (sp-int spt-timer 105)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-run-poof-pcmetal
+  :id 587
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2377))
+  )
+
+(defpartgroup group-just-poof-pcmetal
+  :id 588
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2377))
+  )
+
+(defpart 2377
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 70.0 32.0 1.0)
+    (sp-rnd-flt spt-b 40.0 20.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-fade-a -0.45714286)
+    (sp-flt spt-friction 0.965)
+    (sp-int spt-timer 105)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-run-poof-grass
+  :id 20
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 92) (sp-item 93 :flags (is-3d)))
+  )
+
+(defpartgroup group-just-poof-grass
+  :id 21
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 92))
+  )
+
+(defpartgroup group-just-footprint-grass
+  :id 22
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 93 :flags (is-3d)))
+  )
+
+(defpart 92
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 32.0 1.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-fade-a -0.45714286)
+    (sp-flt spt-friction 0.965)
+    (sp-int spt-timer 105)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 93
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
+    (sp-func spt-birth-func 'birth-func-target-orient)
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters -0.25))
+    (sp-flt spt-scale-x (meters 0.6))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 16.0)
+    (sp-flt spt-a 48.0)
+    (sp-flt spt-fade-a -0.053333335)
+    (sp-int spt-timer 1050)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpartgroup group-run-poof-sand
+  :id 23
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 88) (sp-item 94 :flags (is-3d)))
+  )
+
+(defpartgroup group-just-poof-sand
+  :id 24
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 88))
+  )
+
+(defpartgroup group-just-footprint-sand
+  :id 25
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 94 :flags (is-3d)))
+  )
+
+(defpart 88
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-fade-a -0.45714286)
+    (sp-flt spt-friction 0.965)
+    (sp-int spt-timer 105)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 94
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
+    (sp-func spt-birth-func 'birth-func-target-orient)
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters -0.25))
+    (sp-flt spt-scale-x (meters 0.6))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 16.0)
+    (sp-flt spt-a 32.0)
+    (sp-flt spt-fade-a -0.035555556)
+    (sp-int spt-timer 1050)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpartgroup group-run-poof-dirt
+  :id 576
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2378))
+  )
+
+(defpartgroup group-just-poof-dirt
+  :id 577
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2378))
+  )
+
+(defpartgroup group-just-footprint-dirt
+  :id 578
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2379 :flags (is-3d)))
+  )
+
+(defpart 2378
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-fade-a -0.45714286)
+    (sp-flt spt-friction 0.965)
+    (sp-int spt-timer 105)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 2379
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
+    (sp-func spt-birth-func 'birth-func-target-orient)
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters -0.25))
+    (sp-flt spt-scale-x (meters 0.6))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 16.0)
+    (sp-flt spt-a 32.0)
+    (sp-flt spt-fade-a -0.035555556)
+    (sp-int spt-timer 1050)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpart 95
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 0.0 6.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 2 32.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1107296256 1 32.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpart 2253
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 0.0 6.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 2 32.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1107296256 1 32.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpart 96
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-rnd-flt spt-num 0.0 2.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.1))
+    (sp-rnd-flt spt-r 0.0 2.0 64.0)
+    (sp-rnd-int spt-g 1115684864 2 64.0)
+    (sp-rnd-flt spt-a 96.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpart 2250
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 0.0 6.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1128529920 1 64.0)
+    (sp-rnd-int spt-g 1128529920 1 64.0)
+    (sp-rnd-int spt-b 1128529920 1 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpart 97
+  )
+
+(defpart 98
+  )
+
+(defpart 99
+  )
+
+(defpartgroup group-slide-poof-sand
+  :id 26
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 100) (sp-item 101))
+  )
+
+(defpart 100
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 6.0 6.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.17777778)
+    (sp-flt spt-accel-y -0.27306667)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 101
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 0.0 8.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 2 32.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1107296256 1 32.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
+
+(defpartgroup group-slide-poof-dirt
+  :id 579
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2380) (sp-item 2381))
+  )
+
+(defpart 2380
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 6.0 6.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.17777778)
+    (sp-flt spt-accel-y -0.27306667)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 2381
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 0.0 8.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 2 32.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1107296256 1 32.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
+
+(defpartgroup group-slide-poof-grass
+  :id 27
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 102) (sp-item 103))
+  )
+
+(defpart 102
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 6.0 6.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 32.0 1.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.17777778)
+    (sp-flt spt-accel-y -0.27306667)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 103
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-rnd-flt spt-num 0.0 8.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.15))
+    (sp-rnd-flt spt-r 0.0 2.0 64.0)
+    (sp-rnd-int spt-g 1115684864 2 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
+
+(defpartgroup group-slide-poof-stone
+  :id 28
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 104))
+  )
+
+(defpart 104
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 6.0 6.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 32.0 1.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 96.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.17777778)
+    (sp-flt spt-accel-y -0.27306667)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-slide-poof-pcmetal
+  :id 589
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2382))
+  )
+
+(defpart 2382
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 6.0 6.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 70.0 32.0 1.0)
+    (sp-rnd-flt spt-b 40.0 20.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.17777778)
+    (sp-flt spt-accel-y -0.27306667)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-slide-poof-snow
+  :id 590
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2383))
+  )
+
+(defpart 2383
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 6.0 6.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1128529920 1 64.0)
+    (sp-rnd-int spt-g 1128529920 1 64.0)
+    (sp-rnd-int spt-b 1128529920 1 64.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.17777778)
+    (sp-flt spt-accel-y -0.27306667)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-slide-poof-ice
+  :id 591
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2383))
+  )
+
+(defpartgroup group-slide-poof-wood
+  :id 29
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 105))
+  )
+
+(defpart 105
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 6.0 6.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 32.0 1.0)
+    (sp-flt spt-g 64.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.17777778)
+    (sp-flt spt-accel-y -0.27306667)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpartgroup group-slide-poof-crwood
+  :id 30
+  :duration 5
+  :linger-duration 750
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 105))
+  )
+
+(defpart 106
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 0.0 8.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 2 32.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1107296256 1 32.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpart 2265
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 0.0 8.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 2 32.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1107296256 1 32.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpart 2262
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 0.0 8.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1128529920 1 64.0)
+    (sp-rnd-int spt-g 1128529920 1 64.0)
+    (sp-rnd-int spt-b 1128529920 1 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpart 107
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-rnd-flt spt-num 0.0 8.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.15))
+    (sp-rnd-flt spt-r 0.0 2.0 64.0)
+    (sp-rnd-int spt-g 1115684864 2 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
+
+(defpartgroup group-dark-eco-death
+  :id 31
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 295 :fade-after (meters 100) :period 600 :length 5 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2095 :period 600 :length 5)
+    (sp-item 2096 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
+    (sp-item 2097 :period 600 :length 20)
+    )
+  )
+
+(defpartgroup group-lava-death
+  :id 32
+  :duration 75
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2003) (sp-item 2004) (sp-item 2005) (sp-item 2006))
+  )
+
+(defpartgroup group-burn-death
+  :id 708
+  :duration 150
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2003))
+  )
+
+(defpart 2006
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 256.0)
+    (sp-rnd-flt spt-g 0.0 128.0 1.0)
+    (sp-rnd-flt spt-a 128.0 128.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.04) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0023333333))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-accel-y -5.4613333)
+    (sp-int spt-timer 360)
+    (sp-cpuinfo-flags bit0 bit3 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
+
+(defpart 2003
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 5.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 0.0 128.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.023529412))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -1.5058824)
+    (sp-flt spt-friction 0.98)
+    (sp-int spt-timer 81)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 2004
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-x (meters 0.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 0.0 128.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0016666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.04444444))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -2.8444443)
+    (sp-flt spt-friction 0.98)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 2005
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 3) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.008888889))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.56666666)
+    (sp-flt spt-fade-g -0.56666666)
+    (sp-flt spt-fade-b -0.56666666)
+    (sp-flt spt-fade-a 0.15)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 81 80 1)
+    (sp-launcher-by-id spt-next-launcher 2007)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
+
+(defpart 2007
+  :init-specs
+  ((sp-flt spt-fade-a -0.08))
+  )
+
+(defpart 2002
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 32.0 1.0)
+    (sp-rnd-flt spt-g 32.0 32.0 1.0)
+    (sp-rnd-flt spt-b 32.0 32.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.85333335)
+    (sp-flt spt-friction 0.98)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 15 59 1)
+    (sp-launcher-by-id spt-next-launcher 2008)
+    )
+  )
+
+(defpart 2008
+  :init-specs
+  ((sp-flt spt-fade-a -0.28444445))
+  )
 
 (defbehavior process-drawable-burn-effect target ((arg0 int))
   (sound-play-by-name (static-sound-name "get-burned") (new-sound-id) 1024 0 0 1 #t)
@@ -2627,125 +2309,99 @@
     )
   )
 
-(set! (-> *part-id-table* 2391)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 17
-          (sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
-          (sp-func spt-birth-func 'birth-func-target-orient)
-          (sp-flt spt-num 1.0)
-          (sp-flt spt-y (meters 0.02))
-          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 110.0 32.0 1.0)
-          (sp-rnd-flt spt-g 128.0 32.0 1.0)
-          (sp-rnd-flt spt-b 96.0 32.0 1.0)
-          (sp-rnd-flt spt-a 8.0 40.0 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.2)
-          (sp-int spt-timer 240)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-flt spt-userdata -8192.0)
-          (sp-end)
-          )
-        )
-      )
+(defpart 2391
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
+    (sp-func spt-birth-func 'birth-func-target-orient)
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0.02))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 110.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 32.0 1.0)
+    (sp-rnd-flt spt-a 8.0 40.0 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.2)
+    (sp-int spt-timer 240)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-flt spt-userdata -8192.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 611)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-first-person-hud-left"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2474 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-first-person-hud-left
+  :id 611
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2474 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 612)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-first-person-hud-right"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2475 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-first-person-hud-right
+  :id 612
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2475 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 613)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-first-person-hud-selector"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2476 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-first-person-hud-selector
+  :id 613
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2476 :flags (launch-asap)))
+  )
 
-(set! (-> *part-id-table* 2474)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 12
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x408))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 3.5))
-                                                     (sp-flt spt-scale-y (meters 13.0))
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-int spt-timer -1)
-                                                     (sp-cpuinfo-flags bit2 bit9 bit13)
-                                                     (sp-func spt-func 'part-first-person-hud-left-func)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2474
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 3.5))
+    (sp-flt spt-scale-y (meters 13))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-first-person-hud-left-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2475)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 13
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x408))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 3.5))
-                                                     (sp-flt spt-rot-z (degrees 180.0))
-                                                     (sp-flt spt-scale-y (meters 13.0))
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-int spt-timer -1)
-                                                     (sp-cpuinfo-flags bit2 bit9 bit13)
-                                                     (sp-func spt-func 'part-first-person-hud-right-func)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2475
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 3.5))
+    (sp-flt spt-rot-z (degrees 180.0))
+    (sp-flt spt-scale-y (meters 13))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-first-person-hud-right-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2476) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x408))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-first-person-hud-selector-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2476
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-func spt-func 'part-first-person-hud-selector-func)
+    )
+  )
 
 
 
diff --git a/goal_src/engine/ui/hud-classes.gc b/goal_src/engine/ui/hud-classes.gc
index be771c42bc..faf0708d26 100644
--- a/goal_src/engine/ui/hud-classes.gc
+++ b/goal_src/engine/ui/hud-classes.gc
@@ -7,150 +7,128 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 75) (new 'static 'sparticle-launch-group
-                                      :length 11
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag screen-space)
-                                      :name "group-part-hud-pickup"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 11
-                                        (sp-item 303 :flags (launch-asap) :binding 304)
-                                        (sp-item 304 :flags (start-dead launch-asap) :binding 305)
-                                        (sp-item 305 :flags (start-dead launch-asap) :binding 306)
-                                        (sp-item 306 :flags (start-dead launch-asap) :binding 307)
-                                        (sp-item 306 :flags (start-dead launch-asap) :binding 307)
-                                        (sp-item 306 :flags (start-dead launch-asap) :binding 307)
-                                        (sp-item 306 :flags (start-dead launch-asap) :binding 307)
-                                        (sp-item 307 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 307 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 307 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 307 :fade-after (meters 40.0) :flags (start-dead))
-                                        )
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
+(defpartgroup group-part-hud-pickup
+  :id 75
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 303 :flags (launch-asap) :binding 304)
+    (sp-item 304 :flags (start-dead launch-asap) :binding 305)
+    (sp-item 305 :flags (start-dead launch-asap) :binding 306)
+    (sp-item 306 :flags (start-dead launch-asap) :binding 307)
+    (sp-item 306 :flags (start-dead launch-asap) :binding 307)
+    (sp-item 306 :flags (start-dead launch-asap) :binding 307)
+    (sp-item 306 :flags (start-dead launch-asap) :binding 307)
+    (sp-item 307 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 307 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 307 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 307 :fade-after (meters 40) :flags (start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 303) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 10
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 303
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 92.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit3 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 304) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 122.88)
-                                   (sp-flt spt-scale-x (meters 2.5))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0014814815))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-flt spt-rotvel-z (degrees 0.2))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit7 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 304
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.03))
+    (sp-flt spt-scale-x (meters 2.5))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 92.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-flt spt-a 24.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.026666667) 1.0)
+    (sp-flt spt-vel-y (meters 0.0014814815))
+    (sp-flt spt-vel-z (meters 0))
+    (sp-flt spt-rotvel-z (degrees 0.2))
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit7 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 305) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 266.24)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3 bit7 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 305
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.065))
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 92.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-flt spt-a 24.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit3 bit7 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 306) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 491.52)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.053333335) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 306
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.12))
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-a 24.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.053333335) 1.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit3 bit7 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 307) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 0.25)
-                                   (sp-flt spt-scale-x (meters 0.35))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0012500001))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -2.125)
-                                   (sp-flt spt-accel-y -0.08192)
-                                   (sp-int-plain-rnd spt-timer 30 239 1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-int spt-next-time 120)
-                                   (sp-launcher-by-id spt-next-launcher 308)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 307
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 0.25)
+    (sp-flt spt-scale-x (meters 0.35))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-scalevel-x (meters -0.0012500001))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -2.125)
+    (sp-flt spt-accel-y -0.08192)
+    (sp-int-plain-rnd spt-timer 30 239 1)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-int spt-next-time 120)
+    (sp-launcher-by-id spt-next-launcher 308)
+    )
+  )
 
-(set! (-> *part-id-table* 308)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-r 0.0) (sp-end))
-        )
-      )
+(defpart 308
+  :init-specs
+  ((sp-flt spt-fade-r 0.0))
+  )
 
 (deftype hud-pickups (hud)
   ()
@@ -175,8 +153,8 @@
         s5-0
         (+ (-> obj text-x) (* (-> obj x-sgn) (-> obj offset)))
         (/ (* (+ (-> obj text-y) (* (-> obj y-sgn) (-> obj offset)) (-> obj y-offset))
-               (the int (-> *video-parms* relative-y-scale))
-               )
+              (the int (-> *video-parms* relative-y-scale))
+              )
            2
            )
         (font-color bright-green)
@@ -236,101 +214,77 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 76)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-health-1"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 309 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-health-1
+  :id 76
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 309 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 77)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-health-2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 310 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-health-2
+  :id 77
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 310 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 78)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-health-3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 311 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-health-3
+  :id 78
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 311 :flags (launch-asap)))
+  )
 
-(set! (-> *part-id-table* 309) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2d :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.7))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-health-01-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 309
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2d :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.7))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-func spt-func 'part-hud-health-01-func)
+    )
+  )
 
-(set! (-> *part-id-table* 310) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.7))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-health-03-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 310
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2e :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.7))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-func spt-func 'part-hud-health-03-func)
+    )
+  )
 
-(set! (-> *part-id-table* 311) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2f :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.7))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-health-02-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 311
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2f :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.7))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-func spt-func 'part-hud-health-02-func)
+    )
+  )
 
 (deftype hud-health (hud)
   ((scale float  :offset-assert 280)
@@ -489,36 +443,28 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 705)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-orb-all"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2964 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-orb-all
+  :id 705
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 2964 :flags (launch-asap)))
+  )
 
-(set! (-> *part-id-table* 2964) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2.4))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2964
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 2.4))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    )
+  )
 
 (deftype hud-money-all (hud)
   ((x-scale     float   :offset-assert 280)
@@ -549,10 +495,10 @@
                 *font-default-matrix*
                 (+ (* (-> obj x-sgn) (-> obj offset)) -60 (-> obj text-x))
                 (+ (/ (* (+ (-> obj text-y) (* (-> obj y-sgn) (-> obj offset)) (-> obj y-offset))
-                           (the int (-> *video-parms* relative-y-scale))
-                           )
-                       2
-                       )
+                         (the int (-> *video-parms* relative-y-scale))
+                         )
+                      2
+                      )
                    -17
                    )
                 0.0
@@ -592,10 +538,10 @@
           s3-0
           (+ (-> obj text-x) (* (-> obj x-sgn) (-> obj offset)) s1-0)
           (+ (/ (* (+ (-> obj text-y) (* (-> obj y-sgn) (-> obj offset)) (-> obj y-offset))
-                     (the int (-> *video-parms* relative-y-scale))
-                     )
-                 2
-                 )
+                   (the int (-> *video-parms* relative-y-scale))
+                   )
+                2
+                )
              s5-0
              )
           (font-color dark-yellow)
@@ -769,36 +715,28 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 79)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-orb"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 312 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-orb
+  :id 79
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 312 :flags (launch-asap)))
+  )
 
-(set! (-> *part-id-table* 312) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.6))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 312
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.6))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    )
+  )
 
 (deftype hud-money (hud)
   ((x-scale float  :offset-assert 280)
@@ -826,8 +764,8 @@
         s5-0
         (+ (-> obj text-x) (* (-> obj x-sgn) (-> obj offset)))
         (/ (* (+ (-> obj text-y) (* (-> obj y-sgn) (-> obj offset)) (-> obj y-offset))
-               (the int (-> *video-parms* relative-y-scale))
-               )
+              (the int (-> *video-parms* relative-y-scale))
+              )
            2
            )
         (font-color dark-yellow)
@@ -990,252 +928,214 @@
   :texture-level 2
   )
 
-(set! (-> *part-id-table* 313) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-flt spt-userdata 4.0)
-                                   (sp-func spt-func 'fuel-cell-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 313
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9)
+    (sp-flt spt-userdata 4.0)
+    (sp-func spt-func 'fuel-cell-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 314) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-flt spt-userdata 5.0)
-                                   (sp-func spt-func 'fuel-cell-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 314
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9)
+    (sp-flt spt-userdata 5.0)
+    (sp-func spt-func 'fuel-cell-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 315) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-flt spt-userdata 6.0)
-                                   (sp-func spt-func 'fuel-cell-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 315
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9)
+    (sp-flt spt-userdata 6.0)
+    (sp-func spt-func 'fuel-cell-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 316) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-flt spt-userdata 7.0)
-                                   (sp-func spt-func 'fuel-cell-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 316
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9)
+    (sp-flt spt-userdata 7.0)
+    (sp-func spt-func 'fuel-cell-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 317) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-flt spt-userdata 9.0)
-                                   (sp-func spt-func 'fuel-cell-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 317
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9)
+    (sp-flt spt-userdata 9.0)
+    (sp-func spt-func 'fuel-cell-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 318) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x30 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.8))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'fuel-cell-hud-center-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 318
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x30 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.8))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-func spt-func 'fuel-cell-hud-center-callback)
+    )
+  )
 
-(set! (-> *part-group-id-table* 80) (new 'static 'sparticle-launch-group
-                                      :length 10
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags
-                                      (sp-group-flag use-local-clock screen-space)
-                                      :name "group-part-hud-power-cell-whole"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 10
-                                        (sp-item 318 :flags (launch-asap))
-                                        (sp-item 319 :fade-after (meters 35.0))
-                                        (sp-item 320 :fade-after (meters 20.0))
-                                        (sp-item 321 :flags (launch-asap) :period 3600 :length 5)
-                                        (sp-item 322 :flags (launch-asap) :period 3600 :length 5)
-                                        (sp-item 317 :flags (launch-asap))
-                                        (sp-item 313 :flags (launch-asap))
-                                        (sp-item 314 :flags (launch-asap))
-                                        (sp-item 315 :flags (launch-asap))
-                                        (sp-item 316 :flags (launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 409600.0)
-                                      )
-      )
+(defpartgroup group-part-hud-power-cell-whole
+  :id 80
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 318 :flags (launch-asap))
+    (sp-item 319 :fade-after (meters 35))
+    (sp-item 320 :fade-after (meters 20))
+    (sp-item 321 :flags (launch-asap) :period 3600 :length 5)
+    (sp-item 322 :flags (launch-asap) :period 3600 :length 5)
+    (sp-item 317 :flags (launch-asap))
+    (sp-item 313 :flags (launch-asap))
+    (sp-item 314 :flags (launch-asap))
+    (sp-item 315 :flags (launch-asap))
+    (sp-item 316 :flags (launch-asap))
+    )
+  )
 
-(set! (-> *part-id-table* 323)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 323
+  :init-specs
+  ((sp-flt spt-fade-a -0.53333336))
+  )
 
-(set! (-> *part-id-table* 319) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-z 92160.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.8) 1.0)
-                                   (sp-rnd-int spt-r 0 1 255.0)
-                                   (sp-rnd-int spt-g 0 1 255.0)
-                                   (sp-rnd-int spt-b 0 1 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 0.35555556)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 232)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 319
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-flt spt-z (meters 22.5))
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.8) 1.0)
+    (sp-rnd-int spt-r 0 1 255.0)
+    (sp-rnd-int spt-g 0 1 255.0)
+    (sp-rnd-int spt-b 0 1 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 0.35555556)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 232)
+    )
+  )
 
-(set! (-> *part-id-table* 320) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.06)
-                                   (sp-flt spt-z 92160.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.2))
-                                   (sp-rnd-int spt-r 0 1 255.0)
-                                   (sp-rnd-int spt-g 0 1 255.0)
-                                   (sp-rnd-int spt-b 0 1 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 232)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 320
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 0.06)
+    (sp-flt spt-z (meters 22.5))
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.2))
+    (sp-rnd-int spt-r 0 1 255.0)
+    (sp-rnd-int spt-g 0 1 255.0)
+    (sp-rnd-int spt-b 0 1 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-fade-a 0.32)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 232)
+    )
+  )
 
-(set! (-> *part-id-table* 321) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-z 92160.0)
-                                   (sp-flt spt-scale-x (meters 3.3))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 2.8))
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-rotvel-z (degrees -0.4))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-func spt-func 'fuel-cell-hud-starburst-3-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 321
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-z (meters 22.5))
+    (sp-flt spt-scale-x (meters 3.3))
+    (sp-flt spt-rot-z (degrees 0.0))
+    (sp-flt spt-scale-y (meters 2.8))
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 0.0 128.0 1.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-rotvel-z (degrees -0.4))
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-func spt-func 'fuel-cell-hud-starburst-3-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 322) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-z 92160.0)
-                                   (sp-flt spt-scale-x (meters 3.8))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 3.3))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-rotvel-z (degrees 0.3))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-func spt-func 'fuel-cell-hud-starburst-4-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 322
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-z (meters 22.5))
+    (sp-flt spt-scale-x (meters 3.8))
+    (sp-flt spt-rot-z (degrees 0.0))
+    (sp-flt spt-scale-y (meters 3.3))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-rotvel-z (degrees 0.3))
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-func spt-func 'fuel-cell-hud-starburst-4-callback)
+    )
+  )
 
 (deftype hud-fuel-cell (hud)
   ((scale-starburst-3-x float  :offset-assert 280)
@@ -1267,8 +1167,8 @@
         s5-0
         (+ (-> obj text-x) (* (-> obj x-sgn) (-> obj offset)))
         (/ (* (+ (-> obj text-y) (* (-> obj y-sgn) (-> obj offset)) (-> obj y-offset))
-               (the int (-> *video-parms* relative-y-scale))
-               )
+              (the int (-> *video-parms* relative-y-scale))
+              )
            2
            )
         (font-color dark-yellow)
@@ -1463,63 +1363,50 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 81) (new 'static 'sparticle-launch-group
-                                      :length 2
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag screen-space)
-                                      :name "group-part-hud-buzzer"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 2
-                                        (sp-item 324 :flags (launch-asap) :binding 325)
-                                        (sp-item 325 :flags (start-dead launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 409600.0)
-                                      )
-      )
+(defpartgroup group-part-hud-buzzer
+  :id 81
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 324 :flags (launch-asap) :binding 325) (sp-item 325 :flags (start-dead launch-asap)))
+  )
 
-(set! (-> *part-id-table* 324) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 324
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 2.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 325) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 0.0))
-                                   (sp-flt spt-y (meters 1.3333334))
-                                   (sp-flt spt-z 409.6)
-                                   (sp-flt spt-scale-x (meters 1.8))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters 0.053333335))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit7 bit9)
-                                   (sp-func spt-func 'part-hud-buzzer-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 325
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters 1.3333334))
+    (sp-flt spt-z (meters 0.1))
+    (sp-flt spt-scale-x (meters 1.8))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-omega 0.0)
+    (sp-flt spt-vel-x (meters 0.053333335))
+    (sp-flt spt-vel-z (meters 0))
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit7 bit9)
+    (sp-func spt-func 'part-hud-buzzer-func)
+    )
+  )
 
 (deftype hud-buzzers (hud)
   ((scale         float  :offset-assert 280)
@@ -1545,9 +1432,9 @@
     (t9-0 obj)
     )
   (set! (-> obj text-y) (+ (if (nonzero? (-> obj next-y-offset))
-                                (-> obj text-y-offset)
-                                0
-                                )
+                               (-> obj text-y-offset)
+                               0
+                               )
                            362
                            )
         )
@@ -1561,8 +1448,8 @@
         s5-0
         (+ (-> obj text-x) (* (-> obj x-sgn) (-> obj offset)))
         (/ (* (+ (-> obj text-y) (* (-> obj y-sgn) (-> obj offset)) (-> obj y-offset))
-               (the int (-> *video-parms* relative-y-scale))
-               )
+              (the int (-> *video-parms* relative-y-scale))
+              )
            2
            )
         (font-color dark-yellow)
@@ -1630,9 +1517,9 @@
 
 (defmethod first-icon-y hud-buzzers ((obj hud-buzzers))
   (+ (if (= (-> *setting-control* current video-mode) 'pal)
-          (+ (-> obj text-y) 120)
-          (+ (-> obj text-y) 50)
-          )
+         (+ (-> obj text-y) 120)
+         (+ (-> obj text-y) 50)
+         )
      (-> obj next-y-offset)
      )
   )
@@ -1661,143 +1548,109 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 82)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-eco-timer"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 327 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-eco-timer
+  :id 82
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 327 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 83)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-eco-timer-backing"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 328 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-eco-timer-backing
+  :id 83
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 328 :flags (launch-asap)))
+  )
 
-(set! (-> *part-id-table* 327) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 3.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-eco-timer-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 327
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2b :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 3.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-func spt-func 'part-hud-eco-timer-func)
+    )
+  )
 
-(set! (-> *part-id-table* 328) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 63.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-eco-timer-backing-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 328
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 2.5))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 63.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-func spt-func 'part-hud-eco-timer-backing-func)
+    )
+  )
 
-(set! (-> *part-group-id-table* 84) (new 'static 'sparticle-launch-group
-                                      :length 3
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags
-                                      (sp-group-flag use-local-clock screen-space)
-                                      :name "group-part-hud-timer-blue"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 3
-                                        (sp-item 329 :flags (launch-asap))
-                                        (sp-item 330 :flags (launch-asap))
-                                        (sp-item 331 :flags (launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 409600.0)
-                                      )
-      )
+(defpartgroup group-part-hud-timer-blue
+  :id 84
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 329 :flags (launch-asap)) (sp-item 330 :flags (launch-asap)) (sp-item 331 :flags (launch-asap)))
+  )
 
-(set! (-> *part-id-table* 329) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-eco-timer-01-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 329
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-func spt-func 'part-hud-eco-timer-01-func)
+    )
+  )
 
-(set! (-> *part-id-table* 330) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-eco-timer-02-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 330
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-func spt-func 'part-hud-eco-timer-02-func)
+    )
+  )
 
-(set! (-> *part-id-table* 331) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-eco-timer-03-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 331
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-func spt-func 'part-hud-eco-timer-03-func)
+    )
+  )
 
 (deftype hud-power (hud)
   ((scale-timer   float  :offset-assert 280)
@@ -1854,16 +1707,16 @@
 (defun part-hud-eco-timer-01-func ((arg0 basic) (arg1 basic) (arg2 hud-particle))
   (let ((f0-2
           (/ (the float
-                   (the-as
-                     uint
-                     (- (-> *target* fact-info-target eco-timeout)
-                        (the-as
-                          uint
-                          (- (-> *display* game-frame-counter) (the-as int (-> *target* fact-info-target eco-pickup-time)))
-                          )
-                        )
-                     )
-                   )
+                  (the-as
+                    uint
+                    (- (-> *target* fact-info-target eco-timeout)
+                       (the-as
+                         uint
+                         (- (-> *display* game-frame-counter) (the-as int (-> *target* fact-info-target eco-pickup-time)))
+                         )
+                       )
+                    )
+                  )
              (the float (the-as uint (-> *FACT-bank* eco-full-timeout)))
              )
           )
@@ -1901,16 +1754,16 @@
 (defun part-hud-eco-timer-02-func ((arg0 basic) (arg1 basic) (arg2 hud-particle))
   (let ((f0-2
           (/ (the float
-                   (the-as
-                     uint
-                     (- (-> *target* fact-info-target eco-timeout)
-                        (the-as
-                          uint
-                          (- (-> *display* game-frame-counter) (the-as int (-> *target* fact-info-target eco-pickup-time)))
-                          )
-                        )
-                     )
-                   )
+                  (the-as
+                    uint
+                    (- (-> *target* fact-info-target eco-timeout)
+                       (the-as
+                         uint
+                         (- (-> *display* game-frame-counter) (the-as int (-> *target* fact-info-target eco-pickup-time)))
+                         )
+                       )
+                    )
+                  )
              (the float (the-as uint (-> *FACT-bank* eco-full-timeout)))
              )
           )
@@ -1948,16 +1801,16 @@
 (defun part-hud-eco-timer-03-func ((arg0 basic) (arg1 basic) (arg2 hud-particle))
   (let ((f0-2
           (/ (the float
-                   (the-as
-                     uint
-                     (- (-> *target* fact-info-target eco-timeout)
-                        (the-as
-                          uint
-                          (- (-> *display* game-frame-counter) (the-as int (-> *target* fact-info-target eco-pickup-time)))
-                          )
-                        )
-                     )
-                   )
+                  (the-as
+                    uint
+                    (- (-> *target* fact-info-target eco-timeout)
+                       (the-as
+                         uint
+                         (- (-> *display* game-frame-counter) (the-as int (-> *target* fact-info-target eco-pickup-time)))
+                         )
+                       )
+                    )
+                  )
              (the float (the-as uint (-> *FACT-bank* eco-full-timeout)))
              )
           )
@@ -2215,8 +2068,7 @@
   (when *target*
     (dotimes (s5-0 9)
       (when (-> *hud-parts* parts s5-0)
-        (if (or
-                (!= (-> *hud-parts* parts s5-0) arg0)
+        (if (or (!= (-> *hud-parts* parts s5-0) arg0)
                 (zero? (-> (the-as (pointer hud) (-> *hud-parts* parts s5-0)) 0 value))
                 )
             (send-event (ppointer->process (-> *hud-parts* parts s5-0)) 'hide)
diff --git a/goal_src/engine/ui/hud-h.gc b/goal_src/engine/ui/hud-h.gc
index 803d961aab..57c16816d7 100644
--- a/goal_src/engine/ui/hud-h.gc
+++ b/goal_src/engine/ui/hud-h.gc
@@ -64,8 +64,8 @@
   ((value                  int32          :offset-assert 112)
    (value2                 int32          :offset-assert 116)
    (target-value           int32          :offset-assert 120)
-   (last-increment-time    uint64         :offset-assert 128)
-   (last-target-equal-time uint64         :offset-assert 136)
+   (last-increment-time    int64          :offset-assert 128)
+   (last-target-equal-time int64          :offset-assert 136)
    (offset                 int32          :offset-assert 144)
    (y-offset               int32          :offset-assert 148)
    (next-y-offset          int32          :offset-assert 152)
diff --git a/goal_src/engine/ui/hud.gc b/goal_src/engine/ui/hud.gc
index 1e4a8726bb..07ebf1e13c 100644
--- a/goal_src/engine/ui/hud.gc
+++ b/goal_src/engine/ui/hud.gc
@@ -50,52 +50,46 @@
 
 (defmethod TODO-RENAME-16 hud ((obj hud) (arg0 int) (arg1 int))
   (if (= arg0 (-> obj target-value))
-      (set! (-> obj last-target-equal-time) (the-as uint (-> *display* base-frame-counter)))
+      (set! (-> obj last-target-equal-time) (-> *display* base-frame-counter))
       )
-  (when (and (not *progress-process*) (and
-                                        (!= (-> obj last-hide-time) (-> *display* base-frame-counter))
-                                        (not (movie?))
-                                        (>= (- (-> *display* base-frame-counter) (-> *game-info* letterbox-time)) 30)
-                                        (>= (- (-> *display* base-frame-counter) (-> *game-info* blackout-time)) 30)
-                                        (not (and *target* (logtest? (-> *target* state-flags) 256)))
-                                        )
+  (when (and (not *progress-process*)
+             (and (!= (-> obj last-hide-time) (-> *display* base-frame-counter))
+                  (not (movie?))
+                  (>= (- (-> *display* base-frame-counter) (-> *game-info* letterbox-time)) 30)
+                  (>= (- (-> *display* base-frame-counter) (-> *game-info* blackout-time)) 30)
+                  (not (and *target* (logtest? (-> *target* state-flags) 256)))
+                  )
              )
-    (when (or
-            (!= (-> obj value) arg0)
-            (!= (-> obj value2) arg1)
-            (-> obj force-on-screen)
-            (or
-              (and (cpad-hold? 0 l2) (not (-> obj disable)))
-              (and (not *cheat-mode*) (cpad-hold? 0 r2))
-              (-> obj first-init)
+    (when (or (!= (-> obj value) arg0)
+              (!= (-> obj value2) arg1)
+              (-> obj force-on-screen)
+              (or (and (cpad-hold? 0 l2) (not (-> obj disable)))
+                  (and (not *cheat-mode*) (cpad-hold? 0 r2))
+                  (-> obj first-init)
+                  )
               )
-            )
       (cond
-        ((and
-           (-> obj increment-on-event)
-           (< (-> obj value) arg0)
-           (not (-> obj first-init))
-           (< (- (-> *display* base-frame-counter) (the-as int (-> obj last-target-equal-time))) 450)
-           )
-         (when (and
-                 (!= (-> obj value) (-> obj target-value))
-                 (>= (- (-> *display* base-frame-counter) (the-as int (-> obj last-increment-time))) 30)
-                 )
+        ((and (-> obj increment-on-event)
+              (< (-> obj value) arg0)
+              (not (-> obj first-init))
+              (< (- (-> *display* base-frame-counter) (-> obj last-target-equal-time)) 450)
+              )
+         (when (and (!= (-> obj value) (-> obj target-value))
+                    (>= (- (-> *display* base-frame-counter) (-> obj last-increment-time)) 30)
+                    )
            (sound-play-by-name (static-sound-name "cursor-options") (new-sound-id) 1024 0 0 1 #t)
            (+! (-> obj value) 1)
-           (set! (-> obj last-increment-time) (the-as uint (-> *display* base-frame-counter)))
+           (set! (-> obj last-increment-time) (-> *display* base-frame-counter))
            )
          )
         (else
-          (if (not (and
-                       (not (-> obj first-init))
-                       (>= (- (-> *display* base-frame-counter) (the-as int (-> obj last-target-equal-time))) 450)
-                       )
-                     )
+          (if (not
+                (and (not (-> obj first-init)) (>= (- (-> *display* base-frame-counter) (-> obj last-target-equal-time)) 450))
+                )
               (set! (-> obj value) arg0)
               )
           (set! (-> obj target-value) arg0)
-          (set! (-> obj last-target-equal-time) (the-as uint (-> *display* base-frame-counter)))
+          (set! (-> obj last-target-equal-time) (-> *display* base-frame-counter))
           )
         )
       (set! (-> obj value2) arg1)
@@ -127,13 +121,13 @@
           )
     (set! (-> obj icons v1-0 icon 0 root trans y)
           (- (+ (the float (-> obj icons v1-0 icon-y))
-                 (* (the float (-> obj y-sgn))
-                    (the float (-> obj offset))
-                    (-> *video-parms* relative-y-scale)
-                    (-> *video-parms* relative-y-scale)
-                    )
-                 (* (the float (-> obj y-offset)) (-> *video-parms* relative-x-scale-reciprical))
-                 )
+                (* (the float (-> obj y-sgn))
+                   (the float (-> obj offset))
+                   (-> *video-parms* relative-y-scale)
+                   (-> *video-parms* relative-y-scale)
+                   )
+                (* (the float (-> obj y-offset)) (-> *video-parms* relative-x-scale-reciprical))
+                )
              (the float (-> *video-parms* screen-sy))
              )
           )
@@ -150,11 +144,11 @@
             )
       (set! (-> obj particles s5-0 pos y)
             (* 0.5 (- (* (-> *video-parms* relative-y-scale)
-                          (+ (-> obj particles s5-0 init-pos y)
-                             (the float (* (-> obj y-sgn) (-> obj offset)))
-                             (* (the float (-> obj y-offset)) (-> *video-parms* relative-x-scale-reciprical))
-                             )
-                          )
+                         (+ (-> obj particles s5-0 init-pos y)
+                            (the float (* (-> obj y-sgn) (-> obj offset)))
+                            (* (the float (-> obj y-offset)) (-> *video-parms* relative-x-scale-reciprical))
+                            )
+                         )
                       (the float (-> *video-parms* screen-sy))
                       )
                )
@@ -270,7 +264,10 @@
     (none)
     )
   :exit
-  (behavior () (set! (-> self y-offset) (-> self next-y-offset)) (none))
+  (behavior ()
+    (set! (-> self y-offset) (-> self next-y-offset))
+    (none)
+    )
   :code
   (behavior ()
     (logior! (-> self mask) (process-mask sleep-code))
@@ -373,7 +370,12 @@
     (none)
     )
   :post
-  (behavior () (TODO-RENAME-19 self) (dummy-18 self) (dummy-15 self) (none))
+  (behavior ()
+    (TODO-RENAME-19 self)
+    (dummy-18 self)
+    (dummy-15 self)
+    (none)
+    )
   )
 
 (defstate hud-in (hud)
@@ -441,8 +443,8 @@
   (set! (-> self max-nb-of-particles) 7)
   (set! (-> self first-init) #t)
   (set! (-> self friend) -1)
-  (set! (-> self last-increment-time) (the-as uint (-> *display* base-frame-counter)))
-  (set! (-> self last-target-equal-time) (the-as uint (-> *display* base-frame-counter)))
+  (set! (-> self last-increment-time) (-> *display* base-frame-counter))
+  (set! (-> self last-target-equal-time) (-> *display* base-frame-counter))
   (set! (-> self increment-on-event) #f)
   (set! (-> self skip-particle) -1)
   (set! (-> self disable) #f)
diff --git a/goal_src/engine/ui/progress-h.gc b/goal_src/engine/ui/progress-h.gc
index 0967669e79..908992bfdb 100644
--- a/goal_src/engine/ui/progress-h.gc
+++ b/goal_src/engine/ui/progress-h.gc
@@ -130,51 +130,51 @@
 
 
 (deftype progress (process)
-  ((current-debug-string         int32           :offset-assert 112)
-   (current-debug-language       int32           :offset-assert 116)
-   (current-debug-group          int32           :offset-assert 120)
-   (in-out-position              int32           :offset-assert 124)
-   (display-state                progress-screen :offset-assert 128)
-   (next-display-state           progress-screen :offset-assert 136)
-   (option-index                 int32           :offset-assert 144)
-   (selected-option              basic           :offset-assert 148)
-   (completion-percentage        float           :offset-assert 152)
-   (ready-to-run                 basic           :offset-assert 156)
-   (display-level-index          int32           :offset-assert 160)
-   (next-level-index             int32           :offset-assert 164)
-   (task-index                   int32           :offset-assert 168)
-   (in-transition                basic           :offset-assert 172)
-   (last-in-transition           basic           :offset-assert 176)
-   (force-transition             basic           :offset-assert 180)
-   (stat-transition              basic           :offset-assert 184)
-   (level-transition             int32           :offset-assert 188)
-   (language-selection           uint64          :offset-assert 192)
-   (language-direction           basic           :offset-assert 200)
-   (language-transition          basic           :offset-assert 204)
-   (language-x-offset            int32           :offset-assert 208)
-   (sides-x-scale                float           :offset-assert 212)
-   (sides-y-scale                float           :offset-assert 216)
-   (left-x-offset                int32           :offset-assert 220)
-   (right-x-offset               int32           :offset-assert 224)
-   (button-scale                 float           :offset-assert 228)
-   (slot-scale                   float           :offset-assert 232)
-   (left-side-x-scale            float           :offset-assert 236)
-   (left-side-y-scale            float           :offset-assert 240)
-   (right-side-x-scale           float           :offset-assert 244)
-   (right-side-y-scale           float           :offset-assert 248)
-   (small-orb-y-offset           int32           :offset-assert 252)
-   (big-orb-y-offset             int32           :offset-assert 256)
-   (transition-offset            int32           :offset-assert 260)
-   (transition-offset-invert     int32           :offset-assert 264)
-   (transition-percentage        float           :offset-assert 268)
-   (transition-percentage-invert float           :offset-assert 272)
-   (transition-speed             float           :offset-assert 276)
-   (total-nb-of-power-cells      int32           :offset-assert 280)
-   (total-nb-of-orbs             int32           :offset-assert 284)
-   (total-nb-of-buzzers          int32           :offset-assert 288)
-   (card-info                    mc-slot-info    :offset-assert 292)
-   (last-option-index-change     int64           :offset-assert 296)
-   (video-mode-timeout           int64           :offset-assert 304)
+  ((current-debug-string         int32              :offset-assert 112)
+   (current-debug-language       int32              :offset-assert 116)
+   (current-debug-group          int32              :offset-assert 120)
+   (in-out-position              int32              :offset-assert 124)
+   (display-state                progress-screen    :offset-assert 128)
+   (next-display-state           progress-screen    :offset-assert 136)
+   (option-index                 int32              :offset-assert 144)
+   (selected-option              basic              :offset-assert 148)
+   (completion-percentage        float              :offset-assert 152)
+   (ready-to-run                 basic              :offset-assert 156)
+   (display-level-index          int32              :offset-assert 160)
+   (next-level-index             int32              :offset-assert 164)
+   (task-index                   int32              :offset-assert 168)
+   (in-transition                basic              :offset-assert 172)
+   (last-in-transition           basic              :offset-assert 176)
+   (force-transition             basic              :offset-assert 180)
+   (stat-transition              basic              :offset-assert 184)
+   (level-transition             int32              :offset-assert 188)
+   (language-selection           uint64             :offset-assert 192)
+   (language-direction           basic              :offset-assert 200)
+   (language-transition          basic              :offset-assert 204)
+   (language-x-offset            int32              :offset-assert 208)
+   (sides-x-scale                float              :offset-assert 212)
+   (sides-y-scale                float              :offset-assert 216)
+   (left-x-offset                int32              :offset-assert 220)
+   (right-x-offset               int32              :offset-assert 224)
+   (button-scale                 float              :offset-assert 228)
+   (slot-scale                   float              :offset-assert 232)
+   (left-side-x-scale            float              :offset-assert 236)
+   (left-side-y-scale            float              :offset-assert 240)
+   (right-side-x-scale           float              :offset-assert 244)
+   (right-side-y-scale           float              :offset-assert 248)
+   (small-orb-y-offset           int32              :offset-assert 252)
+   (big-orb-y-offset             int32              :offset-assert 256)
+   (transition-offset            int32              :offset-assert 260)
+   (transition-offset-invert     int32              :offset-assert 264)
+   (transition-percentage        float              :offset-assert 268)
+   (transition-percentage-invert float              :offset-assert 272)
+   (transition-speed             float              :offset-assert 276)
+   (total-nb-of-power-cells      int32              :offset-assert 280)
+   (total-nb-of-orbs             int32              :offset-assert 284)
+   (total-nb-of-buzzers          int32              :offset-assert 288)
+   (card-info                    mc-slot-info       :offset-assert 292)
+   (last-option-index-change     int64              :offset-assert 296)
+   (video-mode-timeout           int64              :offset-assert 304)
    (display-state-stack          progress-screen 5  :offset-assert 312)
    (option-index-stack           int32           5  :offset-assert 352)
    (display-state-pos            int32              :offset-assert 372)
@@ -250,3 +250,9 @@
 (define *progress-process* (the-as (pointer progress) #f))
 
 (define *progress-last-task-index* 0)
+
+0
+
+
+
+
diff --git a/goal_src/engine/ui/progress/progress-draw.gc b/goal_src/engine/ui/progress/progress-draw.gc
index 07ef15a509..8fd8ef454e 100644
--- a/goal_src/engine/ui/progress/progress-draw.gc
+++ b/goal_src/engine/ui/progress/progress-draw.gc
@@ -709,8 +709,8 @@
                (set! (-> v1-57 scale) 0.6)
                )
              (if (and (< (-> s3-3 file s1-0 level-index) (length *level-task-data-remap*))
-                        (> (-> s3-3 file s1-0 level-index) 0)
-                        )
+                      (> (-> s3-3 file s1-0 level-index) 0)
+                      )
                  (print-game-text
                    (lookup-text!
                      *common-text*
@@ -1151,9 +1151,9 @@
   (set! (-> *progress-process* 0 particles 31 init-pos x)
         (the float
              (- (if (or (< (mod (-> *display* real-frame-counter) 300) 270) (!= (-> obj transition-percentage-invert) 1.0))
-                     205
-                     -320
-                     )
+                    205
+                    -320
+                    )
                 (-> obj left-x-offset)
                 )
              )
@@ -1710,8 +1710,8 @@
                     (set! sv-512 (-> obj language-selection))
                     (set! sv-448 (-> (the-as (pointer uint64) (-> s3-0 s0-0 value-to-modify))))
                     (if (and (zero? (scf-get-territory))
-                               (not (and (= *progress-cheat* 'language) (cpad-hold? 0 l2) (cpad-hold? 0 r2)))
-                               )
+                             (not (and (= *progress-cheat* 'language) (cpad-hold? 0 l2) (cpad-hold? 0 r2)))
+                             )
                         (set! sv-464 5)
                         (set! sv-464 6)
                         )
@@ -2046,11 +2046,11 @@
           )
         (set! (-> s4-2 origin x)
               (+ (- 435.0 (the float (if (< (-> *progress-process* 0 completion-percentage) 10.0)
-                                          93
-                                          80
-                                          )
-                                )
-                     )
+                                         93
+                                         80
+                                         )
+                               )
+                    )
                  f30-0
                  )
               )
diff --git a/goal_src/engine/ui/progress/progress-part.gc b/goal_src/engine/ui/progress/progress-part.gc
index 82a7f3d62a..8d8d12d953 100644
--- a/goal_src/engine/ui/progress/progress-part.gc
+++ b/goal_src/engine/ui/progress/progress-part.gc
@@ -201,1003 +201,778 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 85)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags
-        (sp-group-flag use-local-clock screen-space)
-        :name "group-part-progress-hud-previous"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 332 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-previous
+  :id 85
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 332 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 86)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags
-        (sp-group-flag use-local-clock screen-space)
-        :name "group-part-progress-hud-next"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 333 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-next
+  :id 86
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 333 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 87)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-hud-selector"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 334 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-selector
+  :id 87
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 334 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 88)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-hud-left"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 335 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-left
+  :id 88
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 335 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 89)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-hud-right"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 336 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-right
+  :id 89
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 336 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 90)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-hud-tint"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 337 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-tint
+  :id 90
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 337 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 91) (new 'static 'sparticle-launch-group
-                                      :length 3
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag screen-space)
-                                      :name "group-part-progress-card-cell"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 3
-                                        (sp-item 2190 :flags (launch-asap))
-                                        (sp-item 2191 :flags (launch-asap))
-                                        (sp-item 2192 :flags (launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 4096.0)
-                                      )
-      )
+(defpartgroup group-part-progress-card-cell
+  :id 91
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2190 :flags (launch-asap)) (sp-item 2191 :flags (launch-asap)) (sp-item 2192 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 570)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-button-x"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2336 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-button-x
+  :id 570
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2336 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 571)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-button-square"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2337 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-button-square
+  :id 571
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2337 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 572)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-button-triangle"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2338 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-button-triangle
+  :id 572
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2338 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 573)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-button-circle"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2339 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-button-circle
+  :id 573
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2339 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 92)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-card-slot-01"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2142 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-card-slot-01
+  :id 92
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2142 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 93)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-card-slot-02"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2143 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-card-slot-02
+  :id 93
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2143 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 94)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-card-slot-03"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2144 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-card-slot-03
+  :id 94
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2144 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 95)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-card-slot-04"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2145 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-card-slot-04
+  :id 95
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2145 :flags (launch-asap)))
+  )
 
-(set! (-> *part-group-id-table* 96)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name
-        "group-part-progress-hud-power-cell-center"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 338 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-power-cell-center
+  :id 96
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 338 :flags (launch-asap)))
+  )
 
-(set! (-> *part-id-table* 337) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 15.0))
-                                   (sp-flt spt-scale-y (meters 11.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-func spt-func 'part-progress-hud-tint-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 337
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 15))
+    (sp-flt spt-scale-y (meters 11.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-progress-hud-tint-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2190) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6e :page #x1cf))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.8))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-cell-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2190
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x6e :page #x1cf))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.8))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-func spt-func 'part-progress-card-cell-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2191) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6d :page #x1cf))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 1.05))
-                                    (sp-flt spt-scale-x (meters 0.8))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-cell-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2191
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x6d :page #x1cf))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 1.05))
+    (sp-flt spt-scale-x (meters 0.8))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-func spt-func 'part-progress-card-cell-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2192) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6c :page #x1cf))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 2.3))
-                                    (sp-flt spt-scale-x (meters 0.8))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-cell-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2192
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x6c :page #x1cf))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 2.3))
+    (sp-flt spt-scale-x (meters 0.8))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-func spt-func 'part-progress-card-cell-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2336) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x408))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-button-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2336
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.6))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-progress-hud-button-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2337) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x408))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-button-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2337
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.6))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-progress-hud-button-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2338) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x408))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-button-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2338
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.6))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-progress-hud-button-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2339) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x408))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-button-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2339
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.6))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-progress-hud-button-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2142) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 9.2))
-                                    (sp-flt spt-scale-y (meters 2.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-slot-01-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2142
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 9.2))
+    (sp-flt spt-scale-y (meters 2))
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 0.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-func spt-func 'part-progress-card-slot-01-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2143) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 9.2))
-                                    (sp-flt spt-scale-y (meters 2.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-slot-02-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2143
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 9.2))
+    (sp-flt spt-scale-y (meters 2))
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 0.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-func spt-func 'part-progress-card-slot-02-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2144) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 9.2))
-                                    (sp-flt spt-scale-y (meters 2.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-slot-03-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2144
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 9.2))
+    (sp-flt spt-scale-y (meters 2))
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 0.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-func spt-func 'part-progress-card-slot-03-func)
+    )
+  )
 
-(set! (-> *part-id-table* 2145) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 9.2))
-                                    (sp-flt spt-scale-y (meters 2.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-slot-04-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2145
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 9.2))
+    (sp-flt spt-scale-y (meters 2))
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 0.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-func spt-func 'part-progress-card-slot-04-func)
+    )
+  )
 
-(set! (-> *part-id-table* 332) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x408))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 332
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    )
+  )
 
-(set! (-> *part-id-table* 333) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x408))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 333
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    )
+  )
 
-(set! (-> *part-id-table* 334) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x408))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.8))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 334
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.8))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    )
+  )
 
-(set! (-> *part-id-table* 335)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 12
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x408))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 3.5))
-                                                     (sp-flt spt-scale-y (meters 13.0))
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-int spt-timer -1)
-                                                     (sp-cpuinfo-flags bit2 bit9 bit13)
-                                                     (sp-func spt-func 'part-progress-hud-left-func)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 335
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 3.5))
+    (sp-flt spt-scale-y (meters 13))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-progress-hud-left-func)
+    )
+  )
 
-(set! (-> *part-id-table* 336) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x408))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 6.0))
-                                   (sp-flt spt-scale-y (meters 13.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-func spt-func 'part-progress-hud-right-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 336
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x408))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 6))
+    (sp-flt spt-scale-y (meters 13))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-progress-hud-right-func)
+    )
+  )
 
-(set! (-> *part-id-table* 339) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9 bit13)
-                                   (sp-flt spt-userdata 4.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 339
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.3))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-flt spt-userdata 4.0)
+    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 340) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9 bit13)
-                                   (sp-flt spt-userdata 5.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 340
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.3))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-flt spt-userdata 5.0)
+    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 341) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9 bit13)
-                                   (sp-flt spt-userdata 6.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 341
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.3))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-flt spt-userdata 6.0)
+    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 342) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9 bit13)
-                                   (sp-flt spt-userdata 7.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 342
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.3))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-flt spt-userdata 7.0)
+    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 343) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9 bit13)
-                                   (sp-flt spt-userdata 9.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 343
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    (sp-flt spt-userdata 9.0)
+    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 338) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x30 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-flt spt-userdata 3.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 338
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x30 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-flt spt-userdata 3.0)
+    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 344)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 344
+  :init-specs
+  ((sp-flt spt-fade-a -0.53333336))
+  )
 
-(set! (-> *part-id-table* 345) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-z 2160.0)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.07) (meters 0.46) 1.0)
-                                   (sp-rnd-int spt-r 0 1 255.0)
-                                   (sp-rnd-int spt-g 0 1 255.0)
-                                   (sp-rnd-int spt-b 0 1 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 0.35555556)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
-                                   (sp-flt spt-userdata -1.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 232)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 345
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-flt spt-z (meters 0.52734375))
+    (sp-flt spt-scale-x (meters 0.25))
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.07) (meters 0.46) 1.0)
+    (sp-rnd-int spt-r 0 1 255.0)
+    (sp-rnd-int spt-g 0 1 255.0)
+    (sp-rnd-int spt-b 0 1 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 0.35555556)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
+    (sp-flt spt-userdata -1.0)
+    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 232)
+    )
+  )
 
-(set! (-> *part-id-table* 346) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.06)
-                                   (sp-flt spt-z 2160.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.25) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.1))
-                                   (sp-rnd-int spt-r 0 1 255.0)
-                                   (sp-rnd-int spt-g 0 1 255.0)
-                                   (sp-rnd-int spt-b 0 1 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
-                                   (sp-flt spt-userdata -1.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 232)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 346
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 0.06)
+    (sp-flt spt-z (meters 0.52734375))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.25) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.1))
+    (sp-rnd-int spt-r 0 1 255.0)
+    (sp-rnd-int spt-g 0 1 255.0)
+    (sp-rnd-int spt-b 0 1 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-fade-a 0.32)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
+    (sp-flt spt-userdata -1.0)
+    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 232)
+    )
+  )
 
-(set! (-> *part-id-table* 347) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-z 2160.0)
-                                   (sp-flt spt-scale-x (meters 2.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 1.8))
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-rotvel-z (degrees -0.4))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
-                                   (sp-flt spt-userdata -1.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 347
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-z (meters 0.52734375))
+    (sp-flt spt-scale-x (meters 2))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 1.8))
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 0.0 128.0 1.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-rotvel-z (degrees -0.4))
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
+    (sp-flt spt-userdata -1.0)
+    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-id-table* 348) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-z 2160.0)
-                                   (sp-flt spt-scale-x (meters 2.4))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 2.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-rotvel-z (degrees 0.3))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
-                                   (sp-flt spt-userdata -1.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 348
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-z (meters 0.52734375))
+    (sp-flt spt-scale-x (meters 2.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 2))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-rotvel-z (degrees 0.3))
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
+    (sp-flt spt-userdata -1.0)
+    (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+    )
+  )
 
-(set! (-> *part-group-id-table* 97) (new 'static 'sparticle-launch-group
-                                      :length 8
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags
-                                      (sp-group-flag use-local-clock screen-space)
-                                      :name
-                                      "group-part-progress-hud-power-cell-whole"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 8
-                                        (sp-item 338 :flags (launch-asap))
-                                        (sp-item 347 :flags (launch-asap) :period 3600 :length 5)
-                                        (sp-item 348 :flags (launch-asap) :period 3600 :length 5)
-                                        (sp-item 343 :flags (launch-asap))
-                                        (sp-item 339 :flags (launch-asap))
-                                        (sp-item 340 :flags (launch-asap))
-                                        (sp-item 341 :flags (launch-asap))
-                                        (sp-item 342 :flags (launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 409600.0)
-                                      )
-      )
+(defpartgroup group-part-progress-hud-power-cell-whole
+  :id 97
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 338 :flags (launch-asap))
+    (sp-item 347 :flags (launch-asap) :period 3600 :length 5)
+    (sp-item 348 :flags (launch-asap) :period 3600 :length 5)
+    (sp-item 343 :flags (launch-asap))
+    (sp-item 339 :flags (launch-asap))
+    (sp-item 340 :flags (launch-asap))
+    (sp-item 341 :flags (launch-asap))
+    (sp-item 342 :flags (launch-asap))
+    )
+  )
 
-(set! (-> *part-group-id-table* 98) (new 'static 'sparticle-launch-group
-                                      :length 2
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag screen-space)
-                                      :name "group-part-progress-buzzer"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 2
-                                        (sp-item 1982 :flags (launch-asap) :binding 1981)
-                                        (sp-item 1981 :flags (start-dead launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 409600.0)
-                                      )
-      )
+(defpartgroup group-part-progress-buzzer
+  :id 98
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 1982 :flags (launch-asap) :binding 1981) (sp-item 1981 :flags (start-dead launch-asap)))
+  )
 
-(set! (-> *part-id-table* 1982) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2.2))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1982
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 2.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    )
+  )
 
-(set! (-> *part-id-table* 1981) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 1.3333334))
-                                    (sp-flt spt-z 409.6)
-                                    (sp-flt spt-scale-x (meters 2.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-omega 0.0)
-                                    (sp-flt spt-vel-x (meters 0.053333335))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit7 bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1981
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters 1.3333334))
+    (sp-flt spt-z (meters 0.1))
+    (sp-flt spt-scale-x (meters 2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-omega 0.0)
+    (sp-flt spt-vel-x (meters 0.053333335))
+    (sp-flt spt-vel-z (meters 0))
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit7 bit9 bit13)
+    )
+  )
 
-(set! (-> *part-group-id-table* 99)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-orb"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1983 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-progress-orb
+  :id 99
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 1983 :flags (launch-asap)))
+  )
 
-(set! (-> *part-id-table* 1983) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2.2))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1983
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 2.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    )
+  )
 
-(set! (-> *part-group-id-table* 100) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-part-progress-buzzer-small"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1985 :flags (launch-asap) :binding 1984)
-                                         (sp-item 1984 :flags (start-dead launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 409600.0)
-                                       )
-      )
+(defpartgroup group-part-progress-buzzer-small
+  :id 100
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 1985 :flags (launch-asap) :binding 1984) (sp-item 1984 :flags (start-dead launch-asap)))
+  )
 
-(set! (-> *part-id-table* 1985) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1985
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit9 bit13)
+    )
+  )
 
-(set! (-> *part-id-table* 1984) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 1.3333334))
-                                    (sp-flt spt-z 204.8)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-omega 0.0)
-                                    (sp-flt spt-vel-x (meters 0.05037037))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit7 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-buzzer-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1984
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters 1.3333334))
+    (sp-flt spt-z (meters 0.05))
+    (sp-flt spt-scale-x (meters 1.5))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-omega 0.0)
+    (sp-flt spt-vel-x (meters 0.05037037))
+    (sp-flt spt-vel-z (meters 0))
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit7 bit9 bit13)
+    (sp-func spt-func 'part-progress-hud-buzzer-func)
+    )
+  )
 
-(set! (-> *part-group-id-table* 101)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-orb-small"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1986 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-progress-orb-small
+  :id 101
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 1986 :flags (launch-asap)))
+  )
 
-(set! (-> *part-id-table* 1986) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-orb-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1986
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.3))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-progress-hud-orb-func)
+    )
+  )
 
-(set! (-> *part-group-id-table* 615)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-save-icon"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2478 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-progress-save-icon
+  :id 615
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 2478 :flags (launch-asap)))
+  )
 
-(set! (-> *part-id-table* 2478) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6b :page #x1cf))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.8))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-save-icon-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2478
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x6b :page #x1cf))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1.8))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer -1)
+    (sp-cpuinfo-flags bit2 bit9 bit13)
+    (sp-func spt-func 'part-progress-save-icon-func)
+    )
+  )
 
 (defmacro progress-new-particle (&key part &key x &key y &key z)
   `(when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
diff --git a/goal_src/goos-lib.gs b/goal_src/goos-lib.gs
index 7fb447a080..a4e1755f79 100644
--- a/goal_src/goos-lib.gs
+++ b/goal_src/goos-lib.gs
@@ -219,8 +219,10 @@
 	    )
 	)
 
-(defsmacro inc! (x) `(set! ,x (+ ,x 1)))
-(defsmacro dec! (x) `(set! ,x (- ,x 1)))
+(defsmacro 1+ (x) `(+ ,x 1))
+(defsmacro 1- (x) `(- ,x 1))
+(defsmacro inc! (x) `(set! ,x (1+ ,x)))
+(defsmacro dec! (x) `(set! ,x (1- ,x)))
 (defsmacro +! (place arg) `(set! ,place (+ ,place ,arg)))
 (defsmacro -! (place arg) `(set! ,place (- ,place ,arg)))
 
diff --git a/goal_src/levels/beach/beach-obs.gc b/goal_src/levels/beach/beach-obs.gc
index 15c482c7b8..3b0569f281 100644
--- a/goal_src/levels/beach/beach-obs.gc
+++ b/goal_src/levels/beach/beach-obs.gc
@@ -131,98 +131,80 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 155) (new 'static 'sparticle-launch-group
-                                       :length 7
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-beach-grotto-pole-rocks"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 7
-                                         (sp-item 539 :period 1500 :length 15)
-                                         (sp-item 539 :period 1500 :length 30)
-                                         (sp-item 539 :period 1500 :length 45)
-                                         (sp-item 539 :period 1500 :length 75)
-                                         (sp-item 539 :period 1500 :length 150)
-                                         (sp-item 539 :period 1500 :length 300)
-                                         (sp-item 540 :period 1500 :length 30)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-beach-grotto-pole-rocks
+  :id 155
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 539 :period 1500 :length 15)
+    (sp-item 539 :period 1500 :length 30)
+    (sp-item 539 :period 1500 :length 45)
+    (sp-item 539 :period 1500 :length 75)
+    (sp-item 539 :period 1500 :length 150)
+    (sp-item 539 :period 1500 :length 300)
+    (sp-item 540 :period 1500 :length 30)
+    )
+  )
 
-(set! (-> *part-id-table* 539) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 18.0) 1.0)
-                                   (sp-flt spt-y (meters -6.0))
-                                   (sp-rnd-flt spt-z -36864.0 73728.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 40.0 1.0)
-                                   (sp-rnd-flt spt-g 32.0 40.0 1.0)
-                                   (sp-rnd-flt spt-b 32.0 40.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters -0.04) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
-                                   (sp-int spt-timer 390)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 539
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters -9) (meters 18) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -9) (meters 18) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 40.0 1.0)
+    (sp-rnd-flt spt-g 32.0 40.0 1.0)
+    (sp-rnd-flt spt-b 32.0 40.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters -0.04) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
+    (sp-int spt-timer 390)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop)
+    )
+  )
 
-(set! (-> *part-id-table* 540)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-flt spt-y (meters -7.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 4.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 48.0 16.0 1.0)
-                                                     (sp-flt spt-g 48.0)
-                                                     (sp-flt spt-b 48.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-flt spt-fade-a 1.0666667)
-                                                     (sp-flt spt-accel-y 0.06826667)
-                                                     (sp-int spt-timer 1200)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 541)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 6.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 540
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-flt spt-y (meters -7))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 4.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 48.0 16.0 1.0)
+    (sp-flt spt-g 48.0)
+    (sp-flt spt-b 48.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-flt spt-fade-a 1.0666667)
+    (sp-flt spt-accel-y 0.06826667)
+    (sp-int spt-timer 1200)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 60)
+    (sp-launcher-by-id spt-next-launcher 541)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 6) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 541)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 450 239 1)
-                                                     (sp-launcher-by-id spt-next-launcher 542)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 541
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int-plain-rnd spt-next-time 450 239 1) (sp-launcher-by-id spt-next-launcher 542))
+  )
 
-(set! (-> *part-id-table* 542)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
+(defpart 542
+  :init-specs
+  ((sp-flt spt-fade-a -0.14222223))
+  )
 
 (deftype grottopole (process-drawable)
   ((root-override       collide-shape  :offset        112)
@@ -464,169 +446,146 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 156) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-beach-harvester-rock-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 543 :period 1500 :length 5)
-                                         (sp-item 544 :period 1500 :length 5)
-                                         (sp-item 545 :period 1500 :length 5)
-                                         (sp-item 546 :period 1500 :length 5)
-                                         (sp-item 547 :period 1500 :length 5)
-                                         (sp-item 548 :period 1500 :length 15)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-beach-harvester-rock-explosion
+  :id 156
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 543 :period 1500 :length 5)
+    (sp-item 544 :period 1500 :length 5)
+    (sp-item 545 :period 1500 :length 5)
+    (sp-item 546 :period 1500 :length 5)
+    (sp-item 547 :period 1500 :length 5)
+    (sp-item 548 :period 1500 :length 15)
+    )
+  )
 
-(set! (-> *part-id-table* 547) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 15.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -2.1333334)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 547
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 15))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -2.1333334)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 543) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-rnd-flt spt-num 4.0 6.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                   (sp-flt spt-b 70.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-y (meters 0.06666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-flt spt-accel-y -10.922667)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 174)
-                                   (sp-launcher-by-id spt-next-launcher 549)
-                                   (sp-flt spt-conerot-x (degrees 45.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 543
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-rnd-flt spt-num 4.0 6.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 70.0 16.0 1.0)
+    (sp-rnd-flt spt-g 70.0 16.0 1.0)
+    (sp-flt spt-b 70.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-vel-y (meters 0.06666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-accel-y -10.922667)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 174)
+    (sp-launcher-by-id spt-next-launcher 549)
+    (sp-flt spt-conerot-x (degrees 45.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 544) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-rnd-flt spt-num 4.0 6.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                   (sp-flt spt-b 70.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-y (meters 0.04))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-flt spt-accel-y -10.922667)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 125)
-                                   (sp-launcher-by-id spt-next-launcher 549)
-                                   (sp-flt spt-conerot-x (degrees 30.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 544
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-rnd-flt spt-num 4.0 6.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 70.0 16.0 1.0)
+    (sp-rnd-flt spt-g 70.0 16.0 1.0)
+    (sp-flt spt-b 70.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-vel-y (meters 0.04))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-accel-y -10.922667)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 125)
+    (sp-launcher-by-id spt-next-launcher 549)
+    (sp-flt spt-conerot-x (degrees 30.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 545) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-rnd-flt spt-num 4.0 6.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 80.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 80.0 16.0 1.0)
-                                   (sp-flt spt-b 80.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-y (meters 0.08))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-flt spt-accel-y -10.922667)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 195)
-                                   (sp-launcher-by-id spt-next-launcher 549)
-                                   (sp-flt spt-conerot-x (degrees 35.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 545
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-rnd-flt spt-num 4.0 6.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 80.0 16.0 1.0)
+    (sp-rnd-flt spt-g 80.0 16.0 1.0)
+    (sp-flt spt-b 80.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-vel-y (meters 0.08))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-accel-y -10.922667)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 195)
+    (sp-launcher-by-id spt-next-launcher 549)
+    (sp-flt spt-conerot-x (degrees 35.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 549)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 549
+  :init-specs
+  ((sp-flt spt-vel-y (meters 0.026666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+    (sp-flt spt-fade-a -1.0666667)
+    )
+  )
 
-(set! (-> *part-id-table* 548) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.013333334))
-                                   (sp-flt spt-scalevel-y (meters 0.0033333334))
-                                   (sp-flt spt-accel-y -1.0922667)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int-plain-rnd spt-next-time 30 299 1)
-                                   (sp-launcher-by-id spt-next-launcher 550)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 548
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 48.0 1.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-flt spt-scalevel-y (meters 0.0033333334))
+    (sp-flt spt-accel-y -1.0922667)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int-plain-rnd spt-next-time 30 299 1)
+    (sp-launcher-by-id spt-next-launcher 550)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 550)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.2) (sp-end))
-        )
-      )
+(defpart 550
+  :init-specs
+  ((sp-flt spt-fade-a -0.2))
+  )
 
 (defstate ecoventrock-idle (ecoventrock)
   :event
diff --git a/goal_src/levels/beach/beach-part.gc b/goal_src/levels/beach/beach-part.gc
index 93d57bde4c..8677a5d3cd 100644
--- a/goal_src/levels/beach/beach-part.gc
+++ b/goal_src/levels/beach/beach-part.gc
@@ -19,92 +19,76 @@
   )
 
 
-(set! (-> *part-id-table* 666)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 24
-          (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-          (sp-flt spt-num 0.01)
-          (sp-flt spt-y (meters 1.0))
-          (sp-rnd-flt spt-scale-x (meters 15.0) (meters 5.0) 1.0)
-          (sp-int spt-rot-x 4)
-          (sp-rnd-flt spt-rot-z (degrees -110.0) (degrees 20.0) 1.0)
-          (sp-flt spt-scale-y (meters 5.0))
-          (sp-flt spt-r 192.0)
-          (sp-flt spt-g 192.0)
-          (sp-flt spt-b 128.0)
-          (sp-flt spt-a 0.0)
-          (sp-flt spt-scalevel-x (meters 0.0009765625))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.0033333332) (degrees 0.0066666664) 1.0)
-          (sp-flt spt-scalevel-y (meters 0.0009765625))
-          (sp-flt spt-fade-a 0.02)
-          (sp-int spt-timer 2400)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-int spt-next-time 1200)
-          (sp-launcher-by-id spt-next-launcher 667)
-          (sp-flt spt-conerot-x (degrees 90.0))
-          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-flt spt-conerot-radius (meters 8.0))
-          (sp-flt spt-rotate-y (degrees 0.0))
-          (sp-end)
-          )
-        )
-      )
+(defpart 666
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 0.01)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 15) (meters 5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees -110.0) (degrees 20.0) 1.0)
+    (sp-flt spt-scale-y (meters 5))
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.0009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.0033333332) (degrees 0.0066666664) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.0009765625))
+    (sp-flt spt-fade-a 0.02)
+    (sp-int spt-timer 2400)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 1200)
+    (sp-launcher-by-id spt-next-launcher 667)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 8))
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 667)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.02) (sp-end))
-        )
-      )
+(defpart 667
+  :init-specs
+  ((sp-flt spt-fade-a -0.02))
+  )
 
-(set! (-> *part-id-table* 668) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-rnd-flt spt-num 0.03 0.2 1.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-flt spt-scale-x (meters 0.18))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-fade-a 0.21333334)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 669)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 8.0) (meters 5.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 668
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-rnd-flt spt-num 0.03 0.2 1.0)
+    (sp-flt spt-y (meters -4))
+    (sp-flt spt-scale-x (meters 0.18))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-fade-a 0.21333334)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-userdata 0.0)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 669)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 8) (meters 5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 669)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scalevel-y (meters 0.0024414062))
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-flt spt-accel-y -8.192)
-                                                     (sp-int spt-next-time 210)
-                                                     (sp-launcher-by-id spt-next-launcher 670)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 669
+  :init-specs
+  ((sp-flt spt-scalevel-y (meters 0.0024414062))
+    (sp-flt spt-fade-a 0.0)
+    (sp-flt spt-accel-y -8.192)
+    (sp-int spt-next-time 210)
+    (sp-launcher-by-id spt-next-launcher 670)
+    )
+  )
 
-(set! (-> *part-id-table* 670)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-func spt-func 'check-water-level-drop)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 670
+  :init-specs
+  ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150) (sp-func spt-func 'check-water-level-drop))
+  )
 
 (defstate beach-part-grotto-1 (beach-part)
   :code
@@ -140,858 +124,682 @@
     )
   )
 
-(set! (-> *part-id-table* 671) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-rnd-flt spt-num 0.3 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -23.0) (meters 55.0) 1.0)
-                                   (sp-flt spt-z 2048.0)
-                                   (sp-flt spt-scale-x (meters 0.18))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-fade-a 0.10666667)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 669)
-                                   (sp-rnd-flt spt-conerot-x (degrees -40.0) (degrees 80.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 14.6))
-                                   (sp-flt spt-rotate-y (degrees 37.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 671
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-rnd-flt spt-num 0.3 0.4 1.0)
+    (sp-rnd-flt spt-x (meters -23) (meters 55) 1.0)
+    (sp-flt spt-z (meters 0.5))
+    (sp-flt spt-scale-x (meters 0.18))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-fade-a 0.10666667)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-userdata 0.0)
+    (sp-int spt-next-time 300)
+    (sp-launcher-by-id spt-next-launcher 669)
+    (sp-rnd-flt spt-conerot-x (degrees -40.0) (degrees 80.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 14.6))
+    (sp-flt spt-rotate-y (degrees 37.0))
+    )
+  )
 
-(set! (-> *part-group-id-table* 161) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-beach-grotto-2"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 671 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -20480.0 :w 61440.0)
-                                       )
-      )
+(defpartgroup group-beach-grotto-2
+  :id 161
+  :bounds (static-bspherem 0 -5 0 15)
+  :parts
+  ((sp-item 671 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
-(set! (-> *part-id-table* 672) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -10.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 103.0))
-                                   (sp-rnd-flt spt-z -34816.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.06666667))
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-flt spt-accel-x -3.7304192)
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 495)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees -124.99999))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 672
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 4) 1.0)
+    (sp-flt spt-y (meters 103))
+    (sp-rnd-flt spt-z (meters -8.5) (meters 16) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-flt spt-b 192.0)
+    (sp-rnd-flt spt-a 24.0 16.0 1.0)
+    (sp-flt spt-vel-x (meters 0.06666667))
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0073242188))
+    (sp-flt spt-scalevel-y (meters 0.029296875))
+    (sp-flt spt-accel-x -3.7304192)
+    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+    (sp-int spt-timer 495)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+    (sp-flt spt-rotate-y (degrees -124.99999))
+    )
+  )
 
-(set! (-> *part-id-table* 673) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.8 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 3.5) 1.0)
-                                   (sp-flt spt-y (meters 103.0))
-                                   (sp-rnd-flt spt-z -34816.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 16.0 20.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.038333334))
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                   (sp-flt spt-accel-x -1.189495)
-                                   (sp-rnd-flt spt-accel-y -4.7786665 -1.024 1.0)
-                                   (sp-int spt-timer 855)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-flt spt-rotate-y (degrees -124.99999))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 673
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.8 0.8 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 3.5) 1.0)
+    (sp-flt spt-y (meters 103))
+    (sp-rnd-flt spt-z (meters -8.5) (meters 16) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-flt spt-b 192.0)
+    (sp-rnd-flt spt-a 16.0 20.0 1.0)
+    (sp-flt spt-vel-x (meters 0.038333334))
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0146484375))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.0146484375))
+    (sp-flt spt-accel-x -1.189495)
+    (sp-rnd-flt spt-accel-y -4.7786665 -1.024 1.0)
+    (sp-int spt-timer 855)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-flt spt-rotate-y (degrees -124.99999))
+    )
+  )
 
-(set! (-> *part-id-table* 674) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 0.9)
-                                   (sp-rnd-flt spt-x (meters -10.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 103.0))
-                                   (sp-rnd-flt spt-z -38912.0 73728.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 28.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                   (sp-flt spt-scalevel-y (meters 0.001953125))
-                                   (sp-flt spt-accel-x -2.5600002)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                   (sp-int spt-timer 660)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees -124.99999))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 674
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 0.9)
+    (sp-rnd-flt spt-x (meters -10) (meters 4) 1.0)
+    (sp-flt spt-y (meters 103))
+    (sp-rnd-flt spt-z (meters -9.5) (meters 18) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 28.0)
+    (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00024414062))
+    (sp-flt spt-scalevel-y (meters 0.001953125))
+    (sp-flt spt-accel-x -2.5600002)
+    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+    (sp-int spt-timer 660)
+    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+    (sp-flt spt-rotate-y (degrees -124.99999))
+    )
+  )
 
-(set! (-> *part-id-table* 675) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.04)
-                                   (sp-rnd-flt spt-x (meters 6.0) (meters 6.0) 1.0)
-                                   (sp-flt spt-y (meters 6.5))
-                                   (sp-rnd-flt spt-z -34816.0 65536.0 1.0)
-                                   (sp-flt spt-scale-x (meters 18.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0044444446))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.42666668)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 1050)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 90 59 1)
-                                   (sp-launcher-by-id spt-next-launcher 676)
-                                   (sp-flt spt-rotate-y (degrees -124.99999))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 675
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 0.04)
+    (sp-rnd-flt spt-x (meters 6) (meters 6) 1.0)
+    (sp-flt spt-y (meters 6.5))
+    (sp-rnd-flt spt-z (meters -8.5) (meters 16) 1.0)
+    (sp-flt spt-scale-x (meters 18))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 0.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0044444446))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.42666668)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 1050)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int-plain-rnd spt-next-time 90 59 1)
+    (sp-launcher-by-id spt-next-launcher 676)
+    (sp-flt spt-rotate-y (degrees -124.99999))
+    )
+  )
 
-(set! (-> *part-id-table* 676)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
+(defpart 676
+  :init-specs
+  ((sp-flt spt-fade-a -0.14222223))
+  )
 
-(set! (-> *part-id-table* 677) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                   (sp-flt spt-num 0.2)
-                                   (sp-rnd-flt spt-x (meters 2.0) (meters 10.0) 1.0)
-                                   (sp-flt spt-y (meters 8.0))
-                                   (sp-rnd-flt spt-z -43008.0 81920.0 1.0)
-                                   (sp-flt spt-scale-x (meters 18.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.008333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-fade-a 0.42666668)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 1050)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 90 59 1)
-                                   (sp-launcher-by-id spt-next-launcher 676)
-                                   (sp-flt spt-rotate-y (degrees -124.99999))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 677
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+    (sp-flt spt-num 0.2)
+    (sp-rnd-flt spt-x (meters 2) (meters 10) 1.0)
+    (sp-flt spt-y (meters 8))
+    (sp-rnd-flt spt-z (meters -10.5) (meters 20) 1.0)
+    (sp-flt spt-scale-x (meters 18))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-rnd-flt spt-g 150.0 42.0 1.0)
+    (sp-flt spt-b 192.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.06666667) 1.0)
+    (sp-flt spt-vel-y (meters 0.008333334))
+    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
+    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+    (sp-flt spt-fade-a 0.42666668)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 1050)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int-plain-rnd spt-next-time 90 59 1)
+    (sp-launcher-by-id spt-next-launcher 676)
+    (sp-flt spt-rotate-y (degrees -124.99999))
+    )
+  )
 
-(set! (-> *part-group-id-table* 162) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags
-                                       (sp-group-flag always-draw unknown-bit-01)
-                                       :name "group-beach-waterfall"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 677 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         (sp-item 675)
-                                         (sp-item 675 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         (sp-item 672)
-                                         (sp-item 672 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 672 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 673 :fade-after (meters 300.0) :falloff-to (meters 300.0))
-                                         (sp-item 674 :fade-after (meters 90.0) :falloff-to (meters 90.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 225280.0 :w 225280.0)
-                                       )
-      )
+(defpartgroup group-beach-waterfall
+  :id 162
+  :flags (always-draw unknown-bit-01)
+  :bounds (static-bspherem 0 55 0 55)
+  :parts
+  ((sp-item 677 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 675)
+    (sp-item 675 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 672)
+    (sp-item 672 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 672 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 673 :fade-after (meters 300) :falloff-to (meters 300))
+    (sp-item 674 :fade-after (meters 90) :falloff-to (meters 90))
+    )
+  )
 
-(set! (-> *part-group-id-table* 163)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-24"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 678 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 1200)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-24
+  :id 163
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 678 :fade-after (meters 50) :period 2400 :length 1500 :offset 1200))
+  )
 
-(set! (-> *part-group-id-table* 164)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-23"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 679 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 600)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-23
+  :id 164
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 679 :fade-after (meters 50) :period 2400 :length 1500 :offset 600))
+  )
 
-(set! (-> *part-group-id-table* 165) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-beach-22"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 680 :fade-after (meters 80.0) :period 2400 :length 1500)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 12288.0 :w 204800.0)
-                                       )
-      )
+(defpartgroup group-beach-22
+  :id 165
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 680 :fade-after (meters 80) :period 2400 :length 1500))
+  )
 
-(set! (-> *part-group-id-table* 166)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-18"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 681 :fade-after (meters 100.0) :period 2400 :length 1500 :offset 1200)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-18
+  :id 166
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 681 :fade-after (meters 100) :period 2400 :length 1500 :offset 1200))
+  )
 
-(set! (-> *part-group-id-table* 167)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-17"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 682 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 600)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-17
+  :id 167
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 682 :fade-after (meters 50) :period 2400 :length 1500 :offset 600))
+  )
 
-(set! (-> *part-group-id-table* 168) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-beach-16"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 683 :fade-after (meters 50.0) :period 2400 :length 1500)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 12288.0 :w 204800.0)
-                                       )
-      )
+(defpartgroup group-beach-16
+  :id 168
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 683 :fade-after (meters 50) :period 2400 :length 1500))
+  )
 
-(set! (-> *part-group-id-table* 169)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-15"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 684 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 64936)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-15
+  :id 169
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 684 :fade-after (meters 50) :period 2400 :length 1500 :offset 64936))
+  )
 
-(set! (-> *part-group-id-table* 170)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-14"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 685 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 64336)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-14
+  :id 170
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 685 :fade-after (meters 50) :period 2400 :length 1500 :offset 64336))
+  )
 
-(set! (-> *part-id-table* 678) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.01 0.01 1.0)
-                                   (sp-rnd-flt spt-x (meters -85.0) (meters 60.0) 1.0)
-                                   (sp-flt spt-y (meters 13.0))
-                                   (sp-rnd-flt spt-z -122880.0 266240.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.008888889)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1800)
-                                   (sp-launcher-by-id spt-next-launcher 686)
-                                   (sp-flt spt-rotate-y (degrees 40.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 678
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-rnd-flt spt-num 0.01 0.01 1.0)
+    (sp-rnd-flt spt-x (meters -85) (meters 60) 1.0)
+    (sp-flt spt-y (meters 13))
+    (sp-rnd-flt spt-z (meters -30) (meters 65) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-x (meters 0.026666667))
+    (sp-flt spt-rotvel-z (degrees -0.15))
+    (sp-flt spt-fade-a 0.008888889)
+    (sp-int spt-timer 3600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 1800)
+    (sp-launcher-by-id spt-next-launcher 686)
+    (sp-flt spt-rotate-y (degrees 40.0))
+    )
+  )
 
-(set! (-> *part-id-table* 686)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
-        )
-      )
+(defpart 686
+  :init-specs
+  ((sp-flt spt-fade-a -0.07111111))
+  )
 
-(set! (-> *part-id-table* 679) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.01 0.01 1.0)
-                                   (sp-rnd-flt spt-x (meters -65.0) (meters 60.0) 1.0)
-                                   (sp-flt spt-y (meters 8.0))
-                                   (sp-rnd-flt spt-z -122880.0 204800.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.02))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.008888889)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1800)
-                                   (sp-launcher-by-id spt-next-launcher 687)
-                                   (sp-flt spt-rotate-y (degrees 40.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 679
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-rnd-flt spt-num 0.01 0.01 1.0)
+    (sp-rnd-flt spt-x (meters -65) (meters 60) 1.0)
+    (sp-flt spt-y (meters 8))
+    (sp-rnd-flt spt-z (meters -30) (meters 50) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-x (meters 0.02))
+    (sp-flt spt-rotvel-z (degrees -0.15))
+    (sp-flt spt-fade-a 0.008888889)
+    (sp-int spt-timer 3600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 1800)
+    (sp-launcher-by-id spt-next-launcher 687)
+    (sp-flt spt-rotate-y (degrees 40.0))
+    )
+  )
 
-(set! (-> *part-id-table* 687)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
-        )
-      )
+(defpart 687
+  :init-specs
+  ((sp-flt spt-fade-a -0.07111111))
+  )
 
-(set! (-> *part-id-table* 680) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.01 0.01 1.0)
-                                   (sp-rnd-flt spt-x (meters -50.0) (meters 20.0) 1.0)
-                                   (sp-flt spt-y (meters 0.0))
-                                   (sp-rnd-flt spt-z -163840.0 327680.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-vel-z (meters 0.016666668))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.010666667)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1500)
-                                   (sp-launcher-by-id spt-next-launcher 688)
-                                   (sp-flt spt-rotate-y (degrees 120.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 680
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-rnd-flt spt-num 0.01 0.01 1.0)
+    (sp-rnd-flt spt-x (meters -50) (meters 20) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -40) (meters 80) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-x (meters 0.026666667))
+    (sp-flt spt-vel-z (meters 0.016666668))
+    (sp-flt spt-rotvel-z (degrees -0.15))
+    (sp-flt spt-fade-a 0.010666667)
+    (sp-int spt-timer 3600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 1500)
+    (sp-launcher-by-id spt-next-launcher 688)
+    (sp-flt spt-rotate-y (degrees 120.0))
+    )
+  )
 
-(set! (-> *part-id-table* 688)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.08533333) (sp-end))
-        )
-      )
+(defpart 688
+  :init-specs
+  ((sp-flt spt-fade-a -0.08533333))
+  )
 
-(set! (-> *part-id-table* 681) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.03 0.04 1.0)
-                                   (sp-rnd-flt spt-x (meters -40.0) (meters 20.0) 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-z -163840.0 368640.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-vel-z (meters -0.016666668))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.008888889)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1800)
-                                   (sp-launcher-by-id spt-next-launcher 689)
-                                   (sp-flt spt-rotate-y (degrees -60.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 681
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-rnd-flt spt-num 0.03 0.04 1.0)
+    (sp-rnd-flt spt-x (meters -40) (meters 20) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -40) (meters 90) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-x (meters 0.026666667))
+    (sp-flt spt-vel-z (meters -0.016666668))
+    (sp-flt spt-rotvel-z (degrees -0.15))
+    (sp-flt spt-fade-a 0.008888889)
+    (sp-int spt-timer 3600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 1800)
+    (sp-launcher-by-id spt-next-launcher 689)
+    (sp-flt spt-rotate-y (degrees -60.0))
+    )
+  )
 
-(set! (-> *part-id-table* 689)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
-        )
-      )
+(defpart 689
+  :init-specs
+  ((sp-flt spt-fade-a -0.07111111))
+  )
 
-(set! (-> *part-id-table* 682) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.015 0.02 1.0)
-                                   (sp-flt spt-x (meters -10.0))
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-z -40960.0 92160.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.017777778)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 900)
-                                   (sp-launcher-by-id spt-next-launcher 690)
-                                   (sp-flt spt-rotate-y (degrees -15.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 682
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-rnd-flt spt-num 0.015 0.02 1.0)
+    (sp-flt spt-x (meters -10))
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -10) (meters 22.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-x (meters 0.026666667))
+    (sp-flt spt-rotvel-z (degrees -0.15))
+    (sp-flt spt-fade-a 0.017777778)
+    (sp-int spt-timer 3600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 900)
+    (sp-launcher-by-id spt-next-launcher 690)
+    (sp-flt spt-rotate-y (degrees -15.0))
+    )
+  )
 
-(set! (-> *part-id-table* 690)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.017777778) (sp-end))
-        )
-      )
+(defpart 690
+  :init-specs
+  ((sp-flt spt-fade-a -0.017777778))
+  )
 
-(set! (-> *part-id-table* 683) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.015 0.02 1.0)
-                                   (sp-flt spt-x (meters -25.0))
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-z -61440.0 204800.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.013333334)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1200)
-                                   (sp-launcher-by-id spt-next-launcher 691)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 683
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-rnd-flt spt-num 0.015 0.02 1.0)
+    (sp-flt spt-x (meters -25))
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -15) (meters 50) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-x (meters 0.026666667))
+    (sp-flt spt-rotvel-z (degrees -0.15))
+    (sp-flt spt-fade-a 0.013333334)
+    (sp-int spt-timer 3600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 1200)
+    (sp-launcher-by-id spt-next-launcher 691)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 691)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.013333334) (sp-end))
-        )
-      )
+(defpart 691
+  :init-specs
+  ((sp-flt spt-fade-a -0.013333334))
+  )
 
-(set! (-> *part-id-table* 684) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.015 0.015 1.0)
-                                   (sp-flt spt-x (meters -35.0))
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-z -143360.0 245760.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.016410256)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 975)
-                                   (sp-launcher-by-id spt-next-launcher 692)
-                                   (sp-flt spt-rotate-y (degrees 45.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 684
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-rnd-flt spt-num 0.015 0.015 1.0)
+    (sp-flt spt-x (meters -35))
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -35) (meters 60) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-x (meters 0.026666667))
+    (sp-flt spt-rotvel-z (degrees -0.15))
+    (sp-flt spt-fade-a 0.016410256)
+    (sp-int spt-timer 3600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 975)
+    (sp-launcher-by-id spt-next-launcher 692)
+    (sp-flt spt-rotate-y (degrees 45.0))
+    )
+  )
 
-(set! (-> *part-id-table* 692)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.016410256) (sp-end))
-        )
-      )
+(defpart 692
+  :init-specs
+  ((sp-flt spt-fade-a -0.016410256))
+  )
 
-(set! (-> *part-id-table* 685) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.015 0.015 1.0)
-                                   (sp-flt spt-x (meters -25.0))
-                                   (sp-flt spt-y (meters 14.0))
-                                   (sp-rnd-flt spt-z -61440.0 286720.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.014222222)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1125)
-                                   (sp-launcher-by-id spt-next-launcher 693)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 685
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-rnd-flt spt-num 0.015 0.015 1.0)
+    (sp-flt spt-x (meters -25))
+    (sp-flt spt-y (meters 14))
+    (sp-rnd-flt spt-z (meters -15) (meters 70) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-x (meters 0.026666667))
+    (sp-flt spt-rotvel-z (degrees -0.15))
+    (sp-flt spt-fade-a 0.014222222)
+    (sp-int spt-timer 3600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 1125)
+    (sp-launcher-by-id spt-next-launcher 693)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 693)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.014222222) (sp-end))
-        )
-      )
+(defpart 693
+  :init-specs
+  ((sp-flt spt-fade-a -0.014222222))
+  )
 
 (define
   sound-beach-waterfall
   (new 'static 'sound-spec :num 1.0 :group #x1 :sound-name (static-sound-name "waterfall") :volume #x400)
   )
 
-(set! (-> *part-group-id-table* 171)
-      (new 'static 'sparticle-launch-group
-        :length 13
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-butterflies"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 13
-          (sp-item 696 :fade-after (meters 120.0) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
-          (sp-item 696 :fade-after (meters 120.0) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
-          (sp-item 696 :fade-after (meters 120.0) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
-          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
-          (sp-item 695 :flags (is-3d start-dead))
-          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
-          (sp-item 695 :flags (is-3d start-dead))
-          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
-          (sp-item 695 :flags (is-3d start-dead))
-          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
-          (sp-item 695 :flags (is-3d start-dead))
-          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
-          (sp-item 695 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 122880.0)
-        )
-      )
+(defpartgroup group-beach-butterflies
+  :id 171
+  :bounds (static-bspherem 0 0 0 30)
+  :parts
+  ((sp-item 696 :fade-after (meters 120) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
+    (sp-item 696 :fade-after (meters 120) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
+    (sp-item 696 :fade-after (meters 120) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
+    (sp-item 694 :flags (start-dead launch-asap) :binding 695)
+    (sp-item 695 :flags (is-3d start-dead))
+    (sp-item 694 :flags (start-dead launch-asap) :binding 695)
+    (sp-item 695 :flags (is-3d start-dead))
+    (sp-item 694 :flags (start-dead launch-asap) :binding 695)
+    (sp-item 695 :flags (is-3d start-dead))
+    (sp-item 694 :flags (start-dead launch-asap) :binding 695)
+    (sp-item 695 :flags (is-3d start-dead))
+    (sp-item 694 :flags (start-dead launch-asap) :binding 695)
+    (sp-item 695 :flags (is-3d start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 696) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 7.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 14.0) (meters 3.0) 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-y (meters -0.036666665))
-                                   (sp-flt spt-accel-y 1.3653333)
-                                   (sp-int spt-timer 6000)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-int spt-next-time 555)
-                                   (sp-launcher-by-id spt-next-launcher 697)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 696
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 7.5) 1.0)
+    (sp-rnd-flt spt-y (meters 14) (meters 3) 1.0)
+    (sp-flt spt-scale-x (meters 1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-y (meters -0.036666665))
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-int spt-timer 6000)
+    (sp-cpuinfo-flags bit3)
+    (sp-int spt-next-time 555)
+    (sp-launcher-by-id spt-next-launcher 697)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 697)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-accel-y 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 2700 1499 1)
-                                                     (sp-launcher-by-id spt-next-launcher 698)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 697
+  :init-specs
+  ((sp-flt spt-accel-y 0.0)
+    (sp-int-plain-rnd spt-next-time 2700 1499 1)
+    (sp-launcher-by-id spt-next-launcher 698)
+    )
+  )
 
-(set! (-> *part-id-table* 698)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-accel-y 1.3653333) (sp-end))
-        )
-      )
+(defpart 698
+  :init-specs
+  ((sp-flt spt-accel-y 1.3653333))
+  )
 
-(set! (-> *part-id-table* 694) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 12288.0 4096.0 1.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-g 0.0 256.0 1.0)
-                                   (sp-rnd-int spt-b 1124073472 1 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 6000)
-                                   (sp-cpuinfo-flags bit3 bit7)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 699)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 694
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 3) (meters 1) 1.0)
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-g 0.0 256.0 1.0)
+    (sp-rnd-int spt-b 1124073472 1 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
+    (sp-flt spt-vel-z (meters 0))
+    (sp-int spt-timer 6000)
+    (sp-cpuinfo-flags bit3 bit7)
+    (sp-int-plain-rnd spt-next-time 150 449 1)
+    (sp-launcher-by-id spt-next-launcher 699)
+    )
+  )
 
-(set! (-> *part-id-table* 699) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 6
-                                   (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 699)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 699
+  :init-specs
+  ((sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-int-plain-rnd spt-next-time 150 449 1)
+    (sp-launcher-by-id spt-next-launcher 699)
+    )
+  )
 
-(set! (-> *part-id-table* 695) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 0.9))
-                                   (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
-                                   (sp-flt spt-scale-y (meters 1.3))
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -8.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 695
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+    (sp-func spt-birth-func 'birth-func-copy-rot-color)
+    (sp-flt spt-num 2.0)
+    (sp-flt spt-scale-x (meters 0.9))
+    (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
+    (sp-flt spt-scale-y (meters 1.3))
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -8.0)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit9 bit12)
+    )
+  )
 
-(set! (-> *part-group-id-table* 172)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-moth"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3
-          (sp-item 702 :fade-after (meters 120.0) :flags (bit1) :period 18030 :length 5 :hour-mask #b1111111110000000 :binding 700)
-          (sp-item 700 :flags (start-dead launch-asap) :binding 701)
-          (sp-item 701 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
+(defpartgroup group-beach-moth
+  :id 172
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 702 :fade-after (meters 120) :flags (bit1) :period 18030 :length 5 :hour-mask #b1111111110000000 :binding 700)
+    (sp-item 700 :flags (start-dead launch-asap) :binding 701)
+    (sp-item 701 :flags (is-3d start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 702) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 10
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 18000)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 702
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-int spt-timer 18000)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 700) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 6144.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 18000)
-                                   (sp-cpuinfo-flags bit3 bit7)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 703)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 700
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 1.5))
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
+    (sp-flt spt-vel-z (meters 0))
+    (sp-int spt-timer 18000)
+    (sp-cpuinfo-flags bit3 bit7)
+    (sp-int-plain-rnd spt-next-time 150 449 1)
+    (sp-launcher-by-id spt-next-launcher 703)
+    )
+  )
 
-(set! (-> *part-id-table* 703) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 6
-                                   (sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 703)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 703
+  :init-specs
+  ((sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-int-plain-rnd spt-next-time 150 449 1)
+    (sp-launcher-by-id spt-next-launcher 703)
+    )
+  )
 
-(set! (-> *part-id-table* 701) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
-                                   (sp-flt spt-scale-y (meters 0.4))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 701
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+    (sp-func spt-birth-func 'birth-func-copy-rot-color)
+    (sp-flt spt-num 2.0)
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
+    (sp-flt spt-scale-y (meters 0.4))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
+    )
+  )
 
 
 
diff --git a/goal_src/levels/beach/beach-rocks.gc b/goal_src/levels/beach/beach-rocks.gc
index 725ea09f25..97e4060600 100644
--- a/goal_src/levels/beach/beach-rocks.gc
+++ b/goal_src/levels/beach/beach-rocks.gc
@@ -15,263 +15,229 @@
   :longest-edge (meters 11)
   )
 
-(set! (-> *part-group-id-table* 553) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-beach-rocks-start"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2340 :period 75 :length 10)
-                                         (sp-item 2341 :period 75 :length 10)
-                                         (sp-item 2289 :period 75 :length 10)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-beach-rocks-start
+  :id 553
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2340 :period 75 :length 10)
+    (sp-item 2341 :period 75 :length 10)
+    (sp-item 2289 :period 75 :length 10)
+    )
+  )
 
-(set! (-> *part-id-table* 2341) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 3.0 6.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -11.605333 -8.874666 1.0)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 200.00002) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 5.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2341
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-rnd-flt spt-num 3.0 6.0 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 1) 1.0)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 96.0 64.0 1.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -11.605333 -8.874666 1.0)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 200.00002) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2340) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.08533333)
-                                    (sp-rnd-flt spt-accel-y -3.4133334 -8.874666 1.0)
-                                    (sp-flt spt-friction 0.93)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 200.00002) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 5.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2340
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-r 64.0 128.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-rnd-flt spt-b 0.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.08533333)
+    (sp-rnd-flt spt-accel-y -3.4133334 -8.874666 1.0)
+    (sp-flt spt-friction 0.93)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 200.00002) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2289) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 3.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.04))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.042666666)
-                                    (sp-flt spt-fade-g -0.061333332)
-                                    (sp-flt spt-fade-b -0.042666666)
-                                    (sp-flt spt-fade-a -0.032)
-                                    (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2289
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 1.0 3.0 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.04))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.042666666)
+    (sp-flt spt-fade-g -0.061333332)
+    (sp-flt spt-fade-b -0.042666666)
+    (sp-flt spt-fade-a -0.032)
+    (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 6) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 554)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-beach-rocks-fall"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2290 :period 15 :length 5))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-beach-rocks-fall
+  :id 554
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2290 :period 15 :length 5))
+  )
 
-(set! (-> *part-id-table* 2290) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 3.0 3.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 7.0) (meters 9.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.10666667)
-                                    (sp-flt spt-fade-g -0.15333334)
-                                    (sp-flt spt-fade-b -0.10666667)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2290
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 3.0 3.0 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 7) (meters 9) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 16.0 48.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.026666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.10666667)
+    (sp-flt spt-fade-g -0.15333334)
+    (sp-flt spt-fade-b -0.10666667)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
+    (sp-flt spt-friction 0.98)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 555) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-beach-rocks-land"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2342 :period 900 :length 40)
-                                         (sp-item 2343 :period 900 :length 40)
-                                         (sp-item 2291 :period 900 :length 40)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-beach-rocks-land
+  :id 555
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2342 :period 900 :length 40)
+    (sp-item 2343 :period 900 :length 40)
+    (sp-item 2291 :period 900 :length 40)
+    )
+  )
 
-(set! (-> *part-id-table* 2343) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-flt spt-y (meters -3.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 32.0) (meters 10.0) 1.0)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 3.4133334))
-                                    (sp-flt spt-fade-r -0.10666667)
-                                    (sp-flt spt-fade-g -0.15333334)
-                                    (sp-flt spt-fade-b -0.10666667)
-                                    (sp-flt spt-fade-a -3.2)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2343
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-flt spt-y (meters -3))
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 32) (meters 10) 1.0)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 3.4133334))
+    (sp-flt spt-fade-r -0.10666667)
+    (sp-flt spt-fade-g -0.15333334)
+    (sp-flt spt-fade-b -0.10666667)
+    (sp-flt spt-fade-a -3.2)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2342) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.08533333)
-                                    (sp-rnd-flt spt-accel-y -3.4133334 -8.874666 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 5.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2342
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-rnd-flt spt-num 64.0 64.0 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-rnd-flt spt-b 0.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.08533333)
+    (sp-rnd-flt spt-accel-y -3.4133334 -8.874666 1.0)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2291) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.32) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.033333335) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.10666667)
-                                    (sp-flt spt-fade-g -0.15333334)
-                                    (sp-flt spt-fade-b -0.10666667)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 100.00001) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2291
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 32.0 32.0 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 8) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 16.0 48.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.32) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.033333335) (meters 0.02) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.10666667)
+    (sp-flt spt-fade-g -0.15333334)
+    (sp-flt spt-fade-b -0.10666667)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
+    (sp-flt spt-friction 0.85)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 100.00001) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
+    )
+  )
 
 (deftype beach-rock (process-drawable)
   ((root-override collide-shape-moving      :offset        112)
diff --git a/goal_src/levels/beach/bird-lady-beach.gc b/goal_src/levels/beach/bird-lady-beach.gc
index 26067476ba..73506e4197 100644
--- a/goal_src/levels/beach/bird-lady-beach.gc
+++ b/goal_src/levels/beach/bird-lady-beach.gc
@@ -31,125 +31,80 @@
   :virtual #t
   :enter
   (behavior ()
-   (when (not (should-display? self))
-    (let ((a0-2 (handle->process (-> self flutflut))))
-     (if a0-2
-      (deactivate a0-2)
+    (when (not (should-display? self))
+      (let ((a0-2 (handle->process (-> self flutflut))))
+        (if a0-2
+            (deactivate a0-2)
+            )
+        )
+      (let ((a0-6 (handle->process (-> self egg))))
+        (if a0-6
+            (deactivate a0-6)
+            )
+        )
+      (go-virtual hidden)
       )
-     )
-    (let ((a0-6 (handle->process (-> self egg))))
-     (if a0-6
-      (deactivate a0-6)
-      )
-     )
-    (go-virtual hidden)
+    ((-> (method-of-type process-taskable idle) enter))
+    (none)
     )
-   ((-> (method-of-type process-taskable idle) enter))
-   (none)
-   )
   )
 
 (defmethod play-anim! bird-lady-beach ((obj bird-lady-beach) (arg0 symbol))
-  (case (current-status (-> obj tasks)) 
-   (((task-status need-reward-speech))
+  (case (current-status (-> obj tasks))
+    (((task-status need-reward-speech))
      (when arg0
-      (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
-      (close-current! (-> obj tasks))
-      (let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
-       (set! (-> obj flutflut) (ppointer->handle (when s5-1
-                                                  (let
-                                                   ((t9-4
-                                                     (method-of-type
-                                                      manipy
-                                                      activate
-                                                      )
-                                                     )
-                                                    )
-                                                   (t9-4
-                                                    (the-as manipy s5-1)
-                                                    obj
-                                                    'manipy
-                                                    (the-as pointer #x70004000)
-                                                    )
-                                                   )
-                                                  (run-now-in-process
-                                                   s5-1
-                                                   manipy-init
-                                                   (-> obj root-override trans)
-                                                   (-> obj entity)
-                                                   *flutflut-naked-sg*
-                                                   #f
-                                                   )
-                                                  (-> s5-1 ppointer)
-                                                  )
-                                )
-        )
+       (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
+       (close-current! (-> obj tasks))
+       (let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
+         (set! (-> obj flutflut)
+               (ppointer->handle
+                 (when s5-1
+                   (let ((t9-4 (method-of-type manipy activate)))
+                     (t9-4 (the-as manipy s5-1) obj 'manipy (the-as pointer #x70004000))
+                     )
+                   (run-now-in-process s5-1 manipy-init (-> obj root-override trans) (-> obj entity) *flutflut-naked-sg* #f)
+                   (-> s5-1 ppointer)
+                   )
+                 )
+               )
+         )
+       (send-event (handle->process (-> obj flutflut)) 'anim-mode 'clone-anim)
+       (send-event (handle->process (-> obj flutflut)) 'blend-shape #t)
+       (let ((s5-2 (get-process *default-dead-pool* manipy #x4000)))
+         (set! (-> obj egg)
+               (ppointer->handle
+                 (when s5-2
+                   (let ((t9-9 (method-of-type manipy activate)))
+                     (t9-9 (the-as manipy s5-2) obj 'manipy (the-as pointer #x70004000))
+                     )
+                   (run-now-in-process s5-2 manipy-init (-> obj root-override trans) (-> obj entity) *flutflutegg-sg* #f)
+                   (-> s5-2 ppointer)
+                   )
+                 )
+               )
+         )
+       (send-event (handle->process (-> obj egg)) 'anim-mode 'clone-anim)
        )
-      (send-event (handle->process (-> obj flutflut)) 'anim-mode 'clone-anim)
-      (send-event (handle->process (-> obj flutflut)) 'blend-shape #t)
-      (let ((s5-2 (get-process *default-dead-pool* manipy #x4000)))
-       (set! (-> obj egg) (ppointer->handle (when s5-2
-                                             (let
-                                              ((t9-9
-                                                (method-of-type manipy activate)
-                                                )
-                                               )
-                                              (t9-9
-                                               (the-as manipy s5-2)
-                                               obj
-                                               'manipy
-                                               (the-as pointer #x70004000)
-                                               )
-                                              )
-                                             (run-now-in-process
-                                              s5-2
-                                              manipy-init
-                                              (-> obj root-override trans)
-                                              (-> obj entity)
-                                              *flutflutegg-sg*
-                                              #f
-                                              )
-                                             (-> s5-2 ppointer)
-                                             )
-                           )
-        )
-       )
-      (send-event (handle->process (-> obj egg)) 'anim-mode 'clone-anim)
-      )
      (new 'static 'spool-anim
-      :name "bird-lady-beach-resolution"
-      :index 4
-      :parts 10
-      :command-list
-      '(
-        ((the binteger 141)
-          joint
-          "cameraB"
+       :name "bird-lady-beach-resolution"
+       :index 4
+       :parts 10
+       :command-list
+       '((141 joint "cameraB") (535 joint "camera") (696 joint "cameraB") (758 joint "camera") (813 joint "cameraB"))
+       )
+     )
+    (else
+      (if arg0
+          (format
+            0
+            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+            (-> obj name)
+            (task-status->string (current-status (-> obj tasks)))
+            )
           )
-        ((the binteger 535)
-         joint
-         "camera"
-         )
-        ((the binteger 696)
-         joint
-         "cameraB"
-         )
-        ((the binteger 758) joint "camera") ((the binteger 813) joint "cameraB")
-        )
+      (-> obj draw art-group data 3)
       )
-     )
-   (else
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
-      )
-     )
-    (-> obj draw art-group data 3)
     )
-   )
   )
 
 (defmethod get-art-elem bird-lady-beach ((obj bird-lady-beach))
@@ -160,19 +115,8 @@
   (= (current-status (-> obj tasks)) (task-status need-reward-speech))
   )
 
-(defmethod
-  init-from-entity!
-  bird-lady-beach
-  ((obj bird-lady-beach) (arg0 entity-actor))
-  (dummy-40
-   obj
-   arg0
-   *bird-lady-beach-sg*
-   3
-   51
-   (new 'static 'vector :y 4096.0 :w 4096.0)
-   5
-   )
+(defmethod init-from-entity! bird-lady-beach ((obj bird-lady-beach) (arg0 entity-actor))
+  (dummy-40 obj arg0 *bird-lady-beach-sg* 3 51 (new 'static 'vector :y 4096.0 :w 4096.0) 5)
   (set! (-> obj tasks) (get-task-control (game-task beach-flutflut)))
   (set! (-> obj sound-flava) (the-as uint 7))
   (dummy-42 obj)
diff --git a/goal_src/levels/beach/bird-lady.gc b/goal_src/levels/beach/bird-lady.gc
index ef05659d7c..f736921bdd 100644
--- a/goal_src/levels/beach/bird-lady.gc
+++ b/goal_src/levels/beach/bird-lady.gc
@@ -27,183 +27,106 @@
 
 (defmethod dummy-52 bird-lady ((obj bird-lady))
   (let ((v1-1 (-> obj draw shadow-ctrl)))
-   (when v1-1
-    (let ((f0-0 (-> obj root-override trans y)))
-     (let ((a0-2 v1-1))
-      (set! (-> a0-2 settings bot-plane w) (- (+ -1024.0 f0-0)))
+    (when v1-1
+      (let ((f0-0 (-> obj root-override trans y)))
+        (let ((a0-2 v1-1))
+          (set! (-> a0-2 settings bot-plane w) (- (+ -1024.0 f0-0)))
+          )
+        0
+        (let ((a0-4 v1-1))
+          (set! (-> a0-4 settings top-plane w) (- (+ 4096.0 f0-0)))
+          )
+        )
+      0
+      (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
       )
-     0
-     (let ((a0-4 v1-1))
-      (set! (-> a0-4 settings top-plane w) (- (+ 4096.0 f0-0)))
-      )
-     )
-    0
-    (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
     )
-   )
   (none)
   )
 
 (defmethod draw-npc-shadow bird-lady ((obj bird-lady))
   (-> obj draw shadow-ctrl)
   (cond
-   ((and
-     (-> obj draw shadow)
-     (zero? (-> obj draw cur-lod))
-     (logtest? (-> obj draw status) 8)
+    ((and (-> obj draw shadow) (zero? (-> obj draw cur-lod)) (logtest? (-> obj draw status) (draw-status drwf03)))
+     (let ((v1-9 (-> obj draw shadow-ctrl)))
+       (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
+       )
+     0
+     (dummy-14 (-> obj draw shadow-ctrl))
      )
-    (let ((v1-9 (-> obj draw shadow-ctrl)))
-     (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
-     )
-    0
-    (dummy-14 (-> obj draw shadow-ctrl))
+    (else
+      (let ((v1-14 (-> obj draw shadow-ctrl)))
+        (logior! (-> v1-14 settings flags) 32)
+        )
+      0
+      )
     )
-   (else
-    (let ((v1-14 (-> obj draw shadow-ctrl)))
-     (logior! (-> v1-14 settings flags) 32)
-     )
-    0
-    )
-   )
   (none)
   )
 
 (defmethod play-anim! bird-lady ((obj bird-lady) (arg0 symbol))
-  (case (current-status (-> obj tasks)) 
-   (((task-status need-hint) (task-status need-introduction))
+  (case (current-status (-> obj tasks))
+    (((task-status need-hint) (task-status need-introduction))
      (if arg0
-      (close-status! (-> obj tasks) (task-status need-introduction))
-      )
+         (close-status! (-> obj tasks) (task-status need-introduction))
+         )
      (new 'static 'spool-anim
-      :name "bird-lady-introduction"
-      :index 4
-      :parts 11
-      :command-list
-      '(
-        (0
-          want-levels
-          village1
-          beach
-          )
-        ((the binteger 49)
-         joint
-         "cameraB"
+       :name "bird-lady-introduction"
+       :index 4
+       :parts 11
+       :command-list
+       '((0 want-levels village1 beach)
+         (49 joint "cameraB")
+         (101 display-level beach special)
+         (101 kill "yakow-8")
+         (101 kill "yakow-9")
+         (101 kill "yakow-10")
+         (101 kill "yakow-11")
+         (101 kill "yakow-12")
+         (102 joint "camera")
+         (125 joint "cameraB")
+         (251 joint "camera")
+         (326 joint "cameraB")
+         (649 display-level beach movie)
+         (649 want-force-vis beach #t)
+         (650 alive "flutflutegg-1")
+         (651 joint "camera")
+         (1041 joint "cameraB")
+         (1046 dead "flutflutegg-1")
+         (1046 display-level beach display)
+         (1046 want-force-vis beach #f)
          )
-        ((the binteger 101)
-         display-level
-         beach
-         special
-         )
-        ((the binteger 101)
-         kill
-         "yakow-8"
-         )
-        ((the binteger 101)
-         kill
-         "yakow-9"
-         )
-        ((the binteger 101)
-         kill
-         "yakow-10"
-         )
-        ((the binteger 101)
-         kill
-         "yakow-11"
-         )
-        ((the binteger 101)
-         kill
-         "yakow-12"
-         )
-        ((the binteger 102)
-         joint
-         "camera"
-         )
-        ((the binteger 125)
-         joint
-         "cameraB"
-         )
-        ((the binteger 251)
-         joint
-         "camera"
-         )
-        ((the binteger 326)
-         joint
-         "cameraB"
-         )
-        ((the binteger 649)
-         display-level
-         beach
-         movie
-         )
-        ((the binteger 649)
-         want-force-vis
-         beach
-         #t
-         )
-        ((the binteger 650)
-         alive
-         "flutflutegg-1"
-         )
-        ((the binteger 651)
-         joint
-         "camera"
-         )
-        ((the binteger 1041)
-         joint
-         "cameraB"
-         )
-        ((the binteger 1046)
-         dead
-         "flutflutegg-1"
-         )
-        ((the binteger 1046)
-         display-level
-         beach
-         display
-         )
-        ((the binteger 1046) want-force-vis beach #f)
+       )
+     )
+    (((task-status need-reminder))
+     (set! (-> obj skippable) #t)
+     (cond
+       ((zero? (get-reminder (-> obj tasks) 0))
+        (if arg0
+            (save-reminder (-> obj tasks) 1 0)
+            )
+        (new 'static 'spool-anim :name "bird-lady-reminder-1" :index 5 :parts 4 :command-list '())
         )
-      )
+       (else
+         (if arg0
+             (save-reminder (-> obj tasks) 0 0)
+             )
+         (new 'static 'spool-anim :name "bird-lady-reminder-2" :index 6 :parts 5 :command-list '())
+         )
+       )
      )
-   (((task-status need-reminder))
-    (set! (-> obj skippable) #t)
-    (cond
-     ((zero? (get-reminder (-> obj tasks) 0))
+    (else
       (if arg0
-       (save-reminder (-> obj tasks) 1 0)
-       )
-      (new 'static 'spool-anim
-       :name "bird-lady-reminder-1"
-       :index 5
-       :parts 4
-       :command-list '()
-       )
+          (format
+            0
+            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+            (-> obj name)
+            (task-status->string (current-status (-> obj tasks)))
+            )
+          )
+      (-> obj draw art-group data 3)
       )
-     (else
-      (if arg0
-       (save-reminder (-> obj tasks) 0 0)
-       )
-      (new 'static 'spool-anim
-       :name "bird-lady-reminder-2"
-       :index 6
-       :parts 5
-       :command-list '()
-       )
-      )
-     )
     )
-   (else
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
-      )
-     )
-    (-> obj draw art-group data 3)
-    )
-   )
   )
 
 (defmethod get-art-elem bird-lady ((obj bird-lady))
@@ -211,31 +134,24 @@
   )
 
 (defmethod TODO-RENAME-43 bird-lady ((obj bird-lady))
-  (when
-   (TODO-RENAME-10
-    (-> obj ambient)
-    (new 'stack-no-clear 'vector)
-    9000
-    122880.0
-    obj
-    )
-   (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-          (v1-4 (the-as number (logior #x3f800000 v1-3)))
-          (f0-2 (+ -1.0 (the-as float v1-4)))
+  (when (TODO-RENAME-10 (-> obj ambient) (new 'stack-no-clear 'vector) 9000 122880.0 obj)
+    (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+           (v1-4 (the-as number (logior #x3f800000 v1-3)))
+           (f0-2 (+ -1.0 (the-as float v1-4)))
+           )
+      (cond
+        ((< 0.66 f0-2)
+         (play-ambient (-> obj ambient) "BIR-LO02" #f (-> obj root-override trans))
+         )
+        ((< 0.33 f0-2)
+         (play-ambient (-> obj ambient) "BIR-LO03" #f (-> obj root-override trans))
+         )
+        (else
+          (play-ambient (-> obj ambient) "BIR-am08" #f (-> obj root-override trans))
           )
-    (cond
-     ((< 0.66 f0-2)
-      (play-ambient (-> obj ambient) "BIR-LO02" #f (-> obj root-override trans))
+        )
       )
-     ((< 0.33 f0-2)
-      (play-ambient (-> obj ambient) "BIR-LO03" #f (-> obj root-override trans))
-      )
-     (else
-      (play-ambient (-> obj ambient) "BIR-am08" #f (-> obj root-override trans))
-      )
-     )
     )
-   )
   )
 
 (defmethod target-above-threshold? bird-lady ((obj bird-lady))
@@ -243,27 +159,14 @@
   )
 
 (defmethod init-from-entity! bird-lady ((obj bird-lady) (arg0 entity-actor))
-  (dummy-40
-   obj
-   arg0
-   *bird-lady-sg*
-   3
-   51
-   (new 'static 'vector :y 4096.0 :w 4096.0)
-   5
-   )
+  (dummy-40 obj arg0 *bird-lady-sg* 3 51 (new 'static 'vector :y 4096.0 :w 4096.0) 5)
   (set! (-> obj tasks) (get-task-control (game-task beach-flutflut)))
   (set! (-> obj sound-flava) (the-as uint 7))
   (set! (-> obj draw light-index) (the-as uint 4))
-  (if
-   (closed?
-    (-> obj tasks)
-    (game-task beach-flutflut)
-    (task-status need-reminder)
-    )
-   (dummy-18 obj)
-   (go (method-of-object obj idle))
-   )
+  (if (closed? (-> obj tasks) (game-task beach-flutflut) (task-status need-reminder))
+      (dummy-18 obj)
+      (go (method-of-object obj idle))
+      )
   (none)
   )
 
diff --git a/goal_src/levels/beach/lurkercrab.gc b/goal_src/levels/beach/lurkercrab.gc
index 6bae779bcf..138bc562f3 100644
--- a/goal_src/levels/beach/lurkercrab.gc
+++ b/goal_src/levels/beach/lurkercrab.gc
@@ -7,67 +7,56 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 159) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lurkercrab-slide"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 663 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-                                         (sp-item 664 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-lurkercrab-slide
+  :id 159
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 663 :fade-after (meters 40) :falloff-to (meters 40))
+    (sp-item 664 :fade-after (meters 40) :falloff-to (meters 40))
+    )
+  )
 
-(set! (-> *part-id-table* 663)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                                     (sp-flt spt-y (meters -2.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 100.0 30.0 1.0)
-                                                     (sp-rnd-flt spt-g 80.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-b 30.0 30.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-scalevel-x (meters 0.033333335))
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -0.13653333)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 663
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.3 0.3 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 30.0 1.0)
+    (sp-rnd-flt spt-g 80.0 20.0 1.0)
+    (sp-rnd-flt spt-b 30.0 30.0 1.0)
+    (sp-rnd-flt spt-a 16.0 48.0 1.0)
+    (sp-flt spt-vel-y (meters 0.0033333334))
+    (sp-flt spt-scalevel-x (meters 0.033333335))
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-flt spt-accel-y -0.13653333)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    )
+  )
 
-(set! (-> *part-id-table* 664) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                   (sp-flt spt-y (meters -2.0))
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 75.0 60.0 1.0)
-                                   (sp-rnd-flt spt-g 60.0 20.0 1.0)
-                                   (sp-rnd-flt spt-b 23.0 30.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.2))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 664
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 0.1 1.0 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 75.0 60.0 1.0)
+    (sp-rnd-flt spt-g 60.0 20.0 1.0)
+    (sp-rnd-flt spt-b 23.0 30.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.2))
+    )
+  )
 
 (deftype lurkercrab (nav-enemy)
   ((orient basic  :offset-assert 400)
diff --git a/goal_src/levels/beach/lurkerworm.gc b/goal_src/levels/beach/lurkerworm.gc
index d5c4db0689..24678b6cce 100644
--- a/goal_src/levels/beach/lurkerworm.gc
+++ b/goal_src/levels/beach/lurkerworm.gc
@@ -64,186 +64,155 @@
   :longest-edge (meters 1.5)
   )
 
-(set! (-> *part-group-id-table* 157)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-beach-sandworm"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 656 :fade-after (meters 90.0) :period 900 :length 300)
-          (sp-item 657 :fade-after (meters 100.0) :period 900 :length 390)
-          (sp-item 658 :fade-after (meters 150.0) :period 900 :length 420 :offset 120)
-          (sp-item 659 :fade-after (meters 60.0) :period 900 :length 420 :offset 120)
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-beach-sandworm
+  :id 157
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 656 :fade-after (meters 90) :period 900 :length 300)
+    (sp-item 657 :fade-after (meters 100) :period 900 :length 390)
+    (sp-item 658 :fade-after (meters 150) :period 900 :length 420 :offset 120)
+    (sp-item 659 :fade-after (meters 60) :period 900 :length 420 :offset 120)
+    )
+  )
 
-(set! (-> *part-group-id-table* 158)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-beach-sandworm-norocks"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3
-          (sp-item 656 :fade-after (meters 90.0) :period 900 :length 300)
-          (sp-item 658 :fade-after (meters 150.0) :period 900 :length 420 :offset 120)
-          (sp-item 659 :fade-after (meters 60.0) :period 900 :length 420 :offset 120)
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-beach-sandworm-norocks
+  :id 158
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 656 :fade-after (meters 90) :period 900 :length 300)
+    (sp-item 658 :fade-after (meters 150) :period 900 :length 420 :offset 120)
+    (sp-item 659 :fade-after (meters 60) :period 900 :length 420 :offset 120)
+    )
+  )
 
-(set! (-> *part-id-table* 656) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-rnd-flt spt-x (meters 3.0) (meters 5.0) 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 130.0 20.0 1.0)
-                                   (sp-rnd-flt spt-g 90.0 20.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 8.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters -0.02))
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-fade-a 0.21333334)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int-plain-rnd spt-next-time 90 59 1)
-                                   (sp-launcher-by-id spt-next-launcher 660)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 656
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-rnd-flt spt-x (meters 3) (meters 5) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 130.0 20.0 1.0)
+    (sp-rnd-flt spt-g 90.0 20.0 1.0)
+    (sp-rnd-flt spt-b 50.0 8.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-x (meters -0.02))
+    (sp-flt spt-vel-y (meters -0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-fade-a 0.21333334)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int-plain-rnd spt-next-time 90 59 1)
+    (sp-launcher-by-id spt-next-launcher 660)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 660)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 660
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
+  )
 
-(set! (-> *part-id-table* 658) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.4)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 90.0 60.0 1.0)
-                                   (sp-rnd-flt spt-g 90.0 10.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 8.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.026666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 658
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 0.4)
+    (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 90.0 60.0 1.0)
+    (sp-rnd-flt spt-g 90.0 10.0 1.0)
+    (sp-rnd-flt spt-b 50.0 8.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-vel-y (meters 0.026666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-flt spt-fade-a 0.32)
+    (sp-flt spt-accel-y -4.096)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 659) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.6)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 45.0 30.0 1.0)
-                                   (sp-rnd-flt spt-g 45.0 5.0 1.0)
-                                   (sp-rnd-flt spt-b 25.0 4.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.026666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-fade-a 0.42666668)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 659
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 0.6)
+    (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 45.0 30.0 1.0)
+    (sp-rnd-flt spt-g 45.0 5.0 1.0)
+    (sp-rnd-flt spt-b 25.0 4.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-vel-y (meters 0.026666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-flt spt-fade-a 0.42666668)
+    (sp-flt spt-accel-y -4.096)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 657) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 75.0 45.0 1.0)
-                                   (sp-rnd-flt spt-g 75.0 10.0 1.0)
-                                   (sp-rnd-flt spt-b 40.0 6.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.026666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 657
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 75.0 45.0 1.0)
+    (sp-rnd-flt spt-g 75.0 10.0 1.0)
+    (sp-rnd-flt spt-b 40.0 6.0 1.0)
+    (sp-flt spt-a 96.0)
+    (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.026666667) 1.0)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-flt spt-accel-y -4.096)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 661) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.1)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 90.0 60.0 1.0)
-                                   (sp-rnd-flt spt-g 90.0 10.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 8.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.00083333335) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-fade-a 0.21333334)
-                                   (sp-flt spt-accel-y -0.54613334)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 662)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 661
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 0.1)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 90.0 60.0 1.0)
+    (sp-rnd-flt spt-g 90.0 10.0 1.0)
+    (sp-rnd-flt spt-b 50.0 8.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.00083333335) 1.0)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-flt spt-fade-a 0.21333334)
+    (sp-flt spt-accel-y -0.54613334)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 662)
+    )
+  )
 
-(set! (-> *part-id-table* 662)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.10666667) (sp-end))
-        )
-      )
+(defpart 662
+  :init-specs
+  ((sp-flt spt-fade-a -0.10666667))
+  )
 
 (defmethod TODO-RENAME-20 lurkerworm ((obj lurkerworm))
   (let ((s5-0 (new 'stack-no-clear 'vector)))
diff --git a/goal_src/levels/beach/sculptor.gc b/goal_src/levels/beach/sculptor.gc
index a575b0ac36..09702aebea 100644
--- a/goal_src/levels/beach/sculptor.gc
+++ b/goal_src/levels/beach/sculptor.gc
@@ -37,1103 +37,551 @@
 
 (defmethod dummy-52 sculptor ((obj sculptor))
   (let ((v1-1 (-> obj draw shadow-ctrl)))
-   (when v1-1
-    (let ((f0-0 (-> obj root-override trans y)))
-     (let ((a0-2 v1-1))
-      (set! (-> a0-2 settings bot-plane w) (- (+ -2048.0 f0-0)))
+    (when v1-1
+      (let ((f0-0 (-> obj root-override trans y)))
+        (let ((a0-2 v1-1))
+          (set! (-> a0-2 settings bot-plane w) (- (+ -2048.0 f0-0)))
+          )
+        0
+        (set! (-> v1-1 settings top-plane w) (- (+ 2048.0 f0-0)))
+        )
+      0
       )
-     0
-     (set! (-> v1-1 settings top-plane w) (- (+ 2048.0 f0-0)))
-     )
-    0
     )
-   )
   (none)
   )
 
 (defmethod draw-npc-shadow sculptor ((obj sculptor))
   (-> obj draw shadow-ctrl)
   (cond
-   ((and
-     (-> obj draw shadow)
-     (zero? (-> obj draw cur-lod))
-     (logtest? (-> obj draw status) 8)
+    ((and (-> obj draw shadow) (zero? (-> obj draw cur-lod)) (logtest? (-> obj draw status) (draw-status drwf03)))
+     (let ((v1-9 (-> obj draw shadow-ctrl)))
+       (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
+       )
+     0
+     (dummy-14 (-> obj draw shadow-ctrl))
      )
-    (let ((v1-9 (-> obj draw shadow-ctrl)))
-     (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
-     )
-    0
-    (dummy-14 (-> obj draw shadow-ctrl))
+    (else
+      (let ((v1-14 (-> obj draw shadow-ctrl)))
+        (logior! (-> v1-14 settings flags) 32)
+        )
+      0
+      )
     )
-   (else
-    (let ((v1-14 (-> obj draw shadow-ctrl)))
-     (logior! (-> v1-14 settings flags) 32)
-     )
-    0
-    )
-   )
   (none)
   )
 
 (defbehavior muse-to-idle sculptor ((arg0 muse))
   (when (not (handle->process (-> arg0 incomming-attack-id)))
-   (let ((s5-0 (get-process *default-dead-pool* manipy #x4000)))
-    (set! (-> arg0 incomming-attack-id) (ppointer->handle (when s5-0
-                                                           (let
-                                                            ((t9-1
-                                                              (method-of-type
-                                                               manipy
-                                                               activate
-                                                               )
-                                                              )
-                                                             )
-                                                            (t9-1
-                                                             (the-as
-                                                              manipy
-                                                              s5-0
-                                                              )
-                                                             arg0
-                                                             'manipy
-                                                             (the-as
-                                                              pointer
-                                                              #x70004000
-                                                              )
-                                                             )
-                                                            )
-                                                           (run-now-in-process
-                                                            s5-0
-                                                            manipy-init
-                                                            (->
-                                                             arg0
-                                                             collide-info
-                                                             trans
-                                                             )
-                                                            (-> arg0 entity)
-                                                            *sculptor-muse-sg*
-                                                            #f
-                                                            )
-                                                           (-> s5-0 ppointer)
-                                                           )
-                                         )
-     )
+    (let ((s5-0 (get-process *default-dead-pool* manipy #x4000)))
+      (set! (-> arg0 incomming-attack-id)
+            (ppointer->handle
+              (when s5-0
+                (let ((t9-1 (method-of-type manipy activate)))
+                  (t9-1 (the-as manipy s5-0) arg0 'manipy (the-as pointer #x70004000))
+                  )
+                (run-now-in-process s5-0 manipy-init (-> arg0 collide-info trans) (-> arg0 entity) *sculptor-muse-sg* #f)
+                (-> s5-0 ppointer)
+                )
+              )
+            )
+      )
     )
-   )
   (let ((v1-11 (handle->process (-> arg0 incomming-attack-id))))
-   (if v1-11
-    (set! (-> (the-as muse v1-11) draw light-index) (the-as uint 3))
+    (if v1-11
+        (set! (-> (the-as muse v1-11) draw light-index) (the-as uint 3))
+        )
     )
-   )
   (send-event (handle->process (-> arg0 incomming-attack-id)) 'anim-mode 'loop)
-  (send-event
-   (handle->process (-> arg0 incomming-attack-id))
-   'art-joint-anim
-   "idle"
-   0
-   )
+  (send-event (handle->process (-> arg0 incomming-attack-id)) 'art-joint-anim "idle" 0)
   (send-event (handle->process (-> arg0 incomming-attack-id)) 'draw #t)
-  (send-event
-   (handle->process (-> arg0 incomming-attack-id))
-   'origin-joint-index
-   26
-   )
+  (send-event (handle->process (-> arg0 incomming-attack-id)) 'origin-joint-index 26)
   )
 
 (defstate give-cell (sculptor)
   :virtual #t
   :enter
   (behavior ()
-   (muse-to-idle (the-as muse self))
-   (none)
-   )
+    (muse-to-idle (the-as muse self))
+    (none)
+    )
   )
 
 (defmethod play-anim! sculptor ((obj sculptor) (arg0 symbol))
-  (case (current-status (-> obj tasks)) 
-   (((task-status need-hint) (task-status need-introduction))
+  (case (current-status (-> obj tasks))
+    (((task-status need-hint) (task-status need-introduction))
      (if arg0
-      (close-status! (-> obj tasks) (task-status need-introduction))
-      )
+         (close-status! (-> obj tasks) (task-status need-introduction))
+         )
      (new 'static 'spool-anim
-      :name "sculptor-introduction"
-      :index 16
-      :parts 14
-      :command-list
-      '(
-        (0
-          display-level
-          beach
-          special
+       :name "sculptor-introduction"
+       :index 16
+       :parts 14
+       :command-list
+       '((0 display-level beach special)
+         (0 kill "med-res-level-2")
+         (0 kill "med-res-level-4")
+         (0 kill "med-res-level-6")
+         (0 kill "med-res-level-7")
+         (0 kill "med-res-level-8")
+         (0 kill "med-res-level-11")
+         (0 kill "med-res-level-14")
+         (0 kill "med-res-level-22")
+         (0 kill "med-res-level-23")
+         (285 joint "cameraB")
+         (331 joint "camera")
+         (614 joint "cameraB")
+         (760 joint "camera")
+         (1183 joint "cameraB")
+         (1278 joint "camera")
+         (1433 joint "cameraB")
+         )
+       )
+     )
+    (((task-status need-reminder))
+     (set! (-> obj skippable) #t)
+     (new 'static 'spool-anim :name "sculptor-reminder-1" :index 17 :parts 2 :command-list '())
+     )
+    (((task-status need-reward-speech))
+     (when arg0
+       (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
+       (close-current! (-> obj tasks))
+       (let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
+         (set! (-> obj muse)
+               (ppointer->handle
+                 (when s5-1
+                   (let ((t9-5 (method-of-type manipy activate)))
+                     (t9-5 (the-as manipy s5-1) obj 'manipy (the-as pointer #x70004000))
+                     )
+                   (run-now-in-process s5-1 manipy-init (-> obj root-override trans) (-> obj entity) *sculptor-muse-sg* #f)
+                   (-> s5-1 ppointer)
+                   )
+                 )
+               )
+         )
+       (let ((v1-18 (handle->process (-> obj muse))))
+         (if v1-18
+             (set! (-> (the-as muse v1-18) draw light-index) (the-as uint 3))
+             )
+         )
+       (send-event (handle->process (-> obj muse)) 'center-joint 4)
+       (send-event (handle->process (-> obj muse)) 'anim-mode 'clone-anim)
+       )
+     (new 'static 'spool-anim
+       :name "sculptor-resolution"
+       :index 18
+       :parts 4
+       :command-list
+       '((51 joint "cameraB") (87 joint "camera"))
+       )
+     )
+    (else
+      (if arg0
+          (format
+            0
+            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+            (-> obj name)
+            (task-status->string (current-status (-> obj tasks)))
+            )
           )
-        (0
-         kill
-         "med-res-level-2"
-         )
-        (0
-         kill
-         "med-res-level-4"
-         )
-        (0
-         kill
-         "med-res-level-6"
-         )
-        (0
-         kill
-         "med-res-level-7"
-         )
-        (0
-         kill
-         "med-res-level-8"
-         )
-        (0
-         kill
-         "med-res-level-11"
-         )
-        (0
-         kill
-         "med-res-level-14"
-         )
-        (0
-         kill
-         "med-res-level-22"
-         )
-        (0
-         kill
-         "med-res-level-23"
-         )
-        ((the binteger 285)
-         joint
-         "cameraB"
-         )
-        ((the binteger 331)
-         joint
-         "camera"
-         )
-        ((the binteger 614)
-         joint
-         "cameraB"
-         )
-        ((the binteger 760)
-         joint
-         "camera"
-         )
-        ((the binteger 1183)
-         joint
-         "cameraB"
-         )
-        ((the binteger 1278)
-         joint
-         "camera"
-         )
-        ((the binteger 1433) joint "cameraB")
-        )
+      (-> obj draw art-group data 4)
       )
-     )
-   (((task-status need-reminder))
-    (set! (-> obj skippable) #t)
-    (new 'static 'spool-anim
-     :name "sculptor-reminder-1"
-     :index 17
-     :parts 2
-     :command-list '()
-     )
     )
-   (((task-status need-reward-speech))
-    (when arg0
-     (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
-     (close-current! (-> obj tasks))
-     (let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
-      (set! (-> obj muse) (ppointer->handle (when s5-1
-                                             (let
-                                              ((t9-5
-                                                (method-of-type manipy activate)
-                                                )
-                                               )
-                                              (t9-5
-                                               (the-as manipy s5-1)
-                                               obj
-                                               'manipy
-                                               (the-as pointer #x70004000)
-                                               )
-                                              )
-                                             (run-now-in-process
-                                              s5-1
-                                              manipy-init
-                                              (-> obj root-override trans)
-                                              (-> obj entity)
-                                              *sculptor-muse-sg*
-                                              #f
-                                              )
-                                             (-> s5-1 ppointer)
-                                             )
-                           )
-       )
-      )
-     (let ((v1-18 (handle->process (-> obj muse))))
-      (if v1-18
-       (set! (-> (the-as muse v1-18) draw light-index) (the-as uint 3))
-       )
-      )
-     (send-event (handle->process (-> obj muse)) 'center-joint 4)
-     (send-event (handle->process (-> obj muse)) 'anim-mode 'clone-anim)
-     )
-    (new 'static 'spool-anim
-     :name "sculptor-resolution"
-     :index 18
-     :parts 4
-     :command-list
-     '(
-       ((the binteger 51) joint "cameraB") ((the binteger 87) joint "camera")
-       )
-     )
-    )
-   (else
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
-      )
-     )
-    (-> obj draw art-group data 4)
-    )
-   )
   )
 
 (defmethod get-art-elem sculptor ((obj sculptor))
-  (case (current-status (-> obj tasks)) 
-   (((task-status invalid) (task-status need-resolution))
+  (case (current-status (-> obj tasks))
+    (((task-status invalid) (task-status need-resolution))
      (-> obj draw art-group data 11)
      )
-   (else
-    (-> obj draw art-group data 3)
+    (else
+      (-> obj draw art-group data 3)
+      )
     )
-   )
   )
 
 (defmethod TODO-RENAME-43 sculptor ((obj sculptor))
-  (when
-   (TODO-RENAME-10
-    (-> obj ambient)
-    (new 'stack-no-clear 'vector)
-    9000
-    122880.0
-    obj
-    )
-   (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-          (v1-4 (the-as number (logior #x3f800000 v1-3)))
-          (f0-2 (+ -1.0 (the-as float v1-4)))
+  (when (TODO-RENAME-10 (-> obj ambient) (new 'stack-no-clear 'vector) 9000 122880.0 obj)
+    (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+           (v1-4 (the-as number (logior #x3f800000 v1-3)))
+           (f0-2 (+ -1.0 (the-as float v1-4)))
+           )
+      (cond
+        ((< 0.85714287 f0-2)
+         (play-ambient (-> obj ambient) "SCU-LO01" #f (-> obj root-override trans))
+         )
+        ((< 0.71428573 f0-2)
+         (play-ambient (-> obj ambient) "SCU-AM05" #f (-> obj root-override trans))
+         )
+        ((< 0.5714286 f0-2)
+         (play-ambient (-> obj ambient) "SCU-AM06" #f (-> obj root-override trans))
+         )
+        ((< 0.42857143 f0-2)
+         (play-ambient (-> obj ambient) "SCU-AM03" #f (-> obj root-override trans))
+         )
+        ((< 0.2857143 f0-2)
+         (play-ambient (-> obj ambient) "SCU-AM04" #f (-> obj root-override trans))
+         )
+        ((< 0.14285715 f0-2)
+         (play-ambient (-> obj ambient) "SCU-AM01" #f (-> obj root-override trans))
+         )
+        (else
+          (play-ambient (-> obj ambient) "SCU-AM02" #f (-> obj root-override trans))
           )
-    (cond
-     ((< 0.85714287 f0-2)
-      (play-ambient (-> obj ambient) "SCU-LO01" #f (-> obj root-override trans))
+        )
       )
-     ((< 0.71428573 f0-2)
-      (play-ambient (-> obj ambient) "SCU-AM05" #f (-> obj root-override trans))
-      )
-     ((< 0.5714286 f0-2)
-      (play-ambient (-> obj ambient) "SCU-AM06" #f (-> obj root-override trans))
-      )
-     ((< 0.42857143 f0-2)
-      (play-ambient (-> obj ambient) "SCU-AM03" #f (-> obj root-override trans))
-      )
-     ((< 0.2857143 f0-2)
-      (play-ambient (-> obj ambient) "SCU-AM04" #f (-> obj root-override trans))
-      )
-     ((< 0.14285715 f0-2)
-      (play-ambient (-> obj ambient) "SCU-AM01" #f (-> obj root-override trans))
-      )
-     (else
-      (play-ambient (-> obj ambient) "SCU-AM02" #f (-> obj root-override trans))
-      )
-     )
     )
-   )
   )
 
 (defstate idle (sculptor)
   :virtual #t
   :code
   (behavior ()
-   (when (!= (if (> (-> self skel active-channels) 0)
-              (-> self skel root-channel 0 frame-group)
+    (when (!= (if (> (-> self skel active-channels) 0)
+                  (-> self skel root-channel 0 frame-group)
+                  )
+              (get-art-elem self)
               )
-          (get-art-elem self)
-          )
-    (ja-channel-push! 1 60)
-    (let ((gp-0 (-> self skel root-channel 0)))
-     (set! (-> gp-0 frame-group) (the-as art-joint-anim (get-art-elem self)))
-     )
-    )
-   (let ((a0-8 (-> self skel root-channel 0)))
-    (set!
-     (-> a0-8 param 0)
-     (the float (+ (-> a0-8 frame-group data 0 length) -1))
-     )
-    (set! (-> a0-8 param 1) 1.0)
-    (joint-control-channel-group!
-     a0-8
-     (the-as art-joint-anim #f)
-     num-func-seek!
-     )
-    )
-   (while (not (ja-done? 0))
-    (suspend)
-    (ja-eval)
-    )
-   (case (current-status (-> self tasks)) 
-    (((task-status invalid) (task-status need-resolution))
-      (let ((a0-12 (-> self skel root-channel 0)))
-       (set!
-        (-> a0-12 frame-group)
-        (the-as art-joint-anim (-> self draw art-group data 12))
+      (ja-channel-push! 1 60)
+      (let ((gp-0 (-> self skel root-channel 0)))
+        (set! (-> gp-0 frame-group) (the-as art-joint-anim (get-art-elem self)))
         )
-       (set!
-        (-> a0-12 param 0)
-        (the
-         float
-         (+
-          (->
-           (the-as art-joint-anim (-> self draw art-group data 12))
-           data
-           0
-           length
-           )
-          -1
-          )
-         )
-        )
-       (set! (-> a0-12 param 1) 1.0)
-       (set! (-> a0-12 frame-num) 0.0)
-       (joint-control-channel-group!
-        a0-12
-        (the-as art-joint-anim (-> self draw art-group data 12))
-        num-func-seek!
-        )
-       )
-      (until (ja-done? 0)
-       (suspend)
-       (let ((a0-13 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-13 param 0)
-         (the float (+ (-> a0-13 frame-group data 0 length) -1))
-         )
-        (set! (-> a0-13 param 1) 1.0)
-        (joint-control-channel-group-eval!
-         a0-13
-         (the-as art-joint-anim #f)
-         num-func-seek!
-         )
-        )
-       )
-      (muse-to-idle (the-as muse self))
       )
-    )
-   (while #t
-    (let ((v1-43 (current-status (-> self tasks))))
-     (cond
-      ((or
-        (= v1-43 (task-status invalid))
-        (= v1-43 (task-status need-resolution))
-        )
-       (let ((a0-18 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-18 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 8))
-         )
-        (set!
-         (-> a0-18 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 8))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-18 param 1) 1.0)
-        (set! (-> a0-18 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-18
-         (the-as art-joint-anim (-> self draw art-group data 8))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-19 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-19 param 0)
-          (the float (+ (-> a0-19 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-19 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-19
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       (let* ((f30-0 4.0)
-              (v1-68 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-69 (the-as number (logior #x3f800000 v1-68)))
-              )
-        (countdown
-         (gp-1 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-69)))) 4))
-         (let ((a0-23 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-23 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 9))
-           )
-          (set!
-           (-> a0-23 param 0)
-           (the
-            float
-            (+
-             (->
-              (the-as art-joint-anim (-> self draw art-group data 9))
-              data
-              0
-              length
-              )
-             -1
-             )
-            )
-           )
-          (set! (-> a0-23 param 1) 1.0)
-          (set! (-> a0-23 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-23
-           (the-as art-joint-anim (-> self draw art-group data 9))
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (suspend)
-          (let ((a0-24 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-24 param 0)
-            (the float (+ (-> a0-24 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-24 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-24
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         )
-        )
-       (let* ((v1-97 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-98 (the-as number (logior #x3f800000 v1-97)))
-              (f30-1 (+ -1.0 (the-as float v1-98)))
-              )
-        (let ((a0-28 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-28 frame-group)
-          (the-as art-joint-anim (-> self draw art-group data 10))
-          )
-         (set!
-          (-> a0-28 param 0)
-          (the
-           float
-           (+
-            (->
-             (the-as art-joint-anim (-> self draw art-group data 10))
-             data
-             0
-             length
-             )
-            -1
-            )
-           )
-          )
-         (set! (-> a0-28 param 1) 1.0)
-         (set! (-> a0-28 frame-num) 0.0)
-         (joint-control-channel-group!
-          a0-28
-          (the-as art-joint-anim (-> self draw art-group data 10))
-          num-func-seek!
-          )
-         )
-        (until (ja-done? 0)
-         (suspend)
-         (let ((a0-29 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-29 param 0)
-           (the float (+ (-> a0-29 frame-group data 0 length) -1))
-           )
-          (set! (-> a0-29 param 1) 1.0)
-          (joint-control-channel-group-eval!
-           a0-29
-           (the-as art-joint-anim #f)
-           num-func-seek!
-           )
-          )
-         )
-        (let ((a0-31 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-31 frame-group)
-          (the-as art-joint-anim (-> self draw art-group data 11))
-          )
-         (set!
-          (-> a0-31 param 0)
-          (the
-           float
-           (+
-            (->
-             (the-as art-joint-anim (-> self draw art-group data 11))
-             data
-             0
-             length
-             )
-            -1
-            )
-           )
-          )
-         (set! (-> a0-31 param 1) 1.0)
-         (set! (-> a0-31 frame-num) 0.0)
-         (joint-control-channel-group!
-          a0-31
-          (the-as art-joint-anim (-> self draw art-group data 11))
-          num-func-seek!
-          )
-         )
-        (until (ja-done? 0)
-         (suspend)
-         (let ((a0-32 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-32 param 0)
-           (the float (+ (-> a0-32 frame-group data 0 length) -1))
-           )
-          (set! (-> a0-32 param 1) 1.0)
-          (joint-control-channel-group-eval!
-           a0-32
-           (the-as art-joint-anim #f)
-           num-func-seek!
-           )
-          )
-         )
-        (let ((a0-34 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-34 frame-group)
-          (the-as art-joint-anim (-> self draw art-group data 12))
-          )
-         (set!
-          (-> a0-34 param 0)
-          (the
-           float
-           (+
-            (->
-             (the-as art-joint-anim (-> self draw art-group data 12))
-             data
-             0
-             length
-             )
-            -1
-            )
-           )
-          )
-         (set! (-> a0-34 param 1) 1.0)
-         (set! (-> a0-34 frame-num) 0.0)
-         (joint-control-channel-group!
-          a0-34
-          (the-as art-joint-anim (-> self draw art-group data 12))
-          num-func-seek!
-          )
-         )
-        (until (ja-done? 0)
-         (suspend)
-         (let ((a0-35 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-35 param 0)
-           (the float (+ (-> a0-35 frame-group data 0 length) -1))
-           )
-          (set! (-> a0-35 param 1) 1.0)
-          (joint-control-channel-group-eval!
-           a0-35
-           (the-as art-joint-anim #f)
-           num-func-seek!
-           )
-          )
-         )
-        (when (< f30-1 0.5)
-         (let ((a0-37 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-37 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 13))
-           )
-          (set!
-           (-> a0-37 param 0)
-           (the
-            float
-            (+
-             (->
-              (the-as art-joint-anim (-> self draw art-group data 13))
-              data
-              0
-              length
-              )
-             -1
-             )
-            )
-           )
-          (set! (-> a0-37 param 1) 1.0)
-          (set! (-> a0-37 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-37
-           (the-as art-joint-anim (-> self draw art-group data 13))
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (suspend)
-          (let ((a0-38 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-38 param 0)
-            (the float (+ (-> a0-38 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-38 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-38
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         (let* ((f30-2 2.0)
-                (v1-190
-                 (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
-                 )
-                (v1-191 (the-as number (logior #x3f800000 v1-190)))
-                )
-          (countdown
-           (gp-2 (+ (the int (* f30-2 (+ -1.0 (the-as float v1-191)))) 2))
-           (let ((a0-42 (-> self skel root-channel 0)))
-            (set!
-             (-> a0-42 frame-group)
-             (the-as art-joint-anim (-> self draw art-group data 14))
-             )
-            (set!
-             (-> a0-42 param 0)
-             (the
-              float
-              (+
-               (->
-                (the-as art-joint-anim (-> self draw art-group data 14))
-                data
-                0
-                length
-                )
-               -1
+    (let ((a0-8 (-> self skel root-channel 0)))
+      (set! (-> a0-8 param 0) (the float (+ (-> a0-8 frame-group data 0 length) -1)))
+      (set! (-> a0-8 param 1) 1.0)
+      (joint-control-channel-group! a0-8 (the-as art-joint-anim #f) num-func-seek!)
+      )
+    (while (not (ja-done? 0))
+      (suspend)
+      (ja-eval)
+      )
+    (case (current-status (-> self tasks))
+      (((task-status invalid) (task-status need-resolution))
+       (let ((a0-12 (-> self skel root-channel 0)))
+         (set! (-> a0-12 frame-group) (the-as art-joint-anim (-> self draw art-group data 12)))
+         (set! (-> a0-12 param 0)
+               (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 12)) data 0 length) -1))
                )
-              )
+         (set! (-> a0-12 param 1) 1.0)
+         (set! (-> a0-12 frame-num) 0.0)
+         (joint-control-channel-group! a0-12 (the-as art-joint-anim (-> self draw art-group data 12)) num-func-seek!)
+         )
+       (until (ja-done? 0)
+         (suspend)
+         (let ((a0-13 (-> self skel root-channel 0)))
+           (set! (-> a0-13 param 0) (the float (+ (-> a0-13 frame-group data 0 length) -1)))
+           (set! (-> a0-13 param 1) 1.0)
+           (joint-control-channel-group-eval! a0-13 (the-as art-joint-anim #f) num-func-seek!)
+           )
+         )
+       (muse-to-idle (the-as muse self))
+       )
+      )
+    (while #t
+      (let ((v1-43 (current-status (-> self tasks))))
+        (cond
+          ((or (= v1-43 (task-status invalid)) (= v1-43 (task-status need-resolution)))
+           (let ((a0-18 (-> self skel root-channel 0)))
+             (set! (-> a0-18 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
+             (set! (-> a0-18 param 0)
+                   (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 8)) data 0 length) -1))
+                   )
+             (set! (-> a0-18 param 1) 1.0)
+             (set! (-> a0-18 frame-num) 0.0)
+             (joint-control-channel-group! a0-18 (the-as art-joint-anim (-> self draw art-group data 8)) num-func-seek!)
              )
-            (set! (-> a0-42 param 1) 1.0)
-            (set! (-> a0-42 frame-num) 0.0)
-            (joint-control-channel-group!
-             a0-42
-             (the-as art-joint-anim (-> self draw art-group data 14))
-             num-func-seek!
-             )
-            )
            (until (ja-done? 0)
-            (suspend)
-            (let ((a0-43 (-> self skel root-channel 0)))
-             (set!
-              (-> a0-43 param 0)
-              (the float (+ (-> a0-43 frame-group data 0 length) -1))
-              )
-             (set! (-> a0-43 param 1) 1.0)
-             (joint-control-channel-group-eval!
-              a0-43
-              (the-as art-joint-anim #f)
-              num-func-seek!
-              )
+             (suspend)
+             (let ((a0-19 (-> self skel root-channel 0)))
+               (set! (-> a0-19 param 0) (the float (+ (-> a0-19 frame-group data 0 length) -1)))
+               (set! (-> a0-19 param 1) 1.0)
+               (joint-control-channel-group-eval! a0-19 (the-as art-joint-anim #f) num-func-seek!)
+               )
              )
-            )
-           )
-          )
-         (let ((a0-45 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-45 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 15))
-           )
-          (set!
-           (-> a0-45 param 0)
-           (the
-            float
-            (+
-             (->
-              (the-as art-joint-anim (-> self draw art-group data 15))
-              data
-              0
-              length
-              )
-             -1
+           (let* ((f30-0 4.0)
+                  (v1-68 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                  (v1-69 (the-as number (logior #x3f800000 v1-68)))
+                  )
+             (countdown (gp-1 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-69)))) 4))
+               (let ((a0-23 (-> self skel root-channel 0)))
+                 (set! (-> a0-23 frame-group) (the-as art-joint-anim (-> self draw art-group data 9)))
+                 (set! (-> a0-23 param 0)
+                       (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 9)) data 0 length) -1))
+                       )
+                 (set! (-> a0-23 param 1) 1.0)
+                 (set! (-> a0-23 frame-num) 0.0)
+                 (joint-control-channel-group! a0-23 (the-as art-joint-anim (-> self draw art-group data 9)) num-func-seek!)
+                 )
+               (until (ja-done? 0)
+                 (suspend)
+                 (let ((a0-24 (-> self skel root-channel 0)))
+                   (set! (-> a0-24 param 0) (the float (+ (-> a0-24 frame-group data 0 length) -1)))
+                   (set! (-> a0-24 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-24 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               )
              )
-            )
-           )
-          (set! (-> a0-45 param 1) 1.0)
-          (set! (-> a0-45 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-45
-           (the-as art-joint-anim (-> self draw art-group data 15))
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (suspend)
-          (let ((a0-46 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-46 param 0)
-            (the float (+ (-> a0-46 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-46 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-46
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         (let ((a0-48 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-48 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 11))
-           )
-          (set!
-           (-> a0-48 param 0)
-           (the
-            float
-            (+
-             (->
-              (the-as art-joint-anim (-> self draw art-group data 11))
-              data
-              0
-              length
-              )
-             -1
+           (let* ((v1-97 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                  (v1-98 (the-as number (logior #x3f800000 v1-97)))
+                  (f30-1 (+ -1.0 (the-as float v1-98)))
+                  )
+             (let ((a0-28 (-> self skel root-channel 0)))
+               (set! (-> a0-28 frame-group) (the-as art-joint-anim (-> self draw art-group data 10)))
+               (set! (-> a0-28 param 0)
+                     (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 10)) data 0 length) -1))
+                     )
+               (set! (-> a0-28 param 1) 1.0)
+               (set! (-> a0-28 frame-num) 0.0)
+               (joint-control-channel-group! a0-28 (the-as art-joint-anim (-> self draw art-group data 10)) num-func-seek!)
+               )
+             (until (ja-done? 0)
+               (suspend)
+               (let ((a0-29 (-> self skel root-channel 0)))
+                 (set! (-> a0-29 param 0) (the float (+ (-> a0-29 frame-group data 0 length) -1)))
+                 (set! (-> a0-29 param 1) 1.0)
+                 (joint-control-channel-group-eval! a0-29 (the-as art-joint-anim #f) num-func-seek!)
+                 )
+               )
+             (let ((a0-31 (-> self skel root-channel 0)))
+               (set! (-> a0-31 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
+               (set! (-> a0-31 param 0)
+                     (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 11)) data 0 length) -1))
+                     )
+               (set! (-> a0-31 param 1) 1.0)
+               (set! (-> a0-31 frame-num) 0.0)
+               (joint-control-channel-group! a0-31 (the-as art-joint-anim (-> self draw art-group data 11)) num-func-seek!)
+               )
+             (until (ja-done? 0)
+               (suspend)
+               (let ((a0-32 (-> self skel root-channel 0)))
+                 (set! (-> a0-32 param 0) (the float (+ (-> a0-32 frame-group data 0 length) -1)))
+                 (set! (-> a0-32 param 1) 1.0)
+                 (joint-control-channel-group-eval! a0-32 (the-as art-joint-anim #f) num-func-seek!)
+                 )
+               )
+             (let ((a0-34 (-> self skel root-channel 0)))
+               (set! (-> a0-34 frame-group) (the-as art-joint-anim (-> self draw art-group data 12)))
+               (set! (-> a0-34 param 0)
+                     (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 12)) data 0 length) -1))
+                     )
+               (set! (-> a0-34 param 1) 1.0)
+               (set! (-> a0-34 frame-num) 0.0)
+               (joint-control-channel-group! a0-34 (the-as art-joint-anim (-> self draw art-group data 12)) num-func-seek!)
+               )
+             (until (ja-done? 0)
+               (suspend)
+               (let ((a0-35 (-> self skel root-channel 0)))
+                 (set! (-> a0-35 param 0) (the float (+ (-> a0-35 frame-group data 0 length) -1)))
+                 (set! (-> a0-35 param 1) 1.0)
+                 (joint-control-channel-group-eval! a0-35 (the-as art-joint-anim #f) num-func-seek!)
+                 )
+               )
+             (when (< f30-1 0.5)
+               (let ((a0-37 (-> self skel root-channel 0)))
+                 (set! (-> a0-37 frame-group) (the-as art-joint-anim (-> self draw art-group data 13)))
+                 (set! (-> a0-37 param 0)
+                       (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 13)) data 0 length) -1))
+                       )
+                 (set! (-> a0-37 param 1) 1.0)
+                 (set! (-> a0-37 frame-num) 0.0)
+                 (joint-control-channel-group! a0-37 (the-as art-joint-anim (-> self draw art-group data 13)) num-func-seek!)
+                 )
+               (until (ja-done? 0)
+                 (suspend)
+                 (let ((a0-38 (-> self skel root-channel 0)))
+                   (set! (-> a0-38 param 0) (the float (+ (-> a0-38 frame-group data 0 length) -1)))
+                   (set! (-> a0-38 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-38 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               (let* ((f30-2 2.0)
+                      (v1-190 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                      (v1-191 (the-as number (logior #x3f800000 v1-190)))
+                      )
+                 (countdown (gp-2 (+ (the int (* f30-2 (+ -1.0 (the-as float v1-191)))) 2))
+                   (let ((a0-42 (-> self skel root-channel 0)))
+                     (set! (-> a0-42 frame-group) (the-as art-joint-anim (-> self draw art-group data 14)))
+                     (set! (-> a0-42 param 0)
+                           (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 14)) data 0 length) -1))
+                           )
+                     (set! (-> a0-42 param 1) 1.0)
+                     (set! (-> a0-42 frame-num) 0.0)
+                     (joint-control-channel-group! a0-42 (the-as art-joint-anim (-> self draw art-group data 14)) num-func-seek!)
+                     )
+                   (until (ja-done? 0)
+                     (suspend)
+                     (let ((a0-43 (-> self skel root-channel 0)))
+                       (set! (-> a0-43 param 0) (the float (+ (-> a0-43 frame-group data 0 length) -1)))
+                       (set! (-> a0-43 param 1) 1.0)
+                       (joint-control-channel-group-eval! a0-43 (the-as art-joint-anim #f) num-func-seek!)
+                       )
+                     )
+                   )
+                 )
+               (let ((a0-45 (-> self skel root-channel 0)))
+                 (set! (-> a0-45 frame-group) (the-as art-joint-anim (-> self draw art-group data 15)))
+                 (set! (-> a0-45 param 0)
+                       (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 15)) data 0 length) -1))
+                       )
+                 (set! (-> a0-45 param 1) 1.0)
+                 (set! (-> a0-45 frame-num) 0.0)
+                 (joint-control-channel-group! a0-45 (the-as art-joint-anim (-> self draw art-group data 15)) num-func-seek!)
+                 )
+               (until (ja-done? 0)
+                 (suspend)
+                 (let ((a0-46 (-> self skel root-channel 0)))
+                   (set! (-> a0-46 param 0) (the float (+ (-> a0-46 frame-group data 0 length) -1)))
+                   (set! (-> a0-46 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-46 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               (let ((a0-48 (-> self skel root-channel 0)))
+                 (set! (-> a0-48 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
+                 (set! (-> a0-48 param 0)
+                       (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 11)) data 0 length) -1))
+                       )
+                 (set! (-> a0-48 param 1) 1.0)
+                 (set! (-> a0-48 frame-num) 0.0)
+                 (joint-control-channel-group! a0-48 (the-as art-joint-anim (-> self draw art-group data 11)) num-func-seek!)
+                 )
+               (until (ja-done? 0)
+                 (suspend)
+                 (let ((a0-49 (-> self skel root-channel 0)))
+                   (set! (-> a0-49 param 0) (the float (+ (-> a0-49 frame-group data 0 length) -1)))
+                   (set! (-> a0-49 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-49 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               (let ((a0-51 (-> self skel root-channel 0)))
+                 (set! (-> a0-51 frame-group) (the-as art-joint-anim (-> self draw art-group data 12)))
+                 (set! (-> a0-51 param 0)
+                       (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 12)) data 0 length) -1))
+                       )
+                 (set! (-> a0-51 param 1) 1.0)
+                 (set! (-> a0-51 frame-num) 0.0)
+                 (joint-control-channel-group! a0-51 (the-as art-joint-anim (-> self draw art-group data 12)) num-func-seek!)
+                 )
+               (until (ja-done? 0)
+                 (suspend)
+                 (let ((a0-52 (-> self skel root-channel 0)))
+                   (set! (-> a0-52 param 0) (the float (+ (-> a0-52 frame-group data 0 length) -1)))
+                   (set! (-> a0-52 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-52 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               )
              )
-            )
            )
-          (set! (-> a0-48 param 1) 1.0)
-          (set! (-> a0-48 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-48
-           (the-as art-joint-anim (-> self draw art-group data 11))
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (suspend)
-          (let ((a0-49 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-49 param 0)
-            (the float (+ (-> a0-49 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-49 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-49
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         (let ((a0-51 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-51 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 12))
-           )
-          (set!
-           (-> a0-51 param 0)
-           (the
-            float
-            (+
-             (->
-              (the-as art-joint-anim (-> self draw art-group data 12))
-              data
-              0
-              length
-              )
-             -1
+          ((begin
+             (TODO-RENAME-43 self)
+             (let* ((f30-3 4.0)
+                    (v1-287 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                    (v1-288 (the-as number (logior #x3f800000 v1-287)))
+                    )
+               (countdown (gp-3 (+ (the int (* f30-3 (+ -1.0 (the-as float v1-288)))) 4))
+                 (let ((a0-57 (-> self skel root-channel 0)))
+                   (set! (-> a0-57 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+                   (set! (-> a0-57 param 0)
+                         (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
+                         )
+                   (set! (-> a0-57 param 1) 1.0)
+                   (set! (-> a0-57 frame-num) 0.0)
+                   (joint-control-channel-group! a0-57 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
+                   )
+                 (until (ja-done? 0)
+                   (suspend)
+                   (let ((a0-58 (-> self skel root-channel 0)))
+                     (set! (-> a0-58 param 0) (the float (+ (-> a0-58 frame-group data 0 length) -1)))
+                     (set! (-> a0-58 param 1) 1.0)
+                     (joint-control-channel-group-eval! a0-58 (the-as art-joint-anim #f) num-func-seek!)
+                     )
+                   )
+                 )
+               )
+             (let* ((v1-316 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                    (v1-317 (the-as number (logior #x3f800000 v1-316)))
+                    )
+               (< (+ -1.0 (the-as float v1-317)) 0.5)
+               )
+             )
+           (let ((a0-62 (-> self skel root-channel 0)))
+             (set! (-> a0-62 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
+             (set! (-> a0-62 param 0)
+                   (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
+                   )
+             (set! (-> a0-62 param 1) 1.0)
+             (set! (-> a0-62 frame-num) 0.0)
+             (joint-control-channel-group! a0-62 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
+             )
+           (until (ja-done? 0)
+             (suspend)
+             (let ((a0-63 (-> self skel root-channel 0)))
+               (set! (-> a0-63 param 0) (the float (+ (-> a0-63 frame-group data 0 length) -1)))
+               (set! (-> a0-63 param 1) 1.0)
+               (joint-control-channel-group-eval! a0-63 (the-as art-joint-anim #f) num-func-seek!)
+               )
              )
-            )
            )
-          (set! (-> a0-51 param 1) 1.0)
-          (set! (-> a0-51 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-51
-           (the-as art-joint-anim (-> self draw art-group data 12))
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (suspend)
-          (let ((a0-52 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-52 param 0)
-            (the float (+ (-> a0-52 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-52 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-52
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         )
-        )
-       )
-      ((begin
-        (TODO-RENAME-43 self)
-        (let* ((f30-3 4.0)
-               (v1-287
-                (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
+          (else
+            (let ((a0-65 (-> self skel root-channel 0)))
+              (set! (-> a0-65 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
+              (set! (-> a0-65 param 0)
+                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) data 0 length) -1))
+                    )
+              (set! (-> a0-65 param 1) 1.0)
+              (set! (-> a0-65 frame-num) 0.0)
+              (joint-control-channel-group! a0-65 (the-as art-joint-anim (-> self draw art-group data 5)) num-func-seek!)
+              )
+            (until (ja-done? 0)
+              (suspend)
+              (let ((a0-66 (-> self skel root-channel 0)))
+                (set! (-> a0-66 param 0) (the float (+ (-> a0-66 frame-group data 0 length) -1)))
+                (set! (-> a0-66 param 1) 1.0)
+                (joint-control-channel-group-eval! a0-66 (the-as art-joint-anim #f) num-func-seek!)
+                )
+              )
+            (let ((a0-68 (-> self skel root-channel 0)))
+              (set! (-> a0-68 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
+              (set! (-> a0-68 param 0)
+                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 6)) data 0 length) -1))
+                    )
+              (set! (-> a0-68 param 1) 1.0)
+              (set! (-> a0-68 frame-num) 0.0)
+              (joint-control-channel-group! a0-68 (the-as art-joint-anim (-> self draw art-group data 6)) num-func-seek!)
+              )
+            (until (ja-done? 0)
+              (suspend)
+              (let ((a0-69 (-> self skel root-channel 0)))
+                (set! (-> a0-69 param 0) (the float (+ (-> a0-69 frame-group data 0 length) -1)))
+                (set! (-> a0-69 param 1) 1.0)
+                (joint-control-channel-group-eval! a0-69 (the-as art-joint-anim #f) num-func-seek!)
+                )
+              )
+            (let ((a0-71 (-> self skel root-channel 0)))
+              (set! (-> a0-71 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
+              (set! (-> a0-71 param 0)
+                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 7)) data 0 length) -1))
+                    )
+              (set! (-> a0-71 param 1) 1.0)
+              (set! (-> a0-71 frame-num) 0.0)
+              (joint-control-channel-group! a0-71 (the-as art-joint-anim (-> self draw art-group data 7)) num-func-seek!)
+              )
+            (until (ja-done? 0)
+              (suspend)
+              (let ((a0-72 (-> self skel root-channel 0)))
+                (set! (-> a0-72 param 0) (the float (+ (-> a0-72 frame-group data 0 length) -1)))
+                (set! (-> a0-72 param 1) 1.0)
+                (joint-control-channel-group-eval! a0-72 (the-as art-joint-anim #f) num-func-seek!)
                 )
-               (v1-288 (the-as number (logior #x3f800000 v1-287)))
-               )
-         (countdown
-          (gp-3 (+ (the int (* f30-3 (+ -1.0 (the-as float v1-288)))) 4))
-          (let ((a0-57 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-57 frame-group)
-            (the-as art-joint-anim (-> self draw art-group data 3))
-            )
-           (set!
-            (-> a0-57 param 0)
-            (the
-             float
-             (+
-              (->
-               (the-as art-joint-anim (-> self draw art-group data 3))
-               data
-               0
-               length
-               )
-              -1
               )
-             )
             )
-           (set! (-> a0-57 param 1) 1.0)
-           (set! (-> a0-57 frame-num) 0.0)
-           (joint-control-channel-group!
-            a0-57
-            (the-as art-joint-anim (-> self draw art-group data 3))
-            num-func-seek!
-            )
-           )
-          (until (ja-done? 0)
-           (suspend)
-           (let ((a0-58 (-> self skel root-channel 0)))
-            (set!
-             (-> a0-58 param 0)
-             (the float (+ (-> a0-58 frame-group data 0 length) -1))
-             )
-            (set! (-> a0-58 param 1) 1.0)
-            (joint-control-channel-group-eval!
-             a0-58
-             (the-as art-joint-anim #f)
-             num-func-seek!
-             )
-            )
-           )
           )
-         )
-        (let*
-         ((v1-316 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-          (v1-317 (the-as number (logior #x3f800000 v1-316)))
-          )
-         (< (+ -1.0 (the-as float v1-317)) 0.5)
-         )
         )
-       (let ((a0-62 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-62 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 4))
-         )
-        (set!
-         (-> a0-62 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 4))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-62 param 1) 1.0)
-        (set! (-> a0-62 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-62
-         (the-as art-joint-anim (-> self draw art-group data 4))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-63 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-63 param 0)
-          (the float (+ (-> a0-63 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-63 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-63
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       )
-      (else
-       (let ((a0-65 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-65 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 5))
-         )
-        (set!
-         (-> a0-65 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 5))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-65 param 1) 1.0)
-        (set! (-> a0-65 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-65
-         (the-as art-joint-anim (-> self draw art-group data 5))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-66 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-66 param 0)
-          (the float (+ (-> a0-66 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-66 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-66
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       (let ((a0-68 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-68 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 6))
-         )
-        (set!
-         (-> a0-68 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 6))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-68 param 1) 1.0)
-        (set! (-> a0-68 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-68
-         (the-as art-joint-anim (-> self draw art-group data 6))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-69 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-69 param 0)
-          (the float (+ (-> a0-69 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-69 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-69
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       (let ((a0-71 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-71 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 7))
-         )
-        (set!
-         (-> a0-71 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 7))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-71 param 1) 1.0)
-        (set! (-> a0-71 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-71
-         (the-as art-joint-anim (-> self draw art-group data 7))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-72 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-72 param 0)
-          (the float (+ (-> a0-72 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-72 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-72
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       )
       )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
 (defmethod init-from-entity! sculptor ((obj sculptor) (arg0 entity-actor))
diff --git a/goal_src/levels/beach/seagull.gc b/goal_src/levels/beach/seagull.gc
index 2c96f1da79..23a86a7f29 100644
--- a/goal_src/levels/beach/seagull.gc
+++ b/goal_src/levels/beach/seagull.gc
@@ -11,37 +11,28 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 160)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-seagull-takeoff"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 663 :fade-after (meters 20.0)))
-        :bounds
-        (new 'static 'sphere :y -49152.0 :w 57344.0)
-        )
-      )
+(defpartgroup group-seagull-takeoff
+  :id 160
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 663 :fade-after (meters 20)))
+  )
 
-(set! (-> *part-id-table* 665) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.4))
-                                   (sp-flt spt-accel-y -819.2)
-                                   (sp-int spt-timer 1500)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 665
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-vel-y (meters 0.4))
+    (sp-flt spt-accel-y -819.2)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
 (define
   sound-seagull-squall
diff --git a/goal_src/levels/beach/twister.gc b/goal_src/levels/beach/twister.gc
index 117450fcea..9aca6ef4f4 100644
--- a/goal_src/levels/beach/twister.gc
+++ b/goal_src/levels/beach/twister.gc
@@ -11,7 +11,8 @@
   ((ry      float  :offset-assert   0)
    (max-dry float  :offset-assert   4)
    )
-  :allow-misaligned  :method-count-assert 9
+  :allow-misaligned
+  :method-count-assert 9
   :size-assert         #x8
   :flag-assert         #x900000008
   )
@@ -43,60 +44,48 @@
   )
 
 
-(defmethod
-  new
-  twister
-  ((allocation symbol)
-   (type-to-make type)
-   (arg0 int)
-   (arg1 int)
-   (arg2 float)
-   (arg3 float)
-   (arg4 float)
-   (arg5 float)
-   )
+(defmethod new twister ((allocation symbol)
+                      (type-to-make type)
+                      (arg0 int)
+                      (arg1 int)
+                      (arg2 float)
+                      (arg3 float)
+                      (arg4 float)
+                      (arg5 float)
+                      )
   (let* ((gp-0 (+ (- 1 arg0) arg1))
-         (v0-0
-          (object-new
-           allocation
-           type-to-make
-           (the-as int (+ (-> type-to-make size) (* gp-0 16)))
-           )
-          )
+         (v0-0 (object-new allocation type-to-make (the-as int (+ (-> type-to-make size) (* gp-0 16)))))
          )
-   (set! (-> v0-0 first-joint) arg0)
-   (set! (-> v0-0 last-joint) arg1)
-   (set! (-> v0-0 num-joints) gp-0)
-   (set! (-> v0-0 max-speed) arg2)
-   (set! (-> v0-0 smoothing) arg4)
-   (set! (-> v0-0 min-dist) arg5)
-   (set! (-> v0-0 target) 0.0)
-   (set! (-> v0-0 ry) 0.0)
-   (set! (-> v0-0 max-speed-ry) arg3)
-   (dotimes (v1-4 gp-0)
-    (set! (-> v0-0 data v1-4 ry) 0.0)
-    (set! (-> v0-0 data v1-4 max-dry) 0.0)
+    (set! (-> v0-0 first-joint) arg0)
+    (set! (-> v0-0 last-joint) arg1)
+    (set! (-> v0-0 num-joints) gp-0)
+    (set! (-> v0-0 max-speed) arg2)
+    (set! (-> v0-0 smoothing) arg4)
+    (set! (-> v0-0 min-dist) arg5)
+    (set! (-> v0-0 target) 0.0)
+    (set! (-> v0-0 ry) 0.0)
+    (set! (-> v0-0 max-speed-ry) arg3)
+    (dotimes (v1-4 gp-0)
+      (set! (-> v0-0 data v1-4 ry) 0.0)
+      (set! (-> v0-0 data v1-4 max-dry) 0.0)
+      )
+    v0-0
     )
-   v0-0
-   )
   )
 
 (defmethod asize-of twister ((obj twister))
   (+ (* (-> obj num-joints) 16) 40)
   )
 
-(defmethod
-  TODO-RENAME-9
-  twister
-  ((obj twister) (arg0 int) (arg1 int) (arg2 float))
+(defmethod TODO-RENAME-9 twister ((obj twister) (arg0 int) (arg1 int) (arg2 float))
   (let ((v1-1 (- arg0 (-> obj first-joint)))
         (a1-2 (- arg1 (-> obj first-joint)))
         )
-   (while (>= a1-2 v1-1)
-    (set! (-> obj data v1-1 max-dry) arg2)
-    (+! v1-1 1)
+    (while (>= a1-2 v1-1)
+      (set! (-> obj data v1-1 max-dry) arg2)
+      (+! v1-1 1)
+      )
     )
-   )
   0
   (none)
   )
@@ -111,80 +100,51 @@
   (let* ((s5-0 (+ (-> obj num-joints) -1))
          (s4-0 (-> obj data s5-0))
          )
-   (let ((f0-2 (deg-diff (-> s4-0 ry) (-> obj target))))
-    (+!
-     (-> s4-0 ry)
-     (seek-with-smooth
-      0.0
-      f0-2
-      (-> obj max-speed)
-      (-> obj smoothing)
-      (-> obj min-dist)
+    (let ((f0-2 (deg-diff (-> s4-0 ry) (-> obj target))))
+      (+! (-> s4-0 ry) (seek-with-smooth 0.0 f0-2 (-> obj max-speed) (-> obj smoothing) (-> obj min-dist)))
       )
-     )
-    )
-   (let ((f30-1 (-> s4-0 ry)))
-    (while (> s5-0 0)
-     (+! s5-0 -1)
-     (let ((s4-1 (-> obj data s5-0)))
-      (let ((f0-9 (deg-diff f30-1 (-> s4-1 ry))))
-       (cond
-        ((= (-> s4-1 max-dry) 0.0)
-         (set! f0-9 0.0)
-         )
-        ((< (fabs f0-9) (-> s4-1 max-dry))
-         )
-        ((< f0-9 0.0)
-         (set!
-          f0-9
-          (seek-with-smooth
-           f0-9
-           (- (-> s4-1 max-dry))
-           (-> obj max-speed)
-           (-> obj smoothing)
-           (-> obj min-dist)
-           )
+    (let ((f30-1 (-> s4-0 ry)))
+      (while (> s5-0 0)
+        (+! s5-0 -1)
+        (let ((s4-1 (-> obj data s5-0)))
+          (let ((f0-9 (deg-diff f30-1 (-> s4-1 ry))))
+            (cond
+              ((= (-> s4-1 max-dry) 0.0)
+               (set! f0-9 0.0)
+               )
+              ((< (fabs f0-9) (-> s4-1 max-dry))
+               )
+              ((< f0-9 0.0)
+               (set! f0-9
+                     (seek-with-smooth f0-9 (- (-> s4-1 max-dry)) (-> obj max-speed) (-> obj smoothing) (-> obj min-dist))
+                     )
+               )
+              (else
+                (set! f0-9 (seek-with-smooth f0-9 (-> s4-1 max-dry) (-> obj max-speed) (-> obj smoothing) (-> obj min-dist)))
+                )
+              )
+            (+! f30-1 f0-9)
+            )
+          (set! (-> s4-1 ry) f30-1)
           )
-         )
-        (else
-         (set!
-          f0-9
-          (seek-with-smooth
-           f0-9
-           (-> s4-1 max-dry)
-           (-> obj max-speed)
-           (-> obj smoothing)
-           (-> obj min-dist)
-           )
-          )
-         )
         )
-       (+! f30-1 f0-9)
-       )
-      (set! (-> s4-1 ry) f30-1)
       )
-     )
     )
-   )
   0
   (none)
   )
 
 (defmethod TODO-RENAME-12 twister ((obj twister) (arg0 process-drawable))
   (let ((s4-0 (new 'stack-no-clear 'matrix)))
-   (dotimes (s3-0 (-> obj num-joints))
-    (let
-     ((s2-0
-       (-> arg0 node-list data (+ (-> obj first-joint) s3-0) bone transform)
-       )
+    (dotimes (s3-0 (-> obj num-joints))
+      (let ((s2-0 (-> arg0 node-list data (+ (-> obj first-joint) s3-0) bone transform)))
+        (matrix-rotate-y! s4-0 (-> obj data s3-0 ry))
+        (vector-! (-> s2-0 vector 3) (-> s2-0 vector 3) (-> arg0 root trans))
+        (matrix*! s2-0 s2-0 s4-0)
+        (vector+! (-> s2-0 vector 3) (-> s2-0 vector 3) (-> arg0 root trans))
+        )
       )
-     (matrix-rotate-y! s4-0 (-> obj data s3-0 ry))
-     (vector-! (-> s2-0 vector 3) (-> s2-0 vector 3) (-> arg0 root trans))
-     (matrix*! s2-0 s2-0 s4-0)
-     (vector+! (-> s2-0 vector 3) (-> s2-0 vector 3) (-> arg0 root trans))
-     )
     )
-   )
   0
   (none)
   )
diff --git a/goal_src/levels/citadel/assistant-citadel.gc b/goal_src/levels/citadel/assistant-citadel.gc
index dba88c4ec0..4b86dc08fd 100644
--- a/goal_src/levels/citadel/assistant-citadel.gc
+++ b/goal_src/levels/citadel/assistant-citadel.gc
@@ -25,95 +25,48 @@
   :shadow 2
   )
 
-(defmethod
-  play-anim!
-  assistant-lavatube-end
-  ((obj assistant-lavatube-end) (arg0 symbol))
-  (case (current-status (-> obj tasks)) 
-   (((task-status unknown) (task-status need-hint))
-     (new 'static 'spool-anim
-      :name "assistant-lavatube-end-resolution"
-      :index 4
-      :parts 11
-      :command-list '()
-      )
+(defmethod play-anim! assistant-lavatube-end ((obj assistant-lavatube-end) (arg0 symbol))
+  (case (current-status (-> obj tasks))
+    (((task-status unknown) (task-status need-hint))
+     (new 'static 'spool-anim :name "assistant-lavatube-end-resolution" :index 4 :parts 11 :command-list '())
      )
-   (((task-status need-reward-speech))
-    (if arg0
-     (close-current! (-> obj tasks))
-     )
-    (new 'static 'spool-anim
-     :name "assistant-lavatube-end-resolution"
-     :index 4
-     :parts 11
-     :command-list
-     '(
-       ((the binteger 61)
-         joint
-         "cameraB"
+    (((task-status need-reward-speech))
+     (if arg0
+         (close-current! (-> obj tasks))
+         )
+     (new 'static 'spool-anim
+       :name "assistant-lavatube-end-resolution"
+       :index 4
+       :parts 11
+       :command-list
+       '((61 joint "cameraB")
+         (151 joint "camera")
+         (226 joint "cameraB")
+         (273 joint "camera")
+         (316 joint "cameraB")
+         (451 joint "camera")
+         (651 joint "cameraB")
+         (786 joint "camera")
+         (888 joint "cameraB")
+         (1011 joint "camera")
+         (1011 shadow target #f)
+         (1140 shadow target #t)
+         (1191 joint "cameraB")
          )
-       ((the binteger 151)
-        joint
-        "camera"
-        )
-       ((the binteger 226)
-        joint
-        "cameraB"
-        )
-       ((the binteger 273)
-        joint
-        "camera"
-        )
-       ((the binteger 316)
-        joint
-        "cameraB"
-        )
-       ((the binteger 451)
-        joint
-        "camera"
-        )
-       ((the binteger 651)
-        joint
-        "cameraB"
-        )
-       ((the binteger 786)
-        joint
-        "camera"
-        )
-       ((the binteger 888)
-        joint
-        "cameraB"
-        )
-       ((the binteger 1011)
-        joint
-        "camera"
-        )
-       ((the binteger 1011)
-        shadow
-        target
-        #f
-        )
-       ((the binteger 1140)
-        shadow
-        target
-        #t
-        )
-       ((the binteger 1191) joint "cameraB")
        )
      )
-    )
-   (else
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
+    (else
+      (if arg0
+          (format
+            0
+            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+            (-> obj name)
+            (task-status->string (current-status (-> obj tasks)))
+            )
+          )
+      (get-art-elem obj)
       )
-     )
-    (get-art-elem obj)
     )
-   )
   )
 
 (defmethod get-art-elem assistant-lavatube-end ((obj assistant-lavatube-end))
@@ -124,135 +77,91 @@
   :virtual #t
   :trans
   (behavior ()
-   (dummy-33 self)
-   ((-> (method-of-type process-taskable hidden) trans))
-   (when
-    (and
-     (and
-      *target*
-      (>=
-       61440.0
-       (vector-vector-distance
-        (-> self root-override trans)
-        (-> *target* control trans)
-        )
-       )
+    (dummy-33 self)
+    ((-> (method-of-type process-taskable hidden) trans))
+    (when (and (and *target* (>= 61440.0 (vector-vector-distance (-> self root-override trans) (-> *target* control trans))))
+               (not (closed? (-> self tasks) (game-task village4-button) (task-status need-reward-speech)))
+               )
       )
-     (not
-      (closed?
-       (-> self tasks)
-       (game-task village4-button)
-       (task-status need-reward-speech)
-       )
-      )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
 (defstate idle (assistant-lavatube-end)
   :virtual #t
   :enter
   (behavior ()
-   ((-> (method-of-type process-taskable idle) enter))
-   (case (get-task-status (game-task village4-button)) 
-    (((task-status need-reward-speech))
-      (send-event self 'play-anim)
+    ((-> (method-of-type process-taskable idle) enter))
+    (case (get-task-status (game-task village4-button))
+      (((task-status need-reward-speech))
+       (send-event self 'play-anim)
+       )
       )
+    (none)
     )
-   (none)
-   )
   :code
   (behavior ()
-   (while #t
-    (when (!= (if (> (-> self skel active-channels) 0)
-               (-> self skel root-channel 0 frame-group)
-               )
-           (get-art-elem self)
-           )
-     (ja-channel-push! 1 15)
-     (let ((v1-5 (-> self skel root-channel 0)))
-      (set!
-       (-> v1-5 frame-group)
-       (the-as art-joint-anim (-> self draw art-group data 3))
-       )
+    (while #t
+      (when (!= (if (> (-> self skel active-channels) 0)
+                    (-> self skel root-channel 0 frame-group)
+                    )
+                (get-art-elem self)
+                )
+        (ja-channel-push! 1 15)
+        (let ((v1-5 (-> self skel root-channel 0)))
+          (set! (-> v1-5 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+          )
+        )
+      (let ((a0-10 (-> self skel root-channel 0)))
+        (set! (-> a0-10 frame-group) (if (> (-> self skel active-channels) 0)
+                                         (-> self skel root-channel 0 frame-group)
+                                         )
+              )
+        (set! (-> a0-10 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                       (-> self skel root-channel 0 frame-group)
+                                                       )
+                                                   data
+                                                   0
+                                                   length
+                                                   )
+                                               -1
+                                               )
+                                      )
+              )
+        (set! (-> a0-10 param 1) 1.0)
+        (set! (-> a0-10 frame-num) 0.0)
+        (joint-control-channel-group!
+          a0-10
+          (if (> (-> self skel active-channels) 0)
+              (-> self skel root-channel 0 frame-group)
+              )
+          num-func-seek!
+          )
+        )
+      (until (ja-done? 0)
+        (suspend)
+        (let ((a0-11 (-> self skel root-channel 0)))
+          (set! (-> a0-11 param 0) (the float (+ (-> a0-11 frame-group data 0 length) -1)))
+          (set! (-> a0-11 param 1) 1.0)
+          (joint-control-channel-group-eval! a0-11 (the-as art-joint-anim #f) num-func-seek!)
+          )
+        )
       )
-     )
-    (let ((a0-10 (-> self skel root-channel 0)))
-     (set! (-> a0-10 frame-group) (if (> (-> self skel active-channels) 0)
-                                   (-> self skel root-channel 0 frame-group)
-                                   )
-      )
-     (set!
-      (-> a0-10 param 0)
-      (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                         (-> self skel root-channel 0 frame-group)
-                         )
-                     data
-                     0
-                     length
-                     )
-                  -1
-                  )
-       )
-      )
-     (set! (-> a0-10 param 1) 1.0)
-     (set! (-> a0-10 frame-num) 0.0)
-     (joint-control-channel-group!
-      a0-10
-      (if (> (-> self skel active-channels) 0)
-       (-> self skel root-channel 0 frame-group)
-       )
-      num-func-seek!
-      )
-     )
-    (until (ja-done? 0)
-     (suspend)
-     (let ((a0-11 (-> self skel root-channel 0)))
-      (set!
-       (-> a0-11 param 0)
-       (the float (+ (-> a0-11 frame-group data 0 length) -1))
-       )
-      (set! (-> a0-11 param 1) 1.0)
-      (joint-control-channel-group-eval!
-       a0-11
-       (the-as art-joint-anim #f)
-       num-func-seek!
-       )
-      )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
 (defmethod should-display? assistant-lavatube-end ((obj assistant-lavatube-end))
   (first-any (-> obj tasks) #t)
   (let ((v1-3 (current-status (-> obj tasks))))
-   (and
-    (or
-     (= v1-3 (task-status need-reward-speech))
-     (= v1-3 (task-status invalid))
-     )
-    (not (task-closed? (game-task citadel-sage-green) (task-status need-hint)))
+    (and (or (= v1-3 (task-status need-reward-speech)) (= v1-3 (task-status invalid)))
+         (not (task-closed? (game-task citadel-sage-green) (task-status need-hint)))
+         )
     )
-   )
   )
 
-(defmethod
-  init-from-entity!
-  assistant-lavatube-end
-  ((obj assistant-lavatube-end) (arg0 entity-actor))
-  (dummy-40
-   obj
-   arg0
-   *assistant-lavatube-end-sg*
-   3
-   29
-   (new 'static 'vector :w 4096.0)
-   5
-   )
+(defmethod init-from-entity! assistant-lavatube-end ((obj assistant-lavatube-end) (arg0 entity-actor))
+  (dummy-40 obj arg0 *assistant-lavatube-end-sg* 3 29 (new 'static 'vector :w 4096.0) 5)
   (set! (-> obj tasks) (get-task-control (game-task village4-button)))
   (first-any (-> obj tasks) #t)
   (dummy-42 obj)
diff --git a/goal_src/levels/citadel/citadel-part.gc b/goal_src/levels/citadel/citadel-part.gc
index 0b5a59263a..8159e7e84d 100644
--- a/goal_src/levels/citadel/citadel-part.gc
+++ b/goal_src/levels/citadel/citadel-part.gc
@@ -16,33 +16,20 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 685)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-firehose-blast-smoke"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 2879)
-    (sp-item 2880)
-    )
-   :bounds
-   (new 'static 'sphere :y -32768.0 :w 32768.0)
-   )
+(defpartgroup group-firehose-blast-smoke
+  :id 685
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -8 0 8)
+  :parts
+  ((sp-item 2879) (sp-item 2880))
   )
 
-(set!
-  (-> *part-id-table* 2880)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2880
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 1.0 8.0 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 2.5) 1.0)
-    (sp-flt spt-y (meters -13.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 2.5) 1.0)
+    (sp-flt spt-y (meters -13))
     (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.3) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -66,58 +53,45 @@
     (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 10.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2881)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-userdata 409600.0)
-    (sp-end)
-    )
-   )
+(defpart 2881
+  :init-specs
+  ((sp-flt spt-userdata 409600.0))
   )
 
-(defun
-  check-drop-level-firehose-pops
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-firehose-pops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (set-vector! gp-0 (-> arg2 x) (-> arg2 y) (-> arg2 z) 1.0)
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 2882)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     (the-as float 1.0)
-     )
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 2883)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     (the-as float 1.0)
-     )
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (set-vector! gp-0 (-> arg2 x) (-> arg2 y) (-> arg2 z) 1.0)
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 2882)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        (the-as float 1.0)
+        )
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 2883)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        (the-as float 1.0)
+        )
+      )
     )
-   )
   (none)
   )
 
-(set!
-  (-> *part-id-table* 2883)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2883
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -127,17 +101,12 @@
     (sp-flt spt-fade-a -1.92)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2882)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2882
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 4.0 4.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -155,20 +124,15 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2879)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2879
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 4.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -2.0) (meters -1.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -2) (meters -1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.8) (meters 0.6) 1.0)
     (sp-flt spt-r 255.0)
@@ -179,22 +143,17 @@
     (sp-int spt-timer 30)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2541)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 2541
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-func spt-birth-func 'birth-func-set-quat)
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters -11.0))
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 16.0) (meters 4.0) 1.0)
+    (sp-flt spt-y (meters -11))
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 16) (meters 4) 1.0)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
     (sp-rnd-flt spt-g 0.0 64.0 1.0)
     (sp-flt spt-b 0.0)
@@ -202,25 +161,18 @@
     (sp-flt spt-fade-a -8.533334)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 599)
-  (new 'static 'sparticle-launch-group
-   :length 23
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-generator-mushroom-on"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 23
-    (sp-item 2408 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 2409 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 2410 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 2411 :fade-after (meters 200.0) :falloff-to (meters 200.0) :binding 2407)
+(defpartgroup group-citb-generator-mushroom-on
+  :id 599
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12.5)
+  :parts
+  ((sp-item 2408 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 2409 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 2410 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 2411 :fade-after (meters 200) :falloff-to (meters 200) :binding 2407)
     (sp-item 2407 :flags (bit1 start-dead launch-asap))
     (sp-item 2407 :flags (bit1 start-dead launch-asap))
     (sp-item 2407 :flags (bit1 start-dead launch-asap))
@@ -241,22 +193,15 @@
     (sp-item 2407 :flags (bit1 start-dead launch-asap))
     (sp-item 2407 :flags (bit1 start-dead launch-asap))
     )
-   :bounds (new 'static 'sphere :w 51200.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 600)
-  (new 'static 'sparticle-launch-group
-   :length 28
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-generator-on"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 28
-    (sp-item 2413 :fade-after (meters 300.0) :falloff-to (meters 300.0))
-    (sp-item 2414 :fade-after (meters 200.0) :falloff-to (meters 200.0) :binding 2412)
+(defpartgroup group-citb-generator-on
+  :id 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12.5)
+  :parts
+  ((sp-item 2413 :fade-after (meters 300) :falloff-to (meters 300))
+    (sp-item 2414 :fade-after (meters 200) :falloff-to (meters 200) :binding 2412)
     (sp-item 2412 :flags (bit1 start-dead launch-asap))
     (sp-item 2412 :flags (bit1 start-dead launch-asap))
     (sp-item 2412 :flags (bit1 start-dead launch-asap))
@@ -284,20 +229,15 @@
     (sp-item 2412 :flags (bit1 start-dead launch-asap))
     (sp-item 2412 :flags (bit1 start-dead launch-asap))
     )
-   :bounds (new 'static 'sphere :w 51200.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2411)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2411
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-y (meters 4.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 10.4) (meters 6.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 6.4) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-y (meters 4.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10.4) (meters 6) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 6.4) (meters 6) 1.0)
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-b 128.0)
@@ -305,50 +245,40 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 3.0000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2407)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2407
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-flt spt-z 14336.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-z (meters 3.5))
     (sp-rnd-flt spt-scale-x (meters 4.6) (meters 0.4) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 3.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 3) (meters 1) 1.0)
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 4 218.45334)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 0.8)
     (sp-flt spt-accel-z 0.0)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 2415)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2408)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 2408
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-rnd-flt spt-num 0.2 1.0 1.0)
-    (sp-flt spt-y (meters 5.0))
+    (sp-flt spt-y (meters 5))
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 6.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
@@ -363,19 +293,14 @@
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
     (sp-flt spt-rotate-y (degrees 3.0000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2409)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 2409
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-rnd-flt spt-num 0.2 1.0 1.0)
-    (sp-flt spt-y (meters 5.0))
+    (sp-flt spt-y (meters 5))
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 5.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 20.0) (degrees 140.0) 1.0)
@@ -390,19 +315,14 @@
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
     (sp-flt spt-rotate-y (degrees 3.0000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2410)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 2410
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-rnd-flt spt-num 0.2 1.0 1.0)
-    (sp-flt spt-y (meters 5.0))
+    (sp-flt spt-y (meters 5))
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 4.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 20.0) (degrees 140.0) 1.0)
@@ -417,21 +337,16 @@
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
     (sp-flt spt-rotate-y (degrees 3.0000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2413)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2413
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters 0.75))
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-    (sp-flt spt-scale-y (meters 3.0))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+    (sp-flt spt-scale-y (meters 3))
     (sp-flt spt-r 32.0)
     (sp-flt spt-g 32.0)
     (sp-flt spt-b 128.0)
@@ -440,17 +355,12 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 60)
     (sp-launcher-by-id spt-next-launcher 2415)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2414)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 10
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2414
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.2)
     (sp-rnd-flt spt-y (meters 0.2) (meters 1.4) 1.0)
     (sp-flt spt-scale-x (meters 0.4))
@@ -459,21 +369,16 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2412)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2412
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z 4096.0 81.92 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters 1) (meters 0.02) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
@@ -482,70 +387,46 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 4 218.45334)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 0.8)
     (sp-flt spt-accel-z 0.0)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 2415)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2415)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 360)
-    (sp-launcher-by-id spt-next-launcher 2416)
-    (sp-end)
-    )
-   )
+(defpart 2415
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 2416))
   )
 
-(set!
-  (-> *part-id-table* 2416)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.8)
-    (sp-end)
-    )
-   )
+(defpart 2416
+  :init-specs
+  ((sp-flt spt-fade-a -0.8))
   )
 
-(set!
-  (-> *part-group-id-table* 598)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #x258
-   :linger-duration #x258
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-generator-break"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2423 :period 600 :length 5)
-    (sp-item 2424 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
+(defpartgroup group-citb-generator-break
+  :id 598
+  :duration 600
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 2423 :period 600 :length 5)
+    (sp-item 2424 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
     (sp-item 2425 :period 600 :length 20)
-    (sp-item 2426 :fade-after (meters 120.0) :falloff-to (meters 120.0) :period 600 :length 20)
+    (sp-item 2426 :fade-after (meters 120) :falloff-to (meters 120) :period 600 :length 20)
     )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2424)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2424
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-flt spt-y (meters 1.0))
+    (sp-flt spt-y (meters 1))
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 196.0)
@@ -566,37 +447,23 @@
     (sp-launcher-by-id spt-next-launcher 2427)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2427)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-flt spt-fade-a -1.4222223)
-    (sp-end)
-    )
-   )
+(defpart 2427
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
   )
 
-(set!
-  (-> *part-id-table* 2426)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2426
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 3.0)
-    (sp-flt spt-y (meters 1.0))
+    (sp-flt spt-y (meters 1))
     (sp-flt spt-scale-x (meters 0.2))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-    (sp-flt spt-scale-y (meters 8.0))
+    (sp-flt spt-scale-y (meters 8))
     (sp-flt spt-r 196.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-b 128.0)
@@ -608,20 +475,15 @@
     (sp-flt spt-fade-a -1.6)
     (sp-int spt-timer 60)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2423)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2423
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-flt spt-scale-x (meters 16.0))
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 16))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 196.0)
     (sp-flt spt-g 128.0)
@@ -633,19 +495,14 @@
     (sp-flt spt-fade-a -1.7454545)
     (sp-int spt-timer 54)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2425)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2425
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 4.0)
-    (sp-flt spt-y (meters 1.0))
+    (sp-flt spt-y (meters 1))
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -667,38 +524,26 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 597)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-generator-off"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 2417 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 2418 :fade-after (meters 60.0) :falloff-to (meters 60.0))
+(defpartgroup group-citb-generator-off
+  :id 597
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 2417 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2418 :fade-after (meters 60) :falloff-to (meters 60))
     )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2417)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2417
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.25)
     (sp-rnd-flt spt-x (meters -0.5) (meters 1.1) 1.0)
     (sp-flt spt-y (meters 0.75))
-    (sp-rnd-flt spt-z -2048.0 4505.6 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1.1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -718,24 +563,19 @@
     (sp-flt spt-friction 0.99)
     (sp-int spt-timer 675)
     (sp-cpuinfo-flags bit2)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2418)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-flt spt-num 0.2)
+(defpart 2418
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters 0.2))
     (sp-flt spt-y (meters 1.75))
     (sp-int spt-rot-x 8)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2662.4)
     (sp-flt spt-b 2867.2)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
     (sp-flt spt-friction 0.99)
     (sp-int spt-timer 300)
@@ -743,131 +583,89 @@
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2419)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2419)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -1.3653333)
-    (sp-end)
-    )
-   )
+(defpart 2419
+  :init-specs
+  ((sp-flt spt-fade-b -1.3653333))
   )
 
-(defun
-  birth-func-random-rot
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
+(defun birth-func-random-rot ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
   (local-vars (v1-5 float) (v1-6 float))
   (rlet ((vf0 :class vf)
          (vf1 :class vf)
          (vf2 :class vf)
          )
-   (init-vf0-vector)
-   (let ((s3-0 (new 'stack-no-clear 'matrix))
-         (f30-0
-          (rand-vu-float-range
-           (-> arg1 user-float)
-           (+ 65536.0 (-> arg1 user-float))
-           )
+    (init-vf0-vector)
+    (let ((s3-0 (new 'stack-no-clear 'matrix))
+          (f30-0 (rand-vu-float-range (-> arg1 user-float) (+ 65536.0 (-> arg1 user-float))))
+          (s2-0 (new 'stack-no-clear 'vector))
           )
-         (s2-0 (new 'stack-no-clear 'vector))
-         )
-    (set! (-> s2-0 x) 116940.8)
-    (set! (-> s2-0 y) 0.0)
-    (set! (-> s2-0 z) 0.0)
-    (set! (-> s2-0 w) 1.0)
-    (let ((s5-0 (new 'stack-no-clear 'vector)))
-     (matrix-rotate-y! s3-0 f30-0)
-     (vector-matrix*! s2-0 s2-0 s3-0)
-     (+! (-> arg2 vector 0 x) (-> s2-0 x))
-     (+! (-> arg2 vector 0 y) (-> s2-0 y))
-     (+! (-> arg2 vector 0 z) (-> s2-0 z))
-     (vector3s-rotate*!
-      (the-as vector3s (-> arg1 vel-sxvel))
-      (the-as vector3s (-> arg1 vel-sxvel))
-      s3-0
-      )
-     (vector3s-rotate*!
-      (the-as vector3s (-> arg1 acc))
-      (the-as vector3s (-> arg1 acc))
-      s3-0
-      )
-     (let* ((v1-3 s5-0)
-            (a0-6 arg2)
-            (f0-13 (-> a0-6 vector 1 x))
-            (f1-4 (-> a0-6 vector 1 y))
-            (f2-0 (-> a0-6 vector 1 z))
+      (set! (-> s2-0 x) 116940.8)
+      (set! (-> s2-0 y) 0.0)
+      (set! (-> s2-0 z) 0.0)
+      (set! (-> s2-0 w) 1.0)
+      (let ((s5-0 (new 'stack-no-clear 'vector)))
+        (matrix-rotate-y! s3-0 f30-0)
+        (vector-matrix*! s2-0 s2-0 s3-0)
+        (+! (-> arg2 vector 0 x) (-> s2-0 x))
+        (+! (-> arg2 vector 0 y) (-> s2-0 y))
+        (+! (-> arg2 vector 0 z) (-> s2-0 z))
+        (vector3s-rotate*! (the-as vector3s (-> arg1 vel-sxvel)) (the-as vector3s (-> arg1 vel-sxvel)) s3-0)
+        (vector3s-rotate*! (the-as vector3s (-> arg1 acc)) (the-as vector3s (-> arg1 acc)) s3-0)
+        (let* ((v1-3 s5-0)
+               (a0-6 arg2)
+               (f0-13 (-> a0-6 vector 1 x))
+               (f1-4 (-> a0-6 vector 1 y))
+               (f2-0 (-> a0-6 vector 1 z))
+               )
+          (set! (-> v1-3 x) f0-13)
+          (set! (-> v1-3 y) f1-4)
+          (set! (-> v1-3 z) f2-0)
+          (set! (-> v1-3 w) (sqrtf (- (- (- 1.0 (* f2-0 f2-0)) (* f1-4 f1-4)) (* f0-13 f0-13))))
+          )
+        (quaternion-rotate-y! (the-as quaternion s5-0) (the-as quaternion s5-0) (+ 16384.0 f30-0))
+        (cond
+          ((< (-> s5-0 w) 0.0)
+           (.lvf vf1 (&-> arg2 vector 1 quad))
+           (.lvf vf2 (&-> s5-0 quad))
+           (.sub.vf vf1 vf0 vf2 :mask #b111)
+           (.svf (&-> arg2 vector 1 quad) vf1)
+           (.mov v1-5 vf1)
+           )
+          (else
+            (.lvf vf1 (&-> arg2 vector 1 quad))
+            (.lvf vf2 (&-> s5-0 quad))
+            (.add.vf vf1 vf0 vf2 :mask #b111)
+            (.svf (&-> arg2 vector 1 quad) vf1)
+            (.mov v1-6 vf1)
             )
-      (set! (-> v1-3 x) f0-13)
-      (set! (-> v1-3 y) f1-4)
-      (set! (-> v1-3 z) f2-0)
-      (set!
-       (-> v1-3 w)
-       (sqrtf (- (- (- 1.0 (* f2-0 f2-0)) (* f1-4 f1-4)) (* f0-13 f0-13)))
-       )
+          )
+        )
       )
-     (quaternion-rotate-y!
-      (the-as quaternion s5-0)
-      (the-as quaternion s5-0)
-      (+ 16384.0 f30-0)
-      )
-     (cond
-      ((< (-> s5-0 w) 0.0)
-       (.lvf vf1 (&-> arg2 vector 1 quad))
-       (.lvf vf2 (&-> s5-0 quad))
-       (.sub.vf vf1 vf0 vf2 :mask #b111)
-       (.svf (&-> arg2 vector 1 quad) vf1)
-       (.mov v1-5 vf1)
-       )
-      (else
-       (.lvf vf1 (&-> arg2 vector 1 quad))
-       (.lvf vf2 (&-> s5-0 quad))
-       (.add.vf vf1 vf0 vf2 :mask #b111)
-       (.svf (&-> arg2 vector 1 quad) vf1)
-       (.mov v1-6 vf1)
-       )
-      )
-     )
+    0
+    (none)
     )
-   0
-   (none)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 601)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-robotboss-shield"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2420 :fade-after (meters 220.0) :falloff-to (meters 250.0) :flags (is-3d))
-    )
-   :bounds
-   (new 'static 'sphere :y 94208.0 :w 139264.0)
-   )
+(defpartgroup group-citb-robotboss-shield
+  :id 601
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 23 0 34)
+  :parts
+  ((sp-item 2420 :fade-after (meters 220) :falloff-to (meters 250) :flags (is-3d)))
   )
 
-(set!
-  (-> *part-id-table* 2420)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
+(defpart 2420
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
     (sp-func spt-birth-func 'birth-func-random-rot)
     (sp-flt spt-num 4.0)
-    (sp-flt spt-y (meters 23.0))
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 6.0) 1.0)
+    (sp-flt spt-y (meters 23))
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 6) 1.0)
     (sp-flt spt-rot-x 16384.0)
-    (sp-flt spt-scale-y (meters 31.0))
+    (sp-flt spt-scale-y (meters 31))
     (sp-rnd-flt spt-r 24.0 32.0 1.0)
     (sp-flt spt-g 0.0)
     (sp-rnd-flt spt-b 96.0 128.0 1.0)
@@ -878,59 +676,39 @@
     (sp-flt spt-userdata 0.0)
     (sp-int spt-next-time 75)
     (sp-launcher-by-id spt-next-launcher 2421)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2421)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-rnd-flt spt-g 32.0 32.0 1.0)
+(defpart 2421
+  :init-specs
+  ((sp-rnd-flt spt-g 32.0 32.0 1.0)
     (sp-flt spt-a 96.0)
     (sp-flt spt-fade-a 0.0)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 2422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2422)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-    (sp-flt spt-a 64.0)
-    (sp-flt spt-fade-a -0.85333335)
-    (sp-end)
-    )
-   )
+(defpart 2422
+  :init-specs
+  ((sp-rnd-flt spt-g 0.0 32.0 1.0) (sp-flt spt-a 64.0) (sp-flt spt-fade-a -0.85333335))
   )
 
-(set!
-  (-> *part-group-id-table* 596)
-  (new 'static 'sparticle-launch-group
-   :length 36
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-coil-glow"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 36
-    (sp-item 2429 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-    (sp-item 2430 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-    (sp-item 2431 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-    (sp-item 2432 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-    (sp-item 2433 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-    (sp-item 2434 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-    (sp-item 2435 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 2436 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 2437 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 2438 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 2428)
+(defpartgroup group-citb-coil-glow
+  :id 596
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 2429 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2430 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2431 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2432 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2433 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2434 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2435 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2436 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2437 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2438 :fade-after (meters 100) :falloff-to (meters 100) :binding 2428)
     (sp-item 2428 :flags (bit1 start-dead launch-asap))
     (sp-item 2428 :flags (bit1 start-dead launch-asap))
     (sp-item 2428 :flags (bit1 start-dead launch-asap))
@@ -958,25 +736,19 @@
     (sp-item 2428 :flags (bit1 start-dead launch-asap))
     (sp-item 2428 :flags (bit1 start-dead launch-asap))
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2434)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+(defpart 2434
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.1))
     (sp-flt spt-y (meters 1.0025))
-    (sp-flt spt-z 9420.8)
+    (sp-flt spt-z (meters 2.3))
     (sp-flt spt-scale-x (meters 4.1))
     (sp-flt spt-rot-x 13653.333)
     (sp-flt spt-rot-y (degrees -80.0))
-    (sp-flt spt-scale-y (meters 3.0))
+    (sp-flt spt-scale-y (meters 3))
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-b 128.0)
@@ -984,25 +756,20 @@
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees -72.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2433)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+(defpart 2433
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.1))
     (sp-flt spt-y (meters 3.9))
-    (sp-flt spt-z 9420.8)
+    (sp-flt spt-z (meters 2.3))
     (sp-flt spt-scale-x (meters 4.1))
     (sp-flt spt-rot-x 19114.666)
     (sp-flt spt-rot-y (degrees -80.0))
-    (sp-flt spt-scale-y (meters 3.0))
+    (sp-flt spt-scale-y (meters 3))
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-b 128.0)
@@ -1010,21 +777,16 @@
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees -72.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2432)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+(defpart 2432
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
     (sp-flt spt-y (meters 3.2897))
-    (sp-flt spt-z 10178.56)
+    (sp-flt spt-z (meters 2.485))
     (sp-flt spt-scale-x (meters 3.1))
     (sp-flt spt-rot-x 19114.666)
     (sp-flt spt-rot-y (degrees 67.0))
@@ -1036,21 +798,16 @@
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 72.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2431)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+(defpart 2431
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
     (sp-flt spt-y (meters 0.8025))
-    (sp-flt spt-z 9830.4)
+    (sp-flt spt-z (meters 2.4))
     (sp-flt spt-scale-x (meters 3.1))
     (sp-flt spt-rot-x 13653.333)
     (sp-flt spt-rot-y (degrees 67.0))
@@ -1062,90 +819,70 @@
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 72.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2430)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+(defpart 2430
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.2))
     (sp-flt spt-y (meters 0.8025))
-    (sp-flt spt-z 11468.8)
+    (sp-flt spt-z (meters 2.8))
     (sp-flt spt-scale-x (meters 3.1))
     (sp-flt spt-rot-x 13653.333)
     (sp-flt spt-rot-y (degrees 10.0))
-    (sp-flt spt-scale-y (meters 3.0))
+    (sp-flt spt-scale-y (meters 3))
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-b 128.0)
     (sp-rnd-flt spt-a 0.0 64.0 1.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2429)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+(defpart 2429
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.2))
     (sp-flt spt-y (meters 3.7))
-    (sp-flt spt-z 11468.8)
+    (sp-flt spt-z (meters 2.8))
     (sp-flt spt-scale-x (meters 3.1))
     (sp-flt spt-rot-x 19114.666)
     (sp-flt spt-rot-y (degrees 10.0))
-    (sp-flt spt-scale-y (meters 3.0))
+    (sp-flt spt-scale-y (meters 3))
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-b 128.0)
     (sp-rnd-flt spt-a 0.0 64.0 1.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2438)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 10
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2438
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-y (meters 0.5) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 4) 1.0)
     (sp-flt spt-scale-x (meters 0.4))
     (sp-flt spt-scale-y (meters 0.4))
     (sp-flt spt-b 0.0)
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2428)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2428
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z 9011.2 819.2 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters 2.2) (meters 0.2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
@@ -1154,52 +891,33 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 4 218.45334)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 0.8)
     (sp-flt spt-accel-z 0.0)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 2439)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2439)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 360)
-    (sp-launcher-by-id spt-next-launcher 2440)
-    (sp-end)
-    )
-   )
+(defpart 2439
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 2440))
   )
 
-(set!
-  (-> *part-id-table* 2440)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.8)
-    (sp-end)
-    )
-   )
+(defpart 2440
+  :init-specs
+  ((sp-flt spt-fade-a -0.8))
   )
 
-(set!
-  (-> *part-id-table* 2437)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2437
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.2 0.5 1.0)
-    (sp-rnd-flt spt-y (meters 0.5) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 2.5) 1.0)
     (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
     (sp-rnd-flt spt-scale-y (meters 8.4) (meters 0.2) 1.0)
     (sp-flt spt-r 64.0)
@@ -1211,20 +929,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2435)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 2435
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-rnd-flt spt-num 0.2 1.0 1.0)
-    (sp-rnd-flt spt-y (meters 0.5) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 0.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
     (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
@@ -1237,20 +950,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2436)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+(defpart 2436
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
     (sp-rnd-flt spt-num 0.2 1.0 1.0)
-    (sp-rnd-flt spt-y (meters 0.5) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 0.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
     (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
@@ -1263,35 +971,22 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 602)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-coil-off"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 2441 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 2442 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+(defpartgroup group-citb-coil-off
+  :id 602
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 6 0 8)
+  :parts
+  ((sp-item 2441 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 2442 :fade-after (meters 120) :falloff-to (meters 120))
     )
-   :bounds
-   (new 'static 'sphere :y 24576.0 :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2442)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 29
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2442
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.06125)
     (sp-rnd-flt spt-x (meters 1.5) (meters 0.5) 1.0)
     (sp-flt spt-y (meters 4.5))
@@ -1319,35 +1014,25 @@
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2443)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-fade-r 0.0)
+(defpart 2443
+  :init-specs
+  ((sp-flt spt-fade-r 0.0)
     (sp-flt spt-fade-g 0.0)
     (sp-flt spt-fade-b 0.0)
     (sp-flt spt-fade-a -0.035555556)
     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2441)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2441
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.5)
     (sp-rnd-flt spt-x (meters 1.5) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 3) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1368,22 +1053,15 @@
     (sp-int spt-timer 675)
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 603)
-  (new 'static 'sparticle-launch-group
-   :length 25
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-blue-sage-beam"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 25
-    (sp-item 2447 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 2444)
+(defpartgroup group-citb-blue-sage-beam
+  :id 603
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 34)
+  :parts
+  ((sp-item 2447 :fade-after (meters 140) :falloff-to (meters 140) :binding 2444)
     (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
     (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
     (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
@@ -1409,34 +1087,21 @@
     (sp-item 2449)
     (sp-item 2450)
     )
-   :bounds (new 'static 'sphere :w 139264.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 607)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-blue-sage-beam-impact"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2451 :flags (is-3d))
-    )
-   :bounds (new 'static 'sphere :w 40960.0)
-   )
+(defpartgroup group-citb-blue-sage-beam-impact
+  :id 607
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2451 :flags (is-3d)))
   )
 
-(set!
-  (-> *part-id-table* 2451)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2451
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
     (sp-flt spt-rot-x 16384.0)
     (sp-rnd-flt spt-rot-y (degrees 25.000002) (degrees 20.0) 1.0)
     (sp-flt spt-rot-z (degrees 180.0))
@@ -1448,19 +1113,14 @@
     (sp-flt spt-fade-a -5.12)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2447)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2447
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.025)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-flt spt-g 0.0)
@@ -1473,22 +1133,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2444)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2444
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 4096.0 2048.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1497,22 +1152,17 @@
     (sp-flt spt-a 128.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-accel-z 0.0)
     (sp-int spt-timer 1800)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2445)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 2445
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-rnd-flt spt-num 0.2 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
     (sp-int spt-rot-x 4)
@@ -1527,17 +1177,12 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2446)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 2446
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-rnd-flt spt-num 0.2 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
     (sp-int spt-rot-x 4)
@@ -1552,19 +1197,14 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2448)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2448
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.8)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
     (sp-rnd-flt spt-r 16.0 48.0 1.0)
     (sp-rnd-flt spt-g 16.0 48.0 1.0)
@@ -1577,20 +1217,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2450)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2450
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.8)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-flt spt-g 0.0)
@@ -1603,20 +1238,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2449)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2449
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 0.0 128.0 1.0)
@@ -1626,22 +1256,15 @@
     (sp-flt spt-fade-a -5.12)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 604)
-  (new 'static 'sparticle-launch-group
-   :length 25
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-red-sage-beam"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 25
-    (sp-item 2454 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 2452)
+(defpartgroup group-citb-red-sage-beam
+  :id 604
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 23 0 34)
+  :parts
+  ((sp-item 2454 :fade-after (meters 140) :falloff-to (meters 140) :binding 2452)
     (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
     (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
     (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
@@ -1667,35 +1290,21 @@
     (sp-item 2456)
     (sp-item 2457)
     )
-   :bounds
-   (new 'static 'sphere :y 94208.0 :w 139264.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 608)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-red-sage-beam-impact"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2458 :flags (is-3d))
-    )
-   :bounds (new 'static 'sphere :w 40960.0)
-   )
+(defpartgroup group-citb-red-sage-beam-impact
+  :id 608
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2458 :flags (is-3d)))
   )
 
-(set!
-  (-> *part-id-table* 2458)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2458
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
     (sp-flt spt-rot-x 16384.0)
     (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rot-z (degrees 68.0))
@@ -1707,19 +1316,14 @@
     (sp-flt spt-fade-a -5.12)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2454)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2454
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.05)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
     (sp-rnd-flt spt-g 0.0 64.0 1.0)
@@ -1732,21 +1336,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2452)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2452
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 5120.0 2048.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 1.25) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -1755,24 +1354,19 @@
     (sp-flt spt-a 127.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-accel-z 0.0)
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2453)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2453
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 100.0 28.0 1.0)
@@ -1790,19 +1384,14 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 171)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2455)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2455
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.5) (meters 0.75) 1.0)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
     (sp-rnd-flt spt-g 16.0 32.0 1.0)
@@ -1815,20 +1404,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2457)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2457
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
     (sp-rnd-flt spt-g 0.0 64.0 1.0)
@@ -1841,19 +1425,14 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2456)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2456
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -1863,22 +1442,15 @@
     (sp-flt spt-fade-a -5.12)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 605)
-  (new 'static 'sparticle-launch-group
-   :length 29
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-yellow-sage-beam"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 29
-    (sp-item 2461 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 2459)
+(defpartgroup group-citb-yellow-sage-beam
+  :id 605
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 34)
+  :parts
+  ((sp-item 2461 :fade-after (meters 140) :falloff-to (meters 140) :binding 2459)
     (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
     (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
     (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
@@ -1908,34 +1480,21 @@
     (sp-item 2463)
     (sp-item 2464)
     )
-   :bounds (new 'static 'sphere :w 139264.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 609)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-yellow-sage-beam-impact"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2465 :flags (is-3d))
-    )
-   :bounds (new 'static 'sphere :w 40960.0)
-   )
+(defpartgroup group-citb-yellow-sage-beam-impact
+  :id 609
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2465 :flags (is-3d)))
   )
 
-(set!
-  (-> *part-id-table* 2465)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2465
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
     (sp-flt spt-rot-x 16384.0)
     (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rot-z (degrees 115.0))
@@ -1947,19 +1506,14 @@
     (sp-flt spt-fade-a -5.12)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2461)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2461
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.025)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 100.0 28.0 1.0)
     (sp-rnd-flt spt-g 64.0 64.0 1.0)
@@ -1972,22 +1526,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 85.0))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2459)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2459
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 5120.0 2048.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 1.25) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 100.0 28.0 1.0)
@@ -1996,24 +1545,19 @@
     (sp-flt spt-a 96.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-accel-z 0.0)
     (sp-int spt-timer 1800)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2460)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2460
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 100.0 28.0 1.0)
     (sp-rnd-flt spt-g 64.0 64.0 1.0)
@@ -2026,19 +1570,14 @@
     (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
     (sp-int-plain-rnd spt-timer 30 299 1)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2462)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2462
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.8)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
     (sp-rnd-flt spt-r 100.0 28.0 1.0)
     (sp-rnd-flt spt-g 64.0 64.0 1.0)
@@ -2051,20 +1590,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 85.0))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2464)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2464
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 100.0 28.0 1.0)
     (sp-rnd-flt spt-g 64.0 64.0 1.0)
@@ -2077,20 +1611,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 85.0))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2463)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2463
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 100.0 28.0 1.0)
@@ -2100,22 +1629,15 @@
     (sp-flt spt-fade-a -5.12)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 606)
-  (new 'static 'sparticle-launch-group
-   :length 29
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-green-sage-beam"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 29
-    (sp-item 2468 :binding 2466)
+(defpartgroup group-citb-green-sage-beam
+  :id 606
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 34)
+  :parts
+  ((sp-item 2468 :binding 2466)
     (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
     (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
     (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
@@ -2145,34 +1667,21 @@
     (sp-item 2470)
     (sp-item 2471)
     )
-   :bounds (new 'static 'sphere :w 139264.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 610)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-citb-green-sage-beam-impact"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2472 :flags (is-3d))
-    )
-   :bounds (new 'static 'sphere :w 40960.0)
-   )
+(defpartgroup group-citb-green-sage-beam-impact
+  :id 610
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2472 :flags (is-3d)))
   )
 
-(set!
-  (-> *part-id-table* 2472)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2472
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
     (sp-flt spt-rot-x 16384.0)
     (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rot-z (degrees 180.0))
@@ -2184,19 +1693,14 @@
     (sp-flt spt-fade-a -5.12)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2468)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2468
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.025)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-rnd-flt spt-g 128.0 128.0 1.0)
@@ -2209,22 +1713,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2466)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2466
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 5120.0 2048.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 1.25) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2233,24 +1732,19 @@
     (sp-flt spt-a 96.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-accel-z 0.0)
     (sp-int spt-timer 1800)
     (sp-cpuinfo-flags bit2 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2467)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2467
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-rnd-flt spt-g 128.0 128.0 1.0)
@@ -2262,19 +1756,14 @@
     (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
     (sp-int-plain-rnd spt-timer 30 299 1)
     (sp-cpuinfo-flags bit2 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2469)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2469
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
     (sp-rnd-flt spt-g 128.0 128.0 1.0)
@@ -2287,20 +1776,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2471)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2471
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-rnd-flt spt-g 128.0 128.0 1.0)
@@ -2313,20 +1797,15 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees -90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2470)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2470
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2336,17 +1815,12 @@
     (sp-flt spt-fade-a -5.12)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2473)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
+(defpart 2473
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
     (sp-func spt-birth-func 'birth-func-set-quat)
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.25) 1.0)
@@ -2357,22 +1831,15 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 662)
-  (new 'static 'sparticle-launch-group
-   :length #xac
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-citadel-warpgate"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 172
-    (sp-item 2689 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 2690 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 2687)
+(defpartgroup group-citadel-warpgate
+  :id 662
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2689 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 2690 :fade-after (meters 60) :falloff-to (meters 100) :binding 2687)
     (sp-item 2687 :flags (bit1 start-dead launch-asap))
     (sp-item 2687 :flags (bit1 start-dead launch-asap))
     (sp-item 2687 :flags (bit1 start-dead launch-asap))
@@ -2509,7 +1976,7 @@
     (sp-item 2687 :flags (bit1 start-dead launch-asap))
     (sp-item 2687 :flags (bit1 start-dead launch-asap))
     (sp-item 2687 :flags (bit1 start-dead launch-asap))
-    (sp-item 2691 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 2688)
+    (sp-item 2691 :fade-after (meters 60) :falloff-to (meters 100) :binding 2688)
     (sp-item 2688 :flags (bit1 start-dead launch-asap))
     (sp-item 2688 :flags (bit1 start-dead launch-asap))
     (sp-item 2688 :flags (bit1 start-dead launch-asap))
@@ -2542,21 +2009,16 @@
     (sp-item 2688 :flags (bit1 start-dead launch-asap))
     (sp-item 2688 :flags (bit1 start-dead launch-asap))
     (sp-item 2688 :flags (bit1 start-dead launch-asap))
-    (sp-item 2692 :fade-after (meters 100.0) :flags (is-3d))
+    (sp-item 2692 :fade-after (meters 100) :flags (is-3d))
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2692)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 2692
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-flt spt-x (meters 0.0))
-    (sp-flt spt-scale-x (meters 5.0))
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-scale-x (meters 5))
     (sp-flt spt-rot-x 16384.0)
     (sp-flt spt-rot-z (degrees 82.0))
     (sp-copy-from-other spt-scale-y -4)
@@ -2566,19 +2028,14 @@
     (sp-rnd-flt spt-a 0.0 64.0 1.0)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2691)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2691
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.25)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-g 128.0)
@@ -2587,21 +2044,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-flt spt-rotate-y (degrees -35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2688)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 2688
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters 4.3555555))
-    (sp-flt spt-y (meters 4.0))
-    (sp-rnd-flt spt-z 22118.4 4096.0 1.0)
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-z (meters 5.4) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 0.0 32.0 1.0)
@@ -2609,24 +2061,19 @@
     (sp-rnd-flt spt-b 64.0 196.0 1.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-    (sp-flt spt-vel-x (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-x (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 0.16)
     (sp-flt spt-accel-x 1.2136296)
     (sp-flt spt-accel-z -0.75093335)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2689)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-rnd-flt spt-num 3.0 3.0 1.0)
+(defpart 2689
+  :init-specs
+  ((sp-rnd-flt spt-num 3.0 3.0 1.0)
     (sp-flt spt-x (meters -0.5))
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
@@ -2637,19 +2084,14 @@
     (sp-int spt-timer 69)
     (sp-cpuinfo-flags aux-list)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 4) (meters 3) 1.0)
     (sp-flt spt-rotate-y (degrees 6.0000005))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2690)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 11
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2690
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
@@ -2659,21 +2101,16 @@
     (sp-int spt-timer 690)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2687)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2687
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters 4.3555555))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 9011.2)
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 2.2))
     (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2689,76 +2126,52 @@
     (sp-flt spt-accel-x 4.247704)
     (sp-int spt-timer 690)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 683)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-citadel-torch"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 2832 :fade-after (meters 180.0) :falloff-to (meters 200.0))
-    (sp-item 2833 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 2834 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
-    (sp-item 2835 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
-    (sp-item 2836 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 710 :length 51)
-    (sp-item 2837 :fade-after (meters 50.0) :falloff-to (meters 50.0))
+(defpartgroup group-part-citadel-torch
+  :id 683
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 2832 :fade-after (meters 180) :falloff-to (meters 200))
+    (sp-item 2833 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 2834 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 90)
+    (sp-item 2835 :fade-after (meters 50) :falloff-to (meters 50) :period 369 :length 69)
+    (sp-item 2836 :fade-after (meters 40) :falloff-to (meters 40) :period 710 :length 51)
+    (sp-item 2837 :fade-after (meters 50) :falloff-to (meters 50))
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2837)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.3)
+(defpart 2837
+  :init-specs
+  ((sp-flt spt-num 0.3)
     (sp-flt spt-x (meters 0.2))
-    (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 2867.2)
     (sp-flt spt-b 3276.8)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-flt spt-vel-y (meters 0.026666667))
     (sp-int spt-timer 180)
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 2838)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2838)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -6.826667)
-    (sp-end)
-    )
-   )
+(defpart 2838
+  :init-specs
+  ((sp-flt spt-fade-b -6.826667))
   )
 
-(set!
-  (-> *part-id-table* 2832)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2832
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1069547520 1 1.0)
     (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-    (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
+    (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2773,32 +2186,21 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 2839)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2839)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -1.3333334)
-    (sp-end)
-    )
-   )
+(defpart 2839
+  :init-specs
+  ((sp-flt spt-fade-a -1.3333334))
   )
 
-(set!
-  (-> *part-id-table* 2834)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2834
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2813,21 +2215,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 2839)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2835)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2835
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z 0.0 1638.4 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2842,21 +2239,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 2839)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2836)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2836
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
     (sp-flt spt-y (meters 0.6))
-    (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
+    (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2871,22 +2263,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 2839)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2833)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2833
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.3))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2908,9 +2295,7 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/citadel/citb-bunny.gc b/goal_src/levels/citadel/citb-bunny.gc
index 947207ac16..28bcbac9ff 100644
--- a/goal_src/levels/citadel/citb-bunny.gc
+++ b/goal_src/levels/citadel/citb-bunny.gc
@@ -29,59 +29,57 @@
   :longest-edge (meters 0)
   )
 
-(define
-  *citb-bunny-nav-enemy-info*
-  (new 'static 'nav-enemy-info
-   :idle-anim 3
-   :walk-anim 3
-   :turn-anim 3
-   :notice-anim 7
-   :run-anim 3
-   :jump-anim 5
-   :jump-land-anim 8
-   :victory-anim 7
-   :taunt-anim 7
-   :die-anim 9
-   :neck-joint 5
-   :player-look-at-joint 5
-   :run-travel-speed (meters 6.0)
-   :run-rotate-speed (degrees 2880.0)
-   :run-acceleration (meters 1.0)
-   :run-turn-time (seconds 0.1)
-   :walk-travel-speed (meters 4.0)
-   :walk-rotate-speed (degrees 720.0)
-   :walk-acceleration (meters 1.0)
-   :walk-turn-time (seconds 0.5)
-   :shadow-size (meters 2.0)
-   :notice-nav-radius (meters 1.2)
-   :nav-nearest-y-threshold (meters 10.0)
-   :notice-distance (meters 130.0)
-   :stop-chase-distance (meters 150.0)
-   :frustration-distance (meters 8.0)
-   :frustration-time #x4b0
-   :die-anim-hold-frame 31.0
-   :jump-anim-start-frame 11.0
-   :jump-land-anim-end-frame 10000000000.0
-   :jump-height-min (meters 1.0)
-   :jump-height-factor 0.6
-   :jump-start-anim-speed 1.0
-   :shadow-max-y (meters 0.25)
-   :shadow-min-y (meters -3.5)
-   :shadow-locus-dist (meters 150.0)
-   :use-align #f
-   :draw-shadow #t
-   :move-to-ground #t
-   :hover-if-no-ground #f
-   :use-momentum #f
-   :use-flee #f
-   :use-proximity-notice #f
-   :use-jump-blocked #f
-   :use-jump-patrol #f
-   :gnd-collide-with #x1
-   :debug-draw-neck #f
-   :debug-draw-jump #f
-   )
-  )
+(define *citb-bunny-nav-enemy-info* (new 'static 'nav-enemy-info
+                                      :idle-anim 3
+                                      :walk-anim 3
+                                      :turn-anim 3
+                                      :notice-anim 7
+                                      :run-anim 3
+                                      :jump-anim 5
+                                      :jump-land-anim 8
+                                      :victory-anim 7
+                                      :taunt-anim 7
+                                      :die-anim 9
+                                      :neck-joint 5
+                                      :player-look-at-joint 5
+                                      :run-travel-speed (meters 6.0)
+                                      :run-rotate-speed (degrees 2880.0)
+                                      :run-acceleration (meters 1.0)
+                                      :run-turn-time (seconds 0.1)
+                                      :walk-travel-speed (meters 4.0)
+                                      :walk-rotate-speed (degrees 720.0)
+                                      :walk-acceleration (meters 1.0)
+                                      :walk-turn-time (seconds 0.5)
+                                      :shadow-size (meters 2.0)
+                                      :notice-nav-radius (meters 1.2)
+                                      :nav-nearest-y-threshold (meters 10.0)
+                                      :notice-distance (meters 130.0)
+                                      :stop-chase-distance (meters 150.0)
+                                      :frustration-distance (meters 8.0)
+                                      :frustration-time #x4b0
+                                      :die-anim-hold-frame 31.0
+                                      :jump-anim-start-frame 11.0
+                                      :jump-land-anim-end-frame 10000000000.0
+                                      :jump-height-min (meters 1.0)
+                                      :jump-height-factor 0.6
+                                      :jump-start-anim-speed 1.0
+                                      :shadow-max-y (meters 0.25)
+                                      :shadow-min-y (meters -3.5)
+                                      :shadow-locus-dist (meters 150.0)
+                                      :use-align #f
+                                      :draw-shadow #t
+                                      :move-to-ground #t
+                                      :hover-if-no-ground #f
+                                      :use-momentum #f
+                                      :use-flee #f
+                                      :use-proximity-notice #f
+                                      :use-jump-blocked #f
+                                      :use-jump-patrol #f
+                                      :gnd-collide-with #x1
+                                      :debug-draw-neck #f
+                                      :debug-draw-jump #f
+                                      )
+        )
 
 (defmethod dummy-60 citb-bunny ((obj citb-bunny) (arg0 object))
   (initialize-skeleton obj *citb-bunny-sg* '())
@@ -92,24 +90,18 @@
 (defmethod TODO-RENAME-48 citb-bunny ((obj citb-bunny) (arg0 object))
   (dummy-60 obj arg0)
   (TODO-RENAME-45 obj *citb-bunny-nav-enemy-info*)
-  (set!
-   (-> obj draw shadow-ctrl settings flags)
-   (logand -9 (-> obj draw shadow-ctrl settings flags))
-   )
+  (set! (-> obj draw shadow-ctrl settings flags) (logand -9 (-> obj draw shadow-ctrl settings flags)))
   (cond
-   ((zero? (res-lump-value (-> obj entity) 'mode uint128))
-    (set! (-> obj defense) (the-as uint 1))
-    (set! (-> obj retreat-timeout) 5.0)
+    ((zero? (res-lump-value (-> obj entity) 'mode uint128))
+     (set! (-> obj defense) (the-as uint 1))
+     (set! (-> obj retreat-timeout) 5.0)
+     )
+    (else
+      (set! (-> obj defense) (the-as uint 0))
+      (set! (-> obj retreat-timeout) 0.1)
+      )
     )
-   (else
-    (set! (-> obj defense) (the-as uint 0))
-    (set! (-> obj retreat-timeout) 0.1)
-    )
-   )
-  (set!
-   (-> obj last-nondangerous-time)
-   (the-as uint (-> *display* base-frame-counter))
-   )
+  (set! (-> obj last-nondangerous-time) (the-as uint (-> *display* base-frame-counter)))
   (set! (-> obj gnd-popup) 16384.0)
   (set! (-> obj got-jump-event?) #f)
   (set! (-> obj notice-land-anim) 8)
@@ -126,33 +118,33 @@
 
 (defmethod set-jump-height-factor! citb-bunny ((obj citb-bunny) (arg0 int))
   (let ((v1-0 arg0))
-   (cond
-    ((zero? v1-0)
-     (set! (-> obj jump-anim) 6)
-     (set! (-> obj jump-height-min) 4096.0)
-     (let ((f0-1 0.6))
-      (set! (-> obj jump-height-factor) f0-1)
-      f0-1
+    (cond
+      ((zero? v1-0)
+       (set! (-> obj jump-anim) 6)
+       (set! (-> obj jump-height-min) 4096.0)
+       (let ((f0-1 0.6))
+         (set! (-> obj jump-height-factor) f0-1)
+         f0-1
+         )
+       )
+      ((= v1-0 1)
+       (set! (-> obj jump-anim) 5)
+       (set! (-> obj jump-height-min) 4096.0)
+       (let ((f0-3 0.6))
+         (set! (-> obj jump-height-factor) f0-3)
+         f0-3
+         )
+       )
+      ((= v1-0 2)
+       (set! (-> obj jump-anim) 5)
+       (set! (-> obj jump-height-min) 4096.0)
+       (let ((f0-5 0.4))
+         (set! (-> obj jump-height-factor) f0-5)
+         f0-5
+         )
+       )
       )
-     )
-    ((= v1-0 1)
-     (set! (-> obj jump-anim) 5)
-     (set! (-> obj jump-height-min) 4096.0)
-     (let ((f0-3 0.6))
-      (set! (-> obj jump-height-factor) f0-3)
-      f0-3
-      )
-     )
-    ((= v1-0 2)
-     (set! (-> obj jump-anim) 5)
-     (set! (-> obj jump-height-min) 4096.0)
-     (let ((f0-5 0.4))
-      (set! (-> obj jump-height-factor) f0-5)
-      f0-5
-      )
-     )
     )
-   )
   )
 
 
diff --git a/goal_src/levels/common/battlecontroller.gc b/goal_src/levels/common/battlecontroller.gc
index f83952c329..38e494a73c 100644
--- a/goal_src/levels/common/battlecontroller.gc
+++ b/goal_src/levels/common/battlecontroller.gc
@@ -29,7 +29,8 @@
    (max-pickup-count int8   :offset-assert  16)
    (pickup-count     int8   :offset-assert  17)
    )
-  :allow-misaligned  :method-count-assert 9
+  :allow-misaligned
+  :method-count-assert 9
   :size-assert         #x12
   :flag-assert         #x900000012
   )
@@ -77,65 +78,63 @@
 
 (defbehavior battlecontroller-spawners-full? battlecontroller ()
   (dotimes (v1-0 (-> self spawner-count))
-   (if (= (-> self spawner-array v1-0 creature) #f)
-    (return #f)
+    (if (= (-> self spawner-array v1-0 creature) #f)
+        (return #f)
+        )
     )
-   )
   #t
   )
 
-(defbehavior
-  battlecontroller-default-event-handler battlecontroller
-  ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
-  (case arg2 
-   (('child-die)
+(defbehavior battlecontroller-default-event-handler battlecontroller ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
+  (case arg2
+    (('child-die)
      (+! (-> self die-count) 1)
      (when (= (-> self die-count) (-> self max-spawn-count))
-      (let ((v1-4 (the-as process-drawable arg0)))
-       (when v1-4
-        (set! (-> self final-pickup-spawn-point quad) (-> v1-4 root trans quad))
-        (case (-> self final-pickup-type) 
-         (((pickup-type fuel-cell))
-           #f
+       (let ((v1-4 (the-as process-drawable arg0)))
+         (when v1-4
+           (set! (-> self final-pickup-spawn-point quad) (-> v1-4 root trans quad))
+           (case (-> self final-pickup-type)
+             (((pickup-type fuel-cell))
+              #f
+              )
+             (else
+               (set! (-> v1-4 fact pickup-type) (-> self final-pickup-type))
+               (set! (-> v1-4 fact pickup-amount) 1.0)
+               (let ((f0-1 0.0))
+                 (set! (-> v1-4 fact pickup-spawn-amount) f0-1)
+                 f0-1
+                 )
+               )
+             )
            )
-         (else
-          (set! (-> v1-4 fact pickup-type) (-> self final-pickup-type))
-          (set! (-> v1-4 fact pickup-amount) 1.0)
-          (let ((f0-1 0.0))
-           (set! (-> v1-4 fact pickup-spawn-amount) f0-1)
-           f0-1
-           )
-          )
          )
-        )
        )
-      )
      )
-   (('trigger)
-    (go-virtual battlecontroller-die)
+    (('trigger)
+     (go-virtual battlecontroller-die)
+     )
     )
-   )
   )
 
 battlecontroller-default-event-handler
 
 (defbehavior battlecontroller-draw-debug battlecontroller ()
   (dotimes (gp-0 (-> self spawner-count))
-   (dummy-9 (-> self spawner-array gp-0 path))
-   )
+    (dummy-9 (-> self spawner-array gp-0 path))
+    )
   0
   (none)
   )
 
 (defbehavior battlecontroller-camera-on battlecontroller ()
   (when (not (-> self camera-on))
-   (set! (-> self camera-on) #t)
-   (let ((v1-4 (res-lump-struct (-> self entity) 'camera-name structure)))
-    (if v1-4
-     (send-event *camera* 'change-to-entity-by-name v1-4)
-     )
+    (set! (-> self camera-on) #t)
+    (let ((v1-4 (res-lump-struct (-> self entity) 'camera-name structure)))
+      (if v1-4
+          (send-event *camera* 'change-to-entity-by-name v1-4)
+          )
+      )
     )
-   )
   (the-as object 0)
   )
 
@@ -148,174 +147,114 @@ battlecontroller-default-event-handler
 
 (defbehavior battlecontroller-update-spawners battlecontroller ()
   (dotimes (gp-0 (-> self spawner-count))
-   (let* ((s5-0 (-> self spawner-array gp-0))
-          (s4-0 (handle->process (-> s5-0 creature)))
+    (let* ((s5-0 (-> self spawner-array gp-0))
+           (s4-0 (handle->process (-> s5-0 creature)))
+           )
+      (when (and s4-0 (logtest? (-> (the-as nav-enemy s4-0) nav-enemy-flags) 2048))
+        (cond
+          ((< (-> s5-0 state) (-> s5-0 path curve num-cverts))
+           (when (or (-> self noticed-player) (= (-> s5-0 state) 1))
+             (let ((s3-0 (new 'stack-no-clear 'vector)))
+               (eval-path-curve-div! (-> s5-0 path) s3-0 (the float (-> s5-0 state)) 'interp)
+               (send-event s4-0 'cue-jump-to-point s3-0)
+               )
+             (if (zero? (logand (-> (the-as nav-enemy s4-0) nav-enemy-flags) 2048))
+                 (+! (-> s5-0 state) 1)
+                 )
+             )
+           )
+          (else
+            (send-event s4-0 'cue-chase)
+            (set! (-> s5-0 creature) (the-as handle #f))
+            )
           )
-    (when
-     (and s4-0 (logtest? (-> (the-as nav-enemy s4-0) nav-enemy-flags) 2048))
-     (cond
-      ((< (-> s5-0 state) (-> s5-0 path curve num-cverts))
-       (when (or (-> self noticed-player) (= (-> s5-0 state) 1))
-        (let ((s3-0 (new 'stack-no-clear 'vector)))
-         (eval-path-curve-div!
-          (-> s5-0 path)
-          s3-0
-          (the float (-> s5-0 state))
-          'interp
-          )
-         (send-event s4-0 'cue-jump-to-point s3-0)
-         )
-        (if (zero? (logand (-> (the-as nav-enemy s4-0) nav-enemy-flags) 2048))
-         (+! (-> s5-0 state) 1)
-         )
         )
-       )
-      (else
-       (send-event s4-0 'cue-chase)
-       (set! (-> s5-0 creature) (the-as handle #f))
-       )
       )
-     )
     )
-   )
   0
   (none)
   )
 
-(defbehavior
-  battlecontroller-spawn-creature battlecontroller
-  ((arg0 vector) (arg1 vector))
+(defbehavior battlecontroller-spawn-creature battlecontroller ((arg0 vector) (arg1 vector))
   (local-vars (v1-25 int))
   (let ((f0-0 (rand-vu))
         (v1-0 0)
         )
-   (dotimes (a0-1 (-> self creature-type-count))
-    (when (>= f0-0 0.0)
-     (set! f0-0 (- f0-0 (-> self creature-type-array a0-1 percent)))
-     (if (< f0-0 0.0)
-      (set! v1-0 a0-1)
+    (dotimes (a0-1 (-> self creature-type-count))
+      (when (>= f0-0 0.0)
+        (set! f0-0 (- f0-0 (-> self creature-type-array a0-1 percent)))
+        (if (< f0-0 0.0)
+            (set! v1-0 a0-1)
+            )
+        )
       )
-     )
-    )
-   (let* ((s5-0 (-> self creature-type-array v1-0))
-          (s2-0 (-> s5-0 type2))
-          (s1-0
-           (the-as nav-enemy (get-process *default-dead-pool* s2-0 #x4000))
-           )
-          (gp-0 (when s1-0
-                 (let ((t9-2 (method-of-type process activate)))
-                  (t9-2 s1-0 self s2-0 (the-as pointer #x70004000))
-                  )
-                 (run-now-in-process
-                  s1-0
-                  nav-enemy-init-by-other
-                  self
-                  arg0
-                  arg1
-                  )
-                 (-> s1-0 ppointer)
+    (let* ((s5-0 (-> self creature-type-array v1-0))
+           (s2-0 (-> s5-0 type2))
+           (s1-0 (the-as nav-enemy (get-process *default-dead-pool* s2-0 #x4000)))
+           (gp-0 (when s1-0
+                   (let ((t9-2 (method-of-type process activate)))
+                     (t9-2 s1-0 self s2-0 (the-as pointer #x70004000))
+                     )
+                   (run-now-in-process s1-0 nav-enemy-init-by-other self arg0 arg1)
+                   (-> s1-0 ppointer)
+                   )
                  )
            )
+      (if (and gp-0 (zero? (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info)))
+          (set! gp-0 (the-as (pointer process) #f))
           )
-    (if (and gp-0 (zero? (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info)))
-     (set! gp-0 (the-as (pointer process) #f))
-     )
-    (when (the-as (pointer nav-enemy) gp-0)
-     (logclear!
-      (-> (the-as (pointer nav-enemy) gp-0) 0 mask)
-      (process-mask actor-pause)
+      (when (the-as (pointer nav-enemy) gp-0)
+        (logclear! (-> (the-as (pointer nav-enemy) gp-0) 0 mask) (process-mask actor-pause))
+        (if (-> self misty-ambush-collision-hack)
+            (logior! (-> (the-as (pointer nav-enemy) gp-0) 0 nav-enemy-flags) #x8000)
+            )
+        (+! (-> self spawn-count) 1)
+        (-> self fact pickup-type)
+        (cond
+          ((and (< (-> s5-0 pickup-count) (-> s5-0 max-pickup-count)) (rand-vu-percent? (-> s5-0 pickup-percent)))
+           (+! (-> s5-0 pickup-count) 1)
+           (set! v1-25 (-> s5-0 pickup-type))
+           )
+          (else
+            (set! v1-25 (the-as int (-> self fact pickup-type)))
+            )
+          )
+        (set! (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info pickup-type) (the-as pickup-type v1-25))
+        (cond
+          ((= v1-25 7)
+           )
+          ((zero? v1-25)
+           (set! (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info pickup-amount) 0.0)
+           (set! (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info pickup-spawn-amount) 0.0)
+           )
+          (else
+            (set! (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info pickup-amount) 1.0)
+            (set! (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info pickup-spawn-amount) 0.0)
+            (logior! (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info options) (fact-options fade))
+            (set! (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info fade-time) 1200)
+            )
+          )
+        )
+      (the-as handle (ppointer->handle gp-0))
       )
-     (if (-> self misty-ambush-collision-hack)
-      (logior! (-> (the-as (pointer nav-enemy) gp-0) 0 nav-enemy-flags) #x8000)
-      )
-     (+! (-> self spawn-count) 1)
-     (-> self fact pickup-type)
-     (cond
-      ((and
-        (< (-> s5-0 pickup-count) (-> s5-0 max-pickup-count))
-        (rand-vu-percent? (-> s5-0 pickup-percent))
-        )
-       (+! (-> s5-0 pickup-count) 1)
-       (set! v1-25 (-> s5-0 pickup-type))
-       )
-      (else
-       (set! v1-25 (the-as int (-> self fact pickup-type)))
-       )
-      )
-     (set!
-      (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info pickup-type)
-      (the-as pickup-type v1-25)
-      )
-     (cond
-      ((= v1-25 7)
-       )
-      ((zero? v1-25)
-       (set!
-        (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info pickup-amount)
-        0.0
-        )
-       (set!
-        (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info pickup-spawn-amount)
-        0.0
-        )
-       )
-      (else
-       (set!
-        (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info pickup-amount)
-        1.0
-        )
-       (set!
-        (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info pickup-spawn-amount)
-        0.0
-        )
-       (logior!
-        (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info options)
-        (fact-options fade)
-        )
-       (set! (-> (the-as (pointer nav-enemy) gp-0) 0 enemy-info fade-time) 1200)
-       )
-      )
-     )
-    (the-as handle (ppointer->handle gp-0))
     )
-   )
   )
 
-(defbehavior
-  battlecontroller-spawn-creature-at-spawner battlecontroller
-  ((arg0 int) (arg1 int))
+(defbehavior battlecontroller-spawn-creature-at-spawner battlecontroller ((arg0 int) (arg1 int))
   (let* ((s5-0 (-> self spawner-array arg0))
          (s3-0 (-> s5-0 path))
-         (s4-0
-          (eval-path-curve-div!
-           s3-0
-           (new 'stack-no-clear 'vector)
-           (the float arg1)
-           'interp
-           )
-          )
-         (a1-3
-          (eval-path-curve-div!
-           s3-0
-           (new 'stack-no-clear 'vector)
-           (the float (+ arg1 1))
-           'interp
-           )
-          )
+         (s4-0 (eval-path-curve-div! s3-0 (new 'stack-no-clear 'vector) (the float arg1) 'interp))
+         (a1-3 (eval-path-curve-div! s3-0 (new 'stack-no-clear 'vector) (the float (+ arg1 1)) 'interp))
          )
-   (when
-    (and
-     (not (handle->process (-> s5-0 creature)))
-     (< (-> self spawn-count) (-> self max-spawn-count))
-     )
-    (let ((v1-10 (battlecontroller-spawn-creature s4-0 a1-3)))
-     (when (handle->process v1-10)
-      (set! (-> s5-0 creature) v1-10)
-      (set! (-> s5-0 state) (+ arg1 1))
+    (when (and (not (handle->process (-> s5-0 creature))) (< (-> self spawn-count) (-> self max-spawn-count)))
+      (let ((v1-10 (battlecontroller-spawn-creature s4-0 a1-3)))
+        (when (handle->process v1-10)
+          (set! (-> s5-0 creature) v1-10)
+          (set! (-> s5-0 state) (+ arg1 1))
+          )
+        )
       )
-     )
     )
-   )
   0
   (none)
   )
@@ -324,64 +263,61 @@ battlecontroller-default-event-handler
   (let* ((gp-0 (rand-vu-int-count (-> self spawner-count)))
          (v1-2 (-> self spawner-array gp-0))
          )
-   (when (and (-> v1-2 enabled) (-> v1-2 blocker-actor))
-    (when
-     (logtest?
-      (-> v1-2 blocker-actor extra perm status)
-      (entity-perm-status complete)
-      )
-     (set! (-> v1-2 enabled) #f)
-     (let ((a0-9 0))
-      (dotimes (a1-0 (-> self spawner-count))
-       (if (-> self spawner-array a1-0 enabled)
-        (+! a0-9 1)
+    (when (and (-> v1-2 enabled) (-> v1-2 blocker-actor))
+      (when (logtest? (-> v1-2 blocker-actor extra perm status) (entity-perm-status complete))
+        (set! (-> v1-2 enabled) #f)
+        (let ((a0-9 0))
+          (dotimes (a1-0 (-> self spawner-count))
+            (if (-> self spawner-array a1-0 enabled)
+                (+! a0-9 1)
+                )
+            )
+          (if (zero? a0-9)
+              (set! (-> self spawn-count) (-> self max-spawn-count))
+              )
+          )
         )
-       )
-      (if (zero? a0-9)
-       (set! (-> self spawn-count) (-> self max-spawn-count))
-       )
       )
-     )
-    )
-   (when (and (-> v1-2 enabled) (not (handle->process (-> v1-2 creature))))
-    (let ((a1-7 (new 'stack-no-clear 'event-message-block)))
-     (set! (-> a1-7 from) self)
-     (set! (-> a1-7 num-params) 0)
-     (set! (-> a1-7 message) 'spawn)
-     (let ((t9-1 send-event-function)
-           (v1-3 (-> v1-2 trigger-actor))
-           )
-      (t9-1 (if v1-3
-             (-> v1-3 extra process)
-             )
-       a1-7
-       )
+    (when (and (-> v1-2 enabled) (not (handle->process (-> v1-2 creature))))
+      (let ((a1-7 (new 'stack-no-clear 'event-message-block)))
+        (set! (-> a1-7 from) self)
+        (set! (-> a1-7 num-params) 0)
+        (set! (-> a1-7 message) 'spawn)
+        (let ((t9-1 send-event-function)
+              (v1-3 (-> v1-2 trigger-actor))
+              )
+          (t9-1
+            (if v1-3
+                (-> v1-3 extra process)
+                )
+            a1-7
+            )
+          )
+        )
+      (battlecontroller-spawn-creature-at-spawner gp-0 0)
       )
-     )
-    (battlecontroller-spawn-creature-at-spawner gp-0 0)
     )
-   )
   0
   (none)
   )
 
 (defbehavior battlecontroller-fill-all-spawners battlecontroller ()
   (dotimes (gp-0 (-> self spawner-count))
-   (battlecontroller-spawn-creature-at-spawner gp-0 1)
-   )
-  (when (nonzero? (-> self path-spawn))
-   (let ((gp-1 (new 'stack-no-clear 'vector)))
-    (dotimes (s5-0 (-> self path-spawn curve num-cverts))
-     (eval-path-curve-div! (-> self path-spawn) gp-1 (the float s5-0) 'interp)
-     (let ((s4-0 (battlecontroller-spawn-creature gp-1 (-> self root trans))))
-      (when (handle->process s4-0)
-       (suspend)
-       (send-event (handle->process s4-0) 'cue-chase)
-       )
-      )
-     )
+    (battlecontroller-spawn-creature-at-spawner gp-0 1)
+    )
+  (when (nonzero? (-> self path-spawn))
+    (let ((gp-1 (new 'stack-no-clear 'vector)))
+      (dotimes (s5-0 (-> self path-spawn curve num-cverts))
+        (eval-path-curve-div! (-> self path-spawn) gp-1 (the float s5-0) 'interp)
+        (let ((s4-0 (battlecontroller-spawn-creature gp-1 (-> self root trans))))
+          (when (handle->process s4-0)
+            (suspend)
+            (send-event (handle->process s4-0) 'cue-chase)
+            )
+          )
+        )
+      )
     )
-   )
   0
   (none)
   )
@@ -389,39 +325,34 @@ battlecontroller-default-event-handler
 (defbehavior battlecontroller-battle-begin battlecontroller ()
   (set-setting! *setting-control* self 'music 'danger 0.0 0)
   (let ((gp-0 (entity-actor-count (-> self entity) 'kill-actor)))
-   (dotimes (s5-0 gp-0)
-    (let ((v1-2 (entity-actor-lookup (-> self entity) 'kill-actor s5-0)))
-     (if v1-2
-      (logior! (-> v1-2 extra perm status) (entity-perm-status bit-9))
+    (dotimes (s5-0 gp-0)
+      (let ((v1-2 (entity-actor-lookup (-> self entity) 'kill-actor s5-0)))
+        (if v1-2
+            (logior! (-> v1-2 extra perm status) (entity-perm-status bit-9))
+            )
+        )
       )
-     )
     )
-   )
   (let ((gp-1 (entity-actor-count (-> self entity) 'trigger-actor)))
-   (dotimes (s5-1 gp-1)
-    (let ((s4-0 (new 'stack-no-clear 'event-message-block)))
-     (set! (-> s4-0 from) self)
-     (set! (-> s4-0 num-params) 0)
-     (set! (-> s4-0 message) 'trigger)
-     (let ((s3-0 send-event-function)
-           (v1-7 (entity-actor-lookup (-> self entity) 'trigger-actor s5-1))
-           )
-      (s3-0 (if v1-7
-             (-> v1-7 extra process)
-             )
-       s4-0
-       )
+    (dotimes (s5-1 gp-1)
+      (let ((s4-0 (new 'stack-no-clear 'event-message-block)))
+        (set! (-> s4-0 from) self)
+        (set! (-> s4-0 num-params) 0)
+        (set! (-> s4-0 message) 'trigger)
+        (let ((s3-0 send-event-function)
+              (v1-7 (entity-actor-lookup (-> self entity) 'trigger-actor s5-1))
+              )
+          (s3-0
+            (if v1-7
+                (-> v1-7 extra process)
+                )
+            s4-0
+            )
+          )
+        )
       )
-     )
     )
-   )
-  (level-hint-spawn
-   (game-text-id zero)
-   (the-as string #f)
-   (-> self entity)
-   *entity-pool*
-   (game-task none)
-   )
+  (level-hint-spawn (game-text-id zero) (the-as string #f) (-> self entity) *entity-pool* (game-task none))
   0
   (none)
   )
@@ -429,30 +360,30 @@ battlecontroller-default-event-handler
 (defbehavior battlecontroller-off battlecontroller ()
   (clear-pending-settings-from-process *setting-control* self 'music)
   (let ((gp-0 (entity-actor-count (-> self entity) 'kill-actor)))
-   (dotimes (s5-0 gp-0)
-    (let ((v1-2 (entity-actor-lookup (-> self entity) 'kill-actor s5-0)))
-     (if v1-2
-      (logclear! (-> v1-2 extra perm status) (entity-perm-status bit-9))
+    (dotimes (s5-0 gp-0)
+      (let ((v1-2 (entity-actor-lookup (-> self entity) 'kill-actor s5-0)))
+        (if v1-2
+            (logclear! (-> v1-2 extra perm status) (entity-perm-status bit-9))
+            )
+        )
       )
-     )
     )
-   )
   0
   (none)
   )
 
 (defbehavior battlecontroller-battle-end battlecontroller ()
-  (case (-> (level-get-target-inside *level*) name) 
-   (('citadel)
+  (case (-> (level-get-target-inside *level*) name)
+    (('citadel)
      (level-hint-spawn
-      (game-text-id misty-battle-finished)
-      "sksp0378"
-      (the-as entity #f)
-      *entity-pool*
-      (game-task none)
-      )
+       (game-text-id misty-battle-finished)
+       "sksp0378"
+       (the-as entity #f)
+       *entity-pool*
+       (game-task none)
+       )
      )
-   )
+    )
   (battlecontroller-off)
   (none)
   )
@@ -463,43 +394,35 @@ battlecontroller-default-event-handler
   battlecontroller-default-event-handler
   :trans
   (behavior ()
-   0
-   (none)
-   )
+    0
+    (none)
+    )
   :code
   (behavior ()
-   (set! (-> self state-time) (-> *display* base-frame-counter))
-   (if (-> self prespawn)
-    (battlecontroller-fill-all-spawners)
-    )
-   (while #t
-    (when (>= (- (-> *display* base-frame-counter) (-> self state-time)) 30)
-     (set! (-> self state-time) (-> *display* base-frame-counter))
-     (when
-      (and
-       *target*
-       (>=
-        (-> self activate-distance)
-        (vector-vector-distance
-         (-> self root trans)
-         (-> *target* control trans)
-         )
+    (set! (-> self state-time) (-> *display* base-frame-counter))
+    (if (-> self prespawn)
+        (battlecontroller-fill-all-spawners)
         )
-       )
-      (set! (-> self noticed-player) #t)
-      (battlecontroller-battle-begin)
-      (when (not (-> self prespawn))
-       (battlecontroller-fill-all-spawners)
-       (suspend)
-       0
-       )
-      (go-virtual battlecontroller-play-intro-camera)
+    (while #t
+      (when (>= (- (-> *display* base-frame-counter) (-> self state-time)) 30)
+        (set! (-> self state-time) (-> *display* base-frame-counter))
+        (when (and *target*
+                   (>= (-> self activate-distance) (vector-vector-distance (-> self root trans) (-> *target* control trans)))
+                   )
+          (set! (-> self noticed-player) #t)
+          (battlecontroller-battle-begin)
+          (when (not (-> self prespawn))
+            (battlecontroller-fill-all-spawners)
+            (suspend)
+            0
+            )
+          (go-virtual battlecontroller-play-intro-camera)
+          )
+        )
+      (suspend)
       )
-     )
-    (suspend)
+    (none)
     )
-   (none)
-   )
   :post
   (the-as (function none :behavior battlecontroller) #f)
   )
@@ -510,19 +433,19 @@ battlecontroller-default-event-handler
   battlecontroller-default-event-handler
   :enter
   (behavior ()
-   (process-entity-status! self (entity-perm-status bit-3) #t)
-   (none)
-   )
+    (process-entity-status! self (entity-perm-status bit-3) #t)
+    (none)
+    )
   :exit
   (behavior ()
-   (process-entity-status! self (entity-perm-status bit-3) #f)
-   (none)
-   )
+    (process-entity-status! self (entity-perm-status bit-3) #f)
+    (none)
+    )
   :code
   (behavior ()
-   (go-virtual battlecontroller-active)
-   (none)
-   )
+    (go-virtual battlecontroller-active)
+    (none)
+    )
   )
 
 (defbehavior battlecontroller-disable-ocean battlecontroller ()
@@ -539,63 +462,48 @@ battlecontroller-default-event-handler
   battlecontroller-default-event-handler
   :trans
   (behavior ()
-   (if
-    (and
-     *target*
-     (>=
-      (-> self activate-distance)
-      (vector-vector-distance (-> self root trans) (-> *target* control trans))
-      )
-     )
-    (level-hint-spawn
-     (game-text-id zero)
-     (the-as string #f)
-     (-> self entity)
-     *entity-pool*
-     (game-task none)
-     )
+    (if (and *target*
+             (>= (-> self activate-distance) (vector-vector-distance (-> self root trans) (-> *target* control trans)))
+             )
+        (level-hint-spawn (game-text-id zero) (the-as string #f) (-> self entity) *entity-pool* (game-task none))
+        )
+    (battlecontroller-disable-ocean)
+    (battlecontroller-update-spawners)
+    (none)
     )
-   (battlecontroller-disable-ocean)
-   (battlecontroller-update-spawners)
-   (none)
-   )
   :code
   (behavior ()
-   (set! (-> self state-time) (-> *display* base-frame-counter))
-   (battlecontroller-camera-on)
-   (while #t
-    (when (>= (- (-> *display* base-frame-counter) (-> self state-time)) 30)
-     (set! (-> self state-time) (-> *display* base-frame-counter))
-     (let ((gp-0 0))
-      (let ((v1-8 (-> self child)))
-       (while v1-8
-        (+! gp-0 1)
-        (set! v1-8 (-> v1-8 0 brother))
-        (nop!)
-        (nop!)
-        )
-       )
-      (if (and (zero? gp-0) (= (-> self spawn-count) (-> self max-spawn-count)))
-       (go-virtual battlecontroller-die)
-       )
-      (when (< gp-0 (-> self target-count))
-       (let ((gp-1 (-> *display* base-frame-counter)))
-        (until
-         (>=
-          (- (-> *display* base-frame-counter) gp-1)
-          (the-as int (-> self spawn-period))
+    (set! (-> self state-time) (-> *display* base-frame-counter))
+    (battlecontroller-camera-on)
+    (while #t
+      (when (>= (- (-> *display* base-frame-counter) (-> self state-time)) 30)
+        (set! (-> self state-time) (-> *display* base-frame-counter))
+        (let ((gp-0 0))
+          (let ((v1-8 (-> self child)))
+            (while v1-8
+              (+! gp-0 1)
+              (set! v1-8 (-> v1-8 0 brother))
+              (nop!)
+              (nop!)
+              )
+            )
+          (if (and (zero? gp-0) (= (-> self spawn-count) (-> self max-spawn-count)))
+              (go-virtual battlecontroller-die)
+              )
+          (when (< gp-0 (-> self target-count))
+            (let ((gp-1 (-> *display* base-frame-counter)))
+              (until (>= (- (-> *display* base-frame-counter) gp-1) (the-as int (-> self spawn-period)))
+                (suspend)
+                )
+              )
+            (battlecontroller-spawn-creature-random-spawner)
+            )
           )
-         (suspend)
-         )
         )
-       (battlecontroller-spawn-creature-random-spawner)
-       )
+      (suspend)
       )
-     )
-    (suspend)
+    (none)
     )
-   (none)
-   )
   :post
   (the-as (function none :behavior battlecontroller) #f)
   )
@@ -610,9 +518,9 @@ battlecontroller-default-event-handler
 
 (defbehavior battlecontroller-set-special-contents-collected battlecontroller ()
   (let ((v1-2 (-> self entity extra perm)))
-   (logior! (-> v1-2 status) (entity-perm-status user-set-from-cstage))
-   (set! (-> v1-2 user-int8 0) 2)
-   )
+    (logior! (-> v1-2 status) (entity-perm-status user-set-from-cstage))
+    (set! (-> v1-2 user-int8 0) 2)
+    )
   0
   (none)
   )
@@ -623,9 +531,9 @@ battlecontroller-default-event-handler
 
 (defbehavior battlecontroller-set-task-completed battlecontroller ()
   (let ((v1-2 (-> self entity extra perm)))
-   (logior! (-> v1-2 status) (entity-perm-status user-set-from-cstage))
-   (set! (-> v1-2 user-int8 0) 1)
-   )
+    (logior! (-> v1-2 status) (entity-perm-status user-set-from-cstage))
+    (set! (-> v1-2 user-int8 0) 1)
+    )
   0
   (none)
   )
@@ -634,109 +542,93 @@ battlecontroller-default-event-handler
   :virtual #t
   :event
   (the-as
-   (function process int symbol event-message-block object :behavior battlecontroller)
-   process-drawable-fuel-cell-handler
-   )
+    (function process int symbol event-message-block object :behavior battlecontroller)
+    process-drawable-fuel-cell-handler
+    )
   :code
   (behavior ()
-   (sound-play-by-name
-    (static-sound-name "money-pickup")
-    (new-sound-id)
-    1024
-    -2286
-    0
-    1
-    #f
-    )
-   (battlecontroller-battle-end)
-   (battlecontroller-camera-off)
-   (battlecontroller-set-task-completed)
-   (countdown (gp-1 (entity-actor-count (-> self entity) 'fade-actor))
-    (let ((s5-1 (new 'stack-no-clear 'event-message-block)))
-     (set! (-> s5-1 from) self)
-     (set! (-> s5-1 num-params) 0)
-     (set! (-> s5-1 message) 'fade)
-     (let ((s4-0 send-event-function)
-           (v1-2 (entity-actor-lookup (-> self entity) 'fade-actor gp-1))
-           )
-      (s4-0 (if v1-2
-             (-> v1-2 extra process)
-             )
-       s5-1
-       )
+    (sound-play-by-name (static-sound-name "money-pickup") (new-sound-id) 1024 -2286 0 1 #f)
+    (battlecontroller-battle-end)
+    (battlecontroller-camera-off)
+    (battlecontroller-set-task-completed)
+    (countdown (gp-1 (entity-actor-count (-> self entity) 'fade-actor))
+      (let ((s5-1 (new 'stack-no-clear 'event-message-block)))
+        (set! (-> s5-1 from) self)
+        (set! (-> s5-1 num-params) 0)
+        (set! (-> s5-1 message) 'fade)
+        (let ((s4-0 send-event-function)
+              (v1-2 (entity-actor-lookup (-> self entity) 'fade-actor gp-1))
+              )
+          (s4-0
+            (if v1-2
+                (-> v1-2 extra process)
+                )
+            s5-1
+            )
+          )
+        )
       )
-     )
-    )
-   (countdown (gp-2 (entity-actor-count (-> self entity) 'alt-actor))
-    (let ((s5-2 (new 'stack-no-clear 'event-message-block)))
-     (set! (-> s5-2 from) self)
-     (set! (-> s5-2 num-params) 0)
-     (set! (-> s5-2 message) 'trigger)
-     (let ((s4-1 send-event-function)
-           (v1-8 (entity-actor-lookup (-> self entity) 'alt-actor gp-2))
-           )
-      (s4-1 (if v1-8
-             (-> v1-8 extra process)
-             )
-       s5-2
-       )
+    (countdown (gp-2 (entity-actor-count (-> self entity) 'alt-actor))
+      (let ((s5-2 (new 'stack-no-clear 'event-message-block)))
+        (set! (-> s5-2 from) self)
+        (set! (-> s5-2 num-params) 0)
+        (set! (-> s5-2 message) 'trigger)
+        (let ((s4-1 send-event-function)
+              (v1-8 (entity-actor-lookup (-> self entity) 'alt-actor gp-2))
+              )
+          (s4-1
+            (if v1-8
+                (-> v1-8 extra process)
+                )
+            s5-2
+            )
+          )
+        )
+      )
+    (when (and (battlecontroller-special-contents?) (not (battlecontroller-special-contents-collected?)))
+      (label cfg-15)
+      (birth-pickup-at-point
+        (-> self final-pickup-spawn-point)
+        (-> self final-pickup-type)
+        (the float (-> self entity extra perm task))
+        #f
+        self
+        (the-as fact-info #f)
+        )
+      (when (not (-> self child))
+        (suspend)
+        (goto cfg-15)
+        )
+      (while (-> self child)
+        (suspend)
+        )
+      (battlecontroller-set-special-contents-collected)
       )
-     )
-    )
-   (when
-    (and
-     (battlecontroller-special-contents?)
-     (not (battlecontroller-special-contents-collected?))
-     )
-    (label cfg-15)
-    (birth-pickup-at-point
-     (-> self final-pickup-spawn-point)
-     (-> self final-pickup-type)
-     (the float (-> self entity extra perm task))
-     #f
-     self
-     (the-as fact-info #f)
-     )
-    (when (not (-> self child))
-     (suspend)
-     (goto cfg-15)
-     )
     (while (-> self child)
-     (suspend)
-     )
-    (battlecontroller-set-special-contents-collected)
+      (suspend)
+      )
+    (process-entity-status! self (entity-perm-status dead) #t)
+    (none)
     )
-   (while (-> self child)
-    (suspend)
-    )
-   (process-entity-status! self (entity-perm-status dead) #t)
-   (none)
-   )
   :post
   (the-as (function none :behavior battlecontroller) #f)
   )
 
 (defmethod relocate battlecontroller ((obj battlecontroller) (arg0 int))
   (dotimes (v1-0 (-> obj spawner-count))
-   (let ((a0-3 (-> obj spawner-array v1-0)))
-    (if (nonzero? (-> a0-3 path))
-     (&+! (-> a0-3 path) arg0)
-     )
+    (let ((a0-3 (-> obj spawner-array v1-0)))
+      (if (nonzero? (-> a0-3 path))
+          (&+! (-> a0-3 path) arg0)
+          )
+      )
     )
-   )
   (if (nonzero? (-> obj path-spawn))
-   (&+! (-> obj path-spawn) arg0)
-   )
+      (&+! (-> obj path-spawn) arg0)
+      )
   (the-as
-   battlecontroller
-   ((the-as
-     (function process-drawable int process-drawable)
-     (find-parent-method battlecontroller 7)
-     )
-    obj
-    arg0
+    battlecontroller
+    ((the-as (function process-drawable int process-drawable) (find-parent-method battlecontroller 7)) obj arg0)
     )
-   )
   )
 
 (defmethod deactivate battlecontroller ((obj battlecontroller))
@@ -754,84 +646,61 @@ battlecontroller-default-event-handler
 
 (defmethod TODO-RENAME-27 battlecontroller ((obj battlecontroller))
   (local-vars (sv-16 res-tag))
-  (set!
-   (-> obj fact)
-   (new
-    'process
-    'fact-info
-    obj
-    (pickup-type eco-pill-random)
-    (-> *FACT-bank* default-pill-inc)
-    )
-   )
+  (set! (-> obj fact)
+        (new 'process 'fact-info obj (pickup-type eco-pill-random) (-> *FACT-bank* default-pill-inc))
+        )
   (set! (-> obj path) (new 'process 'path-control obj 'path 0.0))
-  (logior!
-   (-> obj path flags)
-   (path-control-flag display draw-line draw-point draw-text)
-   )
+  (logior! (-> obj path flags) (path-control-flag display draw-line draw-point draw-text))
   (set! (-> obj activate-distance) 122880.0)
   (let ((s5-0 0))
-   (let* ((s4-0 '(patha pathb pathc pathd pathe pathf pathg pathh))
-          (s2-0 (car s4-0))
+    (let* ((s4-0 '(patha pathb pathc pathd pathe pathf pathg pathh))
+           (s2-0 (car s4-0))
+           )
+      (while (not (null? s4-0))
+        (let ((v1-7 (res-lump-struct (-> obj entity) (the-as symbol s2-0) structure))
+              (s3-0 (-> obj spawner-array s5-0))
+              )
+          (when (and v1-7 (< s5-0 8))
+            (set! (-> s3-0 path) (new 'process 'path-control obj (the-as symbol s2-0) 0.0))
+            (set! (-> s3-0 creature) (the-as handle #f))
+            (set! (-> s3-0 trigger-actor) #f)
+            (set! (-> s3-0 blocker-actor) #f)
+            (set! (-> s3-0 enabled) #t)
+            (logior! (-> s3-0 path flags) (path-control-flag display draw-line draw-point draw-text))
+            (+! s5-0 1)
+            )
           )
-    (while (not (null? s4-0))
-     (let
-      ((v1-7 (res-lump-struct (-> obj entity) (the-as symbol s2-0) structure))
-       (s3-0 (-> obj spawner-array s5-0))
-       )
-      (when (and v1-7 (< s5-0 8))
-       (set!
-        (-> s3-0 path)
-        (new 'process 'path-control obj (the-as symbol s2-0) 0.0)
+        (set! s4-0 (cdr s4-0))
+        (set! s2-0 (car s4-0))
         )
-       (set! (-> s3-0 creature) (the-as handle #f))
-       (set! (-> s3-0 trigger-actor) #f)
-       (set! (-> s3-0 blocker-actor) #f)
-       (set! (-> s3-0 enabled) #t)
-       (logior!
-        (-> s3-0 path flags)
-        (path-control-flag display draw-line draw-point draw-text)
-        )
-       (+! s5-0 1)
-       )
       )
-     (set! s4-0 (cdr s4-0))
-     (set! s2-0 (car s4-0))
-     )
+    (set! (-> obj spawner-count) s5-0)
     )
-   (set! (-> obj spawner-count) s5-0)
-   )
   0
   (if (res-lump-struct (-> obj entity) 'pathspawn structure)
-   (set! (-> obj path-spawn) (new 'process 'path-control obj 'pathspawn 0.0))
-   )
+      (set! (-> obj path-spawn) (new 'process 'path-control obj 'pathspawn 0.0))
+      )
   (let ((s5-1 (entity-actor-count (-> obj entity) 'spawner-trigger-actor)))
-   (dotimes (s4-1 s5-1)
-    (if (< s4-1 (-> obj spawner-count))
-     (set!
-      (-> obj spawner-array s4-1 trigger-actor)
-      (entity-actor-lookup (-> obj entity) 'spawner-trigger-actor s4-1)
+    (dotimes (s4-1 s5-1)
+      (if (< s4-1 (-> obj spawner-count))
+          (set! (-> obj spawner-array s4-1 trigger-actor)
+                (entity-actor-lookup (-> obj entity) 'spawner-trigger-actor s4-1)
+                )
+          )
       )
-     )
     )
-   )
   (let ((s5-2 (entity-actor-count (-> obj entity) 'spawner-blocker-actor)))
-   (dotimes (s4-2 s5-2)
-    (if (< s4-2 (-> obj spawner-count))
-     (set!
-      (-> obj spawner-array s4-2 blocker-actor)
-      (entity-actor-lookup (-> obj entity) 'spawner-blocker-actor s4-2)
+    (dotimes (s4-2 s5-2)
+      (if (< s4-2 (-> obj spawner-count))
+          (set! (-> obj spawner-array s4-2 blocker-actor)
+                (entity-actor-lookup (-> obj entity) 'spawner-blocker-actor s4-2)
+                )
+          )
       )
-     )
     )
-   )
-  (set!
-   (-> obj spawn-period)
-   (the-as
-    uint
-    (the int (* 300.0 (res-lump-float (-> obj entity) 'delay :default 0.1)))
-    )
-   )
+  (set! (-> obj spawn-period)
+        (the-as uint (the int (* 300.0 (res-lump-float (-> obj entity) 'delay :default 0.1))))
+        )
   (set! (-> obj target-count) 10)
   (set! (-> obj max-spawn-count) 100)
   (set! (-> obj spawn-count) 0)
@@ -840,100 +709,74 @@ battlecontroller-default-event-handler
   (set! (-> obj noticed-player) #f)
   (set! (-> obj camera-on) #f)
   (let ((v1-46 (res-lump-data (-> obj entity) 'num-lurkers (pointer int32))))
-   (when v1-46
-    (set! (-> obj target-count) (-> v1-46 0))
-    (set! (-> obj max-spawn-count) (-> v1-46 1))
+    (when v1-46
+      (set! (-> obj target-count) (-> v1-46 0))
+      (set! (-> obj max-spawn-count) (-> v1-46 1))
+      )
     )
-   )
   (set! (-> obj creature-type-array 0 type2) babak)
   (set! (-> obj creature-type-array 0 percent) 1.0)
   (let ((s5-3 0))
-   (set! sv-16 (new 'static 'res-tag))
-   (let
-    ((v1-49
-      (res-lump-data (-> obj entity) 'lurker-type pointer :tag-ptr (& sv-16))
-      )
-     )
-    (when v1-49
-     (dotimes (a0-22 (the-as int (-> sv-16 elt-count)))
-      (let ((a1-15 (-> (the-as (pointer uint32) (&+ v1-49 (* a0-22 4))))))
-       (when (nonzero? a1-15)
-        (set! (-> obj creature-type-array s5-3 type2) (the-as type a1-15))
-        (+! s5-3 1)
+    (set! sv-16 (new 'static 'res-tag))
+    (let ((v1-49 (res-lump-data (-> obj entity) 'lurker-type pointer :tag-ptr (& sv-16))))
+      (when v1-49
+        (dotimes (a0-22 (the-as int (-> sv-16 elt-count)))
+          (let ((a1-15 (-> (the-as (pointer uint32) (&+ v1-49 (* a0-22 4))))))
+            (when (nonzero? a1-15)
+              (set! (-> obj creature-type-array s5-3 type2) (the-as type a1-15))
+              (+! s5-3 1)
+              )
+            )
+          )
         )
-       )
       )
-     )
+    (set! (-> obj creature-type-count) s5-3)
     )
-   (set! (-> obj creature-type-count) s5-3)
-   )
   (let ((v1-52 (res-lump-data (-> obj entity) 'percent pointer))
         (f0-6 0.0)
         )
-   (when v1-52
-    (dotimes (a0-26 (-> obj creature-type-count))
-     (set!
-      (-> obj creature-type-array a0-26 percent)
-      (fabs (-> (the-as (pointer float) (&+ v1-52 (* a0-26 4)))))
-      )
-     (+! f0-6 (-> obj creature-type-array a0-26 percent))
-     )
-    (cond
-     ((= f0-6 0.0)
-      (set! (-> obj creature-type-count) 1)
-      (set! (-> obj creature-type-array 0 percent) 1.0)
-      )
-     (else
-      (let ((f0-9 (/ 1.0 f0-6)))
-       (dotimes (v1-57 (-> obj creature-type-count))
-        (set!
-         (-> obj creature-type-array 0 percent)
-         (* (-> obj creature-type-array 0 percent) f0-9)
-         )
+    (when v1-52
+      (dotimes (a0-26 (-> obj creature-type-count))
+        (set! (-> obj creature-type-array a0-26 percent) (fabs (-> (the-as (pointer float) (&+ v1-52 (* a0-26 4))))))
+        (+! f0-6 (-> obj creature-type-array a0-26 percent))
+        )
+      (cond
+        ((= f0-6 0.0)
+         (set! (-> obj creature-type-count) 1)
+         (set! (-> obj creature-type-array 0 percent) 1.0)
+         )
+        (else
+          (let ((f0-9 (/ 1.0 f0-6)))
+            (dotimes (v1-57 (-> obj creature-type-count))
+              (set! (-> obj creature-type-array 0 percent) (* (-> obj creature-type-array 0 percent) f0-9))
+              )
+            )
+          )
         )
-       )
       )
-     )
     )
-   )
-  (set!
-   (-> obj final-pickup-type)
-   (res-lump-value
-    (-> obj entity)
-    'final-pickup
-    pickup-type
-    :default
-    (the-as uint128 7)
-    )
-   )
+  (set! (-> obj final-pickup-type)
+        (res-lump-value (-> obj entity) 'final-pickup pickup-type :default (the-as uint128 7))
+        )
   (let ((s5-4 (res-lump-data (-> obj entity) 'pickup-type pointer))
         (s4-3 (res-lump-data (-> obj entity) 'max-pickup-count pointer))
         (v1-63 (res-lump-data (-> obj entity) 'pickup-percent pointer))
         )
-   (dotimes (a0-34 (-> obj creature-type-count))
-    (let ((a1-34 (-> obj creature-type-array a0-34)))
-     (set! (-> a1-34 pickup-count) 0)
-     (if s5-4
-      (set!
-       (-> a1-34 pickup-type)
-       (-> (the-as (pointer int32) (&+ s5-4 (* a0-34 4))))
-       )
+    (dotimes (a0-34 (-> obj creature-type-count))
+      (let ((a1-34 (-> obj creature-type-array a0-34)))
+        (set! (-> a1-34 pickup-count) 0)
+        (if s5-4
+            (set! (-> a1-34 pickup-type) (-> (the-as (pointer int32) (&+ s5-4 (* a0-34 4)))))
+            )
+        (if s4-3
+            (set! (-> a1-34 max-pickup-count) (-> (the-as (pointer int32) (&+ s4-3 (* a0-34 4)))))
+            )
+        (if v1-63
+            (set! (-> a1-34 pickup-percent) (-> (the-as (pointer float) (&+ v1-63 (* a0-34 4)))))
+            )
+        )
       )
-     (if s4-3
-      (set!
-       (-> a1-34 max-pickup-count)
-       (-> (the-as (pointer int32) (&+ s4-3 (* a0-34 4))))
-       )
-      )
-     (if v1-63
-      (set!
-       (-> a1-34 pickup-percent)
-       (-> (the-as (pointer float) (&+ v1-63 (* a0-34 4))))
-       )
-      )
-     )
     )
-   )
   (set! (-> obj misty-ambush-collision-hack) #f)
   (set! (-> obj disable-ocean) #f)
   (set! (-> obj disable-mid-ocean) #f)
@@ -946,17 +789,14 @@ battlecontroller-default-event-handler
 
 (defmethod cleanup-if-finished! battlecontroller ((obj battlecontroller))
   (if (battlecontroller-task-completed?)
-   (go (method-of-object obj battlecontroller-die))
-   (go (method-of-object obj battlecontroller-idle))
-   )
+      (go (method-of-object obj battlecontroller-die))
+      (go (method-of-object obj battlecontroller-idle))
+      )
   0
   (none)
   )
 
-(defmethod
-  init-from-entity!
-  battlecontroller
-  ((obj battlecontroller) (arg0 entity-actor))
+(defmethod init-from-entity! battlecontroller ((obj battlecontroller) (arg0 entity-actor))
   (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask)))
   (set! (-> obj root) (new 'process 'trsqv))
   (process-drawable-from-entity! obj arg0)
diff --git a/goal_src/levels/common/dark-eco-pool.gc b/goal_src/levels/common/dark-eco-pool.gc
index 959ed318cd..aa7fe52ddf 100644
--- a/goal_src/levels/common/dark-eco-pool.gc
+++ b/goal_src/levels/common/dark-eco-pool.gc
@@ -146,252 +146,213 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 444)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-eco-nasty"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2020 :fade-after (meters 50.0)))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-dark-eco-nasty
+  :id 444
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2020 :fade-after (meters 50)))
+  )
 
-(set! (-> *part-id-table* 2020) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.25))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.1875))
-                                    (sp-flt spt-scalevel-y (meters -0.001875))
-                                    (sp-flt spt-fade-a -3.2)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2021)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2020
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 4) 1.0)
+    (sp-flt spt-scale-y (meters 0.25))
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 96.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.1875))
+    (sp-flt spt-scalevel-y (meters -0.001875))
+    (sp-flt spt-fade-a -3.2)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 15)
+    (sp-launcher-by-id spt-next-launcher 2021)
+    )
+  )
 
-(set! (-> *part-id-table* 2021)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-fade-a -1.28)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2021
+  :init-specs
+  ((sp-flt spt-r 255.0) (sp-rnd-flt spt-g 128.0 128.0 1.0) (sp-flt spt-b 0.0) (sp-flt spt-fade-a -1.28))
+  )
 
-(set! (-> *part-group-id-table* 445)
-      (new 'static 'sparticle-launch-group
-        :length 19
-        :duration #x258
-        :linger-duration #x258
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-eco-pool-nasty"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 19
-          (sp-item 2056 :fade-after (meters 100.0) :period 600 :length 5)
-          (sp-item 2057 :fade-after (meters 100.0) :period 600 :length 5 :binding 2052)
-          (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
-          (sp-item 2053 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
-          (sp-item 2053 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
-          (sp-item 2053 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
-          (sp-item 2053 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2058 :fade-after (meters 100.0) :period 600 :length 5 :binding 2054)
-          (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
-          (sp-item 2055 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
-          (sp-item 2055 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
-          (sp-item 2055 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
-          (sp-item 2055 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-dark-eco-pool-nasty
+  :id 445
+  :duration 600
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2056 :fade-after (meters 100) :period 600 :length 5)
+    (sp-item 2057 :fade-after (meters 100) :period 600 :length 5 :binding 2052)
+    (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
+    (sp-item 2053 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
+    (sp-item 2053 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
+    (sp-item 2053 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
+    (sp-item 2053 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2058 :fade-after (meters 100) :period 600 :length 5 :binding 2054)
+    (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
+    (sp-item 2055 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
+    (sp-item 2055 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
+    (sp-item 2055 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
+    (sp-item 2055 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 2056) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 8.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-flt spt-fade-a -1.8285716)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2056
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 8))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-fade-a -1.8285716)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2057) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 6.0 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-accel-y -3.4133334)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2057
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 1.0 6.0 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+    (sp-flt spt-accel-y -3.4133334)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 240)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2052) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 1228.8 1228.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.000909091))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.26666668)
-                                    (sp-flt spt-fade-a -0.19393939)
-                                    (sp-int-plain-rnd spt-timer 60 179 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2052
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.3) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.000909091))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.26666668)
+    (sp-flt spt-fade-a -0.19393939)
+    (sp-int-plain-rnd spt-timer 60 179 1)
+    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2053) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0006190476))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.01904762)
-                                    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 239 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 198)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2053
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0006190476))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.01904762)
+    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+    (sp-int-plain-rnd spt-timer 30 239 1)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 240)
+    (sp-launcher-by-id spt-next-launcher 198)
+    )
+  )
 
-(set! (-> *part-id-table* 2058) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 6.0 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-accel-y -3.4133334)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2058
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 1.0 6.0 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+    (sp-flt spt-accel-y -3.4133334)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 240)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2054) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 1228.8 1228.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.000909091))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.26666668)
-                                    (sp-flt spt-fade-a -0.19393939)
-                                    (sp-int-plain-rnd spt-timer 60 179 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2054
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.3) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 16.0 32.0 1.0)
+    (sp-rnd-flt spt-g 0.0 16.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.000909091))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.26666668)
+    (sp-flt spt-fade-a -0.19393939)
+    (sp-int-plain-rnd spt-timer 60 179 1)
+    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2055) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0006190476))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.01904762)
-                                    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 239 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 198)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2055
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 16.0 32.0 1.0)
+    (sp-rnd-flt spt-g 0.0 16.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0006190476))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.01904762)
+    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+    (sp-int-plain-rnd spt-timer 30 239 1)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 240)
+    (sp-launcher-by-id spt-next-launcher 198)
+    )
+  )
 
 (defstate water-vol-idle (dark-eco-pool)
   :virtual #t
diff --git a/goal_src/levels/common/plat.gc b/goal_src/levels/common/plat.gc
index 8141a3bdea..50de8c970e 100644
--- a/goal_src/levels/common/plat.gc
+++ b/goal_src/levels/common/plat.gc
@@ -7,66 +7,55 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 107) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-standard-plat"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 363 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 364 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-standard-plat
+  :id 107
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 363 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 364 :fade-after (meters 160) :falloff-to (meters 160))
+    )
+  )
 
-(set! (-> *part-id-table* 363)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 5324.8)
-                                                     (sp-flt spt-g 4096.0)
-                                                     (sp-flt spt-b 3686.4)
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-fade-b -16.383999)
-                                                     (sp-int spt-timer 25)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 140.0) (degrees 40.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 3.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 363
+  :init-specs
+  ((sp-flt spt-num 1.5)
+    (sp-flt spt-y (meters 1))
+    (sp-int spt-rot-x 5)
+    (sp-flt spt-r 5324.8)
+    (sp-flt spt-g 4096.0)
+    (sp-flt spt-b 3686.4)
+    (sp-flt spt-vel-y (meters 0.0033333334))
+    (sp-flt spt-fade-b -16.383999)
+    (sp-int spt-timer 25)
+    (sp-cpuinfo-flags aux-list)
+    (sp-rnd-flt spt-conerot-x (degrees 140.0) (degrees 40.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 3))
+    )
+  )
 
-(set! (-> *part-id-table* 364) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-y (meters 1.5))
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.01))
-                                   (sp-flt spt-fade-g -0.42666668)
-                                   (sp-flt spt-fade-a -0.32)
-                                   (sp-flt spt-accel-y -0.13653333)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 130.0) (degrees 100.00001) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 3.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 364
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-flt spt-y (meters 1.5))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-flt spt-vel-y (meters 0.01))
+    (sp-flt spt-fade-g -0.42666668)
+    (sp-flt spt-fade-a -0.32)
+    (sp-flt spt-accel-y -0.13653333)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 130.0) (degrees 100.00001) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 3))
+    )
+  )
 
 (deftype plat (baseplat)
   ((path-pos float                   :offset-assert 228)
diff --git a/goal_src/levels/common/sharkey.gc b/goal_src/levels/common/sharkey.gc
index 0d2ecda21b..2d78b0d461 100644
--- a/goal_src/levels/common/sharkey.gc
+++ b/goal_src/levels/common/sharkey.gc
@@ -7,35 +7,31 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 106) (new 'static 'sparticle-launch-group
-                                       :length 16
-                                       :duration #x78
-                                       :linger-duration #x30c
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-sharkey-splash"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 16
-                                         (sp-item 124 :flags (is-3d) :period 900 :length 63)
-                                         (sp-item 125 :period 900 :length 15)
-                                         (sp-item 126 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 127 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 128 :period 900 :length 10 :binding 129)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-sharkey-splash
+  :id 106
+  :duration 120
+  :linger-duration 780
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 124 :flags (is-3d) :period 900 :length 63)
+    (sp-item 125 :period 900 :length 15)
+    (sp-item 126 :flags (is-3d) :period 900 :length 15)
+    (sp-item 127 :flags (is-3d) :period 900 :length 15)
+    (sp-item 128 :period 900 :length 10 :binding 129)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    )
+  )
 
 (deftype sharkey (nav-enemy)
   ((dir               vector   :inline :offset-assert 400)
diff --git a/goal_src/levels/common/water-anim.gc b/goal_src/levels/common/water-anim.gc
index 88635725ab..110cd60790 100644
--- a/goal_src/levels/common/water-anim.gc
+++ b/goal_src/levels/common/water-anim.gc
@@ -937,9 +937,9 @@
       (let ((s4-0 (-> s5-1 skel-group value)))
         (let ((s3-0 s4-0))
           (if (not (if (and (nonzero? s3-0) (type-type? (-> (the-as basic s3-0) type) skeleton-group))
-                         s3-0
-                         )
-                     )
+                       s3-0
+                       )
+                   )
               (go process-drawable-art-error "skel group")
               )
           )
diff --git a/goal_src/levels/finalboss/green-eco-lurker.gc b/goal_src/levels/finalboss/green-eco-lurker.gc
index f6a5e48a90..b999aa6ff0 100644
--- a/goal_src/levels/finalboss/green-eco-lurker.gc
+++ b/goal_src/levels/finalboss/green-eco-lurker.gc
@@ -107,236 +107,204 @@
                                             )
         )
 
-(set! (-> *part-group-id-table* 643)
-      (new 'static 'sparticle-launch-group
-        :length 37
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-green-eco-lurker-death"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 37
-          (sp-item 2585 :fade-after (meters 100.0) :period 600 :length 5 :binding 2583)
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2586 :period 600 :length 5)
-          (sp-item 2587 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
-          (sp-item 2588 :period 600 :length 20)
-          (sp-item 2589 :fade-after (meters 120.0) :falloff-to (meters 120.0) :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-green-eco-lurker-death
+  :id 643
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2585 :fade-after (meters 100) :period 600 :length 5 :binding 2583)
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2586 :period 600 :length 5)
+    (sp-item 2587 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
+    (sp-item 2588 :period 600 :length 20)
+    (sp-item 2589 :fade-after (meters 120) :falloff-to (meters 120) :period 600 :length 20)
+    )
+  )
 
-(set! (-> *part-id-table* 2587) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2590)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2587
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0016666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 29 1)
+    (sp-launcher-by-id spt-next-launcher 2590)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2590)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2590
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
+  )
 
-(set! (-> *part-id-table* 2589) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-flt spt-scale-x (meters 0.2))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 8.0))
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.42666668))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2589
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 8))
+    (sp-rnd-flt spt-r 64.0 192.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 0.42666668))
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2586) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -1.7454545)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2586
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 16))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 192.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-fade-a -1.7454545)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2588) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2588
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2585) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2585
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 240)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2583) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 1228.8 1228.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.000909091))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.26666668)
-                                    (sp-flt spt-fade-a -0.19393939)
-                                    (sp-int-plain-rnd spt-timer 90 149 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2583
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.3) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.000909091))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.26666668)
+    (sp-flt spt-fade-a -0.19393939)
+    (sp-int-plain-rnd spt-timer 90 149 1)
+    (sp-cpuinfo-flags bit2 bit3 bit7)
+    )
+  )
 
-(set! (-> *part-id-table* 2584) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0006190476))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.01904762)
-                                    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 198)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2584
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0006190476))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.01904762)
+    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+    (sp-int-plain-rnd spt-timer 30 299 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 240)
+    (sp-launcher-by-id spt-next-launcher 198)
+    )
+  )
 
 (defmethod dummy-43 green-eco-lurker ((obj green-eco-lurker) (arg0 process) (arg1 event-message-block))
   (cond
diff --git a/goal_src/levels/finalboss/light-eco.gc b/goal_src/levels/finalboss/light-eco.gc
index 33d59096c0..2b008e5a23 100644
--- a/goal_src/levels/finalboss/light-eco.gc
+++ b/goal_src/levels/finalboss/light-eco.gc
@@ -74,148 +74,126 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 690)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-light-eco-mother-growing"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2902) (sp-item 2900) (sp-item 2897) (sp-item 2898))
-        :bounds (new 'static 'sphere :w 131072.0)
-        )
-      )
+(defpartgroup group-light-eco-mother-growing
+  :id 690
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 2902) (sp-item 2900) (sp-item 2897) (sp-item 2898))
+  )
 
-(set! (-> *part-id-table* 2897) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-scale-x (meters 10.5) (meters 4.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.1) (meters 1.8) 1.0)
-                                    (sp-rnd-int spt-r 0 1 255.0)
-                                    (sp-rnd-int spt-g 0 1 255.0)
-                                    (sp-rnd-int spt-b 0 1 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.009765625))
-                                    (sp-flt spt-fade-a 0.35555556)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 90)
-                                    (sp-launcher-by-id spt-next-launcher 2899)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2897
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-scale-x (meters 10.5) (meters 4.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 2.1) (meters 1.8) 1.0)
+    (sp-rnd-int spt-r 0 1 255.0)
+    (sp-rnd-int spt-g 0 1 255.0)
+    (sp-rnd-int spt-b 0 1 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 0.35555556)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 2899)
+    )
+  )
 
-(set! (-> *part-id-table* 2899)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 2899
+  :init-specs
+  ((sp-flt spt-fade-a -0.53333336))
+  )
 
-(set! (-> *part-id-table* 2898) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-scale-x (meters 20.0) (meters 4.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 1.2))
-                                    (sp-rnd-int spt-r 0 1 255.0)
-                                    (sp-rnd-int spt-g 0 1 255.0)
-                                    (sp-rnd-int spt-b 0 1 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-fade-a 0.32)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 232)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2898
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 0.06)
+    (sp-rnd-flt spt-scale-x (meters 20) (meters 4.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 1.2))
+    (sp-rnd-int spt-r 0 1 255.0)
+    (sp-rnd-int spt-g 0 1 255.0)
+    (sp-rnd-int spt-b 0 1 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-fade-a 0.32)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 232)
+    )
+  )
 
-(set! (-> *part-id-table* 2900)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-z -4.096 8.192 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 10.0) (meters 5.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.016666668))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int-plain-rnd spt-next-time 240 59 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2901)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2900
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.05 0.05 1.0)
+    (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-scalevel-x (meters 0.016666668))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.21333334)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int-plain-rnd spt-next-time 240 59 1)
+    (sp-launcher-by-id spt-next-launcher 2901)
+    )
+  )
 
-(set! (-> *part-id-table* 2901)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 2901
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
+  )
 
-(set! (-> *part-id-table* 2902) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 8.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int-plain-rnd spt-timer 30 149 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3)
-                                    (sp-flt spt-userdata 1638400.0)
-                                    (sp-func spt-func 'check-drop-level-lighteco-big-pops)
-                                    (sp-int-plain-rnd spt-next-time 45 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 2903)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2902
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 1.0 8.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00083333335))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int-plain-rnd spt-timer 30 149 1)
+    (sp-cpuinfo-flags bit0 bit2 bit3)
+    (sp-flt spt-userdata 1638400.0)
+    (sp-func spt-func 'check-drop-level-lighteco-big-pops)
+    (sp-int-plain-rnd spt-next-time 45 299 1)
+    (sp-launcher-by-id spt-next-launcher 2903)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 4))
+    )
+  )
 
-(set! (-> *part-id-table* 2903)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-userdata 2252800.0) (sp-end))
-        )
-      )
+(defpart 2903
+  :init-specs
+  ((sp-flt spt-userdata 2252800.0))
+  )
 
 (defun check-drop-level-lighteco-big-pops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
@@ -243,145 +221,120 @@
   (none)
   )
 
-(set! (-> *part-id-table* 2905) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -1.92)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2905
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-flt spt-fade-a -1.92)
+    (sp-int spt-timer 20)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 2904) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 4.0 4.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int-plain-rnd spt-timer 15 119 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2904
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 4.0 4.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+    (sp-flt spt-friction 0.85)
+    (sp-int-plain-rnd spt-timer 15 119 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 691)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-light-eco-mother"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2902) (sp-item 2900) (sp-item 2897) (sp-item 2898))
-        :bounds (new 'static 'sphere :w 131072.0)
-        )
-      )
+(defpartgroup group-light-eco-mother
+  :id 691
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 2902) (sp-item 2900) (sp-item 2897) (sp-item 2898))
+  )
 
-(set! (-> *part-group-id-table* 692)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-light-eco-child"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2906) (sp-item 2907))
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
+(defpartgroup group-light-eco-child
+  :id 692
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 2906) (sp-item 2907))
+  )
 
-(set! (-> *part-id-table* 2907)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.025 0.025 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-z -4.096 8.192 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int-plain-rnd spt-next-time 120 29 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2908)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2907
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.025 0.025 1.0)
+    (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.85333335)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int-plain-rnd spt-next-time 120 29 1)
+    (sp-launcher-by-id spt-next-launcher 2908)
+    )
+  )
 
-(set! (-> *part-id-table* 2908)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.85333335) (sp-end))
-        )
-      )
+(defpart 2908
+  :init-specs
+  ((sp-flt spt-fade-a -0.85333335))
+  )
 
-(set! (-> *part-id-table* 2906) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.5)
-                                    (sp-int-plain-rnd spt-timer 30 149 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3)
-                                    (sp-flt spt-userdata 1638400.0)
-                                    (sp-func spt-func 'check-drop-level-lighteco-pops)
-                                    (sp-int-plain-rnd spt-next-time 45 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 2909)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2906
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 1.0 2.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.3) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00083333335))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+    (sp-flt spt-friction 0.5)
+    (sp-int-plain-rnd spt-timer 30 149 1)
+    (sp-cpuinfo-flags bit0 bit2 bit3)
+    (sp-flt spt-userdata 1638400.0)
+    (sp-func spt-func 'check-drop-level-lighteco-pops)
+    (sp-int-plain-rnd spt-next-time 45 299 1)
+    (sp-launcher-by-id spt-next-launcher 2909)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2909)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-userdata 2048000.0) (sp-end))
-        )
-      )
+(defpart 2909
+  :init-specs
+  ((sp-flt spt-userdata 2048000.0))
+  )
 
 (defun check-drop-level-lighteco-pops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
@@ -409,48 +362,42 @@
   (none)
   )
 
-(set! (-> *part-id-table* 2911) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -1.92)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2911
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-flt spt-fade-a -1.92)
+    (sp-int spt-timer 20)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 2910) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 4.0 4.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int-plain-rnd spt-timer 15 119 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2910
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 4.0 4.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+    (sp-flt spt-friction 0.85)
+    (sp-int-plain-rnd spt-timer 15 119 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defbehavior light-eco-child-default-event-handler light-eco-child ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
   (case arg2
diff --git a/goal_src/levels/finalboss/sage-finalboss-FIN.gc b/goal_src/levels/finalboss/sage-finalboss-FIN.gc
index 721812b96b..fea023ac06 100644
--- a/goal_src/levels/finalboss/sage-finalboss-FIN.gc
+++ b/goal_src/levels/finalboss/sage-finalboss-FIN.gc
@@ -710,7 +710,11 @@
       )
     )
   :enter
-  (behavior () (set! (-> self credit-fade) 0.0) ((-> (method-of-type process-taskable play-anim) enter)) (none))
+  (behavior ()
+    (set! (-> self credit-fade) 0.0)
+    ((-> (method-of-type process-taskable play-anim) enter))
+    (none)
+    )
   :exit
   (behavior ()
     (when (= (current-status (-> self tasks)) (task-status invalid))
@@ -1114,15 +1118,27 @@
     (none)
     )
   :trans
-  (behavior () (sage-finalboss-extra-trans) ((-> (method-of-type process-taskable hidden) trans)) (none))
+  (behavior ()
+    (sage-finalboss-extra-trans)
+    ((-> (method-of-type process-taskable hidden) trans))
+    (none)
+    )
   )
 
 (defstate idle (sage-finalboss)
   :virtual #t
   :enter
-  (behavior () (sage-finalboss-extra-enter) ((-> (method-of-type process-taskable idle) enter)) (none))
+  (behavior ()
+    (sage-finalboss-extra-enter)
+    ((-> (method-of-type process-taskable idle) enter))
+    (none)
+    )
   :trans
-  (behavior () (sage-finalboss-extra-trans) ((-> (method-of-type process-taskable idle) trans)) (none))
+  (behavior ()
+    (sage-finalboss-extra-trans)
+    ((-> (method-of-type process-taskable idle) trans))
+    (none)
+    )
   )
 
 (defmethod init-from-entity! sage-finalboss ((obj sage-finalboss) (arg0 entity-actor))
diff --git a/goal_src/levels/finalboss/sage-finalboss-part.gc b/goal_src/levels/finalboss/sage-finalboss-part.gc
index 33cb475c5f..ccd092334d 100644
--- a/goal_src/levels/finalboss/sage-finalboss-part.gc
+++ b/goal_src/levels/finalboss/sage-finalboss-part.gc
@@ -7,17 +7,12 @@
 
 ;; DECOMP BEGINS
 
-(set!
-  (-> *part-group-id-table* 682)
-  (new 'static 'sparticle-launch-group
-   :length 8
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag screen-space)
-   :name "group-2d-credits-mist"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 8
-    (sp-item 2825 :period 300 :length 5 :binding 2823)
+(defpartgroup group-2d-credits-mist
+  :id 682
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2825 :period 300 :length 5 :binding 2823)
     (sp-item 2823 :flags (start-dead launch-asap) :binding 2824)
     (sp-item 2823 :flags (start-dead launch-asap) :binding 2824)
     (sp-item 2824 :flags (start-dead))
@@ -26,19 +21,14 @@
     (sp-item 2826)
     (sp-item 2827)
     )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2825)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2825
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -2.5) (meters 5.0) 1.0)
-    (sp-rnd-flt spt-y (meters -1.5) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-y (meters -1.5) (meters 3) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-g 128.0)
@@ -47,21 +37,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit3)
     (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2823)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2823
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 2048.0 819.2 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 0.2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -76,17 +61,12 @@
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2824)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2824
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -101,45 +81,35 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 198)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2827)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+(defpart 2827
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-z -16000.0)
-    (sp-flt spt-scale-x (meters 15.0))
-    (sp-flt spt-scale-y (meters 12.0))
+    (sp-flt spt-z (meters -3.90625))
+    (sp-flt spt-scale-x (meters 15))
+    (sp-flt spt-scale-y (meters 12))
     (sp-flt spt-r 0.0)
     (sp-flt spt-g 0.0)
     (sp-flt spt-b 0.0)
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit13 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2826)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2826
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.3)
-    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-    (sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
-    (sp-rnd-flt spt-z 0.0 14000.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+    (sp-rnd-flt spt-y (meters -3) (meters 6) 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 3.4179688) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 6.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 6) (meters 8) 1.0)
     (sp-rnd-flt spt-r 16.0 80.0 1.0)
     (sp-rnd-flt spt-g 0.0 16.0 1.0)
     (sp-rnd-flt spt-b 16.0 150.0 1.0)
@@ -152,62 +122,40 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-int-plain-rnd spt-next-time 150 149 1)
     (sp-launcher-by-id spt-next-launcher 2828)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2828)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
+(defpart 2828
+  :init-specs
+  ((sp-flt spt-fade-a 0.0)
     (sp-int-plain-rnd spt-next-time 300 299 1)
     (sp-launcher-by-id spt-next-launcher 2829)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2829)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.21333334)
-    (sp-end)
-    )
-   )
+(defpart 2829
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
   )
 
-(set!
-  (-> *part-group-id-table* 699)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-target-white-eco-ground"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 2921)
+(defpartgroup group-target-white-eco-ground
+  :id 699
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2921)
     (sp-item 2922 :flags (is-3d))
     (sp-item 2923 :flags (is-3d))
     (sp-item 2924 :flags (is-3d))
     (sp-item 2925)
     (sp-item 2926)
     )
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2921)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-flt spt-num 1.5)
+(defpart 2921
+  :init-specs
+  ((sp-flt spt-num 1.5)
     (sp-flt spt-x (meters 2.5))
     (sp-flt spt-y (meters -0.5))
     (sp-int spt-rot-x 8)
@@ -220,32 +168,21 @@
     (sp-int spt-next-time 180)
     (sp-launcher-by-id spt-next-launcher 2927)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2927)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -4.551111)
-    (sp-end)
-    )
-   )
+(defpart 2927
+  :init-specs
+  ((sp-flt spt-fade-b -4.551111))
   )
 
-(set!
-  (-> *part-id-table* 2924)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2924
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.1))
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -257,24 +194,19 @@
     (sp-int spt-timer 81)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2922)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2922
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-flt spt-rot-x 16384.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 8.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 8) (meters 8) 1.0)
     (sp-rnd-int spt-r 0 1 128.0)
     (sp-rnd-flt spt-g 64.0 196.0 1.0)
     (sp-rnd-flt spt-b 128.0 128.0 1.0)
@@ -284,23 +216,18 @@
     (sp-int spt-timer 81)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2923)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2923
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 1.0 2.0 1.0)
-    (sp-rnd-flt spt-x (meters 1.8) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters 1.8) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-rot-x 16384.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 3) 1.0)
     (sp-rnd-int spt-r 0 1 128.0)
     (sp-rnd-flt spt-g 64.0 196.0 1.0)
     (sp-rnd-flt spt-b 128.0 128.0 1.0)
@@ -310,19 +237,14 @@
     (sp-int spt-timer 81)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2925)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2925
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 1.0 3.0 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 5.5) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 5.5) 1.0)
     (sp-flt spt-y (meters -0.5))
     (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -332,7 +254,7 @@
     (sp-flt spt-b 255.0)
     (sp-rnd-flt spt-a 64.0 64.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
     (sp-flt spt-fade-a -0.42666668)
     (sp-flt spt-accel-y 6.826667)
@@ -340,21 +262,16 @@
     (sp-int-plain-rnd spt-timer 180 119 1)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2926)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2926
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 3.0 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 5.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 5) 1.0)
     (sp-flt spt-y (meters -0.5))
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 32.0 1.0)
@@ -362,7 +279,7 @@
     (sp-rnd-flt spt-b 10.0 5.0 1.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
     (sp-flt spt-fade-a 0.6)
     (sp-flt spt-accel-y 6.826667)
@@ -372,57 +289,38 @@
     (sp-int spt-next-time 45)
     (sp-launcher-by-id spt-next-launcher 2928)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2928)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.18)
-    (sp-end)
-    )
-   )
+(defpart 2928
+  :init-specs
+  ((sp-flt spt-fade-a -0.18))
   )
 
-(set!
-  (-> *part-group-id-table* 700)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-target-white-eco-joints"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 2929)
-    (sp-item 2930)
-    )
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
+(defpartgroup group-target-white-eco-joints
+  :id 700
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2929) (sp-item 2930))
   )
 
-(set!
-  (-> *part-id-table* 2930)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2930
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.2 1.0)
     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-    (sp-rnd-flt spt-z -4.096 8.192 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 64.0 1.0)
     (sp-rnd-flt spt-g 192.0 64.0 1.0)
     (sp-rnd-flt spt-b 192.0 64.0 1.0)
     (sp-flt spt-a 0.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-scalevel-x (meters 0.006666667))
     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
     (sp-copy-from-other spt-scalevel-y -4)
@@ -432,28 +330,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int-plain-rnd spt-next-time 120 29 1)
     (sp-launcher-by-id spt-next-launcher 2931)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2931)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.10666667)
-    (sp-end)
-    )
-   )
+(defpart 2931
+  :init-specs
+  ((sp-flt spt-fade-a -0.10666667))
   )
 
-(set!
-  (-> *part-id-table* 2929)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2929
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 1.0 8.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -474,56 +361,43 @@
     (sp-launcher-by-id spt-next-launcher 2932)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2932)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-userdata 2048000.0)
-    (sp-end)
-    )
-   )
+(defpart 2932
+  :init-specs
+  ((sp-flt spt-userdata 2048000.0))
   )
 
-(defun
-  check-drop-level-eichar-lighteco-pops
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-eichar-lighteco-pops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (set-vector! gp-0 (-> arg2 x) (-> arg2 y) (-> arg2 z) 1.0)
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 2933)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 2934)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (set-vector! gp-0 (-> arg2 x) (-> arg2 y) (-> arg2 z) 1.0)
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 2933)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 2934)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
+      )
     )
-   )
   (none)
   )
 
-(set!
-  (-> *part-id-table* 2934)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2934
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -535,17 +409,12 @@
     (sp-flt spt-fade-a -1.92)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2933)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2933
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 4.0 4.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -560,34 +429,24 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 701)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-target-white-eco-hand-glow"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2892))
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
+(defpartgroup group-target-white-eco-hand-glow
+  :id 701
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2892))
   )
 
-(set!
-  (-> *part-id-table* 2892)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2892
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 4.0 3.0 1.0)
     (sp-rnd-flt spt-x (meters -0.2) (meters -0.1) 1.0)
-    (sp-rnd-flt spt-z 819.2 409.6 1.0)
+    (sp-rnd-flt spt-z (meters 0.2) (meters 0.1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -595,7 +454,7 @@
     (sp-flt spt-g 255.0)
     (sp-flt spt-b 255.0)
     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-scalevel-x (meters -0.005))
     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
     (sp-copy-from-other spt-scalevel-y -4)
@@ -603,40 +462,27 @@
     (sp-flt spt-accel-y 6.826667)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 702)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-target-white-eco-hand-shot"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 2893)
-    (sp-item 2935)
-    )
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
+(defpartgroup group-target-white-eco-hand-shot
+  :id 702
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2893) (sp-item 2935))
   )
 
-(set!
-  (-> *part-id-table* 2935)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2935
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 4.0)
     (sp-rnd-flt spt-x (meters -0.2) (meters -0.1) 1.0)
-    (sp-rnd-flt spt-z 819.2 409.6 1.0)
+    (sp-rnd-flt spt-z (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-scale-x (meters 0.05))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 6.0) (meters 9.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 6) (meters 9) 1.0)
     (sp-flt spt-r 255.0)
     (sp-flt spt-g 255.0)
     (sp-flt spt-b 255.0)
@@ -645,20 +491,15 @@
     (sp-flt spt-fade-a -1.6)
     (sp-int spt-timer 60)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2893)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2893
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-x (meters -0.2) (meters -0.1) 1.0)
-    (sp-rnd-flt spt-z 819.2 409.6 1.0)
+    (sp-rnd-flt spt-z (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -667,45 +508,34 @@
     (sp-flt spt-b 255.0)
     (sp-flt spt-a 32.0)
     (sp-flt spt-vel-x (meters -0.033333335))
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-scalevel-x (meters 0.21333334))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 703)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-robotboss-joints"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 2936 :period 36 :length 5)
+(defpartgroup group-robotboss-joints
+  :id 703
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2936 :period 36 :length 5)
     (sp-item 2936 :period 140 :length 5)
     (sp-item 2936 :period 61 :length 5)
     (sp-item 2894 :period 15 :length 5)
     (sp-item 2937)
     )
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2937)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2937
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 16.0) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 16) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-rnd-flt spt-g 192.0 32.0 1.0)
@@ -714,29 +544,24 @@
     (sp-flt spt-fade-a -2.3272727)
     (sp-int spt-timer 54)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2894)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2894
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-rnd-flt spt-g 128.0 64.0 1.0)
     (sp-flt spt-b 255.0)
     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-scalevel-x (meters 0.013333334))
     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
     (sp-copy-from-other spt-scalevel-y -4)
@@ -746,20 +571,15 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-int-plain-rnd spt-next-time 20 89 1)
     (sp-launcher-by-id spt-next-launcher 2596)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2936)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2936
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-int spt-num 0 1 8.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.0) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 32.0 1.0)
     (sp-rnd-flt spt-g 192.0 32.0 1.0)
@@ -779,23 +599,17 @@
     (sp-launcher-by-id spt-next-launcher 2595)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 696)
-  (new 'static 'sparticle-launch-group
-   :length 23
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-robotboss-explode"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 23
-    (sp-item 2939 :period 1200 :length 20 :binding 2938)
+(defpartgroup group-robotboss-explode
+  :id 696
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2939 :period 1200 :length 20 :binding 2938)
     (sp-item 2940 :period 1200 :length 5)
     (sp-item 2941 :period 1200 :length 40)
     (sp-item 2942 :period 1200 :length 20)
@@ -819,19 +633,14 @@
     (sp-item 2938 :flags (start-dead))
     (sp-item 2938 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2939)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2939
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 4.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -839,7 +648,7 @@
     (sp-flt spt-b 255.0)
     (sp-rnd-flt spt-a 128.0 128.0 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.33333334) (meters 0.85333335) 1.0)
-    (sp-flt spt-scalevel-x (meters 0.0))
+    (sp-flt spt-scalevel-x (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-rnd-flt spt-accel-y -15.701333 -70.31467 1.0)
@@ -848,20 +657,15 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-rnd-flt spt-conerot-x (degrees -120.0) (degrees 240.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 40.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 40) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2938)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2938
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 32.0 1.0)
@@ -876,32 +680,20 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 42)
     (sp-launcher-by-id spt-next-launcher 2946)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2946)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-g -0.14222223)
-    (sp-flt spt-fade-b -0.14222223)
-    (sp-end)
-    )
-   )
+(defpart 2946
+  :init-specs
+  ((sp-flt spt-fade-g -0.14222223) (sp-flt spt-fade-b -0.14222223))
   )
 
-(set!
-  (-> *part-id-table* 2945)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 2945
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-flt spt-y (meters 10.0))
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 60.0) 1.0)
+    (sp-flt spt-y (meters 10))
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 60) 1.0)
     (sp-rnd-flt spt-rot-x 0.0 262144.0 1.0)
     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -915,31 +707,20 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14 left-multiply-quat)
     (sp-int-plain-rnd spt-next-time 60 149 1)
     (sp-launcher-by-id spt-next-launcher 2947)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2947)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.21333334)
-    (sp-end)
-    )
-   )
+(defpart 2947
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
   )
 
-(set!
-  (-> *part-id-table* 2941)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2941
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 128.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 1.0) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 32.0 1.0)
     (sp-rnd-flt spt-g 128.0 64.0 1.0)
@@ -954,34 +735,23 @@
     (sp-launcher-by-id spt-next-launcher 2948)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2948)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -1.0666667)
-    (sp-end)
-    )
-   )
+(defpart 2948
+  :init-specs
+  ((sp-flt spt-fade-a -1.0666667))
   )
 
-(set!
-  (-> *part-id-table* 2944)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2944
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 16.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-    (sp-flt spt-scale-y (meters 128.0))
+    (sp-flt spt-scale-y (meters 128))
     (sp-rnd-flt spt-r 192.0 32.0 1.0)
     (sp-rnd-flt spt-g 128.0 64.0 1.0)
     (sp-rnd-flt spt-b 64.0 64.0 1.0)
@@ -990,20 +760,15 @@
     (sp-flt spt-fade-a -0.64)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2940)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2940
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-flt spt-scale-x (meters 256.0))
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-scale-x (meters 256))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 32.0 1.0)
     (sp-rnd-flt spt-g 128.0 64.0 1.0)
@@ -1012,20 +777,15 @@
     (sp-flt spt-fade-a -2.3272727)
     (sp-int spt-timer 54)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2942)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2942
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 16.0)
-    (sp-rnd-flt spt-y (meters -8.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 20.0) (meters 40.0) 1.0)
+    (sp-rnd-flt spt-y (meters -8) (meters 16) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 20) (meters 40) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 32.0 1.0)
@@ -1043,21 +803,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 32.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 32) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2943)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2943
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 20.0)
-    (sp-rnd-flt spt-y (meters -8.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
+    (sp-rnd-flt spt-y (meters -8) (meters 16) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 40) (meters 40) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 32.0 1.0)
@@ -1075,38 +830,25 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 32.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 32) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 704)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-robotboss-splash"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 2949)
-    (sp-item 2950)
-    )
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
+(defpartgroup group-robotboss-splash
+  :id 704
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2949) (sp-item 2950))
   )
 
-(set!
-  (-> *part-id-table* 2950)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2950
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 128.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 5.0) 1.0)
-    (sp-flt spt-y (meters -8.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 5) 1.0)
+    (sp-flt spt-y (meters -8))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 128.0 1.0)
@@ -1124,37 +866,23 @@
     (sp-launcher-by-id spt-next-launcher 2951)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2951)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-flt spt-fade-a -0.21333334)
-    (sp-end)
-    )
-   )
+(defpart 2951
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.21333334))
   )
 
-(set!
-  (-> *part-id-table* 2949)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2949
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 16.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 10.0) 1.0)
-    (sp-flt spt-y (meters -10.0))
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 10) 1.0)
+    (sp-flt spt-y (meters -10))
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 6) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 128.0 1.0)
     (sp-rnd-flt spt-g 0.0 32.0 1.0)
@@ -1168,22 +896,16 @@
     (sp-int-plain-rnd spt-next-time 150 299 1)
     (sp-launcher-by-id spt-next-launcher 2951)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 698)
-  (new 'static 'sparticle-launch-group
-   :length 7
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-bigdoor-open"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 7
-    (sp-item 2952 :flags (is-3d))
+(defpartgroup group-bigdoor-open
+  :id 698
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2952 :flags (is-3d))
     (sp-item 2953 :flags (is-3d))
     (sp-item 2954 :flags (is-3d))
     (sp-item 2955)
@@ -1191,20 +913,15 @@
     (sp-item 2957)
     (sp-item 2958)
     )
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2952)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2952
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-flt spt-y (meters 10.0))
-    (sp-flt spt-z 16384.0)
-    (sp-flt spt-scale-x (meters 48.0))
+    (sp-flt spt-y (meters 10))
+    (sp-flt spt-z (meters 4))
+    (sp-flt spt-scale-x (meters 48))
     (sp-flt spt-rot-x 16384.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -1218,32 +935,21 @@
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2959)
     (sp-flt spt-rotate-y (degrees 40.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2959)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.16)
-    (sp-end)
-    )
-   )
+(defpart 2959
+  :init-specs
+  ((sp-flt spt-fade-a -0.16))
   )
 
-(set!
-  (-> *part-id-table* 2953)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2953
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-flt spt-y (meters 10.0))
-    (sp-flt spt-z 16384.0)
-    (sp-flt spt-scale-x (meters 48.0))
+    (sp-flt spt-y (meters 10))
+    (sp-flt spt-z (meters 4))
+    (sp-flt spt-scale-x (meters 48))
     (sp-flt spt-rot-z (degrees -90.0))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -1257,21 +963,16 @@
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2959)
     (sp-flt spt-rotate-y (degrees 40.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2954)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2954
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 0.1)
     (sp-flt spt-y (meters 0.5))
-    (sp-flt spt-z 16384.0)
-    (sp-flt spt-scale-x (meters 40.0))
+    (sp-flt spt-z (meters 4))
+    (sp-flt spt-scale-x (meters 40))
     (sp-flt spt-rot-y (degrees -50.000004))
     (sp-flt spt-rot-z (degrees 1.0))
     (sp-copy-from-other spt-scale-y -4)
@@ -1286,21 +987,16 @@
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2959)
     (sp-flt spt-rotate-y (degrees 40.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2955)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 2955
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-rnd-flt spt-num 1.0 2.0 1.0)
-    (sp-flt spt-y (meters 10.0))
-    (sp-flt spt-z 32768.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 32.0) 1.0)
+    (sp-flt spt-y (meters 10))
+    (sp-flt spt-z (meters 8))
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 32) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 2.5) (meters 5.5) 1.0)
@@ -1316,21 +1012,16 @@
     (sp-int-plain-rnd spt-next-time 75 74 1)
     (sp-launcher-by-id spt-next-launcher 2959)
     (sp-flt spt-rotate-y (degrees 40.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2956)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 2956
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-flt spt-y (meters 10.0))
-    (sp-flt spt-z 32768.0)
-    (sp-flt spt-scale-x (meters 64.0))
+    (sp-flt spt-y (meters 10))
+    (sp-flt spt-z (meters 8))
+    (sp-flt spt-scale-x (meters 64))
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-scale-y (meters 1.5))
@@ -1346,20 +1037,15 @@
     (sp-int-plain-rnd spt-next-time 75 74 1)
     (sp-launcher-by-id spt-next-launcher 2959)
     (sp-flt spt-rotate-y (degrees 40.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2957)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2957
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 32.0)
-    (sp-rnd-flt spt-x (meters 10.0) (meters 40.0) 1.0)
-    (sp-rnd-flt spt-y (meters 1.0) (meters 20.0) 1.0)
+    (sp-rnd-flt spt-x (meters 10) (meters 40) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -1373,31 +1059,20 @@
     (sp-int-plain-rnd spt-next-time 75 74 1)
     (sp-launcher-by-id spt-next-launcher 2960)
     (sp-rnd-flt spt-rotate-y (degrees -135.0) (degrees 1440.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2960)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.85333335)
-    (sp-end)
-    )
-   )
+(defpart 2960
+  :init-specs
+  ((sp-flt spt-fade-a -0.85333335))
   )
 
-(set!
-  (-> *part-id-table* 2958)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2958
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 10.0) (meters 30.0) 1.0)
-    (sp-rnd-flt spt-y (meters 1.0) (meters 20.0) 1.0)
+    (sp-rnd-flt spt-x (meters 10) (meters 30) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -1413,58 +1088,45 @@
     (sp-int-plain-rnd spt-next-time 75 74 1)
     (sp-launcher-by-id spt-next-launcher 2961)
     (sp-rnd-flt spt-rotate-y (degrees -135.0) (degrees 1440.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2961)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-userdata 4096000.0)
-    (sp-end)
-    )
-   )
+(defpart 2961
+  :init-specs
+  ((sp-flt spt-userdata 4096000.0))
   )
 
-(defun
-  check-drop-level-bigdoor-open-pops
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-bigdoor-open-pops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (set-vector! gp-0 (-> arg2 x) (-> arg2 y) (-> arg2 z) 1.0)
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 2962)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 2963)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (set-vector! gp-0 (-> arg2 x) (-> arg2 y) (-> arg2 z) 1.0)
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 2962)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 2963)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
+      )
     )
-   )
   (none)
   )
 
-(set!
-  (-> *part-id-table* 2963)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2963
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -1474,17 +1136,12 @@
     (sp-flt spt-fade-a -1.92)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2962)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2962
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 4.0 4.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1499,44 +1156,31 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 706)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag screen-space)
-   :name "group-2d-big-door-whiteout"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2965))
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
+(defpartgroup group-2d-big-door-whiteout
+  :id 706
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2965))
   )
 
-(set!
-  (-> *part-id-table* 2965)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+(defpart 2965
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-z -16000.0)
-    (sp-flt spt-scale-x (meters 15.0))
-    (sp-flt spt-scale-y (meters 12.0))
+    (sp-flt spt-z (meters -3.90625))
+    (sp-flt spt-scale-x (meters 15))
+    (sp-flt spt-scale-y (meters 12))
     (sp-flt spt-r 255.0)
     (sp-flt spt-g 255.0)
     (sp-flt spt-b 255.0)
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
 0
diff --git a/goal_src/levels/firecanyon/assistant-firecanyon.gc b/goal_src/levels/firecanyon/assistant-firecanyon.gc
index 1eb191e1d5..f6b120ed17 100644
--- a/goal_src/levels/firecanyon/assistant-firecanyon.gc
+++ b/goal_src/levels/firecanyon/assistant-firecanyon.gc
@@ -25,801 +25,499 @@
   :shadow 2
   )
 
-(defmethod
-  play-anim!
-  assistant-firecanyon
-  ((obj assistant-firecanyon) (arg0 symbol))
-  (case (current-status (-> obj tasks)) 
-   (((task-status need-reward-speech))
+(defmethod play-anim! assistant-firecanyon ((obj assistant-firecanyon) (arg0 symbol))
+  (case (current-status (-> obj tasks))
+    (((task-status need-reward-speech))
      (if arg0
-      (close-current! (-> obj tasks))
-      )
+         (close-current! (-> obj tasks))
+         )
      (new 'static 'spool-anim
-      :name "assistant-firecanyon-resolution"
-      :index 13
-      :parts 11
-      :command-list
-      '(
-        (0
-          want-levels
-          village1
-          firecanyon
+       :name "assistant-firecanyon-resolution"
+       :index 13
+       :parts 11
+       :command-list
+       '((0 want-levels village1 firecanyon)
+         (151 joint "cameraB")
+         (346 joint "camera")
+         (346 shadow self #f)
+         (461 joint "cameraB")
+         (546 joint "camera")
+         (636 joint "cameraB")
+         (695 alive "balloon-12")
+         (696 joint "camera")
+         (821 alive "balloon-16")
+         (822 joint "cameraB")
+         (962 joint "camera")
+         (1268 shadow self #t)
+         )
+       )
+     )
+    (else
+      (if arg0
+          (format
+            0
+            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+            (-> obj name)
+            (task-status->string (current-status (-> obj tasks)))
+            )
           )
-        ((the binteger 151)
-         joint
-         "cameraB"
-         )
-        ((the binteger 346)
-         joint
-         "camera"
-         )
-        ((the binteger 346)
-         shadow
-         self
-         #f
-         )
-        ((the binteger 461)
-         joint
-         "cameraB"
-         )
-        ((the binteger 546)
-         joint
-         "camera"
-         )
-        ((the binteger 636)
-         joint
-         "cameraB"
-         )
-        ((the binteger 695)
-         alive
-         "balloon-12"
-         )
-        ((the binteger 696)
-         joint
-         "camera"
-         )
-        ((the binteger 821)
-         alive
-         "balloon-16"
-         )
-        ((the binteger 822)
-         joint
-         "cameraB"
-         )
-        ((the binteger 962) joint "camera") ((the binteger 1268) shadow self #t)
-        )
+      (-> obj draw art-group data 3)
       )
-     )
-   (else
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
-      )
-     )
-    (-> obj draw art-group data 3)
     )
-   )
   )
 
 (defmethod get-art-elem assistant-firecanyon ((obj assistant-firecanyon))
   (if (= (current-status (-> obj tasks)) (task-status invalid))
-   (-> obj draw art-group data 8)
-   (-> obj draw art-group data 3)
-   )
+      (-> obj draw art-group data 8)
+      (-> obj draw art-group data 3)
+      )
   )
 
 (defstate hidden (assistant-firecanyon)
   :virtual #t
   :trans
   (behavior ()
-   ((-> (method-of-type process-taskable hidden) trans))
-   (when (and (cond
-               ((and
-                 *target*
-                 (>=
-                  61440.0
-                  (vector-vector-distance
-                   (-> self root-override trans)
-                   (-> *target* control trans)
-                   )
+    ((-> (method-of-type process-taskable hidden) trans))
+    (when (and (cond
+                 ((and *target* (>= 61440.0 (vector-vector-distance (-> self root-override trans) (-> *target* control trans))))
+                  #t
                   )
+                 (else
+                   (set! (-> self state-time) (-> *display* base-frame-counter))
+                   #f
+                   )
                  )
-                #t
-                )
-               (else
-                (set! (-> self state-time) (-> *display* base-frame-counter))
-                #f
-                )
+               (and (not (closed? (-> self tasks) (game-task firecanyon-assistant) (task-status need-reward-speech)))
+                    (not (movie?))
+                    (not (level-hint-displayed?))
+                    (not (and *cheat-mode* (cpad-hold? 0 l3)))
+                    (< (- (-> *display* base-frame-counter) (-> self state-time)) 3000)
+                    )
                )
-          (and
-           (not
-            (closed?
-             (-> self tasks)
-             (game-task firecanyon-assistant)
-             (task-status need-reward-speech)
-             )
+      (hide-hud)
+      (kill-current-level-hint '() '(sidekick voicebox) 'exit)
+      (when (and (seen-text? *game-info* (game-text-id firecanyon-not-enough-cells))
+                 (hud-hidden?)
+                 (can-grab-display? self)
+                 (not (-> *setting-control* current hint))
+                 )
+        (let ((gp-0
+                (new 'stack 'font-context *font-default-matrix* 32 160 0.0 (font-color default) (font-flags shadow kerning))
+                )
+              )
+          (let ((v1-26 gp-0))
+            (set! (-> v1-26 width) (the float 448))
             )
-           (not (movie?))
-           (not (level-hint-displayed?))
-           (not
-            (and
-             *cheat-mode*
-             (logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l3))
-             )
+          (let ((v1-27 gp-0))
+            (set! (-> v1-27 height) (the float 80))
             )
-           (< (- (-> *display* base-frame-counter) (-> self state-time)) 3000)
-           )
+          (let ((v1-28 gp-0))
+            (set! (-> v1-28 scale) 0.8)
+            )
+          (set! (-> gp-0 flags) (font-flags shadow kerning middle large))
+          (print-game-text (lookup-text! *common-text* (game-text-id firecanyon-collect-cells-text) #f) gp-0 #f 128 22)
           )
-    (hide-hud)
-    (kill-current-level-hint '() '(sidekick voicebox) 'exit)
-    (when
-     (and
-      (seen-text? *game-info* (game-text-id firecanyon-not-enough-cells))
-      (hud-hidden?)
-      (can-grab-display? self)
-      (not (-> *setting-control* current hint))
-      )
-     (let
-      ((gp-0
-        (new
-         'stack
-         'font-context
-         *font-default-matrix*
-         32
-         160
-         0.0
-         (font-color default)
-         (font-flags shadow kerning)
-         )
         )
-       )
-      (let ((v1-26 gp-0))
-       (set! (-> v1-26 width) (the float 448))
-       )
-      (let ((v1-27 gp-0))
-       (set! (-> v1-27 height) (the float 80))
-       )
-      (let ((v1-28 gp-0))
-       (set! (-> v1-28 scale) 0.8)
-       )
-      (set! (-> gp-0 flags) (font-flags shadow kerning middle large))
-      (print-game-text
-       (lookup-text!
-        *common-text*
-        (game-text-id firecanyon-collect-cells-text)
-        #f
+      (level-hint-spawn
+        (game-text-id firecanyon-not-enough-cells)
+        "asstvb09"
+        (the-as entity #f)
+        *entity-pool*
+        (game-task none)
         )
-       gp-0
-       #f
-       128
-       22
-       )
       )
-     )
-    (level-hint-spawn
-     (game-text-id firecanyon-not-enough-cells)
-     "asstvb09"
-     (the-as entity #f)
-     *entity-pool*
-     (game-task none)
-     )
+    (none)
     )
-   (none)
-   )
   )
 
 (defstate idle (assistant-firecanyon)
   :virtual #t
   :code
   (behavior ()
-   (if (!= (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
-            )
-        (get-art-elem self)
-        )
-    (ja-channel-push! 1 15)
-    )
-   (while #t
-    (let ((gp-0 #t))
-     (cond
-      ((= (current-status (-> self tasks)) (task-status invalid))
-       (let* ((v1-8 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-9 (the-as number (logior #x3f800000 v1-8)))
-              )
-        (when (< (+ -1.0 (the-as float v1-9)) 0.5)
-         (let ((v1-14 (-> self skel root-channel 0)))
-          (set!
-           (-> v1-14 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 8))
-           )
-          )
-         (let* ((f30-0 2.0)
-                (v1-16
-                 (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
-                 )
-                (v1-17 (the-as number (logior #x3f800000 v1-16)))
+    (if (!= (if (> (-> self skel active-channels) 0)
+                (-> self skel root-channel 0 frame-group)
                 )
-          (countdown
-           (gp-1 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-17)))) 3))
-           (let ((a0-15 (-> self skel root-channel 0)))
-            (set!
-             (-> a0-15 frame-group)
-             (if (> (-> self skel active-channels) 0)
-              (-> self skel root-channel 0 frame-group)
-              )
-             )
-            (set!
-             (-> a0-15 param 0)
-             (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                                (-> self skel root-channel 0 frame-group)
-                                )
-                            data
-                            0
-                            length
-                            )
-                         -1
-                         )
-              )
-             )
-            (set! (-> a0-15 param 1) 1.0)
-            (set! (-> a0-15 frame-num) 0.0)
-            (joint-control-channel-group!
-             a0-15
-             (if (> (-> self skel active-channels) 0)
-              (-> self skel root-channel 0 frame-group)
-              )
-             num-func-seek!
-             )
+            (get-art-elem self)
             )
-           (until (ja-done? 0)
-            (suspend)
-            (let ((a0-16 (-> self skel root-channel 0)))
-             (set!
-              (-> a0-16 param 0)
-              (the float (+ (-> a0-16 frame-group data 0 length) -1))
-              )
-             (set! (-> a0-16 param 1) 1.0)
-             (joint-control-channel-group-eval!
-              a0-16
-              (the-as art-joint-anim #f)
-              num-func-seek!
-              )
-             )
-            )
-           )
-          )
-         (set! gp-0 #f)
-         )
+        (ja-channel-push! 1 15)
         )
-       (when
-        (or
-         gp-0
-         (let*
-          ((v1-53 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-54 (the-as number (logior #x3f800000 v1-53)))
-           )
-          (< (+ -1.0 (the-as float v1-54)) 0.5)
-          )
-         )
-        (let ((a0-20 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-20 frame-group)
-          (the-as art-joint-anim (-> self draw art-group data 9))
-          )
-         (set!
-          (-> a0-20 param 0)
-          (the
-           float
-           (+
-            (->
-             (the-as art-joint-anim (-> self draw art-group data 9))
-             data
-             0
-             length
-             )
-            -1
-            )
-           )
-          )
-         (set! (-> a0-20 param 1) 1.0)
-         (set! (-> a0-20 frame-num) 0.0)
-         (joint-control-channel-group!
-          a0-20
-          (the-as art-joint-anim (-> self draw art-group data 9))
-          num-func-seek!
-          )
-         )
-        (until (ja-done? 0)
-         (suspend)
-         (let ((a0-21 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-21 param 0)
-           (the float (+ (-> a0-21 frame-group data 0 length) -1))
-           )
-          (set! (-> a0-21 param 1) 1.0)
-          (joint-control-channel-group-eval!
-           a0-21
-           (the-as art-joint-anim #f)
-           num-func-seek!
-           )
-          )
-         )
-        (let ((v1-81 (-> self skel root-channel 0)))
-         (set!
-          (-> v1-81 frame-group)
-          (the-as art-joint-anim (-> self draw art-group data 10))
-          )
-         )
-        (let* ((f30-1 2.0)
-               (v1-83 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-               (v1-84 (the-as number (logior #x3f800000 v1-83)))
-               )
-         (countdown
-          (gp-2 (+ (the int (* f30-1 (+ -1.0 (the-as float v1-84)))) 3))
-          (let ((a0-28 (-> self skel root-channel 0)))
-           (set! (-> a0-28 frame-group) (if (> (-> self skel active-channels) 0)
-                                         (->
-                                          self
-                                          skel
-                                          root-channel
-                                          0
-                                          frame-group
-                                          )
-                                         )
-            )
-           (set!
-            (-> a0-28 param 0)
-            (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                               (-> self skel root-channel 0 frame-group)
-                               )
-                           data
-                           0
-                           length
+    (while #t
+      (let ((gp-0 #t))
+        (cond
+          ((= (current-status (-> self tasks)) (task-status invalid))
+           (let* ((v1-8 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                  (v1-9 (the-as number (logior #x3f800000 v1-8)))
+                  )
+             (when (< (+ -1.0 (the-as float v1-9)) 0.5)
+               (let ((v1-14 (-> self skel root-channel 0)))
+                 (set! (-> v1-14 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
+                 )
+               (let* ((f30-0 2.0)
+                      (v1-16 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                      (v1-17 (the-as number (logior #x3f800000 v1-16)))
+                      )
+                 (countdown (gp-1 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-17)))) 3))
+                   (let ((a0-15 (-> self skel root-channel 0)))
+                     (set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
+                                                      (-> self skel root-channel 0 frame-group)
+                                                      )
                            )
-                        -1
-                        )
-             )
-            )
-           (set! (-> a0-28 param 1) 1.0)
-           (set! (-> a0-28 frame-num) 0.0)
-           (joint-control-channel-group!
-            a0-28
-            (if (> (-> self skel active-channels) 0)
-             (-> self skel root-channel 0 frame-group)
-             )
-            num-func-seek!
-            )
-           )
-          (until (ja-done? 0)
-           (suspend)
-           (let ((a0-29 (-> self skel root-channel 0)))
-            (set!
-             (-> a0-29 param 0)
-             (the float (+ (-> a0-29 frame-group data 0 length) -1))
-             )
-            (set! (-> a0-29 param 1) 1.0)
-            (joint-control-channel-group-eval!
-             a0-29
-             (the-as art-joint-anim #f)
-             num-func-seek!
-             )
-            )
-           )
-          )
-         )
-        (let ((a0-31 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-31 frame-group)
-          (the-as art-joint-anim (-> self draw art-group data 11))
-          )
-         (set!
-          (-> a0-31 param 0)
-          (the
-           float
-           (+
-            (->
-             (the-as art-joint-anim (-> self draw art-group data 11))
-             data
-             0
-             length
-             )
-            -1
-            )
-           )
-          )
-         (set! (-> a0-31 param 1) 1.0)
-         (set! (-> a0-31 frame-num) 0.0)
-         (joint-control-channel-group!
-          a0-31
-          (the-as art-joint-anim (-> self draw art-group data 11))
-          num-func-seek!
-          )
-         )
-        (until (ja-done? 0)
-         (suspend)
-         (let ((a0-32 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-32 param 0)
-           (the float (+ (-> a0-32 frame-group data 0 length) -1))
-           )
-          (set! (-> a0-32 param 1) 1.0)
-          (joint-control-channel-group-eval!
-           a0-32
-           (the-as art-joint-anim #f)
-           num-func-seek!
-           )
-          )
-         )
-        )
-       (let* ((v1-140 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-141 (the-as number (logior #x3f800000 v1-140)))
-              )
-        (when (< (+ -1.0 (the-as float v1-141)) 0.25)
-         (let ((v1-146 (-> self skel root-channel 0)))
-          (set!
-           (-> v1-146 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 12))
-           )
-          )
-         (let ((a0-39 (-> self skel root-channel 0)))
-          (set! (-> a0-39 frame-group) (if (> (-> self skel active-channels) 0)
-                                        (->
-                                         self
-                                         skel
-                                         root-channel
-                                         0
-                                         frame-group
-                                         )
-                                        )
-           )
-          (set!
-           (-> a0-39 param 0)
-           (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                              (-> self skel root-channel 0 frame-group)
-                              )
-                          data
-                          0
-                          length
-                          )
-                       -1
+                     (set! (-> a0-15 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                                    (-> self skel root-channel 0 frame-group)
+                                                                    )
+                                                                data
+                                                                0
+                                                                length
+                                                                )
+                                                            -1
+                                                            )
+                                                   )
+                           )
+                     (set! (-> a0-15 param 1) 1.0)
+                     (set! (-> a0-15 frame-num) 0.0)
+                     (joint-control-channel-group!
+                       a0-15
+                       (if (> (-> self skel active-channels) 0)
+                           (-> self skel root-channel 0 frame-group)
+                           )
+                       num-func-seek!
                        )
-            )
-           )
-          (set! (-> a0-39 param 1) 1.0)
-          (set! (-> a0-39 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-39
-           (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
-            )
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (suspend)
-          (let ((a0-40 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-40 param 0)
-            (the float (+ (-> a0-40 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-40 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-40
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         )
-        )
-       )
-      (else
-       (let* ((v1-176 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-177 (the-as number (logior #x3f800000 v1-176)))
-              )
-        (when (< (+ -1.0 (the-as float v1-177)) 0.8)
-         (let ((v1-182 (-> self skel root-channel 0)))
-          (set!
-           (-> v1-182 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 3))
-           )
-          )
-         (let* ((f30-2 4.0)
-                (v1-184
-                 (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
+                     )
+                   (until (ja-done? 0)
+                     (suspend)
+                     (let ((a0-16 (-> self skel root-channel 0)))
+                       (set! (-> a0-16 param 0) (the float (+ (-> a0-16 frame-group data 0 length) -1)))
+                       (set! (-> a0-16 param 1) 1.0)
+                       (joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
+                       )
+                     )
+                   )
                  )
-                (v1-185 (the-as number (logior #x3f800000 v1-184)))
-                )
-          (countdown
-           (gp-3 (+ (the int (* f30-2 (+ -1.0 (the-as float v1-185)))) 8))
-           (let ((a0-49 (-> self skel root-channel 0)))
-            (set!
-             (-> a0-49 frame-group)
-             (if (> (-> self skel active-channels) 0)
-              (-> self skel root-channel 0 frame-group)
-              )
-             )
-            (set!
-             (-> a0-49 param 0)
-             (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                                (-> self skel root-channel 0 frame-group)
-                                )
-                            data
-                            0
-                            length
-                            )
-                         -1
-                         )
-              )
-             )
-            (set! (-> a0-49 param 1) 1.0)
-            (set! (-> a0-49 frame-num) 0.0)
-            (joint-control-channel-group!
-             a0-49
-             (if (> (-> self skel active-channels) 0)
-              (-> self skel root-channel 0 frame-group)
-              )
-             num-func-seek!
-             )
-            )
-           (until (ja-done? 0)
-            (suspend)
-            (let ((a0-50 (-> self skel root-channel 0)))
-             (set!
-              (-> a0-50 param 0)
-              (the float (+ (-> a0-50 frame-group data 0 length) -1))
-              )
-             (set! (-> a0-50 param 1) 1.0)
-             (joint-control-channel-group-eval!
-              a0-50
-              (the-as art-joint-anim #f)
-              num-func-seek!
-              )
-             )
-            )
-           )
-          )
-         (set! gp-0 #f)
-         )
-        )
-       (when
-        (or
-         gp-0
-         (let*
-          ((v1-221 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-222 (the-as number (logior #x3f800000 v1-221)))
-           )
-          (< (+ -1.0 (the-as float v1-222)) 0.5)
-          )
-         )
-        (let ((a0-54 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-54 frame-group)
-          (the-as art-joint-anim (-> self draw art-group data 4))
-          )
-         (set!
-          (-> a0-54 param 0)
-          (the
-           float
-           (+
-            (->
-             (the-as art-joint-anim (-> self draw art-group data 4))
-             data
-             0
-             length
-             )
-            -1
-            )
-           )
-          )
-         (set! (-> a0-54 param 1) 1.0)
-         (set! (-> a0-54 frame-num) 0.0)
-         (joint-control-channel-group!
-          a0-54
-          (the-as art-joint-anim (-> self draw art-group data 4))
-          num-func-seek!
-          )
-         )
-        (until (ja-done? 0)
-         (suspend)
-         (let ((a0-55 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-55 param 0)
-           (the float (+ (-> a0-55 frame-group data 0 length) -1))
-           )
-          (set! (-> a0-55 param 1) 1.0)
-          (joint-control-channel-group-eval!
-           a0-55
-           (the-as art-joint-anim #f)
-           num-func-seek!
-           )
-          )
-         )
-        (let ((v1-249 (-> self skel root-channel 0)))
-         (set!
-          (-> v1-249 frame-group)
-          (the-as art-joint-anim (-> self draw art-group data 5))
-          )
-         )
-        (let* ((f30-3 2.0)
-               (v1-251
-                (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
-                )
-               (v1-252 (the-as number (logior #x3f800000 v1-251)))
+               (set! gp-0 #f)
                )
-         (countdown
-          (gp-4 (+ (the int (* f30-3 (+ -1.0 (the-as float v1-252)))) 3))
-          (let ((a0-62 (-> self skel root-channel 0)))
-           (set! (-> a0-62 frame-group) (if (> (-> self skel active-channels) 0)
-                                         (->
-                                          self
-                                          skel
-                                          root-channel
-                                          0
-                                          frame-group
-                                          )
-                                         )
-            )
-           (set!
-            (-> a0-62 param 0)
-            (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                               (-> self skel root-channel 0 frame-group)
-                               )
-                           data
-                           0
-                           length
-                           )
-                        -1
-                        )
              )
-            )
-           (set! (-> a0-62 param 1) 1.0)
-           (set! (-> a0-62 frame-num) 0.0)
-           (joint-control-channel-group!
-            a0-62
-            (if (> (-> self skel active-channels) 0)
-             (-> self skel root-channel 0 frame-group)
-             )
-            num-func-seek!
-            )
-           )
-          (until (ja-done? 0)
-           (suspend)
-           (let ((a0-63 (-> self skel root-channel 0)))
-            (set!
-             (-> a0-63 param 0)
-             (the float (+ (-> a0-63 frame-group data 0 length) -1))
-             )
-            (set! (-> a0-63 param 1) 1.0)
-            (joint-control-channel-group-eval!
-             a0-63
-             (the-as art-joint-anim #f)
-             num-func-seek!
-             )
-            )
-           )
-          )
-         )
-        (let ((a0-65 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-65 frame-group)
-          (the-as art-joint-anim (-> self draw art-group data 6))
-          )
-         (set!
-          (-> a0-65 param 0)
-          (the
-           float
-           (+
-            (->
-             (the-as art-joint-anim (-> self draw art-group data 6))
-             data
-             0
-             length
-             )
-            -1
-            )
-           )
-          )
-         (set! (-> a0-65 param 1) 1.0)
-         (set! (-> a0-65 frame-num) 0.0)
-         (joint-control-channel-group!
-          a0-65
-          (the-as art-joint-anim (-> self draw art-group data 6))
-          num-func-seek!
-          )
-         )
-        (until (ja-done? 0)
-         (suspend)
-         (let ((a0-66 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-66 param 0)
-           (the float (+ (-> a0-66 frame-group data 0 length) -1))
-           )
-          (set! (-> a0-66 param 1) 1.0)
-          (joint-control-channel-group-eval!
-           a0-66
-           (the-as art-joint-anim #f)
-           num-func-seek!
-           )
-          )
-         )
-        )
-       (let* ((v1-308 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-309 (the-as number (logior #x3f800000 v1-308)))
-              )
-        (when (< (+ -1.0 (the-as float v1-309)) 0.5)
-         (let ((v1-314 (-> self skel root-channel 0)))
-          (set!
-           (-> v1-314 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 7))
-           )
-          )
-         (let* ((f30-4 2.0)
-                (v1-316
-                 (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
-                 )
-                (v1-317 (the-as number (logior #x3f800000 v1-316)))
-                )
-          (countdown
-           (gp-5 (+ (the int (* f30-4 (+ -1.0 (the-as float v1-317)))) 3))
-           (let ((a0-75 (-> self skel root-channel 0)))
-            (set!
-             (-> a0-75 frame-group)
-             (if (> (-> self skel active-channels) 0)
-              (-> self skel root-channel 0 frame-group)
-              )
-             )
-            (set!
-             (-> a0-75 param 0)
-             (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                                (-> self skel root-channel 0 frame-group)
-                                )
-                            data
-                            0
-                            length
+           (when (or gp-0 (let* ((v1-53 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                                 (v1-54 (the-as number (logior #x3f800000 v1-53)))
+                                 )
+                            (< (+ -1.0 (the-as float v1-54)) 0.5)
                             )
-                         -1
+                     )
+             (let ((a0-20 (-> self skel root-channel 0)))
+               (set! (-> a0-20 frame-group) (the-as art-joint-anim (-> self draw art-group data 9)))
+               (set! (-> a0-20 param 0)
+                     (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 9)) data 0 length) -1))
+                     )
+               (set! (-> a0-20 param 1) 1.0)
+               (set! (-> a0-20 frame-num) 0.0)
+               (joint-control-channel-group! a0-20 (the-as art-joint-anim (-> self draw art-group data 9)) num-func-seek!)
+               )
+             (until (ja-done? 0)
+               (suspend)
+               (let ((a0-21 (-> self skel root-channel 0)))
+                 (set! (-> a0-21 param 0) (the float (+ (-> a0-21 frame-group data 0 length) -1)))
+                 (set! (-> a0-21 param 1) 1.0)
+                 (joint-control-channel-group-eval! a0-21 (the-as art-joint-anim #f) num-func-seek!)
+                 )
+               )
+             (let ((v1-81 (-> self skel root-channel 0)))
+               (set! (-> v1-81 frame-group) (the-as art-joint-anim (-> self draw art-group data 10)))
+               )
+             (let* ((f30-1 2.0)
+                    (v1-83 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                    (v1-84 (the-as number (logior #x3f800000 v1-83)))
+                    )
+               (countdown (gp-2 (+ (the int (* f30-1 (+ -1.0 (the-as float v1-84)))) 3))
+                 (let ((a0-28 (-> self skel root-channel 0)))
+                   (set! (-> a0-28 frame-group) (if (> (-> self skel active-channels) 0)
+                                                    (-> self skel root-channel 0 frame-group)
+                                                    )
                          )
-              )
+                   (set! (-> a0-28 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                                  (-> self skel root-channel 0 frame-group)
+                                                                  )
+                                                              data
+                                                              0
+                                                              length
+                                                              )
+                                                          -1
+                                                          )
+                                                 )
+                         )
+                   (set! (-> a0-28 param 1) 1.0)
+                   (set! (-> a0-28 frame-num) 0.0)
+                   (joint-control-channel-group!
+                     a0-28
+                     (if (> (-> self skel active-channels) 0)
+                         (-> self skel root-channel 0 frame-group)
+                         )
+                     num-func-seek!
+                     )
+                   )
+                 (until (ja-done? 0)
+                   (suspend)
+                   (let ((a0-29 (-> self skel root-channel 0)))
+                     (set! (-> a0-29 param 0) (the float (+ (-> a0-29 frame-group data 0 length) -1)))
+                     (set! (-> a0-29 param 1) 1.0)
+                     (joint-control-channel-group-eval! a0-29 (the-as art-joint-anim #f) num-func-seek!)
+                     )
+                   )
+                 )
+               )
+             (let ((a0-31 (-> self skel root-channel 0)))
+               (set! (-> a0-31 frame-group) (the-as art-joint-anim (-> self draw art-group data 11)))
+               (set! (-> a0-31 param 0)
+                     (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 11)) data 0 length) -1))
+                     )
+               (set! (-> a0-31 param 1) 1.0)
+               (set! (-> a0-31 frame-num) 0.0)
+               (joint-control-channel-group! a0-31 (the-as art-joint-anim (-> self draw art-group data 11)) num-func-seek!)
+               )
+             (until (ja-done? 0)
+               (suspend)
+               (let ((a0-32 (-> self skel root-channel 0)))
+                 (set! (-> a0-32 param 0) (the float (+ (-> a0-32 frame-group data 0 length) -1)))
+                 (set! (-> a0-32 param 1) 1.0)
+                 (joint-control-channel-group-eval! a0-32 (the-as art-joint-anim #f) num-func-seek!)
+                 )
+               )
              )
-            (set! (-> a0-75 param 1) 1.0)
-            (set! (-> a0-75 frame-num) 0.0)
-            (joint-control-channel-group!
-             a0-75
-             (if (> (-> self skel active-channels) 0)
-              (-> self skel root-channel 0 frame-group)
-              )
-             num-func-seek!
+           (let* ((v1-140 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                  (v1-141 (the-as number (logior #x3f800000 v1-140)))
+                  )
+             (when (< (+ -1.0 (the-as float v1-141)) 0.25)
+               (let ((v1-146 (-> self skel root-channel 0)))
+                 (set! (-> v1-146 frame-group) (the-as art-joint-anim (-> self draw art-group data 12)))
+                 )
+               (let ((a0-39 (-> self skel root-channel 0)))
+                 (set! (-> a0-39 frame-group) (if (> (-> self skel active-channels) 0)
+                                                  (-> self skel root-channel 0 frame-group)
+                                                  )
+                       )
+                 (set! (-> a0-39 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                                (-> self skel root-channel 0 frame-group)
+                                                                )
+                                                            data
+                                                            0
+                                                            length
+                                                            )
+                                                        -1
+                                                        )
+                                               )
+                       )
+                 (set! (-> a0-39 param 1) 1.0)
+                 (set! (-> a0-39 frame-num) 0.0)
+                 (joint-control-channel-group!
+                   a0-39
+                   (if (> (-> self skel active-channels) 0)
+                       (-> self skel root-channel 0 frame-group)
+                       )
+                   num-func-seek!
+                   )
+                 )
+               (until (ja-done? 0)
+                 (suspend)
+                 (let ((a0-40 (-> self skel root-channel 0)))
+                   (set! (-> a0-40 param 0) (the float (+ (-> a0-40 frame-group data 0 length) -1)))
+                   (set! (-> a0-40 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-40 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               )
              )
-            )
-           (until (ja-done? 0)
-            (suspend)
-            (let ((a0-76 (-> self skel root-channel 0)))
-             (set!
-              (-> a0-76 param 0)
-              (the float (+ (-> a0-76 frame-group data 0 length) -1))
-              )
-             (set! (-> a0-76 param 1) 1.0)
-             (joint-control-channel-group-eval!
-              a0-76
-              (the-as art-joint-anim #f)
-              num-func-seek!
-              )
-             )
-            )
            )
+          (else
+            (let* ((v1-176 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                   (v1-177 (the-as number (logior #x3f800000 v1-176)))
+                   )
+              (when (< (+ -1.0 (the-as float v1-177)) 0.8)
+                (let ((v1-182 (-> self skel root-channel 0)))
+                  (set! (-> v1-182 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+                  )
+                (let* ((f30-2 4.0)
+                       (v1-184 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                       (v1-185 (the-as number (logior #x3f800000 v1-184)))
+                       )
+                  (countdown (gp-3 (+ (the int (* f30-2 (+ -1.0 (the-as float v1-185)))) 8))
+                    (let ((a0-49 (-> self skel root-channel 0)))
+                      (set! (-> a0-49 frame-group) (if (> (-> self skel active-channels) 0)
+                                                       (-> self skel root-channel 0 frame-group)
+                                                       )
+                            )
+                      (set! (-> a0-49 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                                     (-> self skel root-channel 0 frame-group)
+                                                                     )
+                                                                 data
+                                                                 0
+                                                                 length
+                                                                 )
+                                                             -1
+                                                             )
+                                                    )
+                            )
+                      (set! (-> a0-49 param 1) 1.0)
+                      (set! (-> a0-49 frame-num) 0.0)
+                      (joint-control-channel-group!
+                        a0-49
+                        (if (> (-> self skel active-channels) 0)
+                            (-> self skel root-channel 0 frame-group)
+                            )
+                        num-func-seek!
+                        )
+                      )
+                    (until (ja-done? 0)
+                      (suspend)
+                      (let ((a0-50 (-> self skel root-channel 0)))
+                        (set! (-> a0-50 param 0) (the float (+ (-> a0-50 frame-group data 0 length) -1)))
+                        (set! (-> a0-50 param 1) 1.0)
+                        (joint-control-channel-group-eval! a0-50 (the-as art-joint-anim #f) num-func-seek!)
+                        )
+                      )
+                    )
+                  )
+                (set! gp-0 #f)
+                )
+              )
+            (when (or gp-0 (let* ((v1-221 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                                  (v1-222 (the-as number (logior #x3f800000 v1-221)))
+                                  )
+                             (< (+ -1.0 (the-as float v1-222)) 0.5)
+                             )
+                      )
+              (let ((a0-54 (-> self skel root-channel 0)))
+                (set! (-> a0-54 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
+                (set! (-> a0-54 param 0)
+                      (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
+                      )
+                (set! (-> a0-54 param 1) 1.0)
+                (set! (-> a0-54 frame-num) 0.0)
+                (joint-control-channel-group! a0-54 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
+                )
+              (until (ja-done? 0)
+                (suspend)
+                (let ((a0-55 (-> self skel root-channel 0)))
+                  (set! (-> a0-55 param 0) (the float (+ (-> a0-55 frame-group data 0 length) -1)))
+                  (set! (-> a0-55 param 1) 1.0)
+                  (joint-control-channel-group-eval! a0-55 (the-as art-joint-anim #f) num-func-seek!)
+                  )
+                )
+              (let ((v1-249 (-> self skel root-channel 0)))
+                (set! (-> v1-249 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
+                )
+              (let* ((f30-3 2.0)
+                     (v1-251 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                     (v1-252 (the-as number (logior #x3f800000 v1-251)))
+                     )
+                (countdown (gp-4 (+ (the int (* f30-3 (+ -1.0 (the-as float v1-252)))) 3))
+                  (let ((a0-62 (-> self skel root-channel 0)))
+                    (set! (-> a0-62 frame-group) (if (> (-> self skel active-channels) 0)
+                                                     (-> self skel root-channel 0 frame-group)
+                                                     )
+                          )
+                    (set! (-> a0-62 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                                   (-> self skel root-channel 0 frame-group)
+                                                                   )
+                                                               data
+                                                               0
+                                                               length
+                                                               )
+                                                           -1
+                                                           )
+                                                  )
+                          )
+                    (set! (-> a0-62 param 1) 1.0)
+                    (set! (-> a0-62 frame-num) 0.0)
+                    (joint-control-channel-group!
+                      a0-62
+                      (if (> (-> self skel active-channels) 0)
+                          (-> self skel root-channel 0 frame-group)
+                          )
+                      num-func-seek!
+                      )
+                    )
+                  (until (ja-done? 0)
+                    (suspend)
+                    (let ((a0-63 (-> self skel root-channel 0)))
+                      (set! (-> a0-63 param 0) (the float (+ (-> a0-63 frame-group data 0 length) -1)))
+                      (set! (-> a0-63 param 1) 1.0)
+                      (joint-control-channel-group-eval! a0-63 (the-as art-joint-anim #f) num-func-seek!)
+                      )
+                    )
+                  )
+                )
+              (let ((a0-65 (-> self skel root-channel 0)))
+                (set! (-> a0-65 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
+                (set! (-> a0-65 param 0)
+                      (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 6)) data 0 length) -1))
+                      )
+                (set! (-> a0-65 param 1) 1.0)
+                (set! (-> a0-65 frame-num) 0.0)
+                (joint-control-channel-group! a0-65 (the-as art-joint-anim (-> self draw art-group data 6)) num-func-seek!)
+                )
+              (until (ja-done? 0)
+                (suspend)
+                (let ((a0-66 (-> self skel root-channel 0)))
+                  (set! (-> a0-66 param 0) (the float (+ (-> a0-66 frame-group data 0 length) -1)))
+                  (set! (-> a0-66 param 1) 1.0)
+                  (joint-control-channel-group-eval! a0-66 (the-as art-joint-anim #f) num-func-seek!)
+                  )
+                )
+              )
+            (let* ((v1-308 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                   (v1-309 (the-as number (logior #x3f800000 v1-308)))
+                   )
+              (when (< (+ -1.0 (the-as float v1-309)) 0.5)
+                (let ((v1-314 (-> self skel root-channel 0)))
+                  (set! (-> v1-314 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
+                  )
+                (let* ((f30-4 2.0)
+                       (v1-316 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                       (v1-317 (the-as number (logior #x3f800000 v1-316)))
+                       )
+                  (countdown (gp-5 (+ (the int (* f30-4 (+ -1.0 (the-as float v1-317)))) 3))
+                    (let ((a0-75 (-> self skel root-channel 0)))
+                      (set! (-> a0-75 frame-group) (if (> (-> self skel active-channels) 0)
+                                                       (-> self skel root-channel 0 frame-group)
+                                                       )
+                            )
+                      (set! (-> a0-75 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                                     (-> self skel root-channel 0 frame-group)
+                                                                     )
+                                                                 data
+                                                                 0
+                                                                 length
+                                                                 )
+                                                             -1
+                                                             )
+                                                    )
+                            )
+                      (set! (-> a0-75 param 1) 1.0)
+                      (set! (-> a0-75 frame-num) 0.0)
+                      (joint-control-channel-group!
+                        a0-75
+                        (if (> (-> self skel active-channels) 0)
+                            (-> self skel root-channel 0 frame-group)
+                            )
+                        num-func-seek!
+                        )
+                      )
+                    (until (ja-done? 0)
+                      (suspend)
+                      (let ((a0-76 (-> self skel root-channel 0)))
+                        (set! (-> a0-76 param 0) (the float (+ (-> a0-76 frame-group data 0 length) -1)))
+                        (set! (-> a0-76 param 1) 1.0)
+                        (joint-control-channel-group-eval! a0-76 (the-as art-joint-anim #f) num-func-seek!)
+                        )
+                      )
+                    )
+                  )
+                )
+              )
+            )
           )
-         )
         )
-       )
       )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
 (defmethod should-display? assistant-firecanyon ((obj assistant-firecanyon))
@@ -827,19 +525,8 @@
   (= (current-status (-> obj tasks)) (task-status need-reward-speech))
   )
 
-(defmethod
-  init-from-entity!
-  assistant-firecanyon
-  ((obj assistant-firecanyon) (arg0 entity-actor))
-  (dummy-40
-   obj
-   arg0
-   *assistant-firecanyon-sg*
-   3
-   29
-   (new 'static 'vector :w 4096.0)
-   5
-   )
+(defmethod init-from-entity! assistant-firecanyon ((obj assistant-firecanyon) (arg0 entity-actor))
+  (dummy-40 obj arg0 *assistant-firecanyon-sg* 3 29 (new 'static 'vector :w 4096.0) 5)
   (set! (-> obj tasks) (get-task-control (game-task firecanyon-assistant)))
   (first-any (-> obj tasks) #t)
   (dummy-42 obj)
diff --git a/goal_src/levels/firecanyon/firecanyon-obs.gc b/goal_src/levels/firecanyon/firecanyon-obs.gc
index e4517fb6ac..6e356908c3 100644
--- a/goal_src/levels/firecanyon/firecanyon-obs.gc
+++ b/goal_src/levels/firecanyon/firecanyon-obs.gc
@@ -29,87 +29,76 @@
   )
 
 
-(set! (-> *part-group-id-table* 227)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x5dc
-        :name "group-balloon"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 1006) (sp-item 1007) (sp-item 1008))
-        :bounds (new 'static 'sphere :w 61440.0)
-        )
-      )
+(defpartgroup group-balloon
+  :id 227
+  :duration 5
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 1006) (sp-item 1007) (sp-item 1008))
+  )
 
-(set! (-> *part-id-table* 1007)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 8.0)
-                                                     (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1007
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 96.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1008)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-flt spt-y (meters 2.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.08) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-friction 0.98)
-                                                     (sp-int spt-timer 75)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 1.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1008
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-flt spt-y (meters 2))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 96.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.08) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-flt spt-friction 0.98)
+    (sp-int spt-timer 75)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 1.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1006) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 80.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -0.08)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1006
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 12))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 28.0 1.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 80.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-fade-a -0.08)
+    (sp-int spt-timer 15)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
 (defstate balloon-popping (balloon)
   :code
@@ -514,218 +503,197 @@
   )
 
 
-(set! (-> *part-group-id-table* 228)
-      (new 'static 'sparticle-launch-group
-        :length 69
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-cluster-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 69
-          (sp-item 2100 :period 600 :length 5)
-          (sp-item 2101 :period 600 :length 40)
-          (sp-item 2102 :period 600 :length 20)
-          (sp-item 2103 :period 600 :length 20)
-          (sp-item 2104 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-dark-cluster-explosion
+  :id 228
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2100 :period 600 :length 5)
+    (sp-item 2101 :period 600 :length 40)
+    (sp-item 2102 :period 600 :length 20)
+    (sp-item 2103 :period 600 :length 20)
+    (sp-item 2104 :fade-after (meters 100) :period 600 :length 5 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 2104) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2104
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 240)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2101) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2105)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2101
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0026666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 89 1)
+    (sp-launcher-by-id spt-next-launcher 2105)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2105)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2105
+  :init-specs
+  ((sp-flt spt-fade-a -1.0666667))
+  )
 
-(set! (-> *part-id-table* 2103) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2103
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-flt spt-scale-x (meters 0.3))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 12))
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 1.04))
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2100) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 24.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2100
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 24))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -2.3272727)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2102)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2102
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.02))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+    )
+  )
 
 (defstate die (crate-darkeco-cluster)
   :virtual #t
diff --git a/goal_src/levels/firecanyon/firecanyon-part.gc b/goal_src/levels/firecanyon/firecanyon-part.gc
index ff8f4ff055..15ca864954 100644
--- a/goal_src/levels/firecanyon/firecanyon-part.gc
+++ b/goal_src/levels/firecanyon/firecanyon-part.gc
@@ -16,42 +16,32 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 229)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-1"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1011 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1012 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1013 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-1
+  :id 229
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1011 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1012 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1013 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1014 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1014 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1014 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1014 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1014 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1014 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1012)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1012
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 19.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 19) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -28672.0 24576.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -7) (meters 6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -67,21 +57,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -165.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1014)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1014
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 17.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 17) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -24576.0 16384.0 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -93,21 +78,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -165.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1013)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1013
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.03 0.03 1.0)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 17.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 17) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -24576.0 16384.0 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -121,20 +101,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -165.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1011)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 19.0) 1.0)
+(defpart 1011
+  :init-specs
+  ((sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters -9) (meters 19) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -28672.0 24576.0 1.0)
+    (sp-rnd-flt spt-z (meters -7) (meters 6) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -145,47 +120,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -165.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 230)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1017 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1018 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1019 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-2
+  :id 230
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1017 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1018 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1019 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1020 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1020 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1020 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1020 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1020 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1020 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1018)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1018
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 19.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 19) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -20480.0 49152.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 12) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -201,21 +164,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1020)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1020
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 17.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 17) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -16384.0 40960.0 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -227,21 +185,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1019)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1019
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 17.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 17) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -16384.0 40960.0 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -255,20 +208,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1017)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 19.0) 1.0)
+(defpart 1017
+  :init-specs
+  ((sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 19) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -20480.0 49152.0 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 12) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -279,47 +227,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 231)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-3"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1021 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1022 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1023 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-3
+  :id 231
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1021 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1022 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1023 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1024 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1024 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1024 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1024 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1024 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1024 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1022)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1022
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters -10.5) (meters 20.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10.5) (meters 20) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -81920.0 147456.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -20) (meters 36) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -335,21 +271,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1024)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1024
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.5)
-    (sp-rnd-flt spt-x (meters -9.5) (meters 18.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9.5) (meters 18) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -77824.0 139264.0 1.0)
+    (sp-rnd-flt spt-z (meters -19) (meters 34) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -361,21 +292,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1023)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1023
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -9.5) (meters 18.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9.5) (meters 18) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -77824.0 139264.0 1.0)
+    (sp-rnd-flt spt-z (meters -19) (meters 34) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -389,20 +315,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1021)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.6)
-    (sp-rnd-flt spt-x (meters -10.5) (meters 20.0) 1.0)
+(defpart 1021
+  :init-specs
+  ((sp-flt spt-num 1.6)
+    (sp-rnd-flt spt-x (meters -10.5) (meters 20) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -81920.0 147456.0 1.0)
+    (sp-rnd-flt spt-z (meters -20) (meters 36) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -413,47 +334,34 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 232)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-5"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1025 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1026 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1027 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-5
+  :id 232
+  :bounds (static-bspherem -2 0 -2 14)
+  :parts
+  ((sp-item 1025 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1026 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1027 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1028 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1028 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1028 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1028 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1028 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1028 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds
-   (new 'static 'sphere :x -8192.0 :z -8192.0 :w 57344.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1028)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1028
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 13.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -45056.0 69632.0 1.0)
+    (sp-rnd-flt spt-x (meters -6) (meters 13) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -11) (meters 17) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -465,17 +373,12 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1010)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1010
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 1.0 6.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -490,21 +393,16 @@
     (sp-cpuinfo-flags bit0 bit3)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1027)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1027
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 13.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -45056.0 69632.0 1.0)
+    (sp-rnd-flt spt-x (meters -6) (meters 13) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -11) (meters 17) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -518,17 +416,12 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1009)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1009
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -541,20 +434,15 @@
     (sp-int-plain-rnd spt-timer 30 179 1)
     (sp-cpuinfo-flags bit0 bit3)
     (sp-flt spt-rotate-y (degrees 45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1025)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.5)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 16.0) 1.0)
+(defpart 1025
+  :init-specs
+  ((sp-flt spt-num 1.5)
+    (sp-rnd-flt spt-x (meters -8) (meters 16) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -53248.0 81920.0 1.0)
+    (sp-rnd-flt spt-z (meters -13) (meters 20) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -565,33 +453,22 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1016)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -6.826667)
-    (sp-end)
-    )
-   )
+(defpart 1016
+  :init-specs
+  ((sp-flt spt-fade-b -6.826667))
   )
 
-(set!
-  (-> *part-id-table* 1026)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1026
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 16.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 16) 1.0)
     (sp-flt spt-y (meters -0.5))
-    (sp-rnd-flt spt-z -53248.0 81920.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -13) (meters 20) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -607,87 +484,53 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1015)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 75)
-    (sp-launcher-by-id spt-next-launcher 1029)
-    (sp-end)
-    )
-   )
+(defpart 1015
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 75) (sp-launcher-by-id spt-next-launcher 1029))
   )
 
-(set!
-  (-> *part-id-table* 1029)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r -0.8)
+(defpart 1029
+  :init-specs
+  ((sp-flt spt-fade-r -0.8)
     (sp-flt spt-fade-b 0.8)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1030)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1030)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-flt spt-fade-a -0.14222223)
-    (sp-end)
-    )
-   )
+(defpart 1030
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.14222223))
   )
 
-(set!
-  (-> *part-group-id-table* 233)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-6"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1031 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1032 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1033 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-6
+  :id 233
+  :bounds (static-bspherem 2 0 2 14)
+  :parts
+  ((sp-item 1031 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1032 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1033 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1034 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1034 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1034 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1034 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1034 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1034 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds
-   (new 'static 'sphere :x 8192.0 :z 8192.0 :w 57344.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1034)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1034
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -5.0) (meters 17.0) 1.0)
+    (sp-rnd-flt spt-x (meters -5) (meters 17) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -22528.0 53248.0 1.0)
+    (sp-rnd-flt spt-z (meters -5.5) (meters 13) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -699,22 +542,17 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1032)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1032
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 19.0) 1.0)
+    (sp-rnd-flt spt-x (meters -6) (meters 19) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -26624.0 61440.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -6.5) (meters 15) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -730,21 +568,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1033)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1033
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -5.0) (meters 17.0) 1.0)
+    (sp-rnd-flt spt-x (meters -5) (meters 17) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -22528.0 53248.0 1.0)
+    (sp-rnd-flt spt-z (meters -5.5) (meters 13) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -758,20 +591,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1031)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.3)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 19.0) 1.0)
+(defpart 1031
+  :init-specs
+  ((sp-flt spt-num 1.3)
+    (sp-rnd-flt spt-x (meters -6) (meters 19) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -26624.0 61440.0 1.0)
+    (sp-rnd-flt spt-z (meters -6.5) (meters 15) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -782,47 +610,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 234)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-7"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1035 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1036 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1037 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-7
+  :id 234
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 1035 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1036 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1037 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1038 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1038 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1038 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1038 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1038 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1038 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 57344.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1036)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1036
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -6.5) (meters 12.0) 1.0)
+    (sp-rnd-flt spt-x (meters -6.5) (meters 12) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -6144.0 61440.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1.5) (meters 15) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -838,21 +654,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -170.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1038)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1038
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -5.5) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters -5.5) (meters 10) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -2048.0 53248.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 13) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -864,21 +675,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -170.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1037)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1037
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -5.5) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters -5.5) (meters 10) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -2048.0 53248.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 13) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -892,20 +698,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -170.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1035)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.1)
-    (sp-rnd-flt spt-x (meters -6.5) (meters 12.0) 1.0)
+(defpart 1035
+  :init-specs
+  ((sp-flt spt-num 1.1)
+    (sp-rnd-flt spt-x (meters -6.5) (meters 12) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -6144.0 61440.0 1.0)
+    (sp-rnd-flt spt-z (meters -1.5) (meters 15) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -916,47 +717,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -170.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 235)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-8"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1039 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1040 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1041 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-8
+  :id 235
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 1039 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1040 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1041 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1042 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1042 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1042 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1042 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1042 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1042 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 65536.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1040)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1040
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -9.5) (meters 14.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9.5) (meters 14) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -53248.0 114688.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -13) (meters 28) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -972,21 +761,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1042)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1042
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -8.5) (meters 12.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8.5) (meters 12) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -49152.0 106496.0 1.0)
+    (sp-rnd-flt spt-z (meters -12) (meters 26) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -998,21 +782,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1041)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1041
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -8.5) (meters 12.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8.5) (meters 12) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -49152.0 106496.0 1.0)
+    (sp-rnd-flt spt-z (meters -12) (meters 26) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1026,20 +805,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1039)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.4)
-    (sp-rnd-flt spt-x (meters -9.5) (meters 14.0) 1.0)
+(defpart 1039
+  :init-specs
+  ((sp-flt spt-num 1.4)
+    (sp-rnd-flt spt-x (meters -9.5) (meters 14) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -53248.0 114688.0 1.0)
+    (sp-rnd-flt spt-z (meters -13) (meters 28) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -1050,47 +824,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 236)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-9"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1043 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1044 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1045 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-9
+  :id 236
+  :bounds (static-bspherem 0 0 0 9)
+  :parts
+  ((sp-item 1043 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1044 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1045 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1046 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1046 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1046 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1046 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1046 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1046 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 36864.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1044)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1044
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.08)
-    (sp-rnd-flt spt-x (meters -3.5) (meters 7.0) 1.0)
+    (sp-rnd-flt spt-x (meters -3.5) (meters 7) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -28672.0 61440.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -7) (meters 15) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1106,21 +868,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1046)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1046
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 0.6)
-    (sp-rnd-flt spt-x (meters -2.5) (meters 5.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2.5) (meters 5) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -24576.0 53248.0 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 13) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1132,21 +889,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1045)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1045
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.03 0.03 1.0)
-    (sp-rnd-flt spt-x (meters -2.5) (meters 5.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2.5) (meters 5) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -24576.0 53248.0 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 13) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1160,20 +912,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1043)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.6)
-    (sp-rnd-flt spt-x (meters -3.5) (meters 7.0) 1.0)
+(defpart 1043
+  :init-specs
+  ((sp-flt spt-num 0.6)
+    (sp-rnd-flt spt-x (meters -3.5) (meters 7) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -28672.0 61440.0 1.0)
+    (sp-rnd-flt spt-z (meters -7) (meters 15) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -1184,48 +931,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 237)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-10"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1047 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1048 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1049 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-10
+  :id 237
+  :bounds (static-bspherem -4 0 0 15)
+  :parts
+  ((sp-item 1047 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1048 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1049 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1050 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1050 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1050 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1050 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1050 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1050 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds
-   (new 'static 'sphere :x -16384.0 :w 61440.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1048)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1048
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -13.5) (meters 20.0) 1.0)
+    (sp-rnd-flt spt-x (meters -13.5) (meters 20) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -57344.0 90112.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -14) (meters 22) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1241,21 +975,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1050)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1050
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -12.5) (meters 18.0) 1.0)
+    (sp-rnd-flt spt-x (meters -12.5) (meters 18) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -53248.0 81920.0 1.0)
+    (sp-rnd-flt spt-z (meters -13) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1267,21 +996,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1049)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1049
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -12.5) (meters 18.0) 1.0)
+    (sp-rnd-flt spt-x (meters -12.5) (meters 18) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -53248.0 81920.0 1.0)
+    (sp-rnd-flt spt-z (meters -13) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1295,20 +1019,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1047)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.5)
-    (sp-rnd-flt spt-x (meters -13.5) (meters 20.0) 1.0)
+(defpart 1047
+  :init-specs
+  ((sp-flt spt-num 1.5)
+    (sp-rnd-flt spt-x (meters -13.5) (meters 20) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -57344.0 90112.0 1.0)
+    (sp-rnd-flt spt-z (meters -14) (meters 22) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -1319,48 +1038,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 238)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-11"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1051 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1052 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1053 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-11
+  :id 238
+  :bounds (static-bspherem -4 0 0 12)
+  :parts
+  ((sp-item 1051 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1052 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1053 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1054 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1054 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1054 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1054 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1054 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1054 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds
-   (new 'static 'sphere :x -16384.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1052)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1052
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -10.5) (meters 12.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10.5) (meters 12) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -45056.0 57344.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -11) (meters 14) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1376,21 +1082,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1054)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1054
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -9.5) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9.5) (meters 10) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -40960.0 49152.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 12) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1402,21 +1103,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1053)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1053
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -9.5) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9.5) (meters 10) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -40960.0 49152.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 12) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1430,20 +1126,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1051)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.7)
-    (sp-rnd-flt spt-x (meters -10.5) (meters 12.0) 1.0)
+(defpart 1051
+  :init-specs
+  ((sp-flt spt-num 0.7)
+    (sp-rnd-flt spt-x (meters -10.5) (meters 12) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -45056.0 57344.0 1.0)
+    (sp-rnd-flt spt-z (meters -11) (meters 14) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -1454,48 +1145,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 239)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-14"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1055 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1056 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1057 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-14
+  :id 239
+  :bounds (static-bspherem -4 0 0 15)
+  :parts
+  ((sp-item 1055 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1056 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1057 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1058 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1058 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1058 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1058 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1058 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1058 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds
-   (new 'static 'sphere :x -16384.0 :w 61440.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1056)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1056
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -17.5) (meters 25.0) 1.0)
+    (sp-rnd-flt spt-x (meters -17.5) (meters 25) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -49152.0 98304.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -12) (meters 24) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1511,21 +1189,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1058)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1058
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -16.5) (meters 23.0) 1.0)
+    (sp-rnd-flt spt-x (meters -16.5) (meters 23) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -45056.0 90112.0 1.0)
+    (sp-rnd-flt spt-z (meters -11) (meters 22) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1537,21 +1210,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1057)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1057
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -16.5) (meters 23.0) 1.0)
+    (sp-rnd-flt spt-x (meters -16.5) (meters 23) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -45056.0 90112.0 1.0)
+    (sp-rnd-flt spt-z (meters -11) (meters 22) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1565,20 +1233,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1055)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.5)
-    (sp-rnd-flt spt-x (meters -17.5) (meters 25.0) 1.0)
+(defpart 1055
+  :init-specs
+  ((sp-flt spt-num 1.5)
+    (sp-rnd-flt spt-x (meters -17.5) (meters 25) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -49152.0 98304.0 1.0)
+    (sp-rnd-flt spt-z (meters -12) (meters 24) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -1589,48 +1252,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 240)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-15"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1059 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1060 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1061 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-15
+  :id 240
+  :bounds (static-bspherem -4 0 0 12)
+  :parts
+  ((sp-item 1059 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1060 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1061 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1062 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1062 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1062 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1062 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1062 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1062 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds
-   (new 'static 'sphere :x -16384.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1060)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1060
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters -10.5) (meters 12.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10.5) (meters 12) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -45056.0 98304.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -11) (meters 24) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1646,21 +1296,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1062)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1062
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -9.5) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9.5) (meters 10) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -40960.0 90112.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 22) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1672,21 +1317,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1061)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1061
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.04 0.04 1.0)
-    (sp-rnd-flt spt-x (meters -9.5) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9.5) (meters 10) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -40960.0 90112.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 22) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1700,20 +1340,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1059)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -10.5) (meters 12.0) 1.0)
+(defpart 1059
+  :init-specs
+  ((sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -10.5) (meters 12) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -45056.0 98304.0 1.0)
+    (sp-rnd-flt spt-z (meters -11) (meters 24) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -1724,47 +1359,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 241)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-16"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1063 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1064 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1065 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-16
+  :id 241
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 1063 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1064 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1065 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1066 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1066 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1066 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1066 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1066 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1066 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 57344.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1064)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1064
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -9.5) (meters 16.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9.5) (meters 16) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -49152.0 106496.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -12) (meters 26) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1780,21 +1403,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -130.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1066)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1066
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -8.5) (meters 14.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8.5) (meters 14) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -45056.0 98304.0 1.0)
+    (sp-rnd-flt spt-z (meters -11) (meters 24) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1806,21 +1424,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -130.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1065)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1065
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -8.5) (meters 14.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8.5) (meters 14) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -45056.0 98304.0 1.0)
+    (sp-rnd-flt spt-z (meters -11) (meters 24) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1834,20 +1447,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -130.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1063)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.1)
-    (sp-rnd-flt spt-x (meters -9.5) (meters 16.0) 1.0)
+(defpart 1063
+  :init-specs
+  ((sp-flt spt-num 1.1)
+    (sp-rnd-flt spt-x (meters -9.5) (meters 16) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -49152.0 106496.0 1.0)
+    (sp-rnd-flt spt-z (meters -12) (meters 26) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -1858,48 +1466,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -130.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 242)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-18"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1067 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1068 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1069 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-18
+  :id 242
+  :bounds (static-bspherem -4 0 -4 26)
+  :parts
+  ((sp-item 1067 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1068 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1069 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1070 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1070 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1070 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1070 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1070 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1070 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds
-   (new 'static 'sphere :x -16384.0 :z -16384.0 :w 106496.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1068)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1068
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters -11.0) (meters 24.0) 1.0)
+    (sp-rnd-flt spt-x (meters -11) (meters 24) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -114688.0 172032.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -28) (meters 42) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1915,21 +1510,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1070)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1070
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 22.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 22) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -110592.0 163840.0 1.0)
+    (sp-rnd-flt spt-z (meters -27) (meters 40) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1941,21 +1531,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1069)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1069
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.07 0.07 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 22.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 22) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -110592.0 163840.0 1.0)
+    (sp-rnd-flt spt-z (meters -27) (meters 40) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -1969,20 +1554,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1067)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.9)
-    (sp-rnd-flt spt-x (meters -11.0) (meters 24.0) 1.0)
+(defpart 1067
+  :init-specs
+  ((sp-flt spt-num 1.9)
+    (sp-rnd-flt spt-x (meters -11) (meters 24) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -114688.0 172032.0 1.0)
+    (sp-rnd-flt spt-z (meters -28) (meters 42) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -1993,47 +1573,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 243)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-19"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1071 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1072 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1073 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-19
+  :id 243
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1071 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1072 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1073 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1074 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1074 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1074 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1074 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1074 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1074 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1072)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1072
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.3)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 23.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 23) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -73728.0 114688.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -18) (meters 28) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2049,21 +1617,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1074)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1074
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.5)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 21.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 21) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -69632.0 106496.0 1.0)
+    (sp-rnd-flt spt-z (meters -17) (meters 26) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2075,21 +1638,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1073)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1073
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 21.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 21) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -69632.0 106496.0 1.0)
+    (sp-rnd-flt spt-z (meters -17) (meters 26) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2103,20 +1661,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1071)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.4)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 23.0) 1.0)
+(defpart 1071
+  :init-specs
+  ((sp-flt spt-num 1.4)
+    (sp-rnd-flt spt-x (meters -10) (meters 23) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -73728.0 114688.0 1.0)
+    (sp-rnd-flt spt-z (meters -18) (meters 28) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -2127,48 +1680,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -55.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 244)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-21"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1075 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1076 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1077 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-21
+  :id 244
+  :bounds (static-bspherem -4 0 4 22)
+  :parts
+  ((sp-item 1075 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1076 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1077 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1078 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1078 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1078 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1078 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1078 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1078 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds
-   (new 'static 'sphere :x -16384.0 :z 16384.0 :w 90112.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1076)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1076
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.17)
-    (sp-rnd-flt spt-x (meters -23.0) (meters 32.0) 1.0)
+    (sp-rnd-flt spt-x (meters -23) (meters 32) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -20480.0 16384.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2184,21 +1724,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1078)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1078
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 0.8)
-    (sp-rnd-flt spt-x (meters -22.0) (meters 30.0) 1.0)
+    (sp-rnd-flt spt-x (meters -22) (meters 30) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -16384.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2210,21 +1745,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1077)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1077
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.03 0.03 1.0)
-    (sp-rnd-flt spt-x (meters -22.0) (meters 30.0) 1.0)
+    (sp-rnd-flt spt-x (meters -22) (meters 30) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -16384.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2238,20 +1768,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1075)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.7)
-    (sp-rnd-flt spt-x (meters -23.0) (meters 32.0) 1.0)
+(defpart 1075
+  :init-specs
+  ((sp-flt spt-num 0.7)
+    (sp-rnd-flt spt-x (meters -23) (meters 32) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -20480.0 16384.0 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 4) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -2262,47 +1787,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 245)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-22"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1079 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1080 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1081 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-22
+  :id 245
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1079 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1080 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1081 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1082 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1082 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1082 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1082 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1082 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1082 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1080)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1080
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -7.0) (meters 25.0) 1.0)
+    (sp-rnd-flt spt-x (meters -7) (meters 25) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -16384.0 24576.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2318,21 +1831,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees -120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1082)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1082
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 23.0) 1.0)
+    (sp-rnd-flt spt-x (meters -6) (meters 23) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -12288.0 16384.0 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2344,21 +1852,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1081)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1081
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 23.0) 1.0)
+    (sp-rnd-flt spt-x (meters -6) (meters 23) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -12288.0 16384.0 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2372,20 +1875,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1079)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters -7.0) (meters 25.0) 1.0)
+(defpart 1079
+  :init-specs
+  ((sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters -7) (meters 25) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -16384.0 24576.0 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 6) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -2396,47 +1894,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees -120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 246)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-60"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1083 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1084 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1085 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-60
+  :id 246
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1083 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1084 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1085 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1086 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1086 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1086 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1086 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1086 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1086 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1084)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1084
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -11.0) (meters 21.0) 1.0)
+    (sp-rnd-flt spt-x (meters -11) (meters 21) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -69632.0 122880.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -17) (meters 30) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2452,21 +1938,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 50.000004))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1086)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1086
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.3)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 19.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 19) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -65536.0 114688.0 1.0)
+    (sp-rnd-flt spt-z (meters -16) (meters 28) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2478,21 +1959,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 50.000004))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1085)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1085
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 19.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 19) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -65536.0 114688.0 1.0)
+    (sp-rnd-flt spt-z (meters -16) (meters 28) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2506,20 +1982,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees 50.000004))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1083)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -11.0) (meters 21.0) 1.0)
+(defpart 1083
+  :init-specs
+  ((sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -11) (meters 21) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -69632.0 122880.0 1.0)
+    (sp-rnd-flt spt-z (meters -17) (meters 30) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -2530,47 +2001,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 50.000004))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 247)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-62"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1087 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1088 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1089 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-62
+  :id 247
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1087 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1088 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1089 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1090 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1090 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1090 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1090 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1090 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1090 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1088)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1088
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 17.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 17) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -32768.0 57344.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -8) (meters 14) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2586,21 +2045,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 100.00001))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1090)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1090
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 15.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 15) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -28672.0 49152.0 1.0)
+    (sp-rnd-flt spt-z (meters -7) (meters 12) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2612,21 +2066,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 100.00001))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1089)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1089
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.04 0.04 1.0)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 15.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 15) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -28672.0 49152.0 1.0)
+    (sp-rnd-flt spt-z (meters -7) (meters 12) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2640,20 +2089,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees 100.00001))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1087)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.7)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 17.0) 1.0)
+(defpart 1087
+  :init-specs
+  ((sp-flt spt-num 0.7)
+    (sp-rnd-flt spt-x (meters -9) (meters 17) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -32768.0 57344.0 1.0)
+    (sp-rnd-flt spt-z (meters -8) (meters 14) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -2664,47 +2108,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 100.00001))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 248)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-63"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1091 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1092 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1093 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-63
+  :id 248
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1091 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1092 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1093 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1094 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1094 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1094 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1094 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1094 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1094 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1092)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1092
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 12.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 12) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -40960.0 65536.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 16) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2720,21 +2152,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1094)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1094
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -7.0) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters -7) (meters 10) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -32768.0 57344.0 1.0)
+    (sp-rnd-flt spt-z (meters -8) (meters 14) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2746,21 +2173,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1093)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1093
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.04 0.04 1.0)
-    (sp-rnd-flt spt-x (meters -7.0) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters -7) (meters 10) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -32768.0 57344.0 1.0)
+    (sp-rnd-flt spt-z (meters -8) (meters 14) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2774,20 +2196,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1091)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.7)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 12.0) 1.0)
+(defpart 1091
+  :init-specs
+  ((sp-flt spt-num 0.7)
+    (sp-rnd-flt spt-x (meters -8) (meters 12) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -40960.0 65536.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 16) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -2798,47 +2215,35 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 249)
-  (new 'static 'sparticle-launch-group
-   :length 11
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-lava-64"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 11
-    (sp-item 1095 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1096 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1097 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
+(defpartgroup group-firecanyon-lava-64
+  :id 249
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1095 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1096 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1097 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
     (sp-item 1009 :flags (start-dead))
-    (sp-item 1098 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-    (sp-item 1098 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-    (sp-item 1098 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
+    (sp-item 1098 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1098 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1098 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
     (sp-item 1010 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1096)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1096
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters -3) (meters 10) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -20480.0 36864.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 9) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2854,21 +2259,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1098)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1098
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 0.6)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 8) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -16384.0 28672.0 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 7) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2880,21 +2280,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1097)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1097
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.02 0.02 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 8) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -16384.0 28672.0 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 7) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2908,20 +2303,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1095)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 10.0) 1.0)
+(defpart 1095
+  :init-specs
+  ((sp-flt spt-num 0.4)
+    (sp-rnd-flt spt-x (meters -3) (meters 10) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -20480.0 36864.0 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 9) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 6144.0)
     (sp-flt spt-g 3686.4)
@@ -2932,38 +2322,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 250)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-44"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1099 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1100 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-44
+  :id 250
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1099 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1100 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1100)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1100
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 14.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -65536.0 73728.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 14) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -16) (meters 18) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2980,20 +2358,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1099)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.25)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 14.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -65536.0 73728.0 1.0)
+(defpart 1099
+  :init-specs
+  ((sp-flt spt-num 1.25)
+    (sp-rnd-flt spt-x (meters 0) (meters 14) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -16) (meters 18) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3004,38 +2377,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 251)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-45"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1101 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1102 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-45
+  :id 251
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1101 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1102 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1102)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1102
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 12.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -16384.0 65536.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 12) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -4) (meters 16) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3052,20 +2413,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1101)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 12.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -16384.0 65536.0 1.0)
+(defpart 1101
+  :init-specs
+  ((sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 12) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -4) (meters 16) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3076,38 +2432,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 252)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-46"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1103 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1104 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-46
+  :id 252
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1103 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1104 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1104)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1104
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 5.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z 0.0 57344.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -3) (meters 5) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters 0) (meters 14) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3124,20 +2468,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 5.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1103)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 5.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z 0.0 57344.0 1.0)
+(defpart 1103
+  :init-specs
+  ((sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters -3) (meters 5) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters 0) (meters 14) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3148,38 +2487,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 5.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 253)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-47"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1105 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1106 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-47
+  :id 253
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1105 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1106 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1106)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1106
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.08)
-    (sp-rnd-flt spt-x (meters 2.0) (meters 5.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -49152.0 57344.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters 2) (meters 5) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -12) (meters 14) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3196,20 +2523,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 5.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1105)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters 2.0) (meters 5.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -49152.0 57344.0 1.0)
+(defpart 1105
+  :init-specs
+  ((sp-flt spt-num 0.4)
+    (sp-rnd-flt spt-x (meters 2) (meters 5) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -12) (meters 14) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3220,38 +2542,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 5.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 254)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-48"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1107 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1108 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-48
+  :id 254
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1107 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1108 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1108)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1108
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters -13.0) (meters 17.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -77824.0 94208.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -13) (meters 17) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -19) (meters 23) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3268,20 +2578,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1107)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters -13.0) (meters 17.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -77824.0 94208.0 1.0)
+(defpart 1107
+  :init-specs
+  ((sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-x (meters -13) (meters 17) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -19) (meters 23) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3292,38 +2597,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 255)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-50"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1109 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1110 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-50
+  :id 255
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 1109 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1110 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 57344.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1110)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1110
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 1.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z 0.0 73728.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -6) (meters 1) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters 0) (meters 18) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3340,20 +2633,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 20.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1109)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.7)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 1.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z 0.0 73728.0 1.0)
+(defpart 1109
+  :init-specs
+  ((sp-flt spt-num 0.7)
+    (sp-rnd-flt spt-x (meters -6) (meters 1) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters 0) (meters 18) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3364,38 +2652,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 20.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 256)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-52"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1111 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1112 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-52
+  :id 256
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1111 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1112 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1112)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1112
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 18.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -49152.0 65536.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 18) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -12) (meters 16) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3412,20 +2688,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1111)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 18.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -49152.0 65536.0 1.0)
+(defpart 1111
+  :init-specs
+  ((sp-flt spt-num 0.75)
+    (sp-rnd-flt spt-x (meters -12) (meters 18) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -12) (meters 16) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3436,38 +2707,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 257)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-53"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1113 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1114 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-53
+  :id 257
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1113 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1114 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1114)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1114
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 18.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -12288.0 65536.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 18) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -3) (meters 16) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3484,20 +2743,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1113)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 18.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -12288.0 65536.0 1.0)
+(defpart 1113
+  :init-specs
+  ((sp-flt spt-num 0.75)
+    (sp-rnd-flt spt-x (meters -10) (meters 18) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -3) (meters 16) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3508,38 +2762,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 258)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-54"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1115 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1116 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-54
+  :id 258
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1115 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1116 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1116)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1116
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.3)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 13.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -73728.0 81920.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 13) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -18) (meters 20) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3556,20 +2798,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 155.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1115)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.5)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 13.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -73728.0 81920.0 1.0)
+(defpart 1115
+  :init-specs
+  ((sp-flt spt-num 1.5)
+    (sp-rnd-flt spt-x (meters -10) (meters 13) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -18) (meters 20) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3580,38 +2817,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 155.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 259)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-55"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1117 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1118 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-55
+  :id 259
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1117 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1118 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1118)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1118
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.35)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 10.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -12288.0 131072.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -3) (meters 10) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -3) (meters 32) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3628,20 +2853,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 155.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1117)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.9)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 10.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -12288.0 131072.0 1.0)
+(defpart 1117
+  :init-specs
+  ((sp-flt spt-num 1.9)
+    (sp-rnd-flt spt-x (meters -3) (meters 10) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -3) (meters 32) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3652,38 +2872,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 155.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 260)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-56"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1119 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1120 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-56
+  :id 260
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1119 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1120 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1120)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1120
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -7.0) (meters 16.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -32768.0 61440.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -7) (meters 16) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -8) (meters 15) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3700,20 +2908,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1119)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -7.0) (meters 16.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -32768.0 61440.0 1.0)
+(defpart 1119
+  :init-specs
+  ((sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -7) (meters 16) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -8) (meters 15) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3724,38 +2927,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 261)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-57"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1121 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1122 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-57
+  :id 261
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1121 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1122 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1122)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1122
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 8.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -8192.0 81920.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -6) (meters 8) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -2) (meters 20) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3772,20 +2963,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1121)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 8.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -8192.0 81920.0 1.0)
+(defpart 1121
+  :init-specs
+  ((sp-flt spt-num 0.75)
+    (sp-rnd-flt spt-x (meters -6) (meters 8) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -2) (meters 20) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3796,38 +2982,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 262)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-58"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1123 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1124 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-58
+  :id 262
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1123 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1124 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1124)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1124
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 8.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -73728.0 81920.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 8) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -18) (meters 20) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3844,20 +3018,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 170.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1123)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 8.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -73728.0 81920.0 1.0)
+(defpart 1123
+  :init-specs
+  ((sp-flt spt-num 0.75)
+    (sp-rnd-flt spt-x (meters -1) (meters 8) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -18) (meters 20) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3868,38 +3037,26 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 170.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 263)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-firecanyon-heat-59"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1125 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1126 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+(defpartgroup group-firecanyon-heat-59
+  :id 263
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1125 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1126 :fade-after (meters 150) :falloff-to (meters 150))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1126)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1126
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -16384.0 81920.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -4) (meters 20) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -3916,20 +3073,15 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1015)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1125)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -16384.0 81920.0 1.0)
+(defpart 1125
+  :init-specs
+  ((sp-flt spt-num 0.75)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -4) (meters 20) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -3940,9 +3092,7 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1016)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/flut_common/flut-part.gc b/goal_src/levels/flut_common/flut-part.gc
index 4f7b7384e2..ca09a60f5b 100644
--- a/goal_src/levels/flut_common/flut-part.gc
+++ b/goal_src/levels/flut_common/flut-part.gc
@@ -7,54 +7,39 @@
 
 ;; DECOMP BEGINS
 
-(set!
-  (-> *part-group-id-table* 120)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-flut-trans-pad"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 746 :fade-after (meters 160.0))
-    (sp-item 747 :fade-after (meters 160.0))
-    (sp-item 748 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (is-3d))
+(defpartgroup group-flut-trans-pad
+  :id 120
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 746 :fade-after (meters 160))
+    (sp-item 747 :fade-after (meters 160))
+    (sp-item 748 :fade-after (meters 60) :falloff-to (meters 60) :flags (is-3d))
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 746)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 746
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-flt spt-y (meters 7.0))
-    (sp-rnd-flt spt-scale-x (meters 14.0) (meters 1.0) 1.0)
-    (sp-flt spt-scale-y (meters 14.0))
+    (sp-flt spt-y (meters 7))
+    (sp-rnd-flt spt-scale-x (meters 14) (meters 1) 1.0)
+    (sp-flt spt-scale-y (meters 14))
     (sp-flt spt-r 40.0)
     (sp-rnd-flt spt-g 60.0 60.0 1.0)
     (sp-flt spt-b 128.0)
     (sp-rnd-flt spt-a 32.0 32.0 1.0)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 747)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 747
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-flt spt-y (meters 4.0))
-    (sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
-    (sp-flt spt-scale-y (meters 14.0))
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
+    (sp-flt spt-scale-y (meters 14))
     (sp-flt spt-r 40.0)
     (sp-rnd-flt spt-g 60.0 60.0 1.0)
     (sp-flt spt-b 128.0)
@@ -62,20 +47,15 @@
     (sp-flt spt-fade-a -8.533334)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 748)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 748
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
-    (sp-flt spt-scale-x (meters 0.0))
+    (sp-flt spt-scale-x (meters 0))
     (sp-rnd-flt spt-rot-x 0.0 2730.6667 1.0)
     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -83,7 +63,7 @@
     (sp-rnd-flt spt-g 0.0 127.0 1.0)
     (sp-flt spt-b 127.0)
     (sp-flt spt-a 127.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-scalevel-x (meters 0.02))
     (sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
     (sp-copy-from-other spt-scalevel-y -4)
@@ -91,36 +71,24 @@
     (sp-flt spt-accel-y -0.6144)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 121)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xa
-   :linger-duration #x1c2
-   :name "group-flut-attack-strike-ground"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 749)
-    (sp-item 750)
-    )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
+(defpartgroup group-flut-attack-strike-ground
+  :id 121
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 749) (sp-item 750))
   )
 
-(set!
-  (-> *part-id-table* 749)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 749
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 24.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -141,20 +109,15 @@
     (sp-launcher-by-id spt-next-launcher 751)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 750)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 750
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 32.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
@@ -172,9 +135,7 @@
     (sp-launcher-by-id spt-next-launcher 751)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/intro/evilbro.gc b/goal_src/levels/intro/evilbro.gc
index 198726d69f..b5b7d1cc5b 100644
--- a/goal_src/levels/intro/evilbro.gc
+++ b/goal_src/levels/intro/evilbro.gc
@@ -28,26 +28,15 @@
 
 (defmethod play-anim! evilbro ((obj evilbro) (arg0 symbol))
   (cond
-   (arg0
-    (close-specific-task!
-     (game-task leaving-misty)
-     (task-status need-introduction)
-     )
-    (send-event (-> obj evilsis extra process) 'clone (process->handle obj))
+    (arg0
+      (close-specific-task! (game-task leaving-misty) (task-status need-introduction))
+      (send-event (-> obj evilsis extra process) 'clone (process->handle obj))
+      )
+    (else
+      (set! (-> obj will-talk) #t)
+      )
     )
-   (else
-    (set! (-> obj will-talk) #t)
-    )
-   )
-  (the-as
-   basic
-   (new 'static 'spool-anim
-    :name "evilbro-misty-end"
-    :index 5
-    :parts 9
-    :command-list '()
-    )
-   )
+  (the-as basic (new 'static 'spool-anim :name "evilbro-misty-end" :index 5 :parts 9 :command-list '()))
   )
 
 (defmethod get-art-elem evilbro ((obj evilbro))
@@ -58,150 +47,94 @@
   :virtual #t
   :exit
   (behavior ()
-   (send-event (-> self evilsis extra process) 'end-mode)
-   ((-> (method-of-type process-taskable play-anim) exit))
-   (none)
-   )
+    (send-event (-> self evilsis extra process) 'end-mode)
+    ((-> (method-of-type process-taskable play-anim) exit))
+    (none)
+    )
   )
 
 (defstate idle (evilbro)
   :virtual #t
   :code
   (behavior ()
-   (if (!= (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
+    (if (!= (if (> (-> self skel active-channels) 0)
+                (-> self skel root-channel 0 frame-group)
+                )
+            (get-art-elem self)
             )
-        (get-art-elem self)
+        (ja-channel-push! 1 15)
         )
-    (ja-channel-push! 1 15)
-    )
-   (while #t
-    (let ((a0-7 (-> self skel root-channel 0)))
-     (set!
-      (-> a0-7 frame-group)
-      (the-as art-joint-anim (-> self draw art-group data 3))
-      )
-     (set!
-      (-> a0-7 param 0)
-      (the
-       float
-       (+
-        (->
-         (the-as art-joint-anim (-> self draw art-group data 3))
-         data
-         0
-         length
-         )
-        -1
+    (while #t
+      (let ((a0-7 (-> self skel root-channel 0)))
+        (set! (-> a0-7 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+        (set! (-> a0-7 param 0)
+              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
+              )
+        (set! (-> a0-7 param 1) 1.0)
+        (set! (-> a0-7 frame-num) 0.0)
+        (joint-control-channel-group! a0-7 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
         )
-       )
-      )
-     (set! (-> a0-7 param 1) 1.0)
-     (set! (-> a0-7 frame-num) 0.0)
-     (joint-control-channel-group!
-      a0-7
-      (the-as art-joint-anim (-> self draw art-group data 3))
-      num-func-seek!
-      )
-     )
-    (until (ja-done? 0)
-     (suspend)
-     (let ((a0-8 (-> self skel root-channel 0)))
-      (set!
-       (-> a0-8 param 0)
-       (the float (+ (-> a0-8 frame-group data 0 length) -1))
-       )
-      (set! (-> a0-8 param 1) 1.0)
-      (joint-control-channel-group-eval!
-       a0-8
-       (the-as art-joint-anim #f)
-       num-func-seek!
-       )
-      )
-     )
-    (let ((gp-0 (-> *display* base-frame-counter)))
-     (while (let* ((s5-0 (-> *display* base-frame-counter))
-                   (f30-0 300.0)
-                   (f28-0 0.16)
-                   (f26-0 0.17000002)
-                   (v1-29
-                    (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
-                    )
-                   (v1-30 (the-as number (logior #x3f800000 v1-29)))
-                   )
-             (<
-              (-
-               s5-0
-               (the
-                int
-                (* f30-0 (+ f28-0 (* f26-0 (+ -1.0 (the-as float v1-30)))))
-                )
-               )
-              gp-0
+      (until (ja-done? 0)
+        (suspend)
+        (let ((a0-8 (-> self skel root-channel 0)))
+          (set! (-> a0-8 param 0) (the float (+ (-> a0-8 frame-group data 0 length) -1)))
+          (set! (-> a0-8 param 1) 1.0)
+          (joint-control-channel-group-eval! a0-8 (the-as art-joint-anim #f) num-func-seek!)
+          )
+        )
+      (let ((gp-0 (-> *display* base-frame-counter)))
+        (while (let* ((s5-0 (-> *display* base-frame-counter))
+                      (f30-0 300.0)
+                      (f28-0 0.16)
+                      (f26-0 0.17000002)
+                      (v1-29 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                      (v1-30 (the-as number (logior #x3f800000 v1-29)))
+                      )
+                 (< (- s5-0 (the int (* f30-0 (+ f28-0 (* f26-0 (+ -1.0 (the-as float v1-30))))))) gp-0)
+                 )
+          (suspend)
+          )
+        )
+      (let ((gp-1 (-> self skel root-channel 0)))
+        (set! (-> gp-1 frame-group) (if (> (-> self skel active-channels) 0)
+                                        (-> self skel root-channel 0 frame-group)
+                                        )
               )
-             )
-      (suspend)
-      )
-     )
-    (let ((gp-1 (-> self skel root-channel 0)))
-     (set! (-> gp-1 frame-group) (if (> (-> self skel active-channels) 0)
-                                  (-> self skel root-channel 0 frame-group)
-                                  )
-      )
-     (set! (-> gp-1 param 0) (ja-aframe 0.0 0))
-     (set! (-> gp-1 param 1) 1.0)
-     (set! (-> gp-1 frame-num) (ja-aframe 16.0 0))
-     (joint-control-channel-group! gp-1 (if (> (-> self skel active-channels) 0)
-                                         (->
-                                          self
-                                          skel
-                                          root-channel
-                                          0
-                                          frame-group
-                                          )
-                                         )
-      num-func-seek!
-      )
-     )
-    (until (ja-done? 0)
-     (suspend)
-     (let ((gp-2 (-> self skel root-channel 0)))
-      (set! (-> gp-2 param 0) (ja-aframe 0.0 0))
-      (set! (-> gp-2 param 1) 1.0)
-      (joint-control-channel-group-eval!
-       gp-2
-       (the-as art-joint-anim #f)
-       num-func-seek!
-       )
-      )
-     )
-    (let ((gp-3 (-> *display* base-frame-counter)))
-     (while (let* ((s5-1 (-> *display* base-frame-counter))
-                   (f30-1 300.0)
-                   (f28-1 0.16)
-                   (f26-1 0.17000002)
-                   (v1-54
-                    (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
-                    )
-                   (v1-55 (the-as number (logior #x3f800000 v1-54)))
-                   )
-             (<
-              (-
-               s5-1
-               (the
-                int
-                (* f30-1 (+ f28-1 (* f26-1 (+ -1.0 (the-as float v1-55)))))
-                )
-               )
-              gp-3
+        (set! (-> gp-1 param 0) (ja-aframe 0.0 0))
+        (set! (-> gp-1 param 1) 1.0)
+        (set! (-> gp-1 frame-num) (ja-aframe 16.0 0))
+        (joint-control-channel-group!
+          gp-1
+          (if (> (-> self skel active-channels) 0)
+              (-> self skel root-channel 0 frame-group)
               )
-             )
-      (suspend)
+          num-func-seek!
+          )
+        )
+      (until (ja-done? 0)
+        (suspend)
+        (let ((gp-2 (-> self skel root-channel 0)))
+          (set! (-> gp-2 param 0) (ja-aframe 0.0 0))
+          (set! (-> gp-2 param 1) 1.0)
+          (joint-control-channel-group-eval! gp-2 (the-as art-joint-anim #f) num-func-seek!)
+          )
+        )
+      (let ((gp-3 (-> *display* base-frame-counter)))
+        (while (let* ((s5-1 (-> *display* base-frame-counter))
+                      (f30-1 300.0)
+                      (f28-1 0.16)
+                      (f26-1 0.17000002)
+                      (v1-54 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                      (v1-55 (the-as number (logior #x3f800000 v1-54)))
+                      )
+                 (< (- s5-1 (the int (* f30-1 (+ f28-1 (* f26-1 (+ -1.0 (the-as float v1-55))))))) gp-3)
+                 )
+          (suspend)
+          )
+        )
       )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
 (defmethod init-from-entity! evilbro ((obj evilbro) (arg0 entity-actor))
@@ -232,13 +165,13 @@
 
 (defmethod play-anim! evilsis ((obj evilsis) (arg0 symbol))
   (if arg0
-   (format
-    0
-    "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-    (-> obj name)
-    (task-status->string (current-status (-> obj tasks)))
-    )
-   )
+      (format
+        0
+        "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+        (-> obj name)
+        (task-status->string (current-status (-> obj tasks)))
+        )
+      )
   (the-as basic (get-art-elem obj))
   )
 
@@ -250,10 +183,10 @@
   :virtual #t
   :trans
   (behavior ()
-   (set! (-> self will-talk) #f)
-   ((-> (method-of-type process-taskable idle) trans))
-   (none)
-   )
+    (set! (-> self will-talk) #f)
+    ((-> (method-of-type process-taskable idle) trans))
+    (none)
+    )
   )
 
 (defmethod init-from-entity! evilsis ((obj evilsis) (arg0 entity-actor))
diff --git a/goal_src/levels/jungle/darkvine.gc b/goal_src/levels/jungle/darkvine.gc
index 4606a280b6..a59ca3a458 100644
--- a/goal_src/levels/jungle/darkvine.gc
+++ b/goal_src/levels/jungle/darkvine.gc
@@ -56,95 +56,81 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 175)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x96
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-darkvine-puffs"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 800) (sp-item 801) (sp-item 802))
-        :bounds
-        (new 'static 'sphere :y 8192.0 :w 12288.0)
-        )
-      )
+(defpartgroup group-darkvine-puffs
+  :id 175
+  :duration 150
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 2 0 3)
+  :parts
+  ((sp-item 800) (sp-item 801) (sp-item 802))
+  )
 
-(set! (-> *part-id-table* 800) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.8)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 30.0 20.0 1.0)
-                                   (sp-rnd-flt spt-g 25.0 10.0 1.0)
-                                   (sp-rnd-flt spt-b 10.0 5.0 1.0)
-                                   (sp-rnd-flt spt-a 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.013333334))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-fade-a 0.1882353)
-                                   (sp-flt spt-accel-y -2.048)
-                                   (sp-int spt-timer 255)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 800
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 0.8)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 30.0 20.0 1.0)
+    (sp-rnd-flt spt-g 25.0 10.0 1.0)
+    (sp-rnd-flt spt-b 10.0 5.0 1.0)
+    (sp-rnd-flt spt-a 0.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
+    (sp-flt spt-vel-y (meters 0.013333334))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-flt spt-fade-a 0.1882353)
+    (sp-flt spt-accel-y -2.048)
+    (sp-int spt-timer 255)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 802) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-flt spt-num 0.25)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 0.6) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 45.0 45.0 1.0)
-                                   (sp-rnd-flt spt-g 45.0 10.0 1.0)
-                                   (sp-rnd-flt spt-b 20.0 6.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-accel-y -2.7306666)
-                                   (sp-int spt-timer 375)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 802
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-flt spt-num 0.25)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 45.0 45.0 1.0)
+    (sp-rnd-flt spt-g 45.0 10.0 1.0)
+    (sp-rnd-flt spt-b 20.0 6.0 1.0)
+    (sp-flt spt-a 96.0)
+    (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-flt spt-accel-y -2.7306666)
+    (sp-int spt-timer 375)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 801) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 0.6) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-r 10.0 6.0 1.0)
-                                   (sp-rnd-flt spt-g 40.0 90.0 1.0)
-                                   (sp-rnd-flt spt-b 10.0 6.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.013333334) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                   (sp-flt spt-accel-y -1.3653333)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 801
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-r 10.0 6.0 1.0)
+    (sp-rnd-flt spt-g 40.0 90.0 1.0)
+    (sp-rnd-flt spt-b 10.0 6.0 1.0)
+    (sp-flt spt-a 96.0)
+    (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.013333334) 1.0)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 ;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 50]
 ;; WARN: rewrite_to_get_var got a none typed variable. Is there unreachable code? [OP: 52]
diff --git a/goal_src/levels/jungle/fisher-JUN.gc b/goal_src/levels/jungle/fisher-JUN.gc
index 9b3cf1fddd..2ff0f77362 100644
--- a/goal_src/levels/jungle/fisher-JUN.gc
+++ b/goal_src/levels/jungle/fisher-JUN.gc
@@ -26,170 +26,143 @@
   (new 'static 'fisher-bank :width (meters 3.3) :net-radius (meters 0.7) :max-caught #xc8 :max-missed 20)
   )
 
-(set! (-> *part-group-id-table* 177)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :flags (sp-group-flag use-local-clock)
-        :name "group-bad-fish"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 828) (sp-item 2013))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
+(defpartgroup group-bad-fish
+  :id 177
+  :duration 5
+  :linger-duration 450
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 828) (sp-item 2013))
+  )
 
-(set! (-> *part-id-table* 828) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-y (meters 0.2))
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.53333336)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-int-plain-rnd spt-next-time 10 53 1)
-                                   (sp-launcher-by-id spt-next-launcher 829)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 828
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.5 0.5 1.0)
+    (sp-flt spt-y (meters 0.2))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.006666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.53333336)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 10 53 1)
+    (sp-launcher-by-id spt-next-launcher 829)
+    )
+  )
 
-(set! (-> *part-id-table* 829)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 829
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
+  )
 
-(set! (-> *part-id-table* 2013) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.7) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -409.6 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-flt spt-accel-y 1.3653333)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2013
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-rnd-flt spt-num 0.1 1.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.7) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.1) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-group-id-table* 178) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x1c2
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-normal-fish"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2001))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
+(defpartgroup group-normal-fish
+  :id 178
+  :duration 5
+  :linger-duration 450
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2001))
+  )
 
-(set! (-> *part-id-table* 2001) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-flt spt-accel-y 1.3653333)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2001
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-rnd-flt spt-num 0.1 1.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.4) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-group-id-table* 179)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x4b0
-        :flags (sp-group-flag use-local-clock)
-        :name "group-fish-collect"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 830) (sp-item 831))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-fish-collect
+  :id 179
+  :duration 5
+  :linger-duration 1200
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 830) (sp-item 831))
+  )
 
-(set! (-> *part-id-table* 831) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-scale-x (meters 5.0) (meters 1.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 16.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 25)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 831
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-scale-x (meters 5) (meters 1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-flt spt-a 16.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 25)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 830) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-r 32.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 1.2)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int-plain-rnd spt-next-time 10 9 1)
-                                   (sp-launcher-by-id spt-next-launcher 832)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 830
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-r 32.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 1.2)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-func spt-func 'sparticle-track-root)
+    (sp-int-plain-rnd spt-next-time 10 9 1)
+    (sp-launcher-by-id spt-next-launcher 832)
+    )
+  )
 
-(set! (-> *part-id-table* 832)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.8) (sp-end))
-        )
-      )
+(defpart 832
+  :init-specs
+  ((sp-flt spt-fade-a -0.8))
+  )
 
 (deftype fisher-params (structure)
   ((timeout         seconds  :offset-assert   0)
diff --git a/goal_src/levels/jungle/jungle-mirrors.gc b/goal_src/levels/jungle/jungle-mirrors.gc
index 960664b437..63f17594f9 100644
--- a/goal_src/levels/jungle/jungle-mirrors.gc
+++ b/goal_src/levels/jungle/jungle-mirrors.gc
@@ -11,599 +11,510 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 176) (new 'static 'sparticle-launch-group
-                                       :length 21
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-jungle-binoculars"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 21
-                                         (sp-item 803)
-                                         (sp-item 804)
-                                         (sp-item 805)
-                                         (sp-item 806)
-                                         (sp-item 807)
-                                         (sp-item 808)
-                                         (sp-item 809)
-                                         (sp-item 810)
-                                         (sp-item 811)
-                                         (sp-item 812)
-                                         (sp-item 813)
-                                         (sp-item 814)
-                                         (sp-item 815)
-                                         (sp-item 816)
-                                         (sp-item 817)
-                                         (sp-item 818)
-                                         (sp-item 819)
-                                         (sp-item 820)
-                                         (sp-item 821)
-                                         (sp-item 822)
-                                         (sp-item 823)
-                                         )
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-jungle-binoculars
+  :id 176
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 803)
+    (sp-item 804)
+    (sp-item 805)
+    (sp-item 806)
+    (sp-item 807)
+    (sp-item 808)
+    (sp-item 809)
+    (sp-item 810)
+    (sp-item 811)
+    (sp-item 812)
+    (sp-item 813)
+    (sp-item 814)
+    (sp-item 815)
+    (sp-item 816)
+    (sp-item 817)
+    (sp-item 818)
+    (sp-item 819)
+    (sp-item 820)
+    (sp-item 821)
+    (sp-item 822)
+    (sp-item 823)
+    )
+  )
 
-(set! (-> *part-id-table* 823) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x28 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-z (degrees -45.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 0.0))
-                                   (sp-flt spt-conerot-radius (meters 1.45))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 823
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x28 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1))
+    (sp-flt spt-rot-z (degrees -45.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 0.0))
+    (sp-flt spt-conerot-radius (meters 1.45))
+    )
+  )
 
-(set! (-> *part-id-table* 815) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees -15.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 30.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 815
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-flt spt-rot-z (degrees -15.0))
+    (sp-flt spt-scale-y (meters 0.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 30.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 816) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 15.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 60.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 816
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-flt spt-rot-z (degrees 15.0))
+    (sp-flt spt-scale-y (meters 0.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 60.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 817) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 75.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 120.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 817
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-flt spt-rot-z (degrees 75.0))
+    (sp-flt spt-scale-y (meters 0.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 120.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 818) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 105.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 150.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 818
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-flt spt-rot-z (degrees 105.0))
+    (sp-flt spt-scale-y (meters 0.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 150.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 819) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 165.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 210.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 819
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-flt spt-rot-z (degrees 165.0))
+    (sp-flt spt-scale-y (meters 0.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 210.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 820) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 195.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 240.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 820
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-flt spt-rot-z (degrees 195.0))
+    (sp-flt spt-scale-y (meters 0.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 240.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 821) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 255.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 300.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 821
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-flt spt-rot-z (degrees 255.0))
+    (sp-flt spt-scale-y (meters 0.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 300.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 822) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 285.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 330.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 822
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-flt spt-rot-z (degrees 285.0))
+    (sp-flt spt-scale-y (meters 0.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 330.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 811) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.75))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 0.75))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 0.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 811
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.75))
+    (sp-flt spt-rot-z (degrees 0.0))
+    (sp-flt spt-scale-y (meters 0.75))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 0.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 812) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.75))
-                                   (sp-flt spt-rot-z (degrees 90.0))
-                                   (sp-flt spt-scale-y (meters 0.75))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 90.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 812
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.75))
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-flt spt-scale-y (meters 0.75))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 90.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 813) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.75))
-                                   (sp-flt spt-rot-z (degrees 180.0))
-                                   (sp-flt spt-scale-y (meters 0.75))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 180.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 813
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.75))
+    (sp-flt spt-rot-z (degrees 180.0))
+    (sp-flt spt-scale-y (meters 0.75))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 180.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 814) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.75))
-                                   (sp-flt spt-rot-z (degrees 270.0))
-                                   (sp-flt spt-scale-y (meters 0.75))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 270.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 814
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.75))
+    (sp-flt spt-rot-z (degrees 270.0))
+    (sp-flt spt-scale-y (meters 0.75))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    (sp-flt spt-conerot-z (degrees 270.0))
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
 
-(set! (-> *part-id-table* 803) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -2.9))
-                                   (sp-flt spt-y (meters 2.1))
-                                   (sp-flt spt-scale-x (meters 4.5))
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 803
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters -2.9))
+    (sp-flt spt-y (meters 2.1))
+    (sp-flt spt-scale-x (meters 4.5))
+    (sp-flt spt-scale-y (meters 3))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 804) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 1.11))
-                                   (sp-flt spt-y (meters 2.1))
-                                   (sp-flt spt-scale-x (meters 4.5))
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 804
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 1.11))
+    (sp-flt spt-y (meters 2.1))
+    (sp-flt spt-scale-x (meters 4.5))
+    (sp-flt spt-scale-y (meters 3))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 805) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -1.11))
-                                   (sp-flt spt-y (meters 2.1))
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-flt spt-rot-z (degrees -90.0))
-                                   (sp-flt spt-scale-y (meters 4.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 805
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters -1.11))
+    (sp-flt spt-y (meters 2.1))
+    (sp-flt spt-scale-x (meters 3))
+    (sp-flt spt-rot-z (degrees -90.0))
+    (sp-flt spt-scale-y (meters 4.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 806) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 2.9))
-                                   (sp-flt spt-y (meters 2.1))
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-flt spt-rot-z (degrees -90.0))
-                                   (sp-flt spt-scale-y (meters 4.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 806
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 2.9))
+    (sp-flt spt-y (meters 2.1))
+    (sp-flt spt-scale-x (meters 3))
+    (sp-flt spt-rot-z (degrees -90.0))
+    (sp-flt spt-scale-y (meters 4.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 807) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -2.9))
-                                   (sp-flt spt-y (meters -2.1))
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-flt spt-rot-z (degrees 90.0))
-                                   (sp-flt spt-scale-y (meters 4.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 807
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters -2.9))
+    (sp-flt spt-y (meters -2.1))
+    (sp-flt spt-scale-x (meters 3))
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-flt spt-scale-y (meters 4.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 808) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 1.11))
-                                   (sp-flt spt-y (meters -2.1))
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-flt spt-rot-z (degrees 90.0))
-                                   (sp-flt spt-scale-y (meters 4.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 808
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 1.11))
+    (sp-flt spt-y (meters -2.1))
+    (sp-flt spt-scale-x (meters 3))
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-flt spt-scale-y (meters 4.5))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 809) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -1.11))
-                                   (sp-flt spt-y (meters -2.1))
-                                   (sp-flt spt-scale-x (meters 4.5))
-                                   (sp-flt spt-rot-z (degrees 180.0))
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 809
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters -1.11))
+    (sp-flt spt-y (meters -2.1))
+    (sp-flt spt-scale-x (meters 4.5))
+    (sp-flt spt-rot-z (degrees 180.0))
+    (sp-flt spt-scale-y (meters 3))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    )
+  )
 
-(set! (-> *part-id-table* 810) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 2.9))
-                                   (sp-flt spt-y (meters -2.1))
-                                   (sp-flt spt-scale-x (meters 4.5))
-                                   (sp-flt spt-rot-z (degrees 180.0))
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 810
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 2.9))
+    (sp-flt spt-y (meters -2.1))
+    (sp-flt spt-scale-x (meters 4.5))
+    (sp-flt spt-rot-z (degrees 180.0))
+    (sp-flt spt-scale-y (meters 3))
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit9)
+    )
+  )
 
-(set! (-> *part-group-id-table* 689)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-jungle-binoculars-aligned"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2840) (sp-item 2863) (sp-item 2864) (sp-item 2865))
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
+(defpartgroup group-jungle-binoculars-aligned
+  :id 689
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2840) (sp-item 2863) (sp-item 2864) (sp-item 2865))
+  )
 
-(set! (-> *part-id-table* 2865) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 5.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 96.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.85333335)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 75 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 2866)
-                                    (sp-rnd-flt spt-conerot-x (degrees -360.0) (degrees 720.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2865
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 1.0 5.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 32.0 1.0)
+    (sp-rnd-flt spt-g 0.0 96.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a 0.85333335)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int-plain-rnd spt-next-time 75 74 1)
+    (sp-launcher-by-id spt-next-launcher 2866)
+    (sp-rnd-flt spt-conerot-x (degrees -360.0) (degrees 720.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2866)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.85333335) (sp-end))
-        )
-      )
+(defpart 2866
+  :init-specs
+  ((sp-flt spt-fade-a -0.85333335))
+  )
 
-(set! (-> *part-id-table* 2864) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 96.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 15 14 1)
-                                    (sp-launcher-by-id spt-next-launcher 2867)
-                                    (sp-rnd-flt spt-conerot-x (degrees -360.0) (degrees 720.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -360.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2864
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 32.0 1.0)
+    (sp-rnd-flt spt-g 0.0 96.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters -0.0033333334) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a 4.266667)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int-plain-rnd spt-next-time 15 14 1)
+    (sp-launcher-by-id spt-next-launcher 2867)
+    (sp-rnd-flt spt-conerot-x (degrees -360.0) (degrees 720.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees -360.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters -2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2867)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -4.266667) (sp-end))
-        )
-      )
+(defpart 2867
+  :init-specs
+  ((sp-flt spt-fade-a -4.266667))
+  )
 
-(set! (-> *part-id-table* 2863) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.15)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 96.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0125))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.8)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2863
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 0.15)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 96.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-scalevel-x (meters -0.0125))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.8)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2840) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 13.0) (meters 5.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2840
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 13) (meters 5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 32.0 1.0)
+    (sp-rnd-flt spt-g 0.0 96.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 64.0 32.0 1.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
 (deftype periscope (process-drawable)
   ((root-override          collide-shape                    :offset        112)
@@ -1023,35 +934,32 @@
     )
   )
 
-(set! (-> *part-id-table* 825) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 4.5)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-flt spt-vel-y (meters 0.010666667))
-                                   (sp-flt spt-scalevel-x (meters -0.008333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.17777778)
-                                   (sp-flt spt-fade-a -0.53333336)
-                                   (sp-flt spt-accel-y 0.68266666)
-                                   (sp-int spt-timer 165)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-z (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.3) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 825
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 4.5)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-vel-y (meters 0.010666667))
+    (sp-flt spt-scalevel-x (meters -0.008333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.17777778)
+    (sp-flt spt-fade-a -0.53333336)
+    (sp-flt spt-accel-y 0.68266666)
+    (sp-int spt-timer 165)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-z (degrees 90.0))
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.3) 1.0)
+    )
+  )
 
 (defbehavior periscope-find-next periscope ()
   (let ((gp-0 (-> self link next)))
diff --git a/goal_src/levels/jungle/jungle-part.gc b/goal_src/levels/jungle/jungle-part.gc
index 4592baed53..cb95816309 100644
--- a/goal_src/levels/jungle/jungle-part.gc
+++ b/goal_src/levels/jungle/jungle-part.gc
@@ -16,16 +16,13 @@
   )
 
 
-(set!
-  (-> *part-id-table* 833)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 833
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.9 0.9 1.0)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 4) 1.0)
     (sp-flt spt-y (meters 47.5))
-    (sp-rnd-flt spt-z -14336.0 28672.0 1.0)
+    (sp-rnd-flt spt-z (meters -3.5) (meters 7) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -42,22 +39,17 @@
     (sp-int spt-timer 366)
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 834)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 834
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters 6.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters 6) (meters 6) 1.0)
     (sp-flt spt-y (meters -6.5))
-    (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+    (sp-flt spt-scale-x (meters 12))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -75,21 +67,16 @@
     (sp-flt spt-friction 0.99)
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit12 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 835)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 835
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 4.0) (meters 8.0) 1.0)
-    (sp-rnd-flt spt-y (meters -1.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -28672.0 57344.0 1.0)
+    (sp-rnd-flt spt-x (meters 4) (meters 8) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -7) (meters 14) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -106,21 +93,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 836)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 836
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 4) 1.0)
     (sp-flt spt-y (meters 47.5))
-    (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -138,21 +120,16 @@
     (sp-int spt-timer 540)
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 837)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 837
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.4 1.0)
-    (sp-rnd-flt spt-x (meters -7.0) (meters 3.5) 1.0)
+    (sp-rnd-flt spt-x (meters -7) (meters 3.5) 1.0)
     (sp-flt spt-y (meters 47.5))
-    (sp-rnd-flt spt-z -16384.0 32768.0 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -170,21 +147,16 @@
     (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
     (sp-int spt-timer 660)
     (sp-cpuinfo-flags bit2 bit12 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 838)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 838
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.8 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters 20.0))
-    (sp-rnd-flt spt-z -22528.0 34816.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 4) 1.0)
+    (sp-flt spt-y (meters 20))
+    (sp-rnd-flt spt-z (meters -5.5) (meters 8.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -202,21 +174,16 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 839)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 839
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.6 0.4 1.0)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 3.5) 1.0)
-    (sp-flt spt-y (meters 20.0))
-    (sp-rnd-flt spt-z -22528.0 34816.0 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 3.5) 1.0)
+    (sp-flt spt-y (meters 20))
+    (sp-rnd-flt spt-z (meters -5.5) (meters 8.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -235,21 +202,16 @@
     (sp-int spt-timer 450)
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 840)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 840
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters 20.0))
-    (sp-rnd-flt spt-z -26624.0 45056.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 4) 1.0)
+    (sp-flt spt-y (meters 20))
+    (sp-rnd-flt spt-z (meters -6.5) (meters 11) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -268,22 +230,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 841)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 841
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 6) 1.0)
     (sp-flt spt-y (meters -4.5))
-    (sp-rnd-flt spt-z -22528.0 38912.0 1.0)
-    (sp-flt spt-scale-x (meters 10.0))
+    (sp-rnd-flt spt-z (meters -5.5) (meters 9.5) 1.0)
+    (sp-flt spt-scale-x (meters 10))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -302,21 +259,16 @@
     (sp-int spt-timer 750)
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 842)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 842
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.5)
-    (sp-rnd-flt spt-x (meters 1.0) (meters 7.0) 1.0)
-    (sp-rnd-flt spt-y (meters -1.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -24576.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters 1) (meters 7) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -334,21 +286,16 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 843)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 843
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 1.0 0.6 1.0)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters 20.0))
-    (sp-rnd-flt spt-z -18432.0 55296.0 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 4) 1.0)
+    (sp-flt spt-y (meters 20))
+    (sp-rnd-flt spt-z (meters -4.5) (meters 13.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -366,21 +313,16 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees -150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 844)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 844
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.9 0.4 1.0)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 3.5) 1.0)
-    (sp-flt spt-y (meters 20.0))
-    (sp-rnd-flt spt-z -18432.0 55296.0 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 3.5) 1.0)
+    (sp-flt spt-y (meters 20))
+    (sp-rnd-flt spt-z (meters -4.5) (meters 13.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -399,21 +341,16 @@
     (sp-int spt-timer 390)
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-flt spt-rotate-y (degrees -150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 845)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 845
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters 20.0))
-    (sp-rnd-flt spt-z -18432.0 55296.0 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 4) 1.0)
+    (sp-flt spt-y (meters 20))
+    (sp-rnd-flt spt-z (meters -4.5) (meters 13.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -432,22 +369,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 846)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 846
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 6) 1.0)
     (sp-flt spt-y (meters -3.4))
-    (sp-rnd-flt spt-z -20480.0 59392.0 1.0)
-    (sp-flt spt-scale-x (meters 10.0))
+    (sp-rnd-flt spt-z (meters -5) (meters 14.5) 1.0)
+    (sp-flt spt-scale-x (meters 10))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -466,21 +398,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-flt spt-rotate-y (degrees -150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 847)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 847
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 7.0) 1.0)
-    (sp-rnd-flt spt-y (meters -1.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -20480.0 59392.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 7) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 14.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -498,21 +425,16 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees -150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 848)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 848
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.8 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters 25.0))
-    (sp-rnd-flt spt-z -26624.0 14336.0 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 4) 1.0)
+    (sp-flt spt-y (meters 25))
+    (sp-rnd-flt spt-z (meters -6.5) (meters 3.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -530,21 +452,16 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 849)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 849
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.6 0.4 1.0)
-    (sp-rnd-flt spt-x (meters -11.0) (meters 3.5) 1.0)
-    (sp-flt spt-y (meters 25.0))
-    (sp-rnd-flt spt-z -26624.0 14336.0 1.0)
+    (sp-rnd-flt spt-x (meters -11) (meters 3.5) 1.0)
+    (sp-flt spt-y (meters 25))
+    (sp-rnd-flt spt-z (meters -6.5) (meters 3.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -563,21 +480,16 @@
     (sp-int spt-timer 450)
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 850)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 850
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters 25.0))
-    (sp-rnd-flt spt-z -26624.0 14336.0 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 4) 1.0)
+    (sp-flt spt-y (meters 25))
+    (sp-rnd-flt spt-z (meters -6.5) (meters 3.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -596,22 +508,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 851)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 851
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.05)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -3) (meters 6) 1.0)
     (sp-flt spt-y (meters -4.5))
-    (sp-rnd-flt spt-z -28672.0 18432.0 1.0)
-    (sp-flt spt-scale-x (meters 10.0))
+    (sp-rnd-flt spt-z (meters -7) (meters 4.5) 1.0)
+    (sp-flt spt-scale-x (meters 10))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -630,21 +537,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 852)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 852
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 7.0) 1.0)
-    (sp-rnd-flt spt-y (meters -1.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -26624.0 14336.0 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 7) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -6.5) (meters 3.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -662,113 +564,76 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees 135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 180)
-  (new 'static 'sparticle-launch-group
-   :length 7
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-jungle-waterfall-1"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 7
-    (sp-item 833)
-    (sp-item 833 :fade-after (meters 160.0) :falloff-to (meters 160.0))
+(defpartgroup group-jungle-waterfall-1
+  :id 180
+  :flags (always-draw)
+  :bounds (static-bspherem 0 25 0 100)
+  :parts
+  ((sp-item 833)
+    (sp-item 833 :fade-after (meters 160) :falloff-to (meters 160))
     (sp-item 834)
-    (sp-item 834 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 837 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 835 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-    (sp-item 836 :fade-after (meters 70.0) :falloff-to (meters 70.0))
+    (sp-item 834 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 837 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 835 :fade-after (meters 70) :falloff-to (meters 70))
+    (sp-item 836 :fade-after (meters 70) :falloff-to (meters 70))
     )
-   :bounds
-   (new 'static 'sphere :y 102400.0 :w 409600.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 181)
-  (new 'static 'sparticle-launch-group
-   :length 7
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-jungle-waterfall-2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 7
-    (sp-item 838)
-    (sp-item 838 :fade-after (meters 160.0) :falloff-to (meters 160.0))
+(defpartgroup group-jungle-waterfall-2
+  :id 181
+  :flags (always-draw)
+  :bounds (static-bspherem 2 9 4 90)
+  :parts
+  ((sp-item 838)
+    (sp-item 838 :fade-after (meters 160) :falloff-to (meters 160))
     (sp-item 841)
-    (sp-item 841 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 839 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 842 :fade-after (meters 90.0))
-    (sp-item 840 :fade-after (meters 90.0))
+    (sp-item 841 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 839 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 842 :fade-after (meters 90))
+    (sp-item 840 :fade-after (meters 90))
     )
-   :bounds
-   (new 'static 'sphere :x 8192.0 :y 36864.0 :z 16384.0 :w 368640.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 182)
-  (new 'static 'sparticle-launch-group
-   :length 7
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-jungle-waterfall-3"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 7
-    (sp-item 843)
-    (sp-item 843 :fade-after (meters 160.0) :falloff-to (meters 160.0))
+(defpartgroup group-jungle-waterfall-3
+  :id 182
+  :flags (always-draw)
+  :bounds (static-bspherem 0 8 0 90)
+  :parts
+  ((sp-item 843)
+    (sp-item 843 :fade-after (meters 160) :falloff-to (meters 160))
     (sp-item 846)
-    (sp-item 846 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 846 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 844)
-    (sp-item 847 :fade-after (meters 90.0))
-    (sp-item 845 :fade-after (meters 90.0))
+    (sp-item 847 :fade-after (meters 90))
+    (sp-item 845 :fade-after (meters 90))
     )
-   :bounds
-   (new 'static 'sphere :y 32768.0 :w 368640.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 183)
-  (new 'static 'sparticle-launch-group
-   :length 7
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-jungle-waterfall-4"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 7
-    (sp-item 848)
-    (sp-item 848 :fade-after (meters 160.0) :falloff-to (meters 160.0))
+(defpartgroup group-jungle-waterfall-4
+  :id 183
+  :flags (always-draw)
+  :bounds (static-bspherem 0 10 8 90)
+  :parts
+  ((sp-item 848)
+    (sp-item 848 :fade-after (meters 160) :falloff-to (meters 160))
     (sp-item 851)
-    (sp-item 851 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 849 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 852 :fade-after (meters 90.0))
-    (sp-item 850 :fade-after (meters 90.0))
+    (sp-item 851 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 849 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 852 :fade-after (meters 90))
+    (sp-item 850 :fade-after (meters 90))
     )
-   :bounds
-   (new 'static 'sphere :y 40960.0 :z 32768.0 :w 368640.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 853)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 853
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -70.0) (meters 100.0) 1.0)
-    (sp-rnd-flt spt-y (meters 3.5) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-z -122880.0 215040.0 1.0)
+    (sp-rnd-flt spt-x (meters -70) (meters 100) 1.0)
+    (sp-rnd-flt spt-y (meters 3.5) (meters 4) 1.0)
+    (sp-rnd-flt spt-z (meters -30) (meters 52.5) 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -783,17 +648,12 @@
     (sp-cpuinfo-flags bit2)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 854)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 854)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-flt spt-scalevel-x (meters 0.0))
+(defpart 854
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r 0.0)
     (sp-flt spt-fade-g 0.0)
@@ -801,66 +661,46 @@
     (sp-flt spt-accel-y -0.20480001)
     (sp-int spt-next-time 600)
     (sp-launcher-by-id spt-next-launcher 855)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 855)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 8
-    (sp-flt spt-scalevel-x (meters -0.0023333333))
+(defpart 855
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters -0.0023333333))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r -0.64)
     (sp-flt spt-fade-g -0.85333335)
     (sp-flt spt-accel-y 0.20480001)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 856)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 856)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-scalevel-x (meters 0.0))
+(defpart 856
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r 0.0)
     (sp-flt spt-fade-g 0.0)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 857)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 857)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-scalevel-x (meters 0.0023333333))
+(defpart 857
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.0023333333))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r 0.64)
     (sp-flt spt-fade-g 0.85333335)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 858)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 858)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-flt spt-scalevel-x (meters 0.0))
+(defpart 858
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r 0.0)
     (sp-flt spt-fade-g 0.0)
@@ -868,66 +708,46 @@
     (sp-flt spt-accel-y -0.20480001)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 859)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 859)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 8
-    (sp-flt spt-scalevel-x (meters -0.0023333333))
+(defpart 859
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters -0.0023333333))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r -0.64)
     (sp-flt spt-fade-g -0.85333335)
     (sp-flt spt-accel-y 0.20480001)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 860)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 860)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-scalevel-x (meters 0.0))
+(defpart 860
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r 0.0)
     (sp-flt spt-fade-g 0.0)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 861)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 861)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-scalevel-x (meters 0.0023333333))
+(defpart 861
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.0023333333))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r 0.64)
     (sp-flt spt-fade-g 0.85333335)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 862)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 862)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-flt spt-scalevel-x (meters 0.0))
+(defpart 862
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r 0.0)
     (sp-flt spt-fade-g 0.0)
@@ -935,40 +755,30 @@
     (sp-flt spt-accel-y -0.20480001)
     (sp-int spt-next-time 600)
     (sp-launcher-by-id spt-next-launcher 863)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 863)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-scalevel-x (meters 0.0))
+(defpart 863
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r 0.0)
     (sp-flt spt-fade-g 0.0)
     (sp-flt spt-fade-a -0.8)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 864)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 864
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 0.02)
-    (sp-rnd-flt spt-x (meters -55.0) (meters 75.0) 1.0)
-    (sp-flt spt-y (meters 28.0))
-    (sp-rnd-flt spt-z -143360.0 245760.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 15.0) (meters 15.0) 1.0)
+    (sp-rnd-flt spt-x (meters -55) (meters 75) 1.0)
+    (sp-flt spt-y (meters 28))
+    (sp-rnd-flt spt-z (meters -35) (meters 60) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 15) (meters 15) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees -120.0) (degrees 20.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 2.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 2) (meters 2) 1.0)
     (sp-flt spt-r 192.0)
     (sp-flt spt-g 192.0)
     (sp-rnd-flt spt-b 64.0 128.0 1.0)
@@ -982,68 +792,43 @@
     (sp-int spt-next-time 1200)
     (sp-launcher-by-id spt-next-launcher 865)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 865)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.02)
-    (sp-end)
-    )
-   )
+(defpart 865
+  :init-specs
+  ((sp-flt spt-fade-a -0.02))
   )
 
-(set!
-  (-> *part-group-id-table* 184)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-jungle-dapple-light-1"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 864 :hour-mask #b111111100000000000111111)
-    (sp-item 853 :fade-after (meters 130.0) :falloff-to (meters 160.0) :hour-mask #b11111111111000000)
+(defpartgroup group-jungle-dapple-light-1
+  :id 184
+  :bounds (static-bspherem 0 0 0 55)
+  :parts
+  ((sp-item 864 :hour-mask #b111111100000000000111111)
+    (sp-item 853 :fade-after (meters 130) :falloff-to (meters 160) :hour-mask #b11111111111000000)
     )
-   :bounds (new 'static 'sphere :w 225280.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 185)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-jungle-tower-spewer"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 866 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 866 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-    (sp-item 867 :fade-after (meters 300.0) :falloff-to (meters 300.0))
-    (sp-item 868 :fade-after (meters 400.0) :falloff-to (meters 400.0))
+(defpartgroup group-jungle-tower-spewer
+  :id 185
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 866 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 866 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 867 :fade-after (meters 300) :falloff-to (meters 300))
+    (sp-item 868 :fade-after (meters 400) :falloff-to (meters 400))
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 866)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 866
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-rnd-flt spt-num 0.25 1.0 1.0)
-    (sp-rnd-flt spt-y (meters 1.6) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 1.6) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 5) (meters 1) 1.0)
     (sp-int spt-rot-x 4)
     (sp-flt spt-rot-z (degrees -90.0))
-    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.7) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 0.7) 1.0)
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
     (sp-rnd-flt spt-g 32.0 32.0 1.0)
     (sp-rnd-flt spt-b 128.0 64.0 1.0)
@@ -1055,37 +840,27 @@
     (sp-launcher-by-id spt-next-launcher 869)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 5.0) (meters 2.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 5) (meters 2) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 869)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-r 64.0)
+(defpart 869
+  :init-specs
+  ((sp-flt spt-r 64.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-fade-r -0.4)
     (sp-flt spt-fade-g -0.4)
     (sp-flt spt-fade-a -0.93333334)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 867)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 867
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 1.0 2.5 1.0)
     (sp-flt spt-y (meters 0.75))
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 6.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 6.5) (meters 1) 1.0)
     (sp-flt spt-r 32.0)
     (sp-rnd-flt spt-g 32.0 16.0 1.0)
     (sp-rnd-flt spt-b 128.0 128.0 1.0)
@@ -1095,21 +870,16 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-flt spt-conerot-radius (meters 7.0))
-    (sp-end)
+    (sp-flt spt-conerot-radius (meters 7))
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 868)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 868
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-rnd-flt spt-num 0.1 1.25 1.0)
     (sp-flt spt-y (meters 0.75))
-    (sp-rnd-flt spt-scale-x (meters 3.5) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3.5) (meters 2) 1.0)
     (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
     (sp-rnd-flt spt-scale-y (meters 6.5) (meters 1.25) 1.0)
     (sp-flt spt-r 32.0)
@@ -1122,24 +892,19 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-flt spt-conerot-radius (meters 7.0))
-    (sp-end)
+    (sp-flt spt-conerot-radius (meters 7))
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 870)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+(defpart 870
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
     (sp-flt spt-num 0.5)
     (sp-flt spt-y (meters 0.75))
-    (sp-flt spt-scale-x (meters 4.0))
+    (sp-flt spt-scale-x (meters 4))
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1) 1.0)
     (sp-flt spt-r 192.0)
     (sp-flt spt-g 192.0)
     (sp-rnd-flt spt-b 0.0 128.0 1.0)
@@ -1153,102 +918,83 @@
     (sp-int spt-next-time 90)
     (sp-launcher-by-id spt-next-launcher 871)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 871)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.53333336)
-    (sp-end)
-    )
-   )
+(defpart 871
+  :init-specs
+  ((sp-flt spt-fade-a -0.53333336))
   )
 
-(set!
-  (-> *part-group-id-table* 186)
-  (new 'static 'sparticle-launch-group
-   :length 55
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-jungle-lurkermachine-3"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 55
-    (sp-item 872 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 300 :length 258)
-    (sp-item 872 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 202 :length 36)
-    (sp-item 872 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38)
-    (sp-item 872 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106)
-    (sp-item 872 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41)
-    (sp-item 873 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 300 :length 233 :offset 150)
-    (sp-item 873 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 202 :length 36 :offset 150)
-    (sp-item 873 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38 :offset 150)
-    (sp-item 873 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106 :offset 150)
-    (sp-item 873 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41 :offset 150)
-    (sp-item 874 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 300 :length 237 :offset 255)
-    (sp-item 874 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 202 :length 36 :offset 255)
-    (sp-item 874 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38 :offset 255)
-    (sp-item 874 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106 :offset 255)
-    (sp-item 874 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41 :offset 255)
-    (sp-item 875 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-    (sp-item 875 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-    (sp-item 875 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-    (sp-item 876 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 877 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 937 :length 75)
-    (sp-item 877 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1280 :length 96)
-    (sp-item 877 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1776 :length 60)
-    (sp-item 878 :fade-after (meters 100.0) :falloff-to (meters 120.0))
-    (sp-item 879 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1194 :length 75)
-    (sp-item 879 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1850 :length 96)
-    (sp-item 879 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1215 :length 60)
-    (sp-item 880 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 881 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 894 :length 75)
-    (sp-item 881 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1700 :length 96)
-    (sp-item 881 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1575 :length 60)
-    (sp-item 882 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 883 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 918 :length 75)
-    (sp-item 883 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1381 :length 96)
-    (sp-item 883 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1754 :length 60)
-    (sp-item 884 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 885 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1398 :length 75)
-    (sp-item 885 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 961 :length 96)
-    (sp-item 885 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1544 :length 60)
-    (sp-item 886 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 887 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-    (sp-item 887 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-    (sp-item 887 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-    (sp-item 888 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 889 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1194 :length 75)
-    (sp-item 889 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1850 :length 96)
-    (sp-item 889 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1215 :length 60)
-    (sp-item 890 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 891 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 894 :length 75)
-    (sp-item 891 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1700 :length 96)
-    (sp-item 891 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1575 :length 60)
-    (sp-item 892 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 893 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 937 :length 75)
-    (sp-item 893 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1280 :length 96)
-    (sp-item 893 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1776 :length 60)
-    (sp-item 894 :fade-after (meters 100.0) :falloff-to (meters 120.0))
+(defpartgroup group-jungle-lurkermachine-3
+  :id 186
+  :bounds (static-bspherem 0 6 6 16)
+  :parts
+  ((sp-item 872 :fade-after (meters 140) :falloff-to (meters 160) :period 300 :length 258)
+    (sp-item 872 :fade-after (meters 140) :falloff-to (meters 160) :period 202 :length 36)
+    (sp-item 872 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38)
+    (sp-item 872 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106)
+    (sp-item 872 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41)
+    (sp-item 873 :fade-after (meters 100) :falloff-to (meters 120) :period 300 :length 233 :offset 150)
+    (sp-item 873 :fade-after (meters 100) :falloff-to (meters 120) :period 202 :length 36 :offset 150)
+    (sp-item 873 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38 :offset 150)
+    (sp-item 873 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106 :offset 150)
+    (sp-item 873 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41 :offset 150)
+    (sp-item 874 :fade-after (meters 100) :falloff-to (meters 120) :period 300 :length 237 :offset 255)
+    (sp-item 874 :fade-after (meters 100) :falloff-to (meters 120) :period 202 :length 36 :offset 255)
+    (sp-item 874 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38 :offset 255)
+    (sp-item 874 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106 :offset 255)
+    (sp-item 874 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41 :offset 255)
+    (sp-item 875 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 875 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 875 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 876 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 877 :fade-after (meters 100) :falloff-to (meters 120) :period 937 :length 75)
+    (sp-item 877 :fade-after (meters 100) :falloff-to (meters 120) :period 1280 :length 96)
+    (sp-item 877 :fade-after (meters 140) :falloff-to (meters 160) :period 1776 :length 60)
+    (sp-item 878 :fade-after (meters 100) :falloff-to (meters 120))
+    (sp-item 879 :fade-after (meters 100) :falloff-to (meters 120) :period 1194 :length 75)
+    (sp-item 879 :fade-after (meters 140) :falloff-to (meters 160) :period 1850 :length 96)
+    (sp-item 879 :fade-after (meters 100) :falloff-to (meters 120) :period 1215 :length 60)
+    (sp-item 880 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 881 :fade-after (meters 100) :falloff-to (meters 120) :period 894 :length 75)
+    (sp-item 881 :fade-after (meters 140) :falloff-to (meters 160) :period 1700 :length 96)
+    (sp-item 881 :fade-after (meters 100) :falloff-to (meters 120) :period 1575 :length 60)
+    (sp-item 882 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 883 :fade-after (meters 100) :falloff-to (meters 120) :period 918 :length 75)
+    (sp-item 883 :fade-after (meters 100) :falloff-to (meters 120) :period 1381 :length 96)
+    (sp-item 883 :fade-after (meters 140) :falloff-to (meters 160) :period 1754 :length 60)
+    (sp-item 884 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 885 :fade-after (meters 100) :falloff-to (meters 120) :period 1398 :length 75)
+    (sp-item 885 :fade-after (meters 100) :falloff-to (meters 120) :period 961 :length 96)
+    (sp-item 885 :fade-after (meters 140) :falloff-to (meters 160) :period 1544 :length 60)
+    (sp-item 886 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 887 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 887 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 887 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 888 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 889 :fade-after (meters 100) :falloff-to (meters 120) :period 1194 :length 75)
+    (sp-item 889 :fade-after (meters 140) :falloff-to (meters 160) :period 1850 :length 96)
+    (sp-item 889 :fade-after (meters 100) :falloff-to (meters 120) :period 1215 :length 60)
+    (sp-item 890 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 891 :fade-after (meters 100) :falloff-to (meters 120) :period 894 :length 75)
+    (sp-item 891 :fade-after (meters 140) :falloff-to (meters 160) :period 1700 :length 96)
+    (sp-item 891 :fade-after (meters 100) :falloff-to (meters 120) :period 1575 :length 60)
+    (sp-item 892 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 893 :fade-after (meters 100) :falloff-to (meters 120) :period 937 :length 75)
+    (sp-item 893 :fade-after (meters 100) :falloff-to (meters 120) :period 1280 :length 96)
+    (sp-item 893 :fade-after (meters 140) :falloff-to (meters 160) :period 1776 :length 60)
+    (sp-item 894 :fade-after (meters 100) :falloff-to (meters 120))
     )
-   :bounds
-   (new 'static 'sphere :y 24576.0 :z 24576.0 :w 65536.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 894)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 894
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
     (sp-flt spt-x (meters 3.8))
     (sp-flt spt-y (meters 4.5))
-    (sp-flt spt-z 24576.0)
+    (sp-flt spt-z (meters 6))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1269,21 +1015,16 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 893)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 893
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-flt spt-x (meters 3.8))
     (sp-flt spt-y (meters 4.5))
-    (sp-flt spt-z 24576.0)
+    (sp-flt spt-z (meters 6))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1305,21 +1046,16 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 892)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 892
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 4.7))
-    (sp-flt spt-z 27443.2)
+    (sp-flt spt-z (meters 6.7))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1327,7 +1063,7 @@
     (sp-rnd-flt spt-g 0.0 32.0 1.0)
     (sp-rnd-flt spt-b 196.0 64.0 1.0)
     (sp-rnd-flt spt-a 32.0 96.0 1.0)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.0033333334) 1.0)
     (sp-flt spt-vel-y (meters -0.0033333334))
     (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
     (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
@@ -1341,21 +1077,16 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 891)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 891
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 4.7))
-    (sp-flt spt-z 27443.2)
+    (sp-flt spt-z (meters 6.7))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1378,21 +1109,16 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 890)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 890
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
     (sp-flt spt-x (meters -6.5))
     (sp-flt spt-y (meters 2.3))
-    (sp-flt spt-z 24166.4)
+    (sp-flt spt-z (meters 5.9))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1400,7 +1126,7 @@
     (sp-rnd-flt spt-g 0.0 32.0 1.0)
     (sp-rnd-flt spt-b 196.0 64.0 1.0)
     (sp-rnd-flt spt-a 32.0 96.0 1.0)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.0033333334) 1.0)
     (sp-flt spt-vel-y (meters -0.013333334))
     (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
     (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
@@ -1414,21 +1140,16 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 889)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 30
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 889
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-flt spt-x (meters -6.5))
     (sp-flt spt-y (meters 2.3))
-    (sp-flt spt-z 24166.4)
+    (sp-flt spt-z (meters 5.9))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1453,21 +1174,16 @@
     (sp-int spt-next-time 36)
     (sp-launcher-by-id spt-next-launcher 895)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 888)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 888
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
     (sp-flt spt-x (meters -6.3))
     (sp-flt spt-y (meters 6.8))
-    (sp-flt spt-z 32768.0)
+    (sp-flt spt-z (meters 8))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1475,8 +1191,8 @@
     (sp-rnd-flt spt-g 0.0 32.0 1.0)
     (sp-rnd-flt spt-b 64.0 32.0 1.0)
     (sp-rnd-flt spt-a 32.0 96.0 1.0)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.0033333334) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.0033333334) 1.0)
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
     (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
@@ -1488,21 +1204,16 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 887)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 887
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-flt spt-x (meters -6.3))
     (sp-flt spt-y (meters 6.8))
-    (sp-flt spt-z 32768.0)
+    (sp-flt spt-z (meters 8))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1511,7 +1222,7 @@
     (sp-rnd-flt spt-b 64.0 32.0 1.0)
     (sp-rnd-flt spt-a 32.0 96.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.026666667) 1.0)
     (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
@@ -1524,21 +1235,16 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 886)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 886
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
     (sp-flt spt-x (meters 8.7))
     (sp-flt spt-y (meters 6.8))
-    (sp-flt spt-z 10240.0)
+    (sp-flt spt-z (meters 2.5))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1547,8 +1253,8 @@
     (sp-rnd-flt spt-b 196.0 64.0 1.0)
     (sp-rnd-flt spt-a 32.0 96.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.0033333334) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-rnd-flt spt-vel-z (meters 0.0) (meters 0.0033333334) 1.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-rnd-flt spt-vel-z (meters 0) (meters 0.0033333334) 1.0)
     (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
     (sp-copy-from-other spt-scalevel-y -4)
@@ -1560,21 +1266,16 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 885)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 885
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-flt spt-x (meters 8.7))
     (sp-flt spt-y (meters 6.8))
-    (sp-flt spt-z 10240.0)
+    (sp-flt spt-z (meters 2.5))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1583,7 +1284,7 @@
     (sp-rnd-flt spt-b 196.0 64.0 1.0)
     (sp-rnd-flt spt-a 32.0 96.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.053333335) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-flt spt-vel-z (meters -0.01) (meters -0.01) 1.0)
     (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
@@ -1597,21 +1298,16 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 884)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 884
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
     (sp-flt spt-x (meters 6.9))
     (sp-flt spt-y (meters 5.3))
-    (sp-flt spt-z -21299.2)
+    (sp-flt spt-z (meters -5.2))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1620,7 +1316,7 @@
     (sp-rnd-flt spt-b 64.0 32.0 1.0)
     (sp-rnd-flt spt-a 32.0 96.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.0033333334) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-flt spt-vel-z (meters -0.01) (meters -0.0033333334) 1.0)
     (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
@@ -1632,21 +1328,16 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 883)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 883
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-flt spt-x (meters 6.9))
     (sp-flt spt-y (meters 5.3))
-    (sp-flt spt-z -21299.2)
+    (sp-flt spt-z (meters -5.2))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1668,21 +1359,16 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 882)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 882
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
     (sp-flt spt-x (meters 2.9))
     (sp-flt spt-y (meters 8.9))
-    (sp-flt spt-z -30720.0)
+    (sp-flt spt-z (meters -7.5))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1704,21 +1390,16 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 881)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 881
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-flt spt-x (meters 2.9))
     (sp-flt spt-y (meters 8.9))
-    (sp-flt spt-z -30720.0)
+    (sp-flt spt-z (meters -7.5))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1741,21 +1422,16 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 880)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 880
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
     (sp-flt spt-x (meters -7.7))
     (sp-flt spt-y (meters 2.3))
-    (sp-flt spt-z -20889.6)
+    (sp-flt spt-z (meters -5.1))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1777,21 +1453,16 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 879)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 30
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 879
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-flt spt-x (meters -7.7))
     (sp-flt spt-y (meters 2.3))
-    (sp-flt spt-z -20889.6)
+    (sp-flt spt-z (meters -5.1))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1816,32 +1487,21 @@
     (sp-int spt-next-time 25)
     (sp-launcher-by-id spt-next-launcher 895)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 895)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-end)
-    )
-   )
+(defpart 895
+  :init-specs
+  ((sp-flt spt-vel-y (meters 0)))
   )
 
-(set!
-  (-> *part-id-table* 878)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 878
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
     (sp-flt spt-x (meters -4.2))
     (sp-flt spt-y (meters 10.9))
-    (sp-flt spt-z -22528.0)
+    (sp-flt spt-z (meters -5.5))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1862,21 +1522,16 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 877)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 877
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-flt spt-x (meters -4.2))
     (sp-flt spt-y (meters 10.9))
-    (sp-flt spt-z -22528.0)
+    (sp-flt spt-z (meters -5.5))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1898,21 +1553,16 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 876)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 876
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
     (sp-flt spt-x (meters -8.2))
     (sp-flt spt-y (meters 6.8))
-    (sp-flt spt-z -28672.0)
+    (sp-flt spt-z (meters -7))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1921,7 +1571,7 @@
     (sp-rnd-flt spt-b 196.0 64.0 1.0)
     (sp-rnd-flt spt-a 32.0 96.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.0033333334) 1.0)
     (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
@@ -1934,21 +1584,16 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 875)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 875
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-flt spt-x (meters -8.2))
     (sp-flt spt-y (meters 6.8))
-    (sp-flt spt-z -28672.0)
+    (sp-flt spt-z (meters -7))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1957,7 +1602,7 @@
     (sp-rnd-flt spt-b 196.0 64.0 1.0)
     (sp-rnd-flt spt-a 32.0 96.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters -0.026666667) 1.0)
     (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
@@ -1971,22 +1616,17 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 872)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 872
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-rnd-flt spt-x (meters -2.2) (meters 2.4) 1.0)
     (sp-rnd-flt spt-y (meters 5.5) (meters 1.3) 1.0)
-    (sp-flt spt-z -30310.4)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-flt spt-z (meters -7.4))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -2008,22 +1648,17 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 53.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 873)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 873
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-rnd-flt spt-x (meters -3.75) (meters 2.4) 1.0)
     (sp-rnd-flt spt-y (meters 8.5) (meters 1.3) 1.0)
-    (sp-flt spt-z 24576.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-flt spt-z (meters 6))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -2045,22 +1680,17 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 40.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 874)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 874
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
     (sp-rnd-flt spt-x (meters -10.5) (meters 0.8) 1.0)
     (sp-flt spt-y (meters 1.3))
-    (sp-flt spt-z -5324.8)
-    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1.0) 1.0)
+    (sp-flt spt-z (meters -1.3))
+    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -2082,52 +1712,39 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 187)
-  (new 'static 'sparticle-launch-group
-   :length 15
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-jungle-lurkermachine-1"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 15
-    (sp-item 896 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 300 :length 258)
-    (sp-item 896 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 202 :length 36)
-    (sp-item 896 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38)
-    (sp-item 896 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106)
-    (sp-item 896 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41)
-    (sp-item 897 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 300 :length 233 :offset 198)
-    (sp-item 897 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 202 :length 36 :offset 198)
-    (sp-item 897 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38 :offset 198)
-    (sp-item 897 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106 :offset 198)
-    (sp-item 897 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41 :offset 198)
-    (sp-item 898 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 300 :length 233 :offset 99)
-    (sp-item 898 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 202 :length 36 :offset 99)
-    (sp-item 898 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38 :offset 99)
-    (sp-item 898 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106 :offset 99)
-    (sp-item 898 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41 :offset 99)
+(defpartgroup group-jungle-lurkermachine-1
+  :id 187
+  :bounds (static-bspherem 0 10 0 12)
+  :parts
+  ((sp-item 896 :fade-after (meters 140) :falloff-to (meters 160) :period 300 :length 258)
+    (sp-item 896 :fade-after (meters 140) :falloff-to (meters 160) :period 202 :length 36)
+    (sp-item 896 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38)
+    (sp-item 896 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106)
+    (sp-item 896 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41)
+    (sp-item 897 :fade-after (meters 100) :falloff-to (meters 120) :period 300 :length 233 :offset 198)
+    (sp-item 897 :fade-after (meters 100) :falloff-to (meters 120) :period 202 :length 36 :offset 198)
+    (sp-item 897 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38 :offset 198)
+    (sp-item 897 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106 :offset 198)
+    (sp-item 897 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41 :offset 198)
+    (sp-item 898 :fade-after (meters 100) :falloff-to (meters 120) :period 300 :length 233 :offset 99)
+    (sp-item 898 :fade-after (meters 100) :falloff-to (meters 120) :period 202 :length 36 :offset 99)
+    (sp-item 898 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38 :offset 99)
+    (sp-item 898 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106 :offset 99)
+    (sp-item 898 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41 :offset 99)
     )
-   :bounds
-   (new 'static 'sphere :y 40960.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 896)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 896
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
-    (sp-rnd-flt spt-x (meters 1.0) (meters 2.2) 1.0)
+    (sp-rnd-flt spt-x (meters 1) (meters 2.2) 1.0)
     (sp-rnd-flt spt-y (meters 9.4) (meters 1.3) 1.0)
-    (sp-flt spt-z -27852.8)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-flt spt-z (meters -6.8))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -2149,22 +1766,17 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 53.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 897)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 897
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-rnd-flt spt-x (meters -1.2) (meters 2.4) 1.0)
     (sp-rnd-flt spt-y (meters 8.5) (meters 1.3) 1.0)
-    (sp-flt spt-z 29900.8)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-flt spt-z (meters 7.3))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -2186,22 +1798,17 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 40.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 898)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 898
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
     (sp-flt spt-x (meters 4.4))
     (sp-rnd-flt spt-y (meters 8.5) (meters 1.3) 1.0)
-    (sp-rnd-flt spt-z -4915.2 9830.4 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -1.2) (meters 2.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -2223,9 +1830,7 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 40.0))
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/jungle/junglesnake.gc b/goal_src/levels/jungle/junglesnake.gc
index d60edf3d2c..0592207c3b 100644
--- a/goal_src/levels/jungle/junglesnake.gc
+++ b/goal_src/levels/jungle/junglesnake.gc
@@ -15,46 +15,37 @@
   :longest-edge (meters 2.5)
   )
 
-(set! (-> *part-group-id-table* 173)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-junglesnake-dropping-down"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 799 :period 300 :length 150))
-        :bounds
-        (new 'static 'sphere :y -49152.0 :w 57344.0)
-        )
-      )
+(defpartgroup group-junglesnake-dropping-down
+  :id 173
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 799 :period 300 :length 150))
+  )
 
-(set! (-> *part-id-table* 799) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 18.0) 1.0)
-                                   (sp-flt spt-y (meters -6.0))
-                                   (sp-rnd-flt spt-z -36864.0 73728.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 40.0 1.0)
-                                   (sp-rnd-flt spt-g 32.0 40.0 1.0)
-                                   (sp-rnd-flt spt-b 32.0 40.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters -0.04) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
-                                   (sp-int spt-timer 390)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 799
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 18) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -9) (meters 18) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 40.0 1.0)
+    (sp-rnd-flt spt-g 32.0 40.0 1.0)
+    (sp-rnd-flt spt-b 32.0 40.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters -0.04) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
+    (sp-int spt-timer 390)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop)
+    )
+  )
 
 (deftype junglesnake-twist-joint (structure)
   ((joint-index   int32  :offset-assert   0)
diff --git a/goal_src/levels/jungleb/jungleb-obs.gc b/goal_src/levels/jungleb/jungleb-obs.gc
index 3226638406..4f2c6d950f 100644
--- a/goal_src/levels/jungleb/jungleb-obs.gc
+++ b/goal_src/levels/jungleb/jungleb-obs.gc
@@ -37,206 +37,165 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 189) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-jungle-blue-eco-room-open"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 899 :fade-after (meters 110.0))
-                                         (sp-item 900 :fade-after (meters 110.0))
-                                         (sp-item 901 :fade-after (meters 110.0))
-                                         (sp-item 902 :fade-after (meters 110.0))
-                                         (sp-item 903 :fade-after (meters 110.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -24576.0 :w 32768.0)
-                                       )
-      )
+(defpartgroup group-jungle-blue-eco-room-open
+  :id 189
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 899 :fade-after (meters 110))
+    (sp-item 900 :fade-after (meters 110))
+    (sp-item 901 :fade-after (meters 110))
+    (sp-item 902 :fade-after (meters 110))
+    (sp-item 903 :fade-after (meters 110))
+    )
+  )
 
-(set! (-> *part-group-id-table* 190) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :name "group-jungle-blue-eco-room-activate"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 903)
-                                         (sp-item 903)
-                                         (sp-item 904 :flags (bit1) :period 1200 :length 15)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -24576.0 :w 32768.0)
-                                       )
-      )
+(defpartgroup group-jungle-blue-eco-room-activate
+  :id 190
+  :duration 900
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 903) (sp-item 903) (sp-item 904 :flags (bit1) :period 1200 :length 15))
+  )
 
-(set! (-> *part-id-table* 904) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 30.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 20.0) (meters 10.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 5.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-r 0.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 16.0 32.0 1.0)
-                                   (sp-flt spt-b 127.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.05) (degrees 0.1) 1.0)
-                                   (sp-flt spt-fade-a 0.85333335)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 905)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 904
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 30.0)
+    (sp-flt spt-y (meters -4))
+    (sp-rnd-flt spt-scale-x (meters 20) (meters 10) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 5) (meters 2) 1.0)
+    (sp-rnd-flt spt-r 0.0 16.0 1.0)
+    (sp-rnd-flt spt-g 16.0 32.0 1.0)
+    (sp-flt spt-b 127.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.05) (degrees 0.1) 1.0)
+    (sp-flt spt-fade-a 0.85333335)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 905)
+    )
+  )
 
-(set! (-> *part-id-table* 905)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 906)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 905
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 225) (sp-launcher-by-id spt-next-launcher 906))
+  )
 
-(set! (-> *part-id-table* 906)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
+(defpart 906
+  :init-specs
+  ((sp-flt spt-fade-a -0.14222223))
+  )
 
-(set! (-> *part-id-table* 899) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 8.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 899
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -4))
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 8) (meters 2) 1.0)
+    (sp-rnd-flt spt-r 0.0 64.0 1.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 128.0 128.0 1.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 900) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 900
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -4))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 128.0 128.0 1.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 901) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees -30.0) (degrees 60.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 907)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 901
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 0.5 1.0 1.0)
+    (sp-flt spt-y (meters -4))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees -30.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 907)
+    )
+  )
 
-(set! (-> *part-id-table* 907)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -1.0)
-                                                     (sp-flt spt-fade-g -1.0)
-                                                     (sp-flt spt-fade-a -2.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 907
+  :init-specs
+  ((sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-fade-r -1.0)
+    (sp-flt spt-fade-g -1.0)
+    (sp-flt spt-fade-a -2.0)
+    )
+  )
 
-(set! (-> *part-id-table* 902) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 150.0) (degrees 60.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 907)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 902
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 0.5 1.0 1.0)
+    (sp-flt spt-y (meters -4))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 150.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 907)
+    )
+  )
 
-(set! (-> *part-id-table* 903) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-y (meters -6.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees -140.0) (degrees 100.00001) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 907)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 80.0) (degrees 200.00002) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 4.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 903
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-y (meters -6.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 2) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees -140.0) (degrees 100.00001) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 907)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 80.0) (degrees 200.00002) 1.0)
+    (sp-flt spt-conerot-radius (meters 4))
+    )
+  )
 
 (defstate eggtop-idle (eggtop)
   :event
diff --git a/goal_src/levels/lavatube/assistant-lavatube.gc b/goal_src/levels/lavatube/assistant-lavatube.gc
index 59f54165e5..084ff82c31 100644
--- a/goal_src/levels/lavatube/assistant-lavatube.gc
+++ b/goal_src/levels/lavatube/assistant-lavatube.gc
@@ -25,49 +25,32 @@
   :shadow 2
   )
 
-(defmethod
-  play-anim!
-  assistant-lavatube-start
-  ((obj assistant-lavatube-start) (arg0 symbol))
-  (case (current-status (-> obj tasks)) 
-   (((task-status need-reward-speech))
+(defmethod play-anim! assistant-lavatube-start ((obj assistant-lavatube-start) (arg0 symbol))
+  (case (current-status (-> obj tasks))
+    (((task-status need-reward-speech))
      (if arg0
-      (close-current! (-> obj tasks))
-      )
+         (close-current! (-> obj tasks))
+         )
      (new 'static 'spool-anim
-      :name "assistant-lavatube-start-resolution"
-      :index 5
-      :parts 11
-      :command-list
-      '(
-        ((the binteger 232)
-          joint
-          "cameraB"
+       :name "assistant-lavatube-start-resolution"
+       :index 5
+       :parts 11
+       :command-list
+       '((232 joint "cameraB") (491 joint "camera") (866 joint "cameraB") (1061 joint "camera"))
+       )
+     )
+    (else
+      (if arg0
+          (format
+            0
+            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+            (-> obj name)
+            (task-status->string (current-status (-> obj tasks)))
+            )
           )
-        ((the binteger 491)
-         joint
-         "camera"
-         )
-        ((the binteger 866)
-         joint
-         "cameraB"
-         )
-        ((the binteger 1061) joint "camera")
-        )
+      (get-art-elem obj)
       )
-     )
-   (else
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
-      )
-     )
-    (get-art-elem obj)
     )
-   )
   )
 
 (defmethod get-art-elem assistant-lavatube-start ((obj assistant-lavatube-start))
@@ -78,240 +61,145 @@
   :virtual #t
   :trans
   (behavior ()
-   ((-> (method-of-type process-taskable hidden) trans))
-   (when (and (cond
-               ((and
-                 *target*
-                 (>=
-                  61440.0
-                  (vector-vector-distance
-                   (-> self root-override trans)
-                   (-> *target* control trans)
-                   )
+    ((-> (method-of-type process-taskable hidden) trans))
+    (when (and (cond
+                 ((and *target* (>= 61440.0 (vector-vector-distance (-> self root-override trans) (-> *target* control trans))))
+                  #t
                   )
+                 (else
+                   (set! (-> self state-time) (-> *display* base-frame-counter))
+                   #f
+                   )
                  )
-                #t
-                )
-               (else
-                (set! (-> self state-time) (-> *display* base-frame-counter))
-                #f
-                )
+               (and (not (closed? (-> self tasks) (game-task lavatube-start) (task-status need-reward-speech)))
+                    (not (movie?))
+                    (not (level-hint-displayed?))
+                    (not (and *cheat-mode* (cpad-hold? 0 l3)))
+                    (< (- (-> *display* base-frame-counter) (-> self state-time)) 3000)
+                    )
                )
-          (and
-           (not
-            (closed?
-             (-> self tasks)
-             (game-task lavatube-start)
-             (task-status need-reward-speech)
-             )
+      (hide-hud)
+      (kill-current-level-hint '() '(sidekick voicebox) 'exit)
+      (when (and (seen-text? *game-info* (game-text-id assistant-lavatube-powercell-hint))
+                 (hud-hidden?)
+                 (can-grab-display? self)
+                 (not (-> *setting-control* current hint))
+                 )
+        (let ((gp-0
+                (new 'stack 'font-context *font-default-matrix* 32 160 0.0 (font-color default) (font-flags shadow kerning))
+                )
+              )
+          (let ((v1-26 gp-0))
+            (set! (-> v1-26 width) (the float 448))
             )
-           (not (movie?))
-           (not (level-hint-displayed?))
-           (not
-            (and
-             *cheat-mode*
-             (logtest? (-> *cpad-list* cpads 0 button0-abs 0) (pad-buttons l3))
-             )
+          (let ((v1-27 gp-0))
+            (set! (-> v1-27 height) (the float 80))
             )
-           (< (- (-> *display* base-frame-counter) (-> self state-time)) 3000)
-           )
+          (let ((v1-28 gp-0))
+            (set! (-> v1-28 scale) 0.8)
+            )
+          (set! (-> gp-0 flags) (font-flags shadow kerning middle large))
+          (print-game-text (lookup-text! *common-text* (game-text-id lavatube-powercell-req-text) #f) gp-0 #f 128 22)
           )
-    (hide-hud)
-    (kill-current-level-hint '() '(sidekick voicebox) 'exit)
-    (when
-     (and
-      (seen-text? *game-info* (game-text-id assistant-lavatube-powercell-hint))
-      (hud-hidden?)
-      (can-grab-display? self)
-      (not (-> *setting-control* current hint))
-      )
-     (let
-      ((gp-0
-        (new
-         'stack
-         'font-context
-         *font-default-matrix*
-         32
-         160
-         0.0
-         (font-color default)
-         (font-flags shadow kerning)
-         )
         )
-       )
-      (let ((v1-26 gp-0))
-       (set! (-> v1-26 width) (the float 448))
-       )
-      (let ((v1-27 gp-0))
-       (set! (-> v1-27 height) (the float 80))
-       )
-      (let ((v1-28 gp-0))
-       (set! (-> v1-28 scale) 0.8)
-       )
-      (set! (-> gp-0 flags) (font-flags shadow kerning middle large))
-      (print-game-text
-       (lookup-text!
-        *common-text*
-        (game-text-id lavatube-powercell-req-text)
-        #f
+      (level-hint-spawn
+        (game-text-id assistant-lavatube-powercell-hint)
+        "asstva74"
+        (the-as entity #f)
+        *entity-pool*
+        (game-task none)
         )
-       gp-0
-       #f
-       128
-       22
-       )
       )
-     )
-    (level-hint-spawn
-     (game-text-id assistant-lavatube-powercell-hint)
-     "asstva74"
-     (the-as entity #f)
-     *entity-pool*
-     (game-task none)
-     )
+    (none)
     )
-   (none)
-   )
   )
 
 (defstate idle (assistant-lavatube-start)
   :virtual #t
   :code
   (behavior ()
-   (while #t
-    (when (!= (if (> (-> self skel active-channels) 0)
-               (-> self skel root-channel 0 frame-group)
-               )
-           (get-art-elem self)
-           )
-     (ja-channel-push! 1 15)
-     (let ((v1-5 (-> self skel root-channel 0)))
-      (set!
-       (-> v1-5 frame-group)
-       (the-as art-joint-anim (-> self draw art-group data 3))
-       )
-      )
-     )
-    (let* ((f30-0 2.0)
-           (v1-7 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-8 (the-as number (logior #x3f800000 v1-7)))
-           )
-     (countdown (gp-0 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-8)))) 2))
-      (let ((a0-12 (-> self skel root-channel 0)))
-       (set! (-> a0-12 frame-group) (if (> (-> self skel active-channels) 0)
-                                     (-> self skel root-channel 0 frame-group)
-                                     )
-        )
-       (set!
-        (-> a0-12 param 0)
-        (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                           (-> self skel root-channel 0 frame-group)
-                           )
-                       data
-                       0
-                       length
-                       )
-                    -1
+    (while #t
+      (when (!= (if (> (-> self skel active-channels) 0)
+                    (-> self skel root-channel 0 frame-group)
                     )
-         )
+                (get-art-elem self)
+                )
+        (ja-channel-push! 1 15)
+        (let ((v1-5 (-> self skel root-channel 0)))
+          (set! (-> v1-5 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+          )
         )
-       (set! (-> a0-12 param 1) 1.0)
-       (set! (-> a0-12 frame-num) 0.0)
-       (joint-control-channel-group!
-        a0-12
-        (if (> (-> self skel active-channels) 0)
-         (-> self skel root-channel 0 frame-group)
-         )
-        num-func-seek!
+      (let* ((f30-0 2.0)
+             (v1-7 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-8 (the-as number (logior #x3f800000 v1-7)))
+             )
+        (countdown (gp-0 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-8)))) 2))
+          (let ((a0-12 (-> self skel root-channel 0)))
+            (set! (-> a0-12 frame-group) (if (> (-> self skel active-channels) 0)
+                                             (-> self skel root-channel 0 frame-group)
+                                             )
+                  )
+            (set! (-> a0-12 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                           (-> self skel root-channel 0 frame-group)
+                                                           )
+                                                       data
+                                                       0
+                                                       length
+                                                       )
+                                                   -1
+                                                   )
+                                          )
+                  )
+            (set! (-> a0-12 param 1) 1.0)
+            (set! (-> a0-12 frame-num) 0.0)
+            (joint-control-channel-group!
+              a0-12
+              (if (> (-> self skel active-channels) 0)
+                  (-> self skel root-channel 0 frame-group)
+                  )
+              num-func-seek!
+              )
+            )
+          (until (ja-done? 0)
+            (suspend)
+            (let ((a0-13 (-> self skel root-channel 0)))
+              (set! (-> a0-13 param 0) (the float (+ (-> a0-13 frame-group data 0 length) -1)))
+              (set! (-> a0-13 param 1) 1.0)
+              (joint-control-channel-group-eval! a0-13 (the-as art-joint-anim #f) num-func-seek!)
+              )
+            )
+          )
+        )
+      (ja-channel-push! 1 15)
+      (let ((a0-16 (-> self skel root-channel 0)))
+        (set! (-> a0-16 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
+        (set! (-> a0-16 param 0)
+              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
+              )
+        (set! (-> a0-16 param 1) 1.0)
+        (set! (-> a0-16 frame-num) 0.0)
+        (joint-control-channel-group! a0-16 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
         )
-       )
       (until (ja-done? 0)
-       (suspend)
-       (let ((a0-13 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-13 param 0)
-         (the float (+ (-> a0-13 frame-group data 0 length) -1))
-         )
-        (set! (-> a0-13 param 1) 1.0)
-        (joint-control-channel-group-eval!
-         a0-13
-         (the-as art-joint-anim #f)
-         num-func-seek!
-         )
+        (suspend)
+        (let ((a0-17 (-> self skel root-channel 0)))
+          (set! (-> a0-17 param 0) (the float (+ (-> a0-17 frame-group data 0 length) -1)))
+          (set! (-> a0-17 param 1) 1.0)
+          (joint-control-channel-group-eval! a0-17 (the-as art-joint-anim #f) num-func-seek!)
+          )
         )
-       )
       )
-     )
-    (ja-channel-push! 1 15)
-    (let ((a0-16 (-> self skel root-channel 0)))
-     (set!
-      (-> a0-16 frame-group)
-      (the-as art-joint-anim (-> self draw art-group data 4))
-      )
-     (set!
-      (-> a0-16 param 0)
-      (the
-       float
-       (+
-        (->
-         (the-as art-joint-anim (-> self draw art-group data 4))
-         data
-         0
-         length
-         )
-        -1
-        )
-       )
-      )
-     (set! (-> a0-16 param 1) 1.0)
-     (set! (-> a0-16 frame-num) 0.0)
-     (joint-control-channel-group!
-      a0-16
-      (the-as art-joint-anim (-> self draw art-group data 4))
-      num-func-seek!
-      )
-     )
-    (until (ja-done? 0)
-     (suspend)
-     (let ((a0-17 (-> self skel root-channel 0)))
-      (set!
-       (-> a0-17 param 0)
-       (the float (+ (-> a0-17 frame-group data 0 length) -1))
-       )
-      (set! (-> a0-17 param 1) 1.0)
-      (joint-control-channel-group-eval!
-       a0-17
-       (the-as art-joint-anim #f)
-       num-func-seek!
-       )
-      )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
-(defmethod
-  should-display?
-  assistant-lavatube-start
-  ((obj assistant-lavatube-start))
+(defmethod should-display? assistant-lavatube-start ((obj assistant-lavatube-start))
   (first-any (-> obj tasks) #t)
   (= (current-status (-> obj tasks)) (task-status need-reward-speech))
   )
 
-(defmethod
-  init-from-entity!
-  assistant-lavatube-start
-  ((obj assistant-lavatube-start) (arg0 entity-actor))
-  (dummy-40
-   obj
-   arg0
-   *assistant-lavatube-start-sg*
-   3
-   29
-   (new 'static 'vector :w 4096.0)
-   5
-   )
+(defmethod init-from-entity! assistant-lavatube-start ((obj assistant-lavatube-start) (arg0 entity-actor))
+  (dummy-40 obj arg0 *assistant-lavatube-start-sg* 3 29 (new 'static 'vector :w 4096.0) 5)
   (set! (-> obj tasks) (get-task-control (game-task lavatube-start)))
   (first-any (-> obj tasks) #t)
   (dummy-42 obj)
diff --git a/goal_src/levels/lavatube/lavatube-energy.gc b/goal_src/levels/lavatube/lavatube-energy.gc
index 6dd5ae978c..779cbad829 100644
--- a/goal_src/levels/lavatube/lavatube-energy.gc
+++ b/goal_src/levels/lavatube/lavatube-energy.gc
@@ -7,448 +7,377 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 544) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-energyarm"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1931 :fade-after (meters 120.0))
-                                         (sp-item 2167 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 16384.0)
-                                       )
-      )
+(defpartgroup group-energyarm
+  :id 544
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1931 :fade-after (meters 120)) (sp-item 2167 :fade-after (meters 60) :falloff-to (meters 60)))
+  )
 
-(set! (-> *part-id-table* 1931) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.016666668))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.0666667)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1931
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-rnd-flt spt-a 64.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters -0.016666668))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -1.0666667)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2167) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 8.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00055555557))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.2)
-                                    (sp-flt spt-fade-b -0.2)
-                                    (sp-flt spt-fade-a -0.6)
-                                    (sp-flt spt-accel-y -6.826667)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int-plain-rnd spt-timer 30 149 1)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2167
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 1.0 8.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00055555557))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.2)
+    (sp-flt spt-fade-b -0.2)
+    (sp-flt spt-fade-a -0.6)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.94)
+    (sp-int-plain-rnd spt-timer 30 149 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 545) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-energyball-always"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 2168 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         (sp-item 2169 :fade-after (meters 120.0))
-                                         (sp-item 2170 :fade-after (meters 120.0))
-                                         (sp-item 2171 :fade-after (meters 120.0) :flags (is-3d))
-                                         (sp-item 2172 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         (sp-item 2173 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 2174 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 2175 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-energyball-always
+  :id 545
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2168 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 2169 :fade-after (meters 120))
+    (sp-item 2170 :fade-after (meters 120))
+    (sp-item 2171 :fade-after (meters 120) :flags (is-3d))
+    (sp-item 2172 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 2173 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 2174 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 2175 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
 
-(set! (-> *part-id-table* 2168) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters -5.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 24.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-fade-a 0.35555556)
-                                    (sp-rnd-flt spt-accel-y -1.6384 -1.6384 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int-plain-rnd spt-timer 120 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 119 1)
-                                    (sp-launcher-by-id spt-next-launcher 2176)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 90.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2168
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-flt spt-y (meters -5.5))
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-rnd-flt spt-a 8.0 24.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-fade-a 0.35555556)
+    (sp-rnd-flt spt-accel-y -1.6384 -1.6384 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int-plain-rnd spt-timer 120 59 1)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int-plain-rnd spt-next-time 30 119 1)
+    (sp-launcher-by-id spt-next-launcher 2176)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 90.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2176)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-scale-x (meters 1.2))
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-a 48.0)
-                                                     (sp-int spt-timer 5)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2176
+  :init-specs
+  ((sp-flt spt-scale-x (meters 1.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 48.0)
+    (sp-int spt-timer 5)
+    )
+  )
 
-(set! (-> *part-id-table* 2177) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int-plain-rnd spt-timer 10 41 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 10 41 1)
-                                    (sp-launcher-by-id spt-next-launcher 2176)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 5.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2177
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int-plain-rnd spt-timer 10 41 1)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int-plain-rnd spt-next-time 10 41 1)
+    (sp-launcher-by-id spt-next-launcher 2176)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 5.5))
+    )
+  )
 
-(set! (-> *part-id-table* 2169) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -5.5))
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 24.0))
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2169
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -5.5))
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+    (sp-flt spt-scale-y (meters 24))
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2170) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -5.5))
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2170
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -5.5))
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 8) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2171) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -5.0))
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.040404037))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.12121211)
-                                    (sp-int spt-timer 198)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2171
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -5))
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 8) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters -0.040404037))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.12121211)
+    (sp-int spt-timer 198)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2172) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-y (meters -5.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-rnd-flt spt-rot-z (degrees 70.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.85333335))
-                                    (sp-flt spt-fade-g -3.2666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2172
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-flt spt-y (meters -5.5))
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-rnd-flt spt-rot-z (degrees 70.0) (degrees 40.0) 1.0)
+    (sp-flt spt-scale-y (meters 12))
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 0.85333335))
+    (sp-flt spt-fade-g -3.2666667)
+    (sp-flt spt-fade-b -1.0666667)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2173) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -6.4)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 2178)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2173
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -6.4)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 2178)
+    )
+  )
 
-(set! (-> *part-id-table* 2178)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-g -4.266667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2178
+  :init-specs
+  ((sp-flt spt-b 0.0) (sp-flt spt-a 64.0) (sp-flt spt-fade-g -4.266667))
+  )
 
-(set! (-> *part-id-table* 2174) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -6.4)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 2178)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2174
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -6.4)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 2178)
+    )
+  )
 
-(set! (-> *part-id-table* 2175) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -6.4)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 2178)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2175
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -6.4)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 2178)
+    )
+  )
 
-(set! (-> *part-group-id-table* 546) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-energyball-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2179 :period 600 :length 5)
-                                         (sp-item 2180 :period 600 :length 40)
-                                         (sp-item 2181 :period 600 :length 20)
-                                         (sp-item 2182 :period 600 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 184320.0)
-                                       )
-      )
+(defpartgroup group-energyball-explode
+  :id 546
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 45)
+  :parts
+  ((sp-item 2179 :period 600 :length 5)
+    (sp-item 2180 :period 600 :length 40)
+    (sp-item 2181 :period 600 :length 20)
+    (sp-item 2182 :period 600 :length 20)
+    )
+  )
 
-(set! (-> *part-id-table* 2180) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.26666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2183)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2180
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 64.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.26666668) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0026666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 89 1)
+    (sp-launcher-by-id spt-next-launcher 2183)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2183)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2183
+  :init-specs
+  ((sp-flt spt-fade-a -1.0666667))
+  )
 
-(set! (-> *part-id-table* 2182) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 24.0))
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.6666666))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2182
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 24))
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 64.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 1.6666666))
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2179) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 40.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2179
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-scale-x (meters 40))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 64.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -2.3272727)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2181) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.02))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.13653333 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2181
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 5) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 64.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.02))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.13653333 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 6) 1.0)
+    )
+  )
 
 (deftype energydoor (process-drawable)
   ((root-override collide-shape-moving  :offset        112)
@@ -560,10 +489,8 @@
 (defstate energydoor-opened (energydoor)
   :event
   energydoor-open-handler
-  :trans (behavior ()
-           (format 0 "energydoor-opened trans NYI~%")
-           (none))
-  ;; TODO
+  :trans
+  (behavior () (none)) ;; todo
   :code
   (behavior ()
     (let ((v1-2 (-> self skel root-channel 0)))
diff --git a/goal_src/levels/lavatube/lavatube-obs.gc b/goal_src/levels/lavatube/lavatube-obs.gc
index a50ea3a053..c79922dbc8 100644
--- a/goal_src/levels/lavatube/lavatube-obs.gc
+++ b/goal_src/levels/lavatube/lavatube-obs.gc
@@ -226,261 +226,232 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 540)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-darkecobarrel-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1932 :period 15 :length 5))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-darkecobarrel-hit
+  :id 540
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1932 :period 15 :length 5))
+  )
 
-(set! (-> *part-id-table* 1932)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 4.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.14222223)
-                                                     (sp-rnd-flt spt-accel-y -0.34133333 -0.34133333 1.0)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1932
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.02))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.14222223)
+    (sp-rnd-flt spt-accel-y -0.34133333 -0.34133333 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    )
+  )
 
-(set! (-> *part-group-id-table* 541)
-      (new 'static 'sparticle-launch-group
-        :length 69
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-darkecobarrel-explode"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 69
-          (sp-item 2125 :period 600 :length 5)
-          (sp-item 2126 :period 600 :length 40)
-          (sp-item 2127 :period 600 :length 20)
-          (sp-item 2128 :period 600 :length 20)
-          (sp-item 2166 :fade-after (meters 100.0) :period 600 :length 20 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-darkecobarrel-explode
+  :id 541
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2125 :period 600 :length 5)
+    (sp-item 2126 :period 600 :length 40)
+    (sp-item 2127 :period 600 :length 20)
+    (sp-item 2128 :period 600 :length 20)
+    (sp-item 2166 :fade-after (meters 100) :period 600 :length 20 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 2166) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2166
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 240)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2126) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2129)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2126
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0026666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 89 1)
+    (sp-launcher-by-id spt-next-launcher 2129)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2129)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2129
+  :init-specs
+  ((sp-flt spt-fade-a -1.0666667))
+  )
 
-(set! (-> *part-id-table* 2128) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 16.0))
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2128
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 16))
+    (sp-rnd-flt spt-r 64.0 192.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 1.04))
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2125) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 32.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2125
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-scale-x (meters 32))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 192.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -2.3272727)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2127)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2127
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.02))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 6) 1.0)
+    )
+  )
 
 (deftype darkecobarrel-leak (structure)
   ((offset      vector :inline :offset-assert   0)
@@ -1156,173 +1127,142 @@
   )
 
 
-(set! (-> *part-group-id-table* 542) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-chainmine-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2132 :period 600 :length 5)
-                                         (sp-item 2133 :period 600 :length 40)
-                                         (sp-item 2134 :period 600 :length 20)
-                                         (sp-item 2135 :period 600 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-chainmine-explode
+  :id 542
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2132 :period 600 :length 5)
+    (sp-item 2133 :period 600 :length 40)
+    (sp-item 2134 :period 600 :length 20)
+    (sp-item 2135 :period 600 :length 20)
+    )
+  )
 
-(set! (-> *part-id-table* 2133) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-b -1.4222223)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2136)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2133
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0026666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -2.1333334)
+    (sp-flt spt-fade-b -1.4222223)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 89 1)
+    (sp-launcher-by-id spt-next-launcher 2136)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2136)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2136
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
 
-(set! (-> *part-id-table* 2135) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 16.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-g -3.2666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2135
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 16))
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 1.04))
+    (sp-flt spt-fade-g -3.2666667)
+    (sp-flt spt-fade-b -1.0666667)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2132) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 32.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2132
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-scale-x (meters 32))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 192.0 32.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -2.3272727)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2134)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 24
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2137)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2134
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.02))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int spt-next-time 42)
+    (sp-launcher-by-id spt-next-launcher 2137)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2137)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -1.0666667)
-                                                     (sp-flt spt-fade-g -1.0666667)
-                                                     (sp-flt spt-fade-b -2.1166666)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2138)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2137
+  :init-specs
+  ((sp-flt spt-fade-r -1.0666667)
+    (sp-flt spt-fade-g -1.0666667)
+    (sp-flt spt-fade-b -2.1166666)
+    (sp-int spt-next-time 60)
+    (sp-launcher-by-id spt-next-launcher 2138)
+    )
+  )
 
-(set! (-> *part-id-table* 2138)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.5688889)
-                                                     (sp-flt spt-fade-g -0.28444445)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 2139)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2138
+  :init-specs
+  ((sp-flt spt-fade-r -0.5688889)
+    (sp-flt spt-fade-g -0.28444445)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-int spt-next-time 225)
+    (sp-launcher-by-id spt-next-launcher 2139)
+    )
+  )
 
-(set! (-> *part-id-table* 2139)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2139
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
+  )
 
 (defskelgroup *chainmine-sg* chainmine
   0
@@ -1496,87 +1436,76 @@
   )
 
 
-(set! (-> *part-group-id-table* 543)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x5dc
-        :name "group-lavaballoon"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 1987) (sp-item 1988) (sp-item 1989))
-        :bounds (new 'static 'sphere :w 61440.0)
-        )
-      )
+(defpartgroup group-lavaballoon
+  :id 543
+  :duration 5
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 1987) (sp-item 1988) (sp-item 1989))
+  )
 
-(set! (-> *part-id-table* 1988)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 8.0)
-                                                     (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1988
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 96.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1989)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-flt spt-y (meters 2.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.08) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-friction 0.98)
-                                                     (sp-int spt-timer 75)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 1.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1989
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-flt spt-y (meters 2))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 96.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.08) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-flt spt-friction 0.98)
+    (sp-int spt-timer 75)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 1.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1987) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 80.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -0.08)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1987
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 12))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 28.0 1.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 80.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-fade-a -0.08)
+    (sp-int spt-timer 15)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
 (defstate die (lavaballoon)
   :virtual #t
diff --git a/goal_src/levels/lavatube/lavatube-part.gc b/goal_src/levels/lavatube/lavatube-part.gc
index e9a4c9f1c5..68795a4461 100644
--- a/goal_src/levels/lavatube/lavatube-part.gc
+++ b/goal_src/levels/lavatube/lavatube-part.gc
@@ -16,48 +16,28 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 616)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-crust-20x20"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2489 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-    )
-   :bounds (new 'static 'sphere :w 57344.0)
-   )
+(defpartgroup group-lavatube-crust-20x20
+  :id 616
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 2489 :fade-after (meters 140) :falloff-to (meters 140)))
   )
 
-(set!
-  (-> *part-group-id-table* 617)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-lowlava-20x20"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2490 :fade-after (meters 190.0) :falloff-to (meters 190.0))
-    )
-   :bounds
-   (new 'static 'sphere :y 49152.0 :w 196608.0)
-   )
+(defpartgroup group-lavatube-lowlava-20x20
+  :id 617
+  :bounds (static-bspherem 0 12 0 48)
+  :parts
+  ((sp-item 2490 :fade-after (meters 190) :falloff-to (meters 190)))
   )
 
-(set!
-  (-> *part-id-table* 2490)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2490
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters 3.0))
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-flt spt-y (meters 3))
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -74,64 +54,37 @@
     (sp-int-plain-rnd spt-next-time 60 59 1)
     (sp-launcher-by-id spt-next-launcher 2491)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2491)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 75)
-    (sp-launcher-by-id spt-next-launcher 2492)
-    (sp-end)
-    )
-   )
+(defpart 2491
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 75) (sp-launcher-by-id spt-next-launcher 2492))
   )
 
-(set!
-  (-> *part-id-table* 2492)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-fade-r -1.28)
+(defpart 2492
+  :init-specs
+  ((sp-flt spt-fade-r -1.28)
     (sp-flt spt-fade-g 0.0)
     (sp-flt spt-fade-b 0.42666668)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2493)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2493)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-flt spt-fade-a -0.035555556)
-    (sp-end)
-    )
-   )
+(defpart 2493
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.035555556))
   )
 
-(set!
-  (-> *part-id-table* 2489)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2489
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -148,93 +101,50 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 2494)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2494)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 75)
-    (sp-launcher-by-id spt-next-launcher 2496)
-    (sp-end)
-    )
-   )
+(defpart 2494
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 75) (sp-launcher-by-id spt-next-launcher 2496))
   )
 
-(set!
-  (-> *part-id-table* 2496)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r -0.85333335)
+(defpart 2496
+  :init-specs
+  ((sp-flt spt-fade-r -0.85333335)
     (sp-flt spt-fade-g -0.42666668)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2497)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2497)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-a -0.026666667)
-    (sp-end)
-    )
-   )
+(defpart 2497
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-a -0.026666667))
   )
 
-(set!
-  (-> *part-group-id-table* 629)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-crust-40x40"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2529 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    )
-   :bounds (new 'static 'sphere :w 131072.0)
-   )
+(defpartgroup group-lavatube-crust-40x40
+  :id 629
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 2529 :fade-after (meters 180) :falloff-to (meters 180)))
   )
 
-(set!
-  (-> *part-group-id-table* 630)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-lowlava-40x40"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2530 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    )
-   :bounds
-   (new 'static 'sphere :y 49152.0 :w 131072.0)
-   )
+(defpartgroup group-lavatube-lowlava-40x40
+  :id 630
+  :bounds (static-bspherem 0 12 0 32)
+  :parts
+  ((sp-item 2530 :fade-after (meters 200) :falloff-to (meters 200)))
   )
 
-(set!
-  (-> *part-id-table* 2530)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2530
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters 3.0))
-    (sp-rnd-flt spt-z -81920.0 163840.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters 3))
+    (sp-rnd-flt spt-z (meters -20) (meters 40) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -251,22 +161,17 @@
     (sp-int-plain-rnd spt-next-time 60 59 1)
     (sp-launcher-by-id spt-next-launcher 2491)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2529)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2529
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.8)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -81920.0 163840.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -20) (meters 40) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -283,78 +188,49 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 2494)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 621)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-green-smoke-down-1"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-    (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-    (sp-item 2516 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-    (sp-item 2517 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-lavatube-green-smoke-down-1
+  :id 621
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 2516 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 2517 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y -24576.0 :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 622)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-green-smoke-down-2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1536 :length 75)
-    (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 596 :length 96)
-    (sp-item 2516 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1070 :length 60)
-    (sp-item 2517 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-lavatube-green-smoke-down-2
+  :id 622
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 1536 :length 75)
+    (sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 596 :length 96)
+    (sp-item 2516 :fade-after (meters 140) :falloff-to (meters 160) :period 1070 :length 60)
+    (sp-item 2517 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y -24576.0 :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 623)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-green-smoke-down-3"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1161 :length 75)
-    (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 869 :length 96)
-    (sp-item 2516 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1029 :length 60)
-    (sp-item 2517 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-lavatube-green-smoke-down-3
+  :id 623
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 1161 :length 75)
+    (sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 869 :length 96)
+    (sp-item 2516 :fade-after (meters 140) :falloff-to (meters 160) :period 1029 :length 60)
+    (sp-item 2517 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y -24576.0 :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2517)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2517
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
-    (sp-flt spt-y (meters -1.0))
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 3) 1.0)
+    (sp-flt spt-y (meters -1))
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -374,44 +250,29 @@
     (sp-flt spt-conerot-y (degrees 0.0))
     (sp-flt spt-conerot-z (degrees 0.0))
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2518)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.47407407)
-    (sp-end)
-    )
-   )
+(defpart 2518
+  :init-specs
+  ((sp-flt spt-fade-a -0.47407407))
   )
 
-(set!
-  (-> *part-id-table* 2516)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2516
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.7 0.6 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 0.05
-      :group #x1
-      :sound-name (static-sound-name "steam-release")
-      :volume #x400
-      )
-     )
-    (sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
-    (sp-flt spt-y (meters -1.0))
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 0.05
+                :group #x1
+                :sound-name (static-sound-name "steam-release")
+                :volume #x400
+                )
+              )
+    (sp-rnd-flt spt-x (meters 0) (meters 3) 1.0)
+    (sp-flt spt-y (meters -1))
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -433,76 +294,47 @@
     (sp-flt spt-conerot-y (degrees 0.0))
     (sp-flt spt-conerot-z (degrees 0.0))
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 624)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-green-smoke-angle-1"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1050 :length 75)
-    (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 886 :length 96)
-    (sp-item 2519 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1276 :length 60)
-    (sp-item 2520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-lavatube-green-smoke-angle-1
+  :id 624
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 1050 :length 75)
+    (sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 886 :length 96)
+    (sp-item 2519 :fade-after (meters 140) :falloff-to (meters 160) :period 1276 :length 60)
+    (sp-item 2520 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y -24576.0 :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 625)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-green-smoke-angle-2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1830 :length 75)
-    (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 970 :length 96)
-    (sp-item 2519 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1102 :length 60)
-    (sp-item 2520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-lavatube-green-smoke-angle-2
+  :id 625
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 1830 :length 75)
+    (sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 970 :length 96)
+    (sp-item 2519 :fade-after (meters 140) :falloff-to (meters 160) :period 1102 :length 60)
+    (sp-item 2520 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y -24576.0 :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 626)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-green-smoke-angle-3"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1530 :length 75)
-    (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1189 :length 96)
-    (sp-item 2519 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 862 :length 60)
-    (sp-item 2520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-lavatube-green-smoke-angle-3
+  :id 626
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 1530 :length 75)
+    (sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 1189 :length 96)
+    (sp-item 2519 :fade-after (meters 140) :falloff-to (meters 160) :period 862 :length 60)
+    (sp-item 2520 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y -24576.0 :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2520)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2520
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.5 1.0)
-    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 5) (meters 3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -522,31 +354,22 @@
     (sp-flt spt-conerot-x (degrees 0.0))
     (sp-flt spt-conerot-y (degrees 0.0))
     (sp-flt spt-conerot-z (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2519)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2519
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.4 0.3 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 0.05
-      :group #x1
-      :sound-name (static-sound-name "steam-release")
-      :volume #x400
-      )
-     )
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 0.05
+                :group #x1
+                :sound-name (static-sound-name "steam-release")
+                :volume #x400
+                )
+              )
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -567,34 +390,21 @@
     (sp-flt spt-conerot-x (degrees 0.0))
     (sp-flt spt-conerot-y (degrees 0.0))
     (sp-flt spt-conerot-z (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 627)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-fountain"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 2521 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 2522 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-lavatube-fountain
+  :id 627
+  :bounds (static-bspherem 0 -10 0 12)
+  :parts
+  ((sp-item 2521 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2522 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y -40960.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2522)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2522
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
     (sp-rnd-flt spt-y (meters -0.75) (meters 0.25) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
@@ -614,19 +424,14 @@
     (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -70.0) (degrees 50.000004) 1.0)
     (sp-flt spt-conerot-z (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2521)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2521
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.1 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -645,64 +450,38 @@
     (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -60.0) (degrees 30.0) 1.0)
     (sp-flt spt-conerot-z (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2523)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-fade-r -0.64)
+(defpart 2523
+  :init-specs
+  ((sp-flt spt-fade-r -0.64)
     (sp-flt spt-fade-g 0.0)
     (sp-flt spt-fade-b 0.21333334)
     (sp-flt spt-fade-a -0.08)
     (sp-int-plain-rnd spt-next-time 210 89 1)
     (sp-launcher-by-id spt-next-launcher 2524)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2524)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-end)
-    )
-   )
+(defpart 2524
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
   )
 
-(set!
-  (-> *part-group-id-table* 628)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-vents"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2525 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
+(defpartgroup group-lavatube-vents
+  :id 628
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2525 :fade-after (meters 160) :falloff-to (meters 160)))
   )
 
-(set!
-  (-> *part-id-table* 2525)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2525
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.3 1.0)
-    (sp-flt spt-y (meters -1.0))
-    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
+    (sp-flt spt-y (meters -1))
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -721,66 +500,39 @@
     (sp-flt spt-conerot-x (degrees 0.0))
     (sp-flt spt-conerot-y (degrees 0.0))
     (sp-flt spt-conerot-z (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2526)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-fade-r -1.28)
+(defpart 2526
+  :init-specs
+  ((sp-flt spt-fade-r -1.28)
     (sp-flt spt-fade-g 0.0)
     (sp-flt spt-fade-b 0.42666668)
     (sp-flt spt-fade-a -0.10666667)
     (sp-int-plain-rnd spt-next-time 90 59 1)
     (sp-launcher-by-id spt-next-launcher 2527)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2527)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-end)
-    )
-   )
+(defpart 2527
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
   )
 
-(set!
-  (-> *part-group-id-table* 631)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-heavy-smoke"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 2531 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-    )
-   :bounds
-   (new 'static 'sphere :y 40960.0 :w 90112.0)
-   )
+(defpartgroup group-lavatube-heavy-smoke
+  :id 631
+  :bounds (static-bspherem 0 10 0 22)
+  :parts
+  ((sp-item 2531 :fade-after (meters 140) :falloff-to (meters 140)))
   )
 
-(set!
-  (-> *part-id-table* 2531)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2531
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 0.4 1.0)
-    (sp-rnd-flt spt-x (meters -16.0) (meters 32.0) 1.0)
-    (sp-rnd-flt spt-z -65536.0 131072.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 12.0) 1.0)
+    (sp-rnd-flt spt-x (meters -16) (meters 32) 1.0)
+    (sp-rnd-flt spt-z (meters -16) (meters 32) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 12) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -797,67 +549,41 @@
     (sp-int-plain-rnd spt-next-time 210 89 1)
     (sp-launcher-by-id spt-next-launcher 2523)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2532)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-fade-r -0.64)
+(defpart 2532
+  :init-specs
+  ((sp-flt spt-fade-r -0.64)
     (sp-flt spt-fade-g 0.0)
     (sp-flt spt-fade-b 0.21333334)
     (sp-flt spt-fade-a -0.08)
     (sp-int-plain-rnd spt-next-time 210 89 1)
     (sp-launcher-by-id spt-next-launcher 2524)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2533)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-end)
-    )
-   )
+(defpart 2533
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
   )
 
-(set!
-  (-> *part-group-id-table* 632)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-heavy-smoke-start"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 2534 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-    (sp-item 2535 :fade-after (meters 200.0) :falloff-to (meters 200.0))
+(defpartgroup group-lavatube-heavy-smoke-start
+  :id 632
+  :bounds (static-bspherem 0 10 0 22)
+  :parts
+  ((sp-item 2534 :fade-after (meters 140) :falloff-to (meters 140))
+    (sp-item 2535 :fade-after (meters 200) :falloff-to (meters 200))
     )
-   :bounds
-   (new 'static 'sphere :y 40960.0 :w 90112.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2534)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2534
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 1.0 5.0 1.0)
-    (sp-rnd-flt spt-x (meters -14.0) (meters 28.0) 1.0)
-    (sp-rnd-flt spt-y (meters 8.0) (meters 8.0) 1.0)
-    (sp-rnd-flt spt-z 16384.0 4096.0 1.0)
+    (sp-rnd-flt spt-x (meters -14) (meters 28) 1.0)
+    (sp-rnd-flt spt-y (meters 8) (meters 8) 1.0)
+    (sp-rnd-flt spt-z (meters 4) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -874,22 +600,17 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2535)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2535
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.4 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -16.0) (meters 32.0) 1.0)
-    (sp-rnd-flt spt-y (meters -14.0) (meters 30.0) 1.0)
-    (sp-rnd-flt spt-z -32768.0 32768.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 12.0) 1.0)
+    (sp-rnd-flt spt-x (meters -16) (meters 32) 1.0)
+    (sp-rnd-flt spt-y (meters -14) (meters 30) 1.0)
+    (sp-rnd-flt spt-z (meters -8) (meters 8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 12) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -906,38 +627,25 @@
     (sp-int-plain-rnd spt-next-time 210 89 1)
     (sp-launcher-by-id spt-next-launcher 2523)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 633)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-lavatube-heavy-smoke-end"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 2536 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-    (sp-item 2537 :fade-after (meters 200.0) :falloff-to (meters 200.0))
+(defpartgroup group-lavatube-heavy-smoke-end
+  :id 633
+  :bounds (static-bspherem 0 10 0 22)
+  :parts
+  ((sp-item 2536 :fade-after (meters 140) :falloff-to (meters 140))
+    (sp-item 2537 :fade-after (meters 200) :falloff-to (meters 200))
     )
-   :bounds
-   (new 'static 'sphere :y 40960.0 :w 90112.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2536)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2536
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 1.0 3.0 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 8.0) 1.0)
-    (sp-rnd-flt spt-z 8192.0 4096.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 8) 1.0)
+    (sp-rnd-flt spt-z (meters 2) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -954,22 +662,17 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-flt spt-rotate-y (degrees 240.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2537)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2537
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.2 0.4 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-rnd-flt spt-y (meters -22.0) (meters 30.0) 1.0)
-    (sp-rnd-flt spt-z -32768.0 32768.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 12.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-rnd-flt spt-y (meters -22) (meters 30) 1.0)
+    (sp-rnd-flt spt-z (meters -8) (meters 8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 12) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -986,9 +689,7 @@
     (sp-int-plain-rnd spt-next-time 210 89 1)
     (sp-launcher-by-id spt-next-launcher 2523)
     (sp-flt spt-rotate-y (degrees 180.0))
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/maincave/cavecrystal-light.gc b/goal_src/levels/maincave/cavecrystal-light.gc
index dc35e2fa50..aaba915a81 100644
--- a/goal_src/levels/maincave/cavecrystal-light.gc
+++ b/goal_src/levels/maincave/cavecrystal-light.gc
@@ -44,217 +44,172 @@
   )
 
 
-(define
-  *cavecrystal-light-control*
-  (new 'static 'cavecrystal-light-control :head #f)
-  )
+(define *cavecrystal-light-control* (new 'static 'cavecrystal-light-control :head #f))
 
-(defun
-  cavecrystal-light-control-default-callback
-  ((arg0 (pointer process-drawable)) (arg1 int) (arg2 float))
+(defun cavecrystal-light-control-default-callback ((arg0 (pointer process-drawable)) (arg1 int) (arg2 float))
   (let ((s5-0 (new 'stack-no-clear 'vector)))
-   (let ((v1-1 (-> arg0 0 node-list)))
-    (if (and (>= arg1 0) (nonzero? v1-1))
-     (vector<-cspace! s5-0 (-> v1-1 data arg1))
-     (set! (-> s5-0 quad) (-> arg0 0 root trans quad))
-     )
+    (let ((v1-1 (-> arg0 0 node-list)))
+      (if (and (>= arg1 0) (nonzero? v1-1))
+          (vector<-cspace! s5-0 (-> v1-1 data arg1))
+          (set! (-> s5-0 quad) (-> arg0 0 root trans quad))
+          )
+      )
+    (set! (-> s5-0 w) arg2)
+    (let ((f0-1 (TODO-RENAME-10 *cavecrystal-light-control* s5-0))
+          (a2-2 (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0))
+          (a1-5 (new 'static 'vector :x 0.05 :y 0.05 :z 0.05 :w 1.0))
+          )
+      (vector-lerp! (-> arg0 0 draw color-mult) a1-5 a2-2 f0-1)
+      )
     )
-   (set! (-> s5-0 w) arg2)
-   (let ((f0-1 (TODO-RENAME-10 *cavecrystal-light-control* s5-0))
-         (a2-2 (new 'static 'vector :x 1.0 :y 1.0 :z 1.0 :w 1.0))
-         (a1-5 (new 'static 'vector :x 0.05 :y 0.05 :z 0.05 :w 1.0))
-         )
-    (vector-lerp! (-> arg0 0 draw color-mult) a1-5 a2-2 f0-1)
-    )
-   )
   (none)
   )
 
-(defmethod
-  create-connection!
-  cavecrystal-light-control
-  ((obj cavecrystal-light-control)
-   (arg0 process-drawable)
-   (arg1 res-lump)
-   (arg2 (function object object object object object))
-   (arg3 object)
-   (arg4 object)
-   )
+(defmethod create-connection! cavecrystal-light-control ((obj cavecrystal-light-control)
+                                                       (arg0 process-drawable)
+                                                       (arg1 res-lump)
+                                                       (arg2 (function object object object object object))
+                                                       (arg3 object)
+                                                       (arg4 object)
+                                                       )
   (if (nonzero? (res-lump-value arg1 'crystal-light uint128))
-   (add-connection
-    *cavecrystal-engine*
-    arg0
-    arg2
-    (process->ppointer arg0)
-    arg3
-    arg4
-    )
-   )
+      (add-connection *cavecrystal-engine* arg0 arg2 (process->ppointer arg0) arg3 arg4)
+      )
   )
 
-(defmethod
-  execute-connections
-  cavecrystal-light-control
-  ((obj cavecrystal-light-control))
+(defmethod execute-connections cavecrystal-light-control ((obj cavecrystal-light-control))
   (execute-connections *cavecrystal-engine* #f)
   )
 
-(defmethod
-  TODO-RENAME-12
-  cavecrystal-light-control
-  ((obj cavecrystal-light-control))
+(defmethod TODO-RENAME-12 cavecrystal-light-control ((obj cavecrystal-light-control))
   (let ((v1-0 (-> obj last-known-valid-time))
         (a1-1 (-> *display* base-frame-counter))
         )
-   (when (!= v1-0 a1-1)
-    (set! (-> obj last-known-valid-time) (the-as uint a1-1))
-    (cond
-     ((zero? v1-0)
-      (set! (-> obj active-count) 0)
-      (set! (-> obj head) #f)
-      (dotimes (v1-1 7)
-       (let ((a1-5 (-> obj crystal v1-1)))
-        (set! (-> a1-5 next) #f)
-        (set! (-> a1-5 crystal-id) v1-1)
-        (set! (-> a1-5 intensity) 0.0)
-        (set! (-> a1-5 fade-start) 20480.0)
-        (set! (-> a1-5 fade-end) 286720.0)
-        (set! (-> a1-5 crystal-handle) (the-as handle #f))
-        )
-       )
-      #f
-      )
-     (else
-      (when (> (-> obj active-count) 0)
-       (let ((v1-4 (the-as cavecrystal-light #f))
-             (a1-7 (-> obj head))
+    (when (!= v1-0 a1-1)
+      (set! (-> obj last-known-valid-time) (the-as uint a1-1))
+      (cond
+        ((zero? v1-0)
+         (set! (-> obj active-count) 0)
+         (set! (-> obj head) #f)
+         (dotimes (v1-1 7)
+           (let ((a1-5 (-> obj crystal v1-1)))
+             (set! (-> a1-5 next) #f)
+             (set! (-> a1-5 crystal-id) v1-1)
+             (set! (-> a1-5 intensity) 0.0)
+             (set! (-> a1-5 fade-start) 20480.0)
+             (set! (-> a1-5 fade-end) 286720.0)
+             (set! (-> a1-5 crystal-handle) (the-as handle #f))
              )
-        (while a1-7
-         (cond
-          ((handle->process (-> a1-7 crystal-handle))
-           (set! v1-4 a1-7)
-           (set! a1-7 (-> a1-7 next))
            )
-          (else
-           (let ((a2-4 (-> a1-7 next)))
-            (+! (-> obj active-count) -1)
-            (set! (-> a1-7 next) #f)
-            (set! (-> a1-7 intensity) 0.0)
-            (if v1-4
-             (set! (-> obj head) a2-4)
-             (set! (-> v1-4 next) a2-4)
-             )
-            (set! a1-7 a2-4)
-            )
-           )
-          )
+         #f
          )
+        (else
+          (when (> (-> obj active-count) 0)
+            (let ((v1-4 (the-as cavecrystal-light #f))
+                  (a1-7 (-> obj head))
+                  )
+              (while a1-7
+                (cond
+                  ((handle->process (-> a1-7 crystal-handle))
+                   (set! v1-4 a1-7)
+                   (set! a1-7 (-> a1-7 next))
+                   )
+                  (else
+                    (let ((a2-4 (-> a1-7 next)))
+                      (+! (-> obj active-count) -1)
+                      (set! (-> a1-7 next) #f)
+                      (set! (-> a1-7 intensity) 0.0)
+                      (if v1-4
+                          (set! (-> obj head) a2-4)
+                          (set! (-> v1-4 next) a2-4)
+                          )
+                      (set! a1-7 a2-4)
+                      )
+                    )
+                  )
+                )
+              )
+            #f
+            )
+          )
         )
-       #f
-       )
       )
-     )
     )
-   )
   )
 
-(defmethod
-  inc-intensites!
-  cavecrystal-light-control
-  ((obj cavecrystal-light-control))
+(defmethod inc-intensites! cavecrystal-light-control ((obj cavecrystal-light-control))
   (set! (-> obj head) #f)
   (let ((a1-0 (the-as cavecrystal-light #f))
         (v0-0 0)
         )
-   (dotimes (v1-0 7)
-    (let ((a2-3 (-> obj crystal v1-0)))
-     (set! (-> a2-3 next) #f)
-     (when (< 0.0 (-> a2-3 intensity))
-      (+! v0-0 1)
-      (if a1-0
-       (set! (-> a1-0 next) a2-3)
-       (set! (-> obj head) a2-3)
-       )
-      (set! a1-0 a2-3)
+    (dotimes (v1-0 7)
+      (let ((a2-3 (-> obj crystal v1-0)))
+        (set! (-> a2-3 next) #f)
+        (when (< 0.0 (-> a2-3 intensity))
+          (+! v0-0 1)
+          (if a1-0
+              (set! (-> a1-0 next) a2-3)
+              (set! (-> obj head) a2-3)
+              )
+          (set! a1-0 a2-3)
+          )
+        )
       )
-     )
+    (set! (-> obj active-count) v0-0)
+    v0-0
     )
-   (set! (-> obj active-count) v0-0)
-   v0-0
-   )
   )
 
-(defmethod
-  TODO-RENAME-9
-  cavecrystal-light-control
-  ((obj cavecrystal-light-control)
-   (arg0 int)
-   (arg1 float)
-   (arg2 process-drawable)
-   )
+(defmethod TODO-RENAME-9 cavecrystal-light-control ((obj cavecrystal-light-control) (arg0 int) (arg1 float) (arg2 process-drawable))
   (TODO-RENAME-12 obj)
   (when (or (< arg0 0) (>= arg0 7))
-   (format 0 "ERROR: Bogus cavecrystal id!~%")
-   (return #f)
-   )
-  (let ((s3-0 (-> obj crystal arg0)))
-   (cond
-    ((and (< 0.0 arg1) (>= 0.0 (-> s3-0 intensity)))
-     (+! (-> obj active-count) 1)
-     (set! (-> s3-0 intensity) arg1)
-     (set! (-> s3-0 crystal-handle) (process->handle arg2))
-     (set! (-> s3-0 trans quad) (-> arg2 root trans quad))
-     (inc-intensites! obj)
-     )
-    ((and (>= 0.0 arg1) (< 0.0 (-> s3-0 intensity)))
-     (+! (-> obj active-count) -1)
-     (set! (-> s3-0 intensity) 0.0)
-     (inc-intensites! obj)
-     )
-    ((< 0.0 arg1)
-     (set! (-> s3-0 intensity) arg1)
-     )
+    (format 0 "ERROR: Bogus cavecrystal id!~%")
+    (return #f)
+    )
+  (let ((s3-0 (-> obj crystal arg0)))
+    (cond
+      ((and (< 0.0 arg1) (>= 0.0 (-> s3-0 intensity)))
+       (+! (-> obj active-count) 1)
+       (set! (-> s3-0 intensity) arg1)
+       (set! (-> s3-0 crystal-handle) (process->handle arg2))
+       (set! (-> s3-0 trans quad) (-> arg2 root trans quad))
+       (inc-intensites! obj)
+       )
+      ((and (>= 0.0 arg1) (< 0.0 (-> s3-0 intensity)))
+       (+! (-> obj active-count) -1)
+       (set! (-> s3-0 intensity) 0.0)
+       (inc-intensites! obj)
+       )
+      ((< 0.0 arg1)
+       (set! (-> s3-0 intensity) arg1)
+       )
+      )
+    (set-fade! *palette-fade-controls* (+ arg0 1) arg1 0.0 (-> s3-0 trans))
     )
-   (set-fade! *palette-fade-controls* (+ arg0 1) arg1 0.0 (-> s3-0 trans))
-   )
   )
 
-(defmethod
-  TODO-RENAME-10
-  cavecrystal-light-control
-  ((obj cavecrystal-light-control) (arg0 vector))
+(defmethod TODO-RENAME-10 cavecrystal-light-control ((obj cavecrystal-light-control) (arg0 vector))
   (TODO-RENAME-12 obj)
   (let ((s5-1 (-> obj head))
         (f30-0 0.0)
         )
-   (when s5-1
-    (until (not s5-1)
-     (let* ((f26-0 (-> s5-1 fade-start))
-            (f28-0 (- (-> s5-1 fade-end) f26-0))
-            (f1-1
-             (fmin
-              (fmax
-               0.0
-               (-
-                (- (vector-vector-distance (-> s5-1 trans) arg0) (-> arg0 w))
-                f26-0
-                )
+    (when s5-1
+      (until (not s5-1)
+        (let* ((f26-0 (-> s5-1 fade-start))
+               (f28-0 (- (-> s5-1 fade-end) f26-0))
+               (f1-1 (fmin (fmax 0.0 (- (- (vector-vector-distance (-> s5-1 trans) arg0) (-> arg0 w)) f26-0)) f28-0))
+               (f0-7 (* (- 1.0 (/ f1-1 f28-0)) (-> s5-1 intensity)))
                )
-              f28-0
+          (if (< f30-0 f0-7)
+              (set! f30-0 f0-7)
               )
-             )
-            (f0-7 (* (- 1.0 (/ f1-1 f28-0)) (-> s5-1 intensity)))
-            )
-      (if (< f30-0 f0-7)
-       (set! f30-0 f0-7)
-       )
+          )
+        (set! s5-1 (-> s5-1 next))
+        )
+      (set! f30-0 (fmin 2.0 f30-0))
       )
-     (set! s5-1 (-> s5-1 next))
-     )
-    (set! f30-0 (fmin 2.0 f30-0))
+    f30-0
     )
-   f30-0
-   )
   )
 
 
diff --git a/goal_src/levels/maincave/dark-crystal.gc b/goal_src/levels/maincave/dark-crystal.gc
index c52fb5e8a4..198bf4abb2 100644
--- a/goal_src/levels/maincave/dark-crystal.gc
+++ b/goal_src/levels/maincave/dark-crystal.gc
@@ -90,407 +90,364 @@
     )
   )
 
-(set! (-> *part-group-id-table* 322)
-      (new 'static 'sparticle-launch-group
-        :length 69
-        :duration #x4b
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-crystal-gnd-explode"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 69
-          (sp-item 2153 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2154 :period 600 :length 5)
-          (sp-item 2155 :period 600 :length 40)
-          (sp-item 2156 :period 600 :length 20)
-          (sp-item 2157 :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 65536.0)
-        )
-      )
+(defpartgroup group-dark-crystal-gnd-explode
+  :id 322
+  :duration 75
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 2153 :fade-after (meters 100) :period 600 :length 5 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2154 :period 600 :length 5)
+    (sp-item 2155 :period 600 :length 40)
+    (sp-item 2156 :period 600 :length 20)
+    (sp-item 2157 :period 600 :length 20)
+    )
+  )
 
-(set! (-> *part-id-table* 2153) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2153
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 240)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2155) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 24.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2158)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2155
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 24.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0026666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 89 1)
+    (sp-launcher-by-id spt-next-launcher 2158)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2158)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2158
+  :init-specs
+  ((sp-flt spt-fade-a -1.0666667))
+  )
 
-(set! (-> *part-id-table* 2157) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2157
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-flt spt-scale-x (meters 0.3))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 12))
+    (sp-rnd-flt spt-r 64.0 192.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 1.04))
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2154) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 24.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2154
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 24))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -2.3272727)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2156)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2156
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.02))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 323) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #x4b
-                                       :linger-duration #x2ee0
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-dark-crystal-water-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 2159 :period 600 :length 5)
-                                         (sp-item 2160 :period 600 :length 40)
-                                         (sp-item 2161 :period 600 :length 20)
-                                         (sp-item 2162 :period 600 :length 20)
-                                         (sp-item 2163 :period 600 :length 75)
-                                         (sp-item 2164 :period 600 :length 75)
-                                         )
-                                       :bounds (new 'static 'sphere :w 65536.0)
-                                       )
-      )
+(defpartgroup group-dark-crystal-water-explode
+  :id 323
+  :duration 75
+  :linger-duration 12000
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 2159 :period 600 :length 5)
+    (sp-item 2160 :period 600 :length 40)
+    (sp-item 2161 :period 600 :length 20)
+    (sp-item 2162 :period 600 :length 20)
+    (sp-item 2163 :period 600 :length 75)
+    (sp-item 2164 :period 600 :length 75)
+    )
+  )
 
-(set! (-> *part-id-table* 2160) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 24.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2158)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2160
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 24.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 128.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0026666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.4)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 89 1)
+    (sp-launcher-by-id spt-next-launcher 2158)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2162) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-r -1.0666667)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2162
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-flt spt-scale-x (meters 0.3))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 12))
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 128.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 1.04))
+    (sp-flt spt-fade-r -1.0666667)
+    (sp-flt spt-fade-g -2.1333334)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2159) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 24.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-g -2.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2159
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 24))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-g -2.0)
+    (sp-flt spt-fade-a -2.3272727)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2161)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 26
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.2)
-                                                     (sp-flt spt-fade-g -0.2)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2161
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 96.0 1.0)
+    (sp-rnd-flt spt-g 128.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.02))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.2)
+    (sp-flt spt-fade-g -0.2)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2163) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-z -16384.0 32768.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.125) (meters 0.025) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 0.8)
-                                    (sp-int spt-timer 12000)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 143360.0)
-                                    (sp-func spt-func 'check-water-level-above-and-die)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2165)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2163
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 6) 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.125) (meters 0.025) 1.0)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+    (sp-flt spt-fade-a 0.8)
+    (sp-int spt-timer 12000)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-flt spt-userdata 143360.0)
+    (sp-func spt-func 'check-water-level-above-and-die)
+    (sp-int-plain-rnd spt-next-time 30 29 1)
+    (sp-launcher-by-id spt-next-launcher 2165)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2165)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
+(defpart 2165
+  :init-specs
+  ((sp-flt spt-fade-a 0.0))
+  )
 
-(set! (-> *part-id-table* 2164) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-z -16384.0 32768.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 0.8)
-                                    (sp-int spt-timer 12000)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 143360.0)
-                                    (sp-func spt-func 'check-water-level-above-and-die)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2165)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2164
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 6) 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+    (sp-flt spt-fade-a 0.8)
+    (sp-int spt-timer 12000)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-flt spt-userdata 143360.0)
+    (sp-func spt-func 'check-water-level-above-and-die)
+    (sp-int-plain-rnd spt-next-time 30 29 1)
+    (sp-launcher-by-id spt-next-launcher 2165)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defstate dark-crystal-idle (dark-crystal)
   :event
diff --git a/goal_src/levels/maincave/driller-lurker.gc b/goal_src/levels/maincave/driller-lurker.gc
index b09627e6e7..754d448417 100644
--- a/goal_src/levels/maincave/driller-lurker.gc
+++ b/goal_src/levels/maincave/driller-lurker.gc
@@ -89,151 +89,132 @@
                                )
   )
 
-(set! (-> *part-group-id-table* 331) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-driller-lurker-drilling-debris"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 728 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         (sp-item 2075 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 2076 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 2077 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-driller-lurker-drilling-debris
+  :id 331
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 728 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 2075 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 2076 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 2077 :fade-after (meters 40) :falloff-to (meters 40))
+    )
+  )
 
-(set! (-> *part-id-table* 728) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.45714286)
-                                   (sp-flt spt-accel-y 2.7306666)
-                                   (sp-flt spt-friction 0.9)
-                                   (sp-int spt-timer 210)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 728
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 32.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.45714286)
+    (sp-flt spt-accel-y 2.7306666)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 210)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2075) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.30476192)
-                                    (sp-flt spt-accel-y 2.7306666)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2075
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 32.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.30476192)
+    (sp-flt spt-accel-y 2.7306666)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 210)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2076) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 375)
-                                    (sp-launcher-by-id spt-next-launcher 2078)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2076
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-flt spt-accel-y -13.653334)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int spt-next-time 375)
+    (sp-launcher-by-id spt-next-launcher 2078)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2078)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.7066667) (sp-end))
-        )
-      )
+(defpart 2078
+  :init-specs
+  ((sp-flt spt-fade-a -1.7066667))
+  )
 
-(set! (-> *part-id-table* 2077) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 2078)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2077
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-rnd-flt spt-num 8.0 8.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-flt spt-accel-y -13.653334)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 2078)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defbehavior driller-lurker-default-event-handler driller-lurker ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
   (local-vars (sv-96 collide-shape-prim))
diff --git a/goal_src/levels/maincave/gnawer.gc b/goal_src/levels/maincave/gnawer.gc
index a3cdf3e071..c1412d5183 100644
--- a/goal_src/levels/maincave/gnawer.gc
+++ b/goal_src/levels/maincave/gnawer.gc
@@ -185,202 +185,179 @@
     )
   )
 
-(set! (-> *part-group-id-table* 329) (new 'static 'sparticle-launch-group
-                                       :length 76
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-gnawer-loses-segment"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 76
-                                         (sp-item 727 :binding 2309)
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2310)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-gnawer-loses-segment
+  :id 329
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 727 :binding 2309)
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2310)
+    )
+  )
 
-(set! (-> *part-id-table* 2310) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -4.266667)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2310
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-flt spt-scale-x (meters 16))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 192.0 128.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -4.266667)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 727) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-rnd-flt spt-num 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-flt spt-fade-a -0.28444445)
-                                   (sp-rnd-flt spt-accel-y -4.096 -2.7306666 1.0)
-                                   (sp-flt spt-friction 0.975)
-                                   (sp-int-plain-rnd spt-timer 300 149 1)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 135.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 727
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-rnd-flt spt-num 16.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 64.0 1.0)
+    (sp-rnd-flt spt-g 0.0 16.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y -4.096 -2.7306666 1.0)
+    (sp-flt spt-friction 0.975)
+    (sp-int-plain-rnd spt-timer 300 149 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 135.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2309) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
-                                    (sp-rnd-flt spt-num 0.25 0.5 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.7) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-int-plain-rnd spt-timer 150 299 1)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2309
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+    (sp-rnd-flt spt-num 0.25 0.5 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.7) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 64.0 1.0)
+    (sp-rnd-flt spt-g 0.0 16.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-rnd-flt spt-a 16.0 48.0 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-flt spt-accel-y -2.7306666)
+    (sp-int-plain-rnd spt-timer 150 299 1)
+    (sp-cpuinfo-flags bit2)
+    )
+  )
 
-(set! (-> *part-group-id-table* 330) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-gnawer-crumbs"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2141 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-gnawer-crumbs
+  :id 330
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2141 :fade-after (meters 60) :falloff-to (meters 60)))
+  )
 
-(set! (-> *part-id-table* 2141) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.008333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-flt spt-fade-a -0.16)
-                                    (sp-flt spt-accel-y -3.4133334)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2141
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-rnd-flt spt-num 1.0 2.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 128.0 1.0)
+    (sp-rnd-flt spt-g 64.0 128.0 1.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.008333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y -3.4133334)
+    (sp-int spt-timer 210)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defstate falling (gnawer-falling-segment)
   :virtual #t
diff --git a/goal_src/levels/maincave/maincave-obs.gc b/goal_src/levels/maincave/maincave-obs.gc
index 6a52d90802..3b05662508 100644
--- a/goal_src/levels/maincave/maincave-obs.gc
+++ b/goal_src/levels/maincave/maincave-obs.gc
@@ -489,55 +489,51 @@
   )
 
 
-(set! (-> *part-id-table* 704)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 2.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters -0.0039999997))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.8) (degrees 1.8) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -1.28)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-accel-y -2.4576)
-                                                     (sp-int spt-timer 5004)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 704
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 2))
+    (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0039999997))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.8) (degrees 1.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -1.28)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-flt spt-accel-y -2.4576)
+    (sp-int spt-timer 5004)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 705)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 2.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters -0.0039999997))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.8) (degrees 1.8) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -1.28)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-accel-y -2.4576)
-                                                     (sp-int spt-timer 5004)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 705
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 2))
+    (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0039999997))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.8) (degrees 1.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -1.28)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-flt spt-accel-y -2.4576)
+    (sp-int spt-timer 5004)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
 (defstate caveflamepots-active (caveflamepots)
   :event
diff --git a/goal_src/levels/maincave/maincave-part.gc b/goal_src/levels/maincave/maincave-part.gc
index 4a91dc7a01..a9b691a754 100644
--- a/goal_src/levels/maincave/maincave-part.gc
+++ b/goal_src/levels/maincave/maincave-part.gc
@@ -25,71 +25,49 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 318)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-maincave-torch"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 706 :fade-after (meters 200.0) :falloff-to (meters 220.0))
-    (sp-item 707 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-    (sp-item 708 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
-    (sp-item 709 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
-    (sp-item 710 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 710 :length 51)
-    (sp-item 711 :fade-after (meters 60.0) :falloff-to (meters 60.0))
+(defpartgroup group-part-maincave-torch
+  :id 318
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 706 :fade-after (meters 200) :falloff-to (meters 220))
+    (sp-item 707 :fade-after (meters 140) :falloff-to (meters 140))
+    (sp-item 708 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 90)
+    (sp-item 709 :fade-after (meters 50) :falloff-to (meters 50) :period 369 :length 69)
+    (sp-item 710 :fade-after (meters 50) :falloff-to (meters 50) :period 710 :length 51)
+    (sp-item 711 :fade-after (meters 60) :falloff-to (meters 60))
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 711)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.3)
+(defpart 711
+  :init-specs
+  ((sp-flt spt-num 0.3)
     (sp-flt spt-x (meters 0.2))
-    (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 2867.2)
     (sp-flt spt-b 3276.8)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-flt spt-vel-y (meters 0.026666667))
     (sp-int spt-timer 180)
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 712)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 712)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -6.826667)
-    (sp-end)
-    )
-   )
+(defpart 712
+  :init-specs
+  ((sp-flt spt-fade-b -6.826667))
   )
 
-(set!
-  (-> *part-id-table* 706)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 706
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1069547520 1 1.0)
     (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-    (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
+    (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -104,32 +82,21 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 713)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 713)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -1.3333334)
-    (sp-end)
-    )
-   )
+(defpart 713
+  :init-specs
+  ((sp-flt spt-fade-a -1.3333334))
   )
 
-(set!
-  (-> *part-id-table* 708)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 708
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -144,21 +111,16 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 713)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 709)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 709
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z 0.0 1638.4 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -173,21 +135,16 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 713)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 710)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 710
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
     (sp-flt spt-y (meters 0.6))
-    (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
+    (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -202,22 +159,17 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 713)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 707)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 707
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.3))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -239,80 +191,51 @@
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 319)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-cave-cavedrip-1"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 369 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 768 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1167 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1701 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2736 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 3831 :length 5)
+(defpartgroup group-cave-cavedrip-1
+  :id 319
+  :bounds (static-bspherem 0 8 0 8.25)
+  :parts
+  ((sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 369 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 768 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 1167 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 1701 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 2736 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 3831 :length 5)
     )
-   :bounds
-   (new 'static 'sphere :y 32768.0 :w 33792.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 320)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-cave-cavedrip-2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 467 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 834 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 984 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2237 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2597 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 3587 :length 5)
+(defpartgroup group-cave-cavedrip-2
+  :id 320
+  :bounds (static-bspherem 0 8 0 8.25)
+  :parts
+  ((sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 467 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 834 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 984 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 2237 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 2597 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 3587 :length 5)
     )
-   :bounds
-   (new 'static 'sphere :y 32768.0 :w 33792.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 321)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-cave-cavedrip-3"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 801 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 867 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1269 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1983 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2601 :length 5)
-    (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 5061 :length 5)
+(defpartgroup group-cave-cavedrip-3
+  :id 321
+  :bounds (static-bspherem 0 8 0 8.25)
+  :parts
+  ((sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 801 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 867 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 1269 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 1983 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 2601 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 5061 :length 5)
     )
-   :bounds
-   (new 'static 'sphere :y 32768.0 :w 33792.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2231)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 2231
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-rnd-flt spt-num 3.0 4.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -327,17 +250,12 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2232)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 2232
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters 0.02))
     (sp-flt spt-scale-x (meters 0.5))
@@ -352,20 +270,15 @@
     (sp-int spt-timer 90)
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2230)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 2230
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-func spt-birth-func 'birth-func-y->userdata)
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters 24.0))
+    (sp-flt spt-y (meters 24))
     (sp-flt spt-scale-x (meters 0.1))
     (sp-flt spt-scale-y (meters 0.4))
     (sp-rnd-flt spt-r 96.0 64.0 1.0)
@@ -380,62 +293,44 @@
     (sp-func spt-func 'check-drop-level-maincave-drip)
     (sp-int-plain-rnd spt-next-time 150 74 1)
     (sp-launcher-by-id spt-next-launcher 2233)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2233)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a 0.0)
-    (sp-end)
-    )
-   )
+(defpart 2233
+  :init-specs
+  ((sp-flt spt-fade-a 0.0))
   )
 
-(defun
-  check-drop-level-maincave-drip
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-maincave-drip ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-2 (the-as number (logior #x3f800000 v1-1)))
-           )
-     (if (< (+ -1.0 (the-as float v1-2)) 0.25)
-      (sound-play-by-name
-       (static-sound-name "water-drop")
-       (new-sound-id)
-       1024
-       0
-       0
-       1
-       #t
-       )
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-2 (the-as number (logior #x3f800000 v1-1)))
+             )
+        (if (< (+ -1.0 (the-as float v1-2)) 0.25)
+            (sound-play-by-name (static-sound-name "water-drop") (new-sound-id) 1024 0 0 1 #t)
+            )
+        )
+      (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 2231)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
+      (sp-launch-particles-var
+        *sp-particle-system-3d*
+        (-> *part-id-table* 2232)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
       )
-     )
-    (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 2231)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
-    (sp-launch-particles-var
-     *sp-particle-system-3d*
-     (-> *part-id-table* 2232)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
     )
-   )
   (none)
   )
 
diff --git a/goal_src/levels/maincave/mother-spider-egg.gc b/goal_src/levels/maincave/mother-spider-egg.gc
index f8a475cda8..9eb61a1a94 100644
--- a/goal_src/levels/maincave/mother-spider-egg.gc
+++ b/goal_src/levels/maincave/mother-spider-egg.gc
@@ -61,135 +61,115 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 324) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #x5
-                                       :linger-duration #x384
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-spider-egg-hatches"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2018 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         (sp-item 2071 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-spider-egg-hatches
+  :id 324
+  :duration 5
+  :linger-duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2018 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 2071 :fade-after (meters 50) :falloff-to (meters 50))
+    )
+  )
 
-(set! (-> *part-id-table* 2071) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.1))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-int spt-timer 225)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2072)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2071
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-flt spt-y (meters 0.5))
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.1))
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-int spt-timer 225)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 2072)
+    )
+  )
 
-(set! (-> *part-id-table* 2072)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-scale-x (meters 0.1))
-                                                     (sp-flt spt-scale-y (meters 2.0))
-                                                     (sp-flt spt-scalevel-y (meters 0.2))
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2072
+  :init-specs
+  ((sp-flt spt-scale-x (meters 0.1))
+    (sp-flt spt-scale-y (meters 2))
+    (sp-flt spt-scalevel-y (meters 0.2))
+    (sp-flt spt-fade-a -1.4222223)
+    )
+  )
 
-(set! (-> *part-id-table* 2018) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 32.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 1.4222223)
-                                    (sp-flt spt-accel-y 0.27306667)
-                                    (sp-int spt-timer 375)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 45)
-                                    (sp-launcher-by-id spt-next-launcher 2073)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2018
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 32.0 1.0)
+    (sp-rnd-flt spt-g 0.0 16.0 1.0)
+    (sp-rnd-flt spt-b 32.0 32.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 1.4222223)
+    (sp-flt spt-accel-y 0.27306667)
+    (sp-int spt-timer 375)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int spt-next-time 45)
+    (sp-launcher-by-id spt-next-launcher 2073)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2073)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 2073
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
+  )
 
-(set! (-> *part-group-id-table* 325) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x177
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-spider-egg-explodes"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2074 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-spider-egg-explodes
+  :id 325
+  :duration 5
+  :linger-duration 375
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2074 :fade-after (meters 50) :falloff-to (meters 50)))
+  )
 
-(set! (-> *part-id-table* 2074) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.4222223)
-                                    (sp-flt spt-accel-y 0.27306667)
-                                    (sp-int spt-timer 375)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2074
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 32.0 1.0)
+    (sp-rnd-flt spt-g 0.0 16.0 1.0)
+    (sp-rnd-flt spt-b 32.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -1.4222223)
+    (sp-flt spt-accel-y 0.27306667)
+    (sp-int spt-timer 375)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+    )
+  )
 
 (defmethod draw-egg-shadow mother-spider-egg ((obj mother-spider-egg) (arg0 vector) (arg1 symbol))
   (cond
diff --git a/goal_src/levels/maincave/mother-spider-proj.gc b/goal_src/levels/maincave/mother-spider-proj.gc
index 9f5205d028..edd0c381ef 100644
--- a/goal_src/levels/maincave/mother-spider-proj.gc
+++ b/goal_src/levels/maincave/mother-spider-proj.gc
@@ -18,255 +18,222 @@
   )
 
 
-(set! (-> *part-group-id-table* 326) (new 'static 'sparticle-launch-group
-                                       :length 48
-                                       :duration #x12c
-                                       :linger-duration #x5dc
-                                       :name "group-mother-spider-proj-fly"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 48
-                                         (sp-item 718 :flags (launch-asap) :binding 716)
-                                         (sp-item 716 :flags (start-dead) :binding 717)
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 12288.0)
-                                       )
-      )
+(defpartgroup group-mother-spider-proj-fly
+  :id 326
+  :duration 300
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 718 :flags (launch-asap) :binding 716)
+    (sp-item 716 :flags (start-dead) :binding 717)
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    )
+  )
 
-(set! (-> *part-id-table* 718) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 9
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 718
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.01))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 0.0)
+    (sp-int spt-timer 1200)
+    (sp-cpuinfo-flags bit3)
+    (sp-func spt-func 'sparticle-track-root-prim)
+    )
+  )
 
-(set! (-> *part-id-table* 716) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-scalevel-x (meters -0.006666667))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -1.0666667)
-                                   (sp-flt spt-fade-g -1.0666667)
-                                   (sp-flt spt-fade-b 0.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 81)
-                                   (sp-launcher-by-id spt-next-launcher 720)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.1))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 716
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 1))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-scalevel-x (meters -0.006666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -1.0666667)
+    (sp-flt spt-fade-g -1.0666667)
+    (sp-flt spt-fade-b 0.0)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 81)
+    (sp-launcher-by-id spt-next-launcher 720)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.1))
+    )
+  )
 
-(set! (-> *part-id-table* 720)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 720
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
+  )
 
-(set! (-> *part-id-table* 717) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 5.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -1.0666667)
-                                   (sp-flt spt-fade-g -1.0666667)
-                                   (sp-flt spt-fade-b 0.0)
-                                   (sp-flt spt-accel-y -2.7306666)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int-plain-rnd spt-timer 30 119 1)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 60)
-                                   (sp-launcher-by-id spt-next-launcher 720)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.4) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 717
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 1.0 5.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0026666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -1.0666667)
+    (sp-flt spt-fade-g -1.0666667)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-accel-y -2.7306666)
+    (sp-flt spt-friction 0.97)
+    (sp-int-plain-rnd spt-timer 30 119 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 60)
+    (sp-launcher-by-id spt-next-launcher 720)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.4) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 327)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-mother-spider-proj-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 722) (sp-item 723) (sp-item 724))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-mother-spider-proj-hit
+  :id 327
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 722) (sp-item 723) (sp-item 724))
+  )
 
-(set! (-> *part-id-table* 722) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 64.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.006666667))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.7111111)
-                                   (sp-flt spt-fade-g -0.7111111)
-                                   (sp-flt spt-fade-b 0.0)
-                                   (sp-flt spt-accel-y -0.68266666)
-                                   (sp-rnd-flt spt-friction 0.85 0.05 1.0)
-                                   (sp-int-plain-rnd spt-timer 30 119 1)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 720)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.4) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 722
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 64.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.006666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.7111111)
+    (sp-flt spt-fade-g -0.7111111)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-accel-y -0.68266666)
+    (sp-rnd-flt spt-friction 0.85 0.05 1.0)
+    (sp-int-plain-rnd spt-timer 30 119 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 720)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 724)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 6.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-flt spt-fade-r -0.35555556)
-                                                     (sp-flt spt-fade-g -0.35555556)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.30476192)
-                                                     (sp-rnd-flt spt-accel-y -0.68266666 0.68266666 1.0)
-                                                     (sp-int spt-timer 210)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 720)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 724
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-r -0.35555556)
+    (sp-flt spt-fade-g -0.35555556)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-fade-a -0.30476192)
+    (sp-rnd-flt spt-accel-y -0.68266666 0.68266666 1.0)
+    (sp-int spt-timer 210)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 60)
+    (sp-launcher-by-id spt-next-launcher 720)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 723) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-flt spt-fade-a -4.8)
-                                   (sp-int spt-timer 15)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 723
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 32.0 1.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-fade-a -4.8)
+    (sp-int spt-timer 15)
+    (sp-cpuinfo-flags bit2)
+    )
+  )
 
-(set! (-> *part-group-id-table* 328) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-mother-spider-proj-die"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 722))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-mother-spider-proj-die
+  :id 328
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 722))
+  )
 
 (defmethod dummy-24 mother-spider-proj ((obj mother-spider-proj))
   (with-pp
diff --git a/goal_src/levels/maincave/mother-spider.gc b/goal_src/levels/maincave/mother-spider.gc
index a5c286bfa7..058a8da47c 100644
--- a/goal_src/levels/maincave/mother-spider.gc
+++ b/goal_src/levels/maincave/mother-spider.gc
@@ -56,41 +56,34 @@
     )
   )
 
-(set! (-> *part-group-id-table* 614) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-mother-spider-leg"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2477))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-mother-spider-leg
+  :id 614
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2477))
+  )
 
-(set! (-> *part-id-table* 2477) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.35) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 96.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.002))
-                                    (sp-flt spt-fade-a -0.4)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2477
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 0.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.35) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 128.0 1.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-flt spt-b 96.0 128.0 1.0)
+    (sp-rnd-flt spt-a 48.0 48.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.002))
+    (sp-flt spt-fade-a -0.4)
+    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
+    (sp-int spt-timer 210)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defstate mother-spider-leg-flying (mother-spider-leg)
   :trans
@@ -248,42 +241,34 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 618)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-mother-spider-leg-socket"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2498 :period 90 :length 30))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-mother-spider-leg-socket
+  :id 618
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2498 :period 90 :length 30))
+  )
 
-(set! (-> *part-id-table* 2498) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.35) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 96.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.002))
-                                    (sp-flt spt-fade-a -0.4)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2498
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 1.0 2.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.35) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 128.0 1.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-flt spt-b 96.0 128.0 1.0)
+    (sp-rnd-flt spt-a 48.0 48.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.002))
+    (sp-flt spt-fade-a -0.4)
+    (sp-flt spt-accel-y -2.7306666)
+    (sp-int spt-timer 210)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defbehavior mother-spider-default-event-handler mother-spider ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
   (case arg2
diff --git a/goal_src/levels/misty/babak-with-cannon.gc b/goal_src/levels/misty/babak-with-cannon.gc
index e5bac4fd35..cb2f35a793 100644
--- a/goal_src/levels/misty/babak-with-cannon.gc
+++ b/goal_src/levels/misty/babak-with-cannon.gc
@@ -9,7 +9,6 @@
 
 ;; DECOMP BEGINS
 
-;; definition of type babak-with-cannon
 (deftype babak-with-cannon (babak)
   ((cannon-ent entity  :offset-assert 400)
    (distance   float   :offset-assert 404)
@@ -25,20 +24,9 @@
     )
   )
 
-;; definition for method 3 of type babak-with-cannon
-(defmethod inspect babak-with-cannon ((obj babak-with-cannon))
-  (let ((t9-0 (method-of-type babak inspect)))
-    (t9-0 obj)
-    )
-  (format #t "~T~Tcannon-ent: ~A~%" (-> obj cannon-ent))
-  (format #t "~T~Tdistance: ~f~%" (-> obj distance))
-  obj
-  )
 
-;; failed to figure out what this is:
 nav-enemy-default-event-handler
 
-;; failed to figure out what this is:
 (defstate nav-enemy-idle (babak-with-cannon)
   :virtual #t
   :event
@@ -48,13 +36,12 @@ nav-enemy-default-event-handler
     )
   :trans
   (behavior ()
-    (if (and
-            (and *target* (>= (-> self enemy-info idle-distance)
-                              (vector-vector-distance (-> self collide-info trans) (-> *target* control trans))
-                              )
-                 )
-            (>= (- (-> *display* base-frame-counter) (-> self state-time)) (-> self state-timeout))
-            )
+    (if (and (and *target* (>= (-> self enemy-info idle-distance)
+                               (vector-vector-distance (-> self collide-info trans) (-> *target* control trans))
+                               )
+                  )
+             (>= (- (-> *display* base-frame-counter) (-> self state-time)) (-> self state-timeout))
+             )
         (go-virtual nav-enemy-patrol)
         )
     (none)
@@ -95,7 +82,6 @@ nav-enemy-default-event-handler
   (the-as (function none :behavior babak-with-cannon) #f)
   )
 
-;; failed to figure out what this is:
 (defstate nav-enemy-patrol (babak-with-cannon)
   :virtual #t
   :event
@@ -107,24 +93,21 @@ nav-enemy-default-event-handler
   (behavior ()
     (when (>= (- (-> *display* base-frame-counter) (-> self state-time)) 30)
       (let ((f30-0 (- (-> (target-pos 0) y) (-> self collide-info trans y))))
-        (if (and
-                (>= (- (-> *display* base-frame-counter) (-> self state-time)) 900)
-                (or
-                  (or
-                    (not *target*)
-                    (< (-> self distance) (vector-vector-distance (-> self collide-info trans) (-> *target* control trans)))
-                    )
-                  (< f30-0 -40960.0)
-                  )
-                )
+        (if (and (>= (- (-> *display* base-frame-counter) (-> self state-time)) 900)
+                 (or (or (not *target*)
+                         (< (-> self distance) (vector-vector-distance (-> self collide-info trans) (-> *target* control trans)))
+                         )
+                     (< f30-0 -40960.0)
+                     )
+                 )
             (go babak-run-to-cannon)
             )
         )
       (when (>= (- (-> *display* base-frame-counter) (-> self state-time)) (-> self state-timeout))
         (if (or (not *target*) (< (-> self enemy-info idle-distance)
-                                    (vector-vector-distance (-> self collide-info trans) (-> *target* control trans))
-                                    )
-                  )
+                                  (vector-vector-distance (-> self collide-info trans) (-> *target* control trans))
+                                  )
+                )
             (go-virtual nav-enemy-idle)
             )
         )
@@ -138,7 +121,6 @@ nav-enemy-default-event-handler
   (-> (method-of-type babak nav-enemy-patrol) code)
   )
 
-;; failed to figure out what this is:
 (defstate babak-run-to-cannon (babak)
   :event
   (the-as
@@ -187,10 +169,12 @@ nav-enemy-default-event-handler
     (none)
     )
   :post
-  (behavior () (nav-enemy-travel-post) (none))
+  (behavior ()
+    (nav-enemy-travel-post)
+    (none)
+    )
   )
 
-;; definition for function handle->process-safe
 (defun handle->process-safe ((arg0 handle))
   (let ((v0-0 (the-as process #f)))
     (if (handle->process arg0)
@@ -200,15 +184,11 @@ nav-enemy-default-event-handler
     )
   )
 
-;; definition for function babak-with-cannon-compute-cannon-dir
-;; Used lq/sq
 (defun babak-with-cannon-compute-cannon-dir ((arg0 mistycannon) (arg1 vector))
   (set! (-> arg1 quad) (-> arg0 node-list data 3 bone transform vector 2 quad))
   arg1
   )
 
-;; definition for function babak-with-cannon-compute-ride-point
-;; Used lq/sq
 (defun babak-with-cannon-compute-ride-point ((arg0 mistycannon) (arg1 vector))
   (set! (-> arg1 quad) (-> arg0 root-override trans quad))
   (let ((a1-4 (new 'static 'vector :y 18149.377 :z -17289.217 :w 1.0))
@@ -219,7 +199,6 @@ nav-enemy-default-event-handler
   arg1
   )
 
-;; definition for function babak-with-cannon-ride-cannon-post
 (defbehavior babak-with-cannon-ride-cannon-post babak-with-cannon ()
   (let* ((v1-0 (-> self cannon-ent))
          (s5-0 (if v1-0
@@ -243,7 +222,6 @@ nav-enemy-default-event-handler
   (none)
   )
 
-;; failed to figure out what this is:
 (defstate babak-with-cannon-jump-onto-cannon (babak-with-cannon)
   :event
   (the-as
@@ -251,7 +229,10 @@ nav-enemy-default-event-handler
     nav-enemy-jump-event-handler
     )
   :exit
-  (behavior () (logior! (-> self nav-enemy-flags) 24) (none))
+  (behavior ()
+    (logior! (-> self nav-enemy-flags) 24)
+    (none)
+    )
   :code
   (behavior ()
     (set! (-> self state-time) (-> *display* base-frame-counter))
@@ -331,7 +312,6 @@ nav-enemy-default-event-handler
   (the-as (function none :behavior babak-with-cannon) nav-enemy-jump-post)
   )
 
-;; failed to figure out what this is:
 (defstate babak-with-cannon-jump-off-cannon (babak-with-cannon)
   :event
   (the-as
@@ -339,7 +319,10 @@ nav-enemy-default-event-handler
     nav-enemy-jump-event-handler
     )
   :exit
-  (behavior () (logior! (-> self nav-enemy-flags) 24) (none))
+  (behavior ()
+    (logior! (-> self nav-enemy-flags) 24)
+    (none)
+    )
   :code
   (behavior ()
     (set! (-> self state-time) (-> *display* base-frame-counter))
@@ -379,7 +362,6 @@ nav-enemy-default-event-handler
   (the-as (function none :behavior babak-with-cannon) nav-enemy-jump-post)
   )
 
-;; failed to figure out what this is:
 (defstate babak-with-cannon-shooting (babak-with-cannon)
   :event
   (the-as
@@ -408,16 +390,13 @@ nav-enemy-default-event-handler
   :trans
   (behavior ()
     (let ((f0-1 (- (-> (target-pos 0) y) (-> self collide-info trans y))))
-      (if (and
-              (< -40960.0 f0-1)
-              (and
-                (and
-                  *target*
-                  (>= (-> self distance) (vector-vector-distance (-> self collide-info trans) (-> *target* control trans)))
-                  )
-                (>= (- (-> *display* base-frame-counter) (-> self state-time)) 900)
-                )
-              )
+      (if (and (< -40960.0 f0-1)
+               (and (and *target*
+                         (>= (-> self distance) (vector-vector-distance (-> self collide-info trans) (-> *target* control trans)))
+                         )
+                    (>= (- (-> *display* base-frame-counter) (-> self state-time)) 900)
+                    )
+               )
           (go babak-with-cannon-jump-off-cannon)
           )
       )
@@ -434,7 +413,6 @@ nav-enemy-default-event-handler
   babak-with-cannon-ride-cannon-post
   )
 
-;; failed to figure out what this is:
 (defstate nav-enemy-die (babak-with-cannon)
   :virtual #t
   :event
@@ -459,7 +437,6 @@ nav-enemy-default-event-handler
     )
   )
 
-;; failed to figure out what this is:
 (defstate nav-enemy-fuel-cell (babak-with-cannon)
   :virtual #t
   :event
@@ -501,7 +478,6 @@ nav-enemy-default-event-handler
     )
   )
 
-;; definition for method 39 of type babak-with-cannon
 (defmethod common-post babak-with-cannon ((obj babak-with-cannon))
   (cond
     ((= (level-status *level* 'beach) 'active)
@@ -515,8 +491,6 @@ nav-enemy-default-event-handler
   (none)
   )
 
-;; definition for method 11 of type babak-with-cannon
-;; INFO: Return type mismatch object vs none.
 (defmethod init-from-entity! babak-with-cannon ((obj babak-with-cannon) (arg0 entity-actor))
   (initialize-collision obj)
   (process-drawable-from-entity! obj arg0)
@@ -524,8 +498,7 @@ nav-enemy-default-event-handler
   (set! (-> obj distance) (res-lump-float arg0 'distance :default 163840.0))
   (set! (-> obj cannon-ent) (entity-actor-lookup (-> obj entity) 'alt-actor 0))
   (logclear! (-> obj mask) (process-mask actor-pause))
-  (if (or
-          (not (and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status complete))))
+  (if (or (not (and (-> obj entity) (logtest? (-> obj entity extra perm status) (entity-perm-status complete))))
           (zero? (logand (-> obj enemy-info options) (fact-options fop1)))
           )
       (go (method-of-object obj nav-enemy-idle))
@@ -533,3 +506,7 @@ nav-enemy-default-event-handler
   (go (method-of-object obj nav-enemy-fuel-cell))
   (none)
   )
+
+
+
+
diff --git a/goal_src/levels/misty/balloonlurker.gc b/goal_src/levels/misty/balloonlurker.gc
index 1ad230d352..95efe99b28 100644
--- a/goal_src/levels/misty/balloonlurker.gc
+++ b/goal_src/levels/misty/balloonlurker.gc
@@ -7,258 +7,222 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 203) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-balloonlurker-pilot-death"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2015))
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-balloonlurker-pilot-death
+  :id 203
+  :duration 5
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2015))
+  )
 
-(set! (-> *part-id-table* 2015) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -3.2)
-                                    (sp-int spt-timer 25)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2015
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 16))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -3.2)
+    (sp-int spt-timer 25)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 204)
-      (new 'static 'sparticle-launch-group
-        :length 21
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-balloonlurker-mine-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 21
-          (sp-item 964 :period 1200 :length 30)
-          (sp-item 965 :fade-after (meters 60.0) :period 1200 :length 15)
-          (sp-item 966 :period 1200 :length 15 :offset 15)
-          (sp-item 967 :period 1200 :length 15)
-          (sp-item 968 :fade-after (meters 80.0) :period 1200 :length 30 :binding 963)
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 65536.0)
-        )
-      )
+(defpartgroup group-balloonlurker-mine-explosion
+  :id 204
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 964 :period 1200 :length 30)
+    (sp-item 965 :fade-after (meters 60) :period 1200 :length 15)
+    (sp-item 966 :period 1200 :length 15 :offset 15)
+    (sp-item 967 :period 1200 :length 15)
+    (sp-item 968 :fade-after (meters 80) :period 1200 :length 30 :binding 963)
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 964) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 70.0)
-                                   (sp-flt spt-g 70.0)
-                                   (sp-rnd-flt spt-b 70.0 16.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.033333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-accel-y 0.2048)
-                                   (sp-flt spt-friction 0.92)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 30 299 1)
-                                   (sp-launcher-by-id spt-next-launcher 969)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 964
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.5)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 70.0)
+    (sp-flt spt-g 70.0)
+    (sp-rnd-flt spt-b 70.0 16.0 1.0)
+    (sp-flt spt-a 96.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.033333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-accel-y 0.2048)
+    (sp-flt spt-friction 0.92)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int-plain-rnd spt-next-time 30 299 1)
+    (sp-launcher-by-id spt-next-launcher 969)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2))
+    )
+  )
 
-(set! (-> *part-id-table* 969)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.32)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 969
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0)) (sp-copy-from-other spt-scalevel-y -4) (sp-flt spt-fade-a -0.32))
+  )
 
-(set! (-> *part-id-table* 965) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-rnd-flt spt-scale-x (meters 8.0) (meters 8.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3.0) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 30)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 970)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 965
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-flt spt-y (meters 0.75))
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 8) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3) 1.0)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 2.1333334)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 15)
+    (sp-launcher-by-id spt-next-launcher 970)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 970)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
+(defpart 970
+  :init-specs
+  ((sp-flt spt-fade-a -1.3333334))
+  )
 
-(set! (-> *part-id-table* 966) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 966
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 967) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 32.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 967
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 32.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 968) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 5.0 10.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-rnd-int spt-g 1123942400 1 127.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 127.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-fade-g -4.266667)
-                                   (sp-flt spt-fade-b -2.8444445)
-                                   (sp-flt spt-accel-y -16.384)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int-plain-rnd spt-next-time 5 38 1)
-                                   (sp-launcher-by-id spt-next-launcher 971)
-                                   (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 968
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 5.0 10.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-int spt-g 1123942400 1 127.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 127.0)
+    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+    (sp-flt spt-fade-g -4.266667)
+    (sp-flt spt-fade-b -2.8444445)
+    (sp-flt spt-accel-y -16.384)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int-plain-rnd spt-next-time 5 38 1)
+    (sp-launcher-by-id spt-next-launcher 971)
+    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 971)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -4.266667)
-                                                     (sp-flt spt-fade-g 0.7111111)
-                                                     (sp-flt spt-fade-b 1.4222223)
-                                                     (sp-flt spt-fade-a -2.8444445)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 971
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters -0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -4.266667)
+    (sp-flt spt-fade-g 0.7111111)
+    (sp-flt spt-fade-b 1.4222223)
+    (sp-flt spt-fade-a -2.8444445)
+    )
+  )
 
-(set! (-> *part-id-table* 963)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 70.0)
-                                                     (sp-flt spt-g 70.0)
-                                                     (sp-rnd-flt spt-b 70.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-a 20.0 8.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.11666667)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 963
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 70.0)
+    (sp-flt spt-g 70.0)
+    (sp-rnd-flt spt-b 70.0 16.0 1.0)
+    (sp-rnd-flt spt-a 20.0 8.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.11666667)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    )
+  )
 
 (deftype balloonlurker-bank (basic)
   ((buoyancy-depth-offset       meters  :offset-assert   4)
diff --git a/goal_src/levels/misty/misty-conveyor.gc b/goal_src/levels/misty/misty-conveyor.gc
index 70237406a8..369d5d08f1 100644
--- a/goal_src/levels/misty/misty-conveyor.gc
+++ b/goal_src/levels/misty/misty-conveyor.gc
@@ -12,46 +12,39 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 197) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xa
-                                       :linger-duration #x258
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-keg-bounce"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2014 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-keg-bounce
+  :id 197
+  :duration 10
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2014 :fade-after (meters 100) :falloff-to (meters 100)))
+  )
 
-(set! (-> *part-id-table* 2014) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-x (meters -3.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2014
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-x (meters -3) (meters 6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.026666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-flt spt-accel-y -0.68266666)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
 (defun keg-bounce-set-particle-rotation-callback ((arg0 part-tracker))
   (let ((v1-0 (the-as object (-> arg0 userdata))))
diff --git a/goal_src/levels/misty/misty-obs.gc b/goal_src/levels/misty/misty-obs.gc
index 7d97707471..839c4b6ff9 100644
--- a/goal_src/levels/misty/misty-obs.gc
+++ b/goal_src/levels/misty/misty-obs.gc
@@ -7,1192 +7,1046 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 191)
-      (new 'static 'sparticle-launch-group
-        :length 16
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-windturbine-particles"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 16
-          (sp-item 908 :fade-after (meters 60.0) :period 1212 :length 10)
-          (sp-item 908 :fade-after (meters 60.0) :period 5790 :length 10)
-          (sp-item 908 :fade-after (meters 60.0) :period 4988 :length 10)
-          (sp-item 908 :fade-after (meters 60.0) :period 3510 :length 10)
-          (sp-item 908 :fade-after (meters 60.0) :period 1837 :length 10)
-          (sp-item 909 :fade-after (meters 60.0) :period 1650 :length 10)
-          (sp-item 909 :fade-after (meters 60.0) :period 3780 :length 10)
-          (sp-item 909 :fade-after (meters 60.0) :period 2220 :length 10)
-          (sp-item 909 :fade-after (meters 60.0) :period 8235 :length 10)
-          (sp-item 909 :fade-after (meters 60.0) :period 3336 :length 10)
-          (sp-item 910 :fade-after (meters 60.0) :period 150 :length 75)
-          (sp-item 910 :fade-after (meters 120.0) :period 150 :length 75)
-          (sp-item 910 :fade-after (meters 180.0) :period 150 :length 75)
-          (sp-item 911 :fade-after (meters 60.0) :period 150 :length 75 :offset 75)
-          (sp-item 911 :fade-after (meters 120.0) :period 150 :length 75 :offset 75)
-          (sp-item 911 :fade-after (meters 180.0) :period 150 :length 75 :offset 75)
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-windturbine-particles
+  :id 191
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 908 :fade-after (meters 60) :period 1212 :length 10)
+    (sp-item 908 :fade-after (meters 60) :period 5790 :length 10)
+    (sp-item 908 :fade-after (meters 60) :period 4988 :length 10)
+    (sp-item 908 :fade-after (meters 60) :period 3510 :length 10)
+    (sp-item 908 :fade-after (meters 60) :period 1837 :length 10)
+    (sp-item 909 :fade-after (meters 60) :period 1650 :length 10)
+    (sp-item 909 :fade-after (meters 60) :period 3780 :length 10)
+    (sp-item 909 :fade-after (meters 60) :period 2220 :length 10)
+    (sp-item 909 :fade-after (meters 60) :period 8235 :length 10)
+    (sp-item 909 :fade-after (meters 60) :period 3336 :length 10)
+    (sp-item 910 :fade-after (meters 60) :period 150 :length 75)
+    (sp-item 910 :fade-after (meters 120) :period 150 :length 75)
+    (sp-item 910 :fade-after (meters 180) :period 150 :length 75)
+    (sp-item 911 :fade-after (meters 60) :period 150 :length 75 :offset 75)
+    (sp-item 911 :fade-after (meters 120) :period 150 :length 75 :offset 75)
+    (sp-item 911 :fade-after (meters 180) :period 150 :length 75 :offset 75)
+    )
+  )
 
-(set! (-> *part-id-table* 910)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.066 0.066 1.0)
-                                                     (sp-flt spt-x (meters -4.0))
-                                                     (sp-rnd-flt spt-y (meters -2.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 32.0)
-                                                     (sp-flt spt-g 32.0)
-                                                     (sp-flt spt-b 32.0)
-                                                     (sp-rnd-flt spt-a 0.0 32.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-flt spt-accel-y 1.2288)
-                                                     (sp-int-plain-rnd spt-timer 600 1499 1)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 912)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 910
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.066 0.066 1.0)
+    (sp-flt spt-x (meters -4))
+    (sp-rnd-flt spt-y (meters -2) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 32.0)
+    (sp-rnd-flt spt-a 0.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.21333334)
+    (sp-flt spt-accel-y 1.2288)
+    (sp-int-plain-rnd spt-timer 600 1499 1)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 912)
+    )
+  )
 
-(set! (-> *part-id-table* 912)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 913)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 912
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 240) (sp-launcher-by-id spt-next-launcher 913))
+  )
 
-(set! (-> *part-id-table* 913)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-vel-x (meters -0.06666667))
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-scalevel-x (meters 0.016666668))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.2)
-                                                     (sp-flt spt-accel-x 1.3653333)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 913
+  :init-specs
+  ((sp-flt spt-vel-x (meters -0.06666667))
+    (sp-flt spt-vel-y (meters 0.0033333334))
+    (sp-flt spt-scalevel-x (meters 0.016666668))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.2)
+    (sp-flt spt-accel-x 1.3653333)
+    )
+  )
 
-(set! (-> *part-id-table* 911)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.066 0.066 1.0)
-                                                     (sp-flt spt-x (meters -4.0))
-                                                     (sp-rnd-flt spt-y (meters -2.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 32.0)
-                                                     (sp-flt spt-g 32.0)
-                                                     (sp-flt spt-b 32.0)
-                                                     (sp-rnd-flt spt-a 0.0 32.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-flt spt-accel-y 1.2288)
-                                                     (sp-int-plain-rnd spt-timer 600 1499 1)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 912)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 911
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.066 0.066 1.0)
+    (sp-flt spt-x (meters -4))
+    (sp-rnd-flt spt-y (meters -2) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 32.0)
+    (sp-rnd-flt spt-a 0.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.21333334)
+    (sp-flt spt-accel-y 1.2288)
+    (sp-int-plain-rnd spt-timer 600 1499 1)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 912)
+    )
+  )
 
-(set! (-> *part-id-table* 908) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 8.0 24.0 1.0)
-                                   (sp-flt spt-x (meters -4.0))
-                                   (sp-rnd-flt spt-y (meters -4.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-z -2048.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 64.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00055555557))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.2)
-                                   (sp-flt spt-fade-b -0.2)
-                                   (sp-flt spt-fade-a -0.6)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int-plain-rnd spt-timer 90 59 1)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees -220.0) (degrees 110.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 908
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 8.0 24.0 1.0)
+    (sp-flt spt-x (meters -4))
+    (sp-rnd-flt spt-y (meters -4.5) (meters 1) 1.0)
+    (sp-flt spt-z (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00055555557))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.2)
+    (sp-flt spt-fade-b -0.2)
+    (sp-flt spt-fade-a -0.6)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.94)
+    (sp-int-plain-rnd spt-timer 90 59 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees -220.0) (degrees 110.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 909) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 8.0 24.0 1.0)
-                                   (sp-flt spt-x (meters -4.0))
-                                   (sp-rnd-flt spt-y (meters -4.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-z 2048.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 64.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00055555557))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.2)
-                                   (sp-flt spt-fade-b -0.2)
-                                   (sp-flt spt-fade-a -0.6)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int-plain-rnd spt-timer 90 59 1)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees -110.0) (degrees 110.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 909
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 8.0 24.0 1.0)
+    (sp-flt spt-x (meters -4))
+    (sp-rnd-flt spt-y (meters -4.5) (meters 1) 1.0)
+    (sp-flt spt-z (meters 0.5))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00055555557))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.2)
+    (sp-flt spt-fade-b -0.2)
+    (sp-flt spt-fade-a -0.6)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.94)
+    (sp-int-plain-rnd spt-timer 90 59 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees -110.0) (degrees 110.0) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 192) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-misty-bone-01"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 914 :period 780 :length 15)
-                                         (sp-item 915 :period 780 :length 15)
-                                         (sp-item 916 :period 780 :length 64)
-                                         (sp-item 917 :period 780 :length 32 :offset 65131)
-                                         (sp-item 918 :period 780 :length 32 :offset 65131)
-                                         (sp-item 919 :period 780 :length 32 :offset 65131)
-                                         (sp-item 920 :period 780 :length 32 :offset 65056)
-                                         (sp-item 921 :period 780 :length 32 :offset 64996)
-                                         )
-                                       :bounds (new 'static 'sphere :w 98304.0)
-                                       )
-      )
+(defpartgroup group-misty-bone-01
+  :id 192
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 24)
+  :parts
+  ((sp-item 914 :period 780 :length 15)
+    (sp-item 915 :period 780 :length 15)
+    (sp-item 916 :period 780 :length 64)
+    (sp-item 917 :period 780 :length 32 :offset 65131)
+    (sp-item 918 :period 780 :length 32 :offset 65131)
+    (sp-item 919 :period 780 :length 32 :offset 65131)
+    (sp-item 920 :period 780 :length 32 :offset 65056)
+    (sp-item 921 :period 780 :length 32 :offset 64996)
+    )
+  )
 
-(set! (-> *part-id-table* 921) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 921
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -80.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 187.0))
+    )
+  )
 
-(set! (-> *part-id-table* 920) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-flt spt-x (meters 2.5))
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 920
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-flt spt-x (meters 2.5))
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2))
+    (sp-flt spt-rotate-y (degrees 187.0))
+    )
+  )
 
-(set! (-> *part-id-table* 919) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 919
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -80.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 187.0))
+    )
+  )
 
-(set! (-> *part-id-table* 918) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.996)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 922)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 918
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.996)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 922)
+    (sp-flt spt-conerot-z (degrees -80.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 187.0))
+    )
+  )
 
-(set! (-> *part-id-table* 922)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 922
+  :init-specs
+  ((sp-flt spt-fade-a -1.0666667))
+  )
 
-(set! (-> *part-id-table* 917) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.026666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 917
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 8.0 1.0)
+    (sp-flt spt-vel-y (meters -0.0016666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-fade-a -0.026666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -80.0))
+    (sp-rnd-flt spt-conerot-radius (meters 4) (meters 16) 1.0)
+    (sp-flt spt-rotate-y (degrees 187.0))
+    )
+  )
 
-(set! (-> *part-id-table* 914) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 140.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 914
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2))
+    (sp-flt spt-rotate-y (degrees 140.0))
+    )
+  )
 
-(set! (-> *part-id-table* 915) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.026666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.996)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 923)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 140.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 915
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.026666667) 1.0)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.996)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 923)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2))
+    (sp-flt spt-rotate-y (degrees 140.0))
+    )
+  )
 
-(set! (-> *part-id-table* 923)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -3.2) (sp-end))
-        )
-      )
+(defpart 923
+  :init-specs
+  ((sp-flt spt-fade-a -3.2))
+  )
 
-(set! (-> *part-id-table* 916) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
-                                   (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.017777778)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 916
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 12) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 8.0 8.0 1.0)
+    (sp-flt spt-vel-y (meters -0.0016666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-fade-a -0.017777778)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-rotate-y (degrees 187.0))
+    )
+  )
 
-(set! (-> *part-group-id-table* 193) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-misty-bone-03"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 914 :period 780 :length 15)
-                                         (sp-item 915 :period 780 :length 15)
-                                         (sp-item 924 :period 780 :length 64)
-                                         (sp-item 925 :period 780 :length 32 :offset 65131)
-                                         (sp-item 926 :period 780 :length 32 :offset 65131)
-                                         (sp-item 927 :period 780 :length 32 :offset 65131)
-                                         (sp-item 928 :period 780 :length 32 :offset 65056)
-                                         (sp-item 929 :period 780 :length 32 :offset 64996)
-                                         )
-                                       :bounds (new 'static 'sphere :w 98304.0)
-                                       )
-      )
+(defpartgroup group-misty-bone-03
+  :id 193
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 24)
+  :parts
+  ((sp-item 914 :period 780 :length 15)
+    (sp-item 915 :period 780 :length 15)
+    (sp-item 924 :period 780 :length 64)
+    (sp-item 925 :period 780 :length 32 :offset 65131)
+    (sp-item 926 :period 780 :length 32 :offset 65131)
+    (sp-item 927 :period 780 :length 32 :offset 65131)
+    (sp-item 928 :period 780 :length 32 :offset 65056)
+    (sp-item 929 :period 780 :length 32 :offset 64996)
+    )
+  )
 
-(set! (-> *part-id-table* 929) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 929
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -80.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 249.99998))
+    )
+  )
 
-(set! (-> *part-id-table* 928) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-flt spt-x (meters 2.5))
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 928
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-flt spt-x (meters 2.5))
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2))
+    (sp-flt spt-rotate-y (degrees 249.99998))
+    )
+  )
 
-(set! (-> *part-id-table* 927) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 927
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -80.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 249.99998))
+    )
+  )
 
-(set! (-> *part-id-table* 926) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.996)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 922)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 926
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.996)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 922)
+    (sp-flt spt-conerot-z (degrees -80.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 249.99998))
+    )
+  )
 
-(set! (-> *part-id-table* 925) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.026666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 925
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 8.0 1.0)
+    (sp-flt spt-vel-y (meters -0.0016666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-fade-a -0.026666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -80.0))
+    (sp-rnd-flt spt-conerot-radius (meters 4) (meters 16) 1.0)
+    (sp-flt spt-rotate-y (degrees 249.99998))
+    )
+  )
 
-(set! (-> *part-id-table* 924) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
-                                   (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.017777778)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 924
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 12) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 8.0 8.0 1.0)
+    (sp-flt spt-vel-y (meters -0.0016666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-fade-a -0.017777778)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-rotate-y (degrees 249.99998))
+    )
+  )
 
-(set! (-> *part-group-id-table* 194) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-misty-bone-02"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 914 :period 780 :length 15)
-                                         (sp-item 915 :period 780 :length 15)
-                                         (sp-item 930 :period 780 :length 64)
-                                         (sp-item 931 :period 780 :length 32 :offset 65131)
-                                         (sp-item 932 :period 780 :length 32 :offset 65131)
-                                         (sp-item 933 :period 780 :length 32 :offset 65131)
-                                         (sp-item 934 :period 780 :length 32 :offset 65056)
-                                         (sp-item 935 :period 780 :length 32 :offset 64996)
-                                         )
-                                       :bounds (new 'static 'sphere :w 98304.0)
-                                       )
-      )
+(defpartgroup group-misty-bone-02
+  :id 194
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 24)
+  :parts
+  ((sp-item 914 :period 780 :length 15)
+    (sp-item 915 :period 780 :length 15)
+    (sp-item 930 :period 780 :length 64)
+    (sp-item 931 :period 780 :length 32 :offset 65131)
+    (sp-item 932 :period 780 :length 32 :offset 65131)
+    (sp-item 933 :period 780 :length 32 :offset 65131)
+    (sp-item 934 :period 780 :length 32 :offset 65056)
+    (sp-item 935 :period 780 :length 32 :offset 64996)
+    )
+  )
 
-(set! (-> *part-id-table* 935) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 935
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -94.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 114.0))
+    )
+  )
 
-(set! (-> *part-id-table* 934) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-flt spt-x (meters 2.5))
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 934
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-flt spt-x (meters 2.5))
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2))
+    (sp-flt spt-rotate-y (degrees 114.0))
+    )
+  )
 
-(set! (-> *part-id-table* 933) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 933
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -94.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 114.0))
+    )
+  )
 
-(set! (-> *part-id-table* 932) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.996)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 922)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 932
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.996)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 922)
+    (sp-flt spt-conerot-z (degrees -94.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 114.0))
+    )
+  )
 
-(set! (-> *part-id-table* 931) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.026666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -90.0))
-                                   (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 931
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 8.0 1.0)
+    (sp-flt spt-vel-y (meters -0.0016666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-fade-a -0.026666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -90.0))
+    (sp-rnd-flt spt-conerot-radius (meters 4) (meters 16) 1.0)
+    (sp-flt spt-rotate-y (degrees 114.0))
+    )
+  )
 
-(set! (-> *part-id-table* 930) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
-                                   (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.017777778)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 930
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 12) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 8.0 8.0 1.0)
+    (sp-flt spt-vel-y (meters -0.0016666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-fade-a -0.017777778)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-rotate-y (degrees 114.0))
+    )
+  )
 
-(set! (-> *part-group-id-table* 195) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-misty-bone-07"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 914 :period 780 :length 15)
-                                         (sp-item 915 :period 780 :length 15)
-                                         (sp-item 936 :period 780 :length 64)
-                                         (sp-item 937 :period 780 :length 32 :offset 65131)
-                                         (sp-item 938 :period 780 :length 32 :offset 65131)
-                                         (sp-item 939 :period 780 :length 32 :offset 65131)
-                                         (sp-item 940 :period 780 :length 32 :offset 65056)
-                                         (sp-item 941 :period 780 :length 32 :offset 64966)
-                                         )
-                                       :bounds (new 'static 'sphere :w 98304.0)
-                                       )
-      )
+(defpartgroup group-misty-bone-07
+  :id 195
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 24)
+  :parts
+  ((sp-item 914 :period 780 :length 15)
+    (sp-item 915 :period 780 :length 15)
+    (sp-item 936 :period 780 :length 64)
+    (sp-item 937 :period 780 :length 32 :offset 65131)
+    (sp-item 938 :period 780 :length 32 :offset 65131)
+    (sp-item 939 :period 780 :length 32 :offset 65131)
+    (sp-item 940 :period 780 :length 32 :offset 65056)
+    (sp-item 941 :period 780 :length 32 :offset 64966)
+    )
+  )
 
-(set! (-> *part-id-table* 941) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 941
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -94.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 14.000005))
+    )
+  )
 
-(set! (-> *part-id-table* 940) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-flt spt-x (meters 2.5))
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 940
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-flt spt-x (meters 2.5))
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2))
+    (sp-flt spt-rotate-y (degrees 14.000005))
+    )
+  )
 
-(set! (-> *part-id-table* 939) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 939
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -94.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 14.000005))
+    )
+  )
 
-(set! (-> *part-id-table* 938) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.996)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 922)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 938
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.996)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 922)
+    (sp-flt spt-conerot-z (degrees -94.0))
+    (sp-flt spt-conerot-radius (meters 18))
+    (sp-flt spt-rotate-y (degrees 14.000005))
+    )
+  )
 
-(set! (-> *part-id-table* 937) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.026666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -90.0))
-                                   (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 937
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 16.0 8.0 1.0)
+    (sp-flt spt-vel-y (meters -0.0016666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-fade-a -0.026666667)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-conerot-z (degrees -90.0))
+    (sp-rnd-flt spt-conerot-radius (meters 4) (meters 16) 1.0)
+    (sp-flt spt-rotate-y (degrees 14.000005))
+    )
+  )
 
-(set! (-> *part-id-table* 936) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
-                                   (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.017777778)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 936
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 12) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 100.0 32.0 1.0)
+    (sp-rnd-flt spt-b 90.0 32.0 1.0)
+    (sp-rnd-flt spt-a 8.0 8.0 1.0)
+    (sp-flt spt-vel-y (meters -0.0016666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+    (sp-flt spt-fade-a -0.017777778)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-rotate-y (degrees 14.000005))
+    )
+  )
 
-(set! (-> *part-group-id-table* 196)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-boat-paddle"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 944 :fade-after (meters 100.0)))
-        :bounds (new 'static 'sphere :w 61440.0)
-        )
-      )
+(defpartgroup group-misty-boat-paddle
+  :id 196
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 944 :fade-after (meters 100)))
+  )
 
-(set! (-> *part-id-table* 944) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 0.8)
-                                   (sp-rnd-flt spt-x (meters -11.0) (meters 22.0) 1.0)
-                                   (sp-flt spt-y (meters 0.0))
-                                   (sp-rnd-flt spt-z 20480.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 5.5) (meters 4.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 48.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.2) 1 72.81778)
-                                   (sp-flt spt-fade-a 0.53333336)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 945)
-                                   (sp-flt spt-rotate-y (degrees 140.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 944
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+    (sp-flt spt-num 0.8)
+    (sp-rnd-flt spt-x (meters -11) (meters 22) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters 5) (meters 5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 48.0)
+    (sp-flt spt-g 64.0)
+    (sp-rnd-flt spt-b 96.0 32.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.2) 1 72.81778)
+    (sp-flt spt-fade-a 0.53333336)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 945)
+    (sp-flt spt-rotate-y (degrees 140.0))
+    )
+  )
 
-(set! (-> *part-id-table* 945)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 945
+  :init-specs
+  ((sp-flt spt-fade-a -0.53333336))
+  )
 
-(set! (-> *part-id-table* 943) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 18.0) 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 96.0)
-                                   (sp-rnd-flt spt-b 100.0 28.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.001) (meters 0.033333335) 1.0)
-                                   (sp-flt spt-fade-a 0.53333336)
-                                   (sp-flt spt-accel-y -5.4613333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 210)
-                                   (sp-launcher-by-id spt-next-launcher 946)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-int-flt spt-conerot-y (degrees 0.0) 3 8192.0)
-                                   (sp-flt spt-conerot-z (degrees 90.0))
-                                   (sp-flt spt-conerot-radius (meters 9.0))
-                                   (sp-flt spt-rotate-y (degrees 140.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 943
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 18) 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 96.0)
+    (sp-rnd-flt spt-b 100.0 28.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.001) (meters 0.033333335) 1.0)
+    (sp-flt spt-fade-a 0.53333336)
+    (sp-flt spt-accel-y -5.4613333)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 210)
+    (sp-launcher-by-id spt-next-launcher 946)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-int-flt spt-conerot-y (degrees 0.0) 3 8192.0)
+    (sp-flt spt-conerot-z (degrees 90.0))
+    (sp-flt spt-conerot-radius (meters 9))
+    (sp-flt spt-rotate-y (degrees 140.0))
+    )
+  )
 
-(set! (-> *part-id-table* 946)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.0) (sp-end))
-        )
-      )
+(defpart 946
+  :init-specs
+  ((sp-flt spt-fade-a -2.0))
+  )
 
-(set! (-> *part-id-table* 942) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -11.0) (meters 22.0) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z 24576.0 16384.0 1.0)
-                                   (sp-flt spt-scale-x (meters 3.5))
-                                   (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.001) (meters 0.033333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
-                                   (sp-flt spt-fade-a 0.53333336)
-                                   (sp-flt spt-accel-y -5.4613333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 947)
-                                   (sp-flt spt-rotate-y (degrees 140.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 942
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -11) (meters 22) 1.0)
+    (sp-flt spt-y (meters 0.5))
+    (sp-rnd-flt spt-z (meters 6) (meters 4) 1.0)
+    (sp-flt spt-scale-x (meters 3.5))
+    (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.001) (meters 0.033333335) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
+    (sp-flt spt-fade-a 0.53333336)
+    (sp-flt spt-accel-y -5.4613333)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 947)
+    (sp-flt spt-rotate-y (degrees 140.0))
+    )
+  )
 
-(set! (-> *part-id-table* 947)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 948)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 947
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 60) (sp-launcher-by-id spt-next-launcher 948))
+  )
 
-(set! (-> *part-id-table* 948)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 948
+  :init-specs
+  ((sp-flt spt-fade-a -1.0666667))
+  )
 
 (deftype boatpaddle (process-drawable)
   ()
diff --git a/goal_src/levels/misty/misty-part.gc b/goal_src/levels/misty/misty-part.gc
index 02ad3ee8c6..d6cfb18e9c 100644
--- a/goal_src/levels/misty/misty-part.gc
+++ b/goal_src/levels/misty/misty-part.gc
@@ -16,15 +16,12 @@
   )
 
 
-(set!
-  (-> *part-id-table* 972)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 972
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -43,20 +40,15 @@
     (sp-flt spt-conerot-x (degrees 120.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 0.25))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 973)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 973
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 3.0 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -75,95 +67,63 @@
     (sp-flt spt-conerot-x (degrees 120.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 0.25))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 205)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-ship-steam"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 972 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1500 :length 300)
-    (sp-item 972 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2928 :length 360)
-    (sp-item 972 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 4602 :length 180)
-    (sp-item 973 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 180 :length 45)
+(defpartgroup group-misty-ship-steam
+  :id 205
+  :bounds (static-bspherem 0 0.5 0 4.5)
+  :parts
+  ((sp-item 972 :fade-after (meters 175) :falloff-to (meters 175) :period 1500 :length 300)
+    (sp-item 972 :fade-after (meters 175) :falloff-to (meters 175) :period 2928 :length 360)
+    (sp-item 972 :fade-after (meters 175) :falloff-to (meters 175) :period 4602 :length 180)
+    (sp-item 973 :fade-after (meters 125) :falloff-to (meters 125) :period 180 :length 45)
     )
-   :bounds
-   (new 'static 'sphere :y 2048.0 :w 18432.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 206)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-misty-torch"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 974 :fade-after (meters 180.0) :falloff-to (meters 200.0))
-    (sp-item 975 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 976 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
-    (sp-item 977 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
-    (sp-item 978 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 710 :length 51)
-    (sp-item 979 :fade-after (meters 50.0) :falloff-to (meters 50.0))
+(defpartgroup group-part-misty-torch
+  :id 206
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 974 :fade-after (meters 180) :falloff-to (meters 200))
+    (sp-item 975 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 976 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 90)
+    (sp-item 977 :fade-after (meters 50) :falloff-to (meters 50) :period 369 :length 69)
+    (sp-item 978 :fade-after (meters 40) :falloff-to (meters 40) :period 710 :length 51)
+    (sp-item 979 :fade-after (meters 50) :falloff-to (meters 50))
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 979)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.3)
+(defpart 979
+  :init-specs
+  ((sp-flt spt-num 0.3)
     (sp-flt spt-x (meters 0.2))
-    (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 2867.2)
     (sp-flt spt-b 3276.8)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-flt spt-vel-y (meters 0.026666667))
     (sp-int spt-timer 180)
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 980)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 980)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -6.826667)
-    (sp-end)
-    )
-   )
+(defpart 980
+  :init-specs
+  ((sp-flt spt-fade-b -6.826667))
   )
 
-(set!
-  (-> *part-id-table* 974)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 974
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1069547520 1 1.0)
     (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-    (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
+    (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -178,32 +138,21 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 981)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 981)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -1.3333334)
-    (sp-end)
-    )
-   )
+(defpart 981
+  :init-specs
+  ((sp-flt spt-fade-a -1.3333334))
   )
 
-(set!
-  (-> *part-id-table* 976)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 976
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -218,21 +167,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 981)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 977)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 977
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z 0.0 1638.4 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -247,21 +191,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 981)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 978)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 978
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
     (sp-flt spt-y (meters 0.6))
-    (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
+    (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -276,22 +215,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 981)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 975)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 975
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.3))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -313,38 +247,24 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 207)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-fog"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 982 :flags (is-3d))
-    )
-   :bounds
-   (new 'static 'sphere :x 262144.0 :y 28672.0 :w 393216.0)
-   )
+(defpartgroup group-misty-fog
+  :id 207
+  :bounds (static-bspherem 64 7 0 96)
+  :parts
+  ((sp-item 982 :flags (is-3d)))
   )
 
-(set!
-  (-> *part-id-table* 982)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x2))
+(defpart 982
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x2))
     (sp-flt spt-num 0.06125)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 128.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 128) 1.0)
     (sp-rnd-flt spt-y (meters 5.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -81920.0 327680.0 1.0)
-    (sp-flt spt-scale-x (meters 36.0))
+    (sp-rnd-flt spt-z (meters -20) (meters 80) 1.0)
+    (sp-flt spt-scale-x (meters 36))
     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 127.0)
@@ -361,62 +281,38 @@
     (sp-launcher-by-id spt-next-launcher 983)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 16.0) (meters 32.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 16) (meters 32) 1.0)
     (sp-flt spt-rotate-y (degrees 25.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 983)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
+(defpart 983
+  :init-specs
+  ((sp-flt spt-fade-a 0.0)
     (sp-int-plain-rnd spt-next-time 1200 299 1)
     (sp-launcher-by-id spt-next-launcher 984)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 984)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.21333334)
-    (sp-end)
-    )
-   )
+(defpart 984
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
   )
 
-(set!
-  (-> *part-group-id-table* 208)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-316"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 985 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-316
+  :id 208
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 985 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 985)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 985
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -438,36 +334,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 70.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 209)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-313"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 986 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-313
+  :id 209
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 986 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 986)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 986
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -489,36 +372,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 210)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-308"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 987 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-308
+  :id 210
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 987 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 987)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 987
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.45 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -540,36 +410,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 80.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 211)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-307"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 988 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-307
+  :id 211
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 988 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 988)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 988
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.45 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -591,36 +448,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 212)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-305"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 989 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-305
+  :id 212
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 989 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 989)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 989
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.45 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -642,36 +486,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees -20.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 213)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-309"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 990 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-309
+  :id 213
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 990 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 990)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 990
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.45 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -693,36 +524,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 214)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 991 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-2
+  :id 214
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 991 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 991)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 991
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.45 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -744,36 +562,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 50.000004))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 215)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-328"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 992 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-328
+  :id 215
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 992 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 992)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 992
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.45 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -795,36 +600,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 150.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 216)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-325"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 993 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-325
+  :id 216
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 993 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 993)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 993
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.45 0.8 1.0)
     (sp-rnd-flt spt-x (meters -0.8) (meters 1.6) 1.0)
     (sp-rnd-flt spt-y (meters -0.3) (meters 0.6) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -846,36 +638,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees -50.000004))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 217)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-320"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 994 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-320
+  :id 217
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 994 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 994)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 994
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.45 0.8 1.0)
     (sp-rnd-flt spt-x (meters -0.8) (meters 1.6) 1.0)
     (sp-rnd-flt spt-y (meters -0.3) (meters 0.6) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -897,36 +676,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 50.000004))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 218)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-vent-324"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 995 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-misty-lurkermachine-vent-324
+  :id 218
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 995 :fade-after (meters 80) :falloff-to (meters 80)))
   )
 
-(set!
-  (-> *part-id-table* 995)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 995
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.45 0.8 1.0)
     (sp-rnd-flt spt-x (meters -0.8) (meters 1.6) 1.0)
     (sp-rnd-flt spt-y (meters -0.3) (meters 0.6) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 16.0 1.0)
@@ -948,96 +714,59 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 220.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 219)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-fort-steam"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1500 :length 300)
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2928 :length 360)
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 4602 :length 180)
-    (sp-item 997 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 180 :length 45)
+(defpartgroup group-misty-fort-steam
+  :id 219
+  :bounds (static-bspherem 0 0.5 0 4.5)
+  :parts
+  ((sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 1500 :length 300)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 2928 :length 360)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 4602 :length 180)
+    (sp-item 997 :fade-after (meters 125) :falloff-to (meters 125) :period 180 :length 45)
     )
-   :bounds
-   (new 'static 'sphere :y 2048.0 :w 18432.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 220)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-fort-steam2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1230 :length 300)
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2550 :length 360)
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 6102 :length 180)
-    (sp-item 997 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 210 :length 45)
+(defpartgroup group-misty-fort-steam2
+  :id 220
+  :bounds (static-bspherem 0 0.5 0 4.5)
+  :parts
+  ((sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 1230 :length 300)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 2550 :length 360)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 6102 :length 180)
+    (sp-item 997 :fade-after (meters 125) :falloff-to (meters 125) :period 210 :length 45)
     )
-   :bounds
-   (new 'static 'sphere :y 2048.0 :w 18432.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 221)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-fort-steam3"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1800 :length 300)
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2559 :length 360)
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 5202 :length 180)
-    (sp-item 997 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 240 :length 45)
+(defpartgroup group-misty-fort-steam3
+  :id 221
+  :bounds (static-bspherem 0 0.5 0 4.5)
+  :parts
+  ((sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 1800 :length 300)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 2559 :length 360)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 5202 :length 180)
+    (sp-item 997 :fade-after (meters 125) :falloff-to (meters 125) :period 240 :length 45)
     )
-   :bounds
-   (new 'static 'sphere :y 2048.0 :w 18432.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 222)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-fort-steam4"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1560 :length 300)
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2601 :length 360)
-    (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 4848 :length 180)
-    (sp-item 997 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 270 :length 45)
+(defpartgroup group-misty-fort-steam4
+  :id 222
+  :bounds (static-bspherem 0 0.5 0 4.5)
+  :parts
+  ((sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 1560 :length 300)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 2601 :length 360)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 4848 :length 180)
+    (sp-item 997 :fade-after (meters 125) :falloff-to (meters 125) :period 270 :length 45)
     )
-   :bounds
-   (new 'static 'sphere :y 2048.0 :w 18432.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 996)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 996
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 0.6 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1056,20 +785,15 @@
     (sp-flt spt-conerot-x (degrees 120.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 0.25))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 997)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 997
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 2.0 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1088,35 +812,23 @@
     (sp-flt spt-conerot-x (degrees 120.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 0.25))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 223)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-spout-314"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 998 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-    (sp-item 998 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-    (sp-item 998 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-    (sp-item 999 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-misty-lurkermachine-spout-314
+  :id 223
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 998 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 998 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 998 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 999 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 999)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 999
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -1133,30 +845,21 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 998)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 998
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 0.6 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 0.05
-      :group #x1
-      :sound-name (static-sound-name "steam-release")
-      :volume #x400
-      )
-     )
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 0.05
+                :group #x1
+                :sound-name (static-sound-name "steam-release")
+                :volume #x400
+                )
+              )
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1174,35 +877,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 224)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-spout-310"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 1000 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-    (sp-item 1000 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-    (sp-item 1000 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-    (sp-item 1001 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-misty-lurkermachine-spout-310
+  :id 224
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1000 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 1000 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 1000 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 1001 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1001)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1001
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -1220,30 +911,21 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1000)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1000
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 0.6 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 0.05
-      :group #x1
-      :sound-name (static-sound-name "steam-release")
-      :volume #x400
-      )
-     )
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 0.05
+                :group #x1
+                :sound-name (static-sound-name "steam-release")
+                :volume #x400
+                )
+              )
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1262,35 +944,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 225)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-spout-311"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 1002 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-    (sp-item 1002 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-    (sp-item 1002 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-    (sp-item 1003 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-misty-lurkermachine-spout-311
+  :id 225
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1002 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 1002 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 1002 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 1003 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1003)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1003
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -1308,30 +978,21 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1002)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1002
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 0.6 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 0.05
-      :group #x1
-      :sound-name (static-sound-name "steam-release")
-      :volume #x400
-      )
-     )
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 0.05
+                :group #x1
+                :sound-name (static-sound-name "steam-release")
+                :volume #x400
+                )
+              )
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1350,35 +1011,23 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 226)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-misty-lurkermachine-spout-312"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 1004 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-    (sp-item 1004 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-    (sp-item 1004 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-    (sp-item 1005 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+(defpartgroup group-misty-lurkermachine-spout-312
+  :id 226
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1004 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 1004 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 1004 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 1005 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1005)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1005
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.0 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -1396,30 +1045,21 @@
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1004)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1004
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 0.6 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 0.05
-      :group #x1
-      :sound-name (static-sound-name "steam-release")
-      :volume #x400
-      )
-     )
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 0.05
+                :group #x1
+                :sound-name (static-sound-name "steam-release")
+                :volume #x400
+                )
+              )
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1438,9 +1078,7 @@
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
     (sp-flt spt-rotate-y (degrees 35.0))
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/misty/mistycannon.gc b/goal_src/levels/misty/mistycannon.gc
index f6821eb84c..d4f358640d 100644
--- a/goal_src/levels/misty/mistycannon.gc
+++ b/goal_src/levels/misty/mistycannon.gc
@@ -18,7 +18,7 @@
   :flag-assert         #x900000010
   )
 
-;; definition for function angle-tracker-apply-move!
+
 (defun angle-tracker-apply-move! ((arg0 angle-tracker) (arg1 float))
   (let* ((f0-2 (* arg1 (-> arg0 speed) (-> *display* seconds-per-frame)))
          (f0-3 (+ (-> arg0 value) f0-2))
@@ -41,8 +41,6 @@
     )
   )
 
-;; definition for function angle-tracker-init-range!
-;; INFO: Return type mismatch int vs none.
 (defun angle-tracker-init-range! ((arg0 angle-tracker) (arg1 float) (arg2 float) (arg3 float))
   (set! (-> arg0 min) arg1)
   (set! (-> arg0 range) (the float (sar (shl (the int (- arg2 arg1)) 48) 48)))
@@ -55,12 +53,10 @@
   (none)
   )
 
-;; definition for function angle-tracker-get-value
 (defun angle-tracker-get-value ((arg0 angle-tracker))
   (the float (sar (shl (the int (+ (-> arg0 min) (-> arg0 value))) 48) 48))
   )
 
-;; definition for function angle-tracker-set-value
 (defun angle-tracker-set-value ((arg0 angle-tracker) (arg1 float))
   (let ((v1-0 (- arg1 (-> arg0 min))))
     (when (!= (-> arg0 range) 0.0)
@@ -76,7 +72,6 @@
     )
   )
 
-;; definition for function angle-tracker-seek!
 (defun angle-tracker-seek! ((arg0 angle-tracker) (arg1 float))
   (let* ((v1-0 arg0)
          (f1-1 (the float (sar (shl (the int (+ (-> v1-0 min) (-> v1-0 value))) 48) 48)))
@@ -146,596 +141,493 @@
   #f
   )
 
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 117) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-beach-sack-fuse"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 517 :fade-after (meters 30.0))
-                                         (sp-item 518 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 519 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-beach-sack-fuse
+  :id 117
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 517 :fade-after (meters 30))
+    (sp-item 518 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 519 :fade-after (meters 80) :falloff-to (meters 80))
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 517) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 4.0 24.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.013333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int-plain-rnd spt-timer 45 14 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 517
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-rnd-flt spt-a 4.0 24.0 1.0)
+    (sp-flt spt-vel-y (meters 0.013333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-fade-a 2.1333334)
+    (sp-flt spt-accel-y -0.4096)
+    (sp-int-plain-rnd spt-timer 45 14 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 518) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.25) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 518
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-rnd-flt spt-a 48.0 48.0 1.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 519) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-flt spt-scale-x (meters 0.2))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-rnd-flt spt-b 8.0 24.0 1.0)
-                                   (sp-rnd-flt spt-a 160.0 95.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.016666668))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -8.366014)
-                                   (sp-flt spt-accel-y -8.192)
-                                   (sp-int spt-timer 15)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.6) (meters 0.2) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 519
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-flt spt-g 32.0)
+    (sp-rnd-flt spt-b 8.0 24.0 1.0)
+    (sp-rnd-flt spt-a 160.0 95.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.016666668))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -8.366014)
+    (sp-flt spt-accel-y -8.192)
+    (sp-int spt-timer 15)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.6) (meters 0.2) 1.0)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 118)
-      (new 'static 'sparticle-launch-group
-        :length 21
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-beach-sack-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 21
-          (sp-item 520 :period 1200 :length 30)
-          (sp-item 521 :fade-after (meters 60.0) :period 1200 :length 15)
-          (sp-item 522 :period 1200 :length 15 :offset 15)
-          (sp-item 523 :period 1200 :length 15)
-          (sp-item 524 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 30 :binding 525)
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 65536.0)
-        )
-      )
+(defpartgroup group-beach-sack-explosion
+  :id 118
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 520 :period 1200 :length 30)
+    (sp-item 521 :fade-after (meters 60) :period 1200 :length 15)
+    (sp-item 522 :period 1200 :length 15 :offset 15)
+    (sp-item 523 :period 1200 :length 15)
+    (sp-item 524 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 30 :binding 525)
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 520) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 70.0)
-                                   (sp-flt spt-g 70.0)
-                                   (sp-rnd-flt spt-b 70.0 16.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.033333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-accel-y 0.2048)
-                                   (sp-flt spt-friction 0.92)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 30 299 1)
-                                   (sp-launcher-by-id spt-next-launcher 526)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 520
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.5)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 70.0)
+    (sp-flt spt-g 70.0)
+    (sp-rnd-flt spt-b 70.0 16.0 1.0)
+    (sp-flt spt-a 96.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.033333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-accel-y 0.2048)
+    (sp-flt spt-friction 0.92)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int-plain-rnd spt-next-time 30 299 1)
+    (sp-launcher-by-id spt-next-launcher 526)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2))
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 526)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.32)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 526
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0)) (sp-copy-from-other spt-scalevel-y -4) (sp-flt spt-fade-a -0.32))
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 521) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-rnd-flt spt-scale-x (meters 8.0) (meters 8.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3.0) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 30)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 527)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 521
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-flt spt-y (meters 0.75))
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 8) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3) 1.0)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 2.1333334)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 15)
+    (sp-launcher-by-id spt-next-launcher 527)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 527)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
+(defpart 527
+  :init-specs
+  ((sp-flt spt-fade-a -1.3333334))
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 522) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 522
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 523) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 32.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 523
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 32.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 524) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 5.0 10.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-rnd-int spt-g 1123942400 1 127.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 127.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-fade-g -4.266667)
-                                   (sp-flt spt-fade-b -2.8444445)
-                                   (sp-flt spt-accel-y -16.384)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int-plain-rnd spt-next-time 5 38 1)
-                                   (sp-launcher-by-id spt-next-launcher 528)
-                                   (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 524
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 5.0 10.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-int spt-g 1123942400 1 127.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 127.0)
+    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+    (sp-flt spt-fade-g -4.266667)
+    (sp-flt spt-fade-b -2.8444445)
+    (sp-flt spt-accel-y -16.384)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int-plain-rnd spt-next-time 5 38 1)
+    (sp-launcher-by-id spt-next-launcher 528)
+    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 528)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -4.266667)
-                                                     (sp-flt spt-fade-g 0.7111111)
-                                                     (sp-flt spt-fade-b 1.4222223)
-                                                     (sp-flt spt-fade-a -2.8444445)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 528
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters -0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -4.266667)
+    (sp-flt spt-fade-g 0.7111111)
+    (sp-flt spt-fade-b 1.4222223)
+    (sp-flt spt-fade-a -2.8444445)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 525)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 70.0)
-                                                     (sp-flt spt-g 70.0)
-                                                     (sp-rnd-flt spt-b 70.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-a 20.0 8.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.11666667)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 525
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 70.0)
+    (sp-flt spt-g 70.0)
+    (sp-rnd-flt spt-b 70.0 16.0 1.0)
+    (sp-rnd-flt spt-a 20.0 8.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0033333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.11666667)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 119)
-      (new 'static 'sparticle-launch-group
-        :length 30
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-beach-cannon-fire"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 30
-          (sp-item 529 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 1200 :length 30)
-          (sp-item 530 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 15)
-          (sp-item 531 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 1200 :length 15)
-          (sp-item 532 :period 1200 :length 15 :offset 15)
-          (sp-item 533 :period 1200 :length 15)
-          (sp-item 534 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 1200 :length 15 :binding 535)
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 98304.0)
-        )
-      )
+(defpartgroup group-beach-cannon-fire
+  :id 119
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 24)
+  :parts
+  ((sp-item 529 :fade-after (meters 200) :falloff-to (meters 200) :period 1200 :length 30)
+    (sp-item 530 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 15)
+    (sp-item 531 :fade-after (meters 40) :falloff-to (meters 40) :period 1200 :length 15)
+    (sp-item 532 :period 1200 :length 15 :offset 15)
+    (sp-item 533 :period 1200 :length 15)
+    (sp-item 534 :fade-after (meters 40) :falloff-to (meters 40) :period 1200 :length 15 :binding 535)
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 529)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 26
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 6.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                                     (sp-flt spt-a 48.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.013333334) 1.0)
-                                                     (sp-flt spt-vel-z (meters -0.033333335))
-                                                     (sp-flt spt-scalevel-x (meters 0.016666668))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-y 0.27306667)
-                                                     (sp-flt spt-friction 0.92)
-                                                     (sp-int spt-timer 900)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-int-plain-rnd spt-next-time 30 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 536)
-                                                     (sp-flt spt-launchrot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-x (degrees 45.0))
-                                                     (sp-flt spt-conerot-radius (meters 2.0))
-                                                     (sp-flt spt-rotate-y (degrees 90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 529
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-flt spt-a 48.0)
+    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.013333334) 1.0)
+    (sp-flt spt-vel-z (meters -0.033333335))
+    (sp-flt spt-scalevel-x (meters 0.016666668))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-accel-y 0.27306667)
+    (sp-flt spt-friction 0.92)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int-plain-rnd spt-next-time 30 299 1)
+    (sp-launcher-by-id spt-next-launcher 536)
+    (sp-flt spt-launchrot-x (degrees 90.0))
+    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-x (degrees 45.0))
+    (sp-flt spt-conerot-radius (meters 2))
+    (sp-flt spt-rotate-y (degrees 90.0))
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 536)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 536
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 530) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 5.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-flt spt-a 48.0)
-                                   (sp-rnd-flt spt-vel-z (meters 0.3) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.026666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-accel-y -0.27306667)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int-plain-rnd spt-next-time 30 149 1)
-                                   (sp-launcher-by-id spt-next-launcher 536)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -83.0) (degrees -7.0000005) 1.0)
-                                   (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-x (degrees 45.0))
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 530
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 5.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-flt spt-a 48.0)
+    (sp-rnd-flt spt-vel-z (meters 0.3) (meters 0.06666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.026666667))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-accel-y -0.27306667)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int-plain-rnd spt-next-time 30 149 1)
+    (sp-launcher-by-id spt-next-launcher 536)
+    (sp-rnd-flt spt-launchrot-x (degrees -83.0) (degrees -7.0000005) 1.0)
+    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-x (degrees 45.0))
+    (sp-flt spt-conerot-radius (meters 2))
+    (sp-flt spt-rotate-y (degrees 90.0))
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 531) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-rnd-flt spt-scale-x (meters 16.0) (meters 16.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3.0) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 30)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 537)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 531
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-flt spt-y (meters 0.75))
+    (sp-rnd-flt spt-scale-x (meters 16) (meters 16) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3) 1.0)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 2.1333334)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 15)
+    (sp-launcher-by-id spt-next-launcher 537)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 537)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
+(defpart 537
+  :init-specs
+  ((sp-flt spt-fade-a -1.3333334))
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 532) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 532
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 533) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 32.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 533
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 32.0)
+    (sp-flt spt-a 64.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 534) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 5.0 10.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-z (meters 0.16666667) (meters 0.16666667) 1.0)
-                                   (sp-flt spt-fade-g -4.2222223)
-                                   (sp-flt spt-fade-b -2.8)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int-plain-rnd spt-next-time 10 89 1)
-                                   (sp-launcher-by-id spt-next-launcher 538)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -60.0) (degrees -60.0) 1.0)
-                                   (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-x (degrees 45.0))
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 534
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 5.0 10.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-z (meters 0.16666667) (meters 0.16666667) 1.0)
+    (sp-flt spt-fade-g -4.2222223)
+    (sp-flt spt-fade-b -2.8)
+    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int-plain-rnd spt-next-time 10 89 1)
+    (sp-launcher-by-id spt-next-launcher 538)
+    (sp-rnd-flt spt-launchrot-x (degrees -60.0) (degrees -60.0) 1.0)
+    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-x (degrees 45.0))
+    (sp-flt spt-rotate-y (degrees 90.0))
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 538)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.6)
-                                                     (sp-flt spt-fade-g -1.8)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 538
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters -0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.6)
+    (sp-flt spt-fade-g -1.8)
+    (sp-flt spt-fade-a -0.85333335)
+    )
+  )
 
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 535)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 64.0)
-                                                     (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.08)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 535
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 16.0 8.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.08)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit12)
+    )
+  )
 
-;; definition of type mistycannon-missile
 (deftype mistycannon-missile (process-drawable)
   ((root-override collide-shape-moving             :offset        112)
    (muzzle-time   float                            :offset-assert 176)
@@ -760,23 +652,7 @@
     )
   )
 
-;; definition for method 3 of type mistycannon-missile
-(defmethod inspect mistycannon-missile ((obj mistycannon-missile))
-  (let ((t9-0 (method-of-type process-drawable inspect)))
-    (t9-0 obj)
-    )
-  (format #t "~T~Tmuzzle-time: ~f~%" (-> obj muzzle-time))
-  (format #t "~T~Ttumble-quat: #<quaternion @ #x~X>~%" (-> obj tumble-quat))
-  (format #t "~T~Tblast-radius: ~f~%" (-> obj blast-radius))
-  (format #t "~T~Twater-height: ~f~%" (-> obj water-height))
-  (format #t "~T~Tsfx: ~D~%" (-> obj sfx))
-  (format #t "~T~Tpart2: ~A~%" (-> obj part2))
-  (format #t "~T~Tground-time: ~D~%" (-> obj ground-time))
-  obj
-  )
 
-;; definition for method 7 of type mistycannon-missile
-;; INFO: Return type mismatch process-drawable vs mistycannon-missile.
 (defmethod relocate mistycannon-missile ((obj mistycannon-missile) (arg0 int))
   (if (nonzero? (-> obj part2))
       (&+! (-> obj part2) arg0)
@@ -784,7 +660,6 @@
   (the-as mistycannon-missile ((method-of-type process-drawable relocate) obj arg0))
   )
 
-;; definition for method 10 of type mistycannon-missile
 (defmethod deactivate mistycannon-missile ((obj mistycannon-missile))
   (if (nonzero? (-> obj part2))
       (kill-and-free-particles (-> obj part2))
@@ -793,7 +668,6 @@
   (none)
   )
 
-;; failed to figure out what this is:
 (defskelgroup *mistycannon-missile-sg* sack
   0
   2
@@ -802,8 +676,6 @@
   :longest-edge (meters 0)
   )
 
-;; definition for method 20 of type mistycannon-missile
-;; INFO: Return type mismatch int vs none.
 (defmethod spawn-part mistycannon-missile ((obj mistycannon-missile))
   (let ((gp-0 (-> obj part))
         (a1-1 (vector<-cspace! (new 'stack-no-clear 'vector) (-> obj node-list data 7)))
@@ -814,7 +686,6 @@
   (none)
   )
 
-;; failed to figure out what this is:
 (defstate mistycannon-missile-idle (mistycannon-missile)
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
@@ -1000,7 +871,6 @@
     )
   )
 
-;; failed to figure out what this is:
 (defstate mistycannon-missile-in-water (mistycannon-missile)
   :code
   (behavior ()
@@ -1048,7 +918,6 @@
   (the-as (function none :behavior mistycannon-missile) ja-post)
   )
 
-;; failed to figure out what this is:
 (defstate mistycannon-missile-explode (mistycannon-missile)
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
@@ -1170,8 +1039,6 @@
   (the-as (function none :behavior mistycannon-missile) ja-post)
   )
 
-;; definition for function mistycannon-collision-reaction
-;; INFO: Return type mismatch int vs none.
 (defun mistycannon-collision-reaction ((arg0 collide-shape-moving) (arg1 collide-shape-intersect))
   (let ((s5-0 0))
     (let ((a1-1 (new 'stack-no-clear 'vector)))
@@ -1192,7 +1059,6 @@
   (none)
   )
 
-;; definition of type mistycannon-init-data
 (deftype mistycannon-init-data (structure)
   ((pos          vector  :offset-assert   0)
    (vel          vector  :offset-assert   4)
@@ -1206,21 +1072,7 @@
   :flag-assert         #x900000018
   )
 
-;; definition for method 3 of type mistycannon-init-data
-(defmethod inspect mistycannon-init-data ((obj mistycannon-init-data))
-  (format #t "[~8x] ~A~%" obj 'mistycannon-init-data)
-  (format #t "~Tpos: #<vector @ #x~X>~%" (-> obj pos))
-  (format #t "~Tvel: #<vector @ #x~X>~%" (-> obj vel))
-  (format #t "~Trotate: ~f~%" (-> obj rotate))
-  (format #t "~Tflight-time: ~f~%" (-> obj flight-time))
-  (format #t "~Tmuzzle-time: ~f~%" (-> obj muzzle-time))
-  (format #t "~Tblast-radius: ~f~%" (-> obj blast-radius))
-  obj
-  )
 
-;; definition for function mistycannon-missile-init-by-other
-;; INFO: Return type mismatch object vs none.
-;; Used lq/sq
 (defbehavior mistycannon-missile-init-by-other mistycannon-missile ((arg0 mistycannon-init-data) (arg1 entity))
   (set! (-> self mask) (logior (process-mask projectile) (-> self mask)))
   (logclear! (-> self mask) (process-mask actor-pause))
@@ -1268,8 +1120,6 @@
   (none)
   )
 
-;; definition for function spawn-mistycannon-missile
-;; INFO: Return type mismatch int vs none.
 (defun spawn-mistycannon-missile ((arg0 process-tree)
                          (arg1 vector)
                          (arg2 vector)
@@ -1300,7 +1150,6 @@
   (none)
   )
 
-;; definition of type mistycannon
 (deftype mistycannon (process-drawable)
   ((root-override          collide-shape-moving         :offset        112)
    (rotate                 angle-tracker        :inline :offset-assert 176)
@@ -1342,33 +1191,7 @@
     )
   )
 
-;; definition for method 3 of type mistycannon
-(defmethod inspect mistycannon ((obj mistycannon))
-  (let ((t9-0 (method-of-type process-drawable inspect)))
-    (t9-0 obj)
-    )
-  (format #t "~T~Trotate: #<angle-tracker @ #x~X>~%" (-> obj rotate))
-  (format #t "~T~Ttilt: #<angle-tracker @ #x~X>~%" (-> obj tilt))
-  (format #t "~T~Tfront-wheel: ~f~%" (-> obj front-wheel))
-  (format #t "~T~Trear-wheel: ~f~%" (-> obj rear-wheel))
-  (format #t "~T~Tlast-known-rotation: ~f~%" (-> obj last-known-rotation))
-  (format #t "~T~Tpart-timer: ~D~%" (-> obj part-timer))
-  (format #t "~T~Thellmouth: #<vector @ #x~X>~%" (-> obj hellmouth))
-  (format #t "~T~Tpostbindinfo-ok: ~A~%" (-> obj postbindinfo-ok))
-  (format #t "~T~Tlaunch-origin: #<vector @ #x~X>~%" (-> obj launch-origin))
-  (format #t "~T~Tgoggles: #<vector @ #x~X>~%" (-> obj goggles))
-  (format #t "~T~Tavoid-entity: ~A~%" (-> obj avoid-entity))
-  (format #t "~T~Tcenter-point: #<vector @ #x~X>~%" (-> obj center-point))
-  (format #t "~T~Tat-point: #<vector @ #x~X>~%" (-> obj at-point))
-  (format #t "~T~Taccuracy-range: ~f~%" (-> obj accuracy-range))
-  (format #t "~T~Ttarget-theta: ~f~%" (-> obj target-theta))
-  (format #t "~T~Tsound-id: ~D~%" (-> obj sound-id))
-  (format #t "~T~Taim-sound-id: ~D~%" (-> obj aim-sound-id))
-  (format #t "~T~Tplayer-touching-grips?: ~A~%" (-> obj player-touching-grips?))
-  obj
-  )
 
-;; definition for function mistycannon-pick-random-target-point
 (defbehavior mistycannon-pick-random-target-point mistycannon ()
   (let ((f30-0 (* (sqrtf (rand-vu)) (-> self center-point w)))
         (f28-1 (* 65536.0 (rand-vu)))
@@ -1384,24 +1207,18 @@
     )
   )
 
-;; definition for method 20 of type mistycannon
-;; INFO: Return type mismatch int vs none.
 (defmethod rotate! mistycannon ((obj mistycannon) (arg0 float))
   (angle-tracker-apply-move! (-> obj rotate) arg0)
   0
   (none)
   )
 
-;; definition for method 21 of type mistycannon
-;; INFO: Return type mismatch int vs none.
 (defmethod tilt! mistycannon ((obj mistycannon) (arg0 float))
   (angle-tracker-apply-move! (-> obj tilt) arg0)
   0
   (none)
   )
 
-;; definition for method 22 of type mistycannon
-;; INFO: Return type mismatch int vs none.
 ;; WARN: Expression building failed: Function (method 22 mistycannon) has a return type of none, but the expression builder found a return statement.
 (defmethod dummy-22 mistycannon ((obj mistycannon) (arg0 float) (arg1 float) (arg2 float))
   (if (not (-> obj postbindinfo-ok))
@@ -1432,8 +1249,6 @@
   (none)
   )
 
-;; definition for method 23 of type mistycannon
-;; INFO: Return type mismatch int vs none.
 (defmethod dummy-23 mistycannon ((obj mistycannon))
   (when (< (- (-> *display* base-frame-counter) (the-as int (-> obj part-timer))) 900)
     (let ((v1-4 (-> obj rotate)))
@@ -1478,7 +1293,6 @@
   (none)
   )
 
-;; failed to figure out what this is:
 (defskelgroup *mistycannon-sg* mistycannon
   0
   3
@@ -1487,8 +1301,6 @@
   :longest-edge (meters 4)
   )
 
-;; definition for function mistycannon-prebind-function
-;; INFO: Return type mismatch int vs none.
 (defun mistycannon-prebind-function ((arg0 mistycannon) (arg1 int) (arg2 mistycannon))
   (let ((t9-0 quaternion-axis-angle!)
         (a0-1 (&-> arg0 link))
@@ -1541,9 +1353,6 @@
   (none)
   )
 
-;; definition for function mistycannon-postbind-function
-;; INFO: Return type mismatch int vs none.
-;; Used lq/sq
 (defun mistycannon-postbind-function ((arg0 mistycannon))
   (set! (-> arg0 launch-origin quad) (-> arg0 node-list data 4 bone transform vector 3 quad))
   (let ((s5-0 (new 'stack-no-clear 'vector)))
@@ -1556,7 +1365,6 @@
   (none)
   )
 
-;; failed to figure out what this is:
 (defstate mistycannon-idle (mistycannon)
   :trans
   (behavior ()
@@ -1586,7 +1394,6 @@
   (the-as (function none :behavior mistycannon) rider-post)
   )
 
-;; definition of type quadratic-solution
 (deftype quadratic-solution (structure)
   ((s1 float  :offset-assert   0)
    (s2 float  :offset-assert   4)
@@ -1596,15 +1403,7 @@
   :flag-assert         #x900000008
   )
 
-;; definition for method 3 of type quadratic-solution
-(defmethod inspect quadratic-solution ((obj quadratic-solution))
-  (format #t "[~8x] ~A~%" obj 'quadratic-solution)
-  (format #t "~Ts1: ~f~%" (-> obj s1))
-  (format #t "~Ts2: ~f~%" (-> obj s2))
-  obj
-  )
 
-;; definition for function solve-missile-tilt
 (defun solve-missile-tilt ((arg0 quadratic-solution) (arg1 float) (arg2 float) (arg3 float) (arg4 float))
   (let* ((f1-3 (* 0.5 arg2 arg2 arg4))
          (f0-3 f1-3)
@@ -1624,7 +1423,6 @@
   #t
   )
 
-;; definition of type trajectory-params
 (deftype trajectory-params (structure)
   ((x       float  :offset-assert   0)
    (y       float  :offset-assert   4)
@@ -1638,20 +1436,7 @@
   :flag-assert         #x900000018
   )
 
-;; definition for method 3 of type trajectory-params
-(defmethod inspect trajectory-params ((obj trajectory-params))
-  (format #t "[~8x] ~A~%" obj 'trajectory-params)
-  (format #t "~Tx: ~f~%" (-> obj x))
-  (format #t "~Ty: ~f~%" (-> obj y))
-  (format #t "~Tgravity: ~f~%" (-> obj gravity))
-  (format #t "~Ttheta: ~f~%" (-> obj theta))
-  (format #t "~Tspeed: ~f~%" (-> obj speed))
-  (format #t "~Ttime: ~f~%" (-> obj time))
-  obj
-  )
 
-;; definition for function solve-missile-velocity
-;; INFO: Return type mismatch int vs none.
 (defun solve-missile-velocity ((arg0 trajectory-params) (arg1 float))
   (set! (-> arg0 theta) arg1)
   (let ((f0-4 (* (- (* (-> arg0 x) (tan arg1)) (-> arg0 y)) (/ 2.0 (-> arg0 gravity)))))
@@ -1664,7 +1449,6 @@
   (none)
   )
 
-;; definition for function mistycannon-find-best-solution
 (defbehavior mistycannon-find-best-solution mistycannon ((arg0 quadratic-solution))
   (let ((v1-0 #t)
         (a1-0 #t)
@@ -1703,15 +1487,12 @@
     )
   )
 
-;; definition for function mistycannon-find-trajectory
 (defbehavior mistycannon-find-trajectory mistycannon ((arg0 trajectory-params))
   (set! (-> arg0 time) 0.0)
   (solve-missile-velocity arg0 (-> arg0 theta))
   (none)
   )
 
-;; definition for function mistycannon-do-aim
-;; INFO: Return type mismatch int vs none.
 ;; WARN: Expression building failed: Function mistycannon-do-aim has a return type of none, but the expression builder found a return statement.
 (defbehavior mistycannon-do-aim mistycannon ((arg0 vector) (arg1 vector))
   (if (not (-> self postbindinfo-ok))
@@ -1773,7 +1554,6 @@
   (none)
   )
 
-;; failed to figure out what this is:
 (defstate mistycannon-aim-at-player (mistycannon)
   :enter
   (behavior ()
@@ -1811,7 +1591,6 @@
   (the-as (function none :behavior mistycannon) rider-post)
   )
 
-;; failed to figure out what this is:
 (defstate mistycannon-waiting-for-player (mistycannon)
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
@@ -1889,7 +1668,6 @@
   (the-as (function none :behavior mistycannon) rider-post)
   )
 
-;; failed to figure out what this is:
 (defstate cam-mistycannon (camera-slave)
   :event
   cam-standard-event-handler
@@ -1926,7 +1704,6 @@
     )
   )
 
-;; failed to figure out what this is:
 (defstate mistycannon-player-control (mistycannon)
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
@@ -2038,7 +1815,6 @@
   (the-as (function none :behavior mistycannon) rider-post)
   )
 
-;; failed to figure out what this is:
 (defstate mistycannon-waiting-for-player-to-fuck-off (mistycannon)
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
@@ -2080,9 +1856,6 @@
   (the-as (function none :behavior mistycannon) rider-post)
   )
 
-;; definition for method 11 of type mistycannon
-;; INFO: Return type mismatch object vs none.
-;; Used lq/sq
 (defmethod init-from-entity! mistycannon ((obj mistycannon) (arg0 entity-actor))
   (local-vars (sv-16 res-tag) (sv-32 res-tag) (sv-48 res-tag))
   (set! (-> obj mask) (logior (process-mask enemy) (-> obj mask)))
diff --git a/goal_src/levels/misty/quicksandlurker.gc b/goal_src/levels/misty/quicksandlurker.gc
index a64de450d6..8b200e10db 100644
--- a/goal_src/levels/misty/quicksandlurker.gc
+++ b/goal_src/levels/misty/quicksandlurker.gc
@@ -7,344 +7,297 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 198) (new 'static 'sparticle-launch-group
-                                       :length 48
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-quicksandlurker-missile"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 48
-                                         (sp-item 2481 :flags (launch-asap) :binding 2479)
-                                         (sp-item 2479 :flags (start-dead) :binding 2480)
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 12288.0)
-                                       )
-      )
+(defpartgroup group-quicksandlurker-missile
+  :id 198
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 2481 :flags (launch-asap) :binding 2479)
+    (sp-item 2479 :flags (start-dead) :binding 2480)
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    )
+  )
 
-(set! (-> *part-id-table* 2481) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 9
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.01))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer 1200)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-func spt-func 'sparticle-track-root-prim)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2481
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.01))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-a 0.0)
+    (sp-int spt-timer 1200)
+    (sp-cpuinfo-flags bit3)
+    (sp-func spt-func 'sparticle-track-root-prim)
+    )
+  )
 
-(set! (-> *part-id-table* 2479) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.006666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.0666667)
-                                    (sp-flt spt-fade-g -1.0666667)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 81)
-                                    (sp-launcher-by-id spt-next-launcher 2482)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.1))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2479
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-flt spt-scale-x (meters 1))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-scalevel-x (meters -0.006666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -1.0666667)
+    (sp-flt spt-fade-g -1.0666667)
+    (sp-flt spt-fade-b 0.0)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 81)
+    (sp-launcher-by-id spt-next-launcher 2482)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.1))
+    )
+  )
 
-(set! (-> *part-id-table* 2482)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2482
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
+  )
 
-(set! (-> *part-id-table* 2480) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 5.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.0666667)
-                                    (sp-flt spt-fade-g -1.0666667)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int-plain-rnd spt-timer 30 119 1)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 60)
-                                    (sp-launcher-by-id spt-next-launcher 2482)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.4) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2480
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 1.0 5.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0026666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -1.0666667)
+    (sp-flt spt-fade-g -1.0666667)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-accel-y -2.7306666)
+    (sp-flt spt-friction 0.97)
+    (sp-int-plain-rnd spt-timer 30 119 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 60)
+    (sp-launcher-by-id spt-next-launcher 2482)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.4) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 199) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x5dc
-                                       :name "group-quicksandlurker-pre-missile"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2483))
-                                       :bounds (new 'static 'sphere :w 12288.0)
-                                       )
-      )
+(defpartgroup group-quicksandlurker-pre-missile
+  :id 199
+  :duration 5
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 2483))
+  )
 
-(set! (-> *part-id-table* 2483) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.006666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.7111111)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-rnd-flt spt-friction 0.85 0.05 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 119 1)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 90)
-                                    (sp-launcher-by-id spt-next-launcher 2482)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.4) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2483
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.006666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.7111111)
+    (sp-flt spt-fade-g -0.7111111)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-accel-y -0.68266666)
+    (sp-rnd-flt spt-friction 0.85 0.05 1.0)
+    (sp-int-plain-rnd spt-timer 30 119 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 2482)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.4) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 200)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xa
-        :linger-duration #x5dc
-        :name "group-quicksandlurker-missile-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 2484) (sp-item 2485) (sp-item 2486))
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
+(defpartgroup group-quicksandlurker-missile-impact
+  :id 200
+  :duration 10
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 2484) (sp-item 2485) (sp-item 2486))
+  )
 
-(set! (-> *part-id-table* 2484) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 64.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.006666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.7111111)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-rnd-flt spt-friction 0.85 0.05 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 119 1)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 90)
-                                    (sp-launcher-by-id spt-next-launcher 2482)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.4) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2484
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 64.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.006666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.7111111)
+    (sp-flt spt-fade-g -0.7111111)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-accel-y -0.68266666)
+    (sp-rnd-flt spt-friction 0.85 0.05 1.0)
+    (sp-int-plain-rnd spt-timer 30 119 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 2482)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2486)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 6.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-flt spt-fade-r -0.35555556)
-                                                     (sp-flt spt-fade-g -0.35555556)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.30476192)
-                                                     (sp-rnd-flt spt-accel-y -0.68266666 0.68266666 1.0)
-                                                     (sp-int spt-timer 210)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2482)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2486
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-r -0.35555556)
+    (sp-flt spt-fade-g -0.35555556)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-fade-a -0.30476192)
+    (sp-rnd-flt spt-accel-y -0.68266666 0.68266666 1.0)
+    (sp-int spt-timer 210)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 60)
+    (sp-launcher-by-id spt-next-launcher 2482)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2485) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -4.8)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2485
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 32.0 1.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-fade-a -4.8)
+    (sp-int spt-timer 15)
+    (sp-cpuinfo-flags bit2)
+    )
+  )
 
-(set! (-> *part-group-id-table* 201) (new 'static 'sparticle-launch-group
-                                       :length 16
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-quicksandlurker-hide"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 16
-                                         (sp-item 124 :flags (is-3d) :period 900 :length 63)
-                                         (sp-item 125 :period 900 :length 15)
-                                         (sp-item 126 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 127 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 128 :period 900 :length 10 :binding 129)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-quicksandlurker-hide
+  :id 201
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 124 :flags (is-3d) :period 900 :length 63)
+    (sp-item 125 :period 900 :length 15)
+    (sp-item 126 :flags (is-3d) :period 900 :length 15)
+    (sp-item 127 :flags (is-3d) :period 900 :length 15)
+    (sp-item 128 :period 900 :length 10 :binding 129)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    )
+  )
 
-(set! (-> *part-group-id-table* 202) (new 'static 'sparticle-launch-group
-                                       :length 16
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-quicksandlurker-popup"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 16
-                                         (sp-item 124 :flags (is-3d) :period 900 :length 63)
-                                         (sp-item 125 :period 900 :length 15)
-                                         (sp-item 126 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 127 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 128 :period 900 :length 10 :binding 129)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-quicksandlurker-popup
+  :id 202
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 124 :flags (is-3d) :period 900 :length 63)
+    (sp-item 125 :period 900 :length 15)
+    (sp-item 126 :flags (is-3d) :period 900 :length 15)
+    (sp-item 127 :flags (is-3d) :period 900 :length 15)
+    (sp-item 128 :period 900 :length 10 :binding 129)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    )
+  )
 
 (deftype quicksandlurker-missile (process-drawable)
   ((root-override collide-shape-moving  :offset 112)
diff --git a/goal_src/levels/misty/sidekick-human.gc b/goal_src/levels/misty/sidekick-human.gc
index 658a2f757d..29030186dd 100644
--- a/goal_src/levels/misty/sidekick-human.gc
+++ b/goal_src/levels/misty/sidekick-human.gc
@@ -15,17 +15,12 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 657)
-  (new 'static 'sparticle-launch-group
-   :length 8
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag screen-space)
-   :name "group-2d-intro-mist"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 8
-    (sp-item 2665 :period 300 :length 5 :binding 2663)
+(defpartgroup group-2d-intro-mist
+  :id 657
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2665 :period 300 :length 5 :binding 2663)
     (sp-item 2663 :flags (start-dead launch-asap) :binding 2664)
     (sp-item 2663 :flags (start-dead launch-asap) :binding 2664)
     (sp-item 2664 :flags (start-dead))
@@ -34,19 +29,14 @@
     (sp-item 2666)
     (sp-item 2667)
     )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2665)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2665
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -2.5) (meters 5.0) 1.0)
-    (sp-rnd-flt spt-y (meters -1.5) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-y (meters -1.5) (meters 3) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-g 128.0)
@@ -55,21 +45,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit3)
     (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2663)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2663
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 2048.0 819.2 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 0.2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -84,17 +69,12 @@
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2664)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2664
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -109,45 +89,35 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 198)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2667)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+(defpart 2667
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-z -16000.0)
-    (sp-flt spt-scale-x (meters 15.0))
-    (sp-flt spt-scale-y (meters 12.0))
+    (sp-flt spt-z (meters -3.90625))
+    (sp-flt spt-scale-x (meters 15))
+    (sp-flt spt-scale-y (meters 12))
     (sp-flt spt-r 0.0)
     (sp-flt spt-g 0.0)
     (sp-flt spt-b 0.0)
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2666)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2666
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.3)
-    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-    (sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
-    (sp-rnd-flt spt-z 0.0 14000.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+    (sp-rnd-flt spt-y (meters -3) (meters 6) 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 3.4179688) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 6.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 6) (meters 8) 1.0)
     (sp-rnd-flt spt-r 16.0 80.0 1.0)
     (sp-rnd-flt spt-g 0.0 16.0 1.0)
     (sp-rnd-flt spt-b 16.0 150.0 1.0)
@@ -160,46 +130,29 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-int-plain-rnd spt-next-time 150 149 1)
     (sp-launcher-by-id spt-next-launcher 2668)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2668)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
+(defpart 2668
+  :init-specs
+  ((sp-flt spt-fade-a 0.0)
     (sp-int-plain-rnd spt-next-time 300 299 1)
     (sp-launcher-by-id spt-next-launcher 2669)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2669)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.21333334)
-    (sp-end)
-    )
-   )
+(defpart 2669
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
   )
 
-(set!
-  (-> *part-group-id-table* 557)
-  (new 'static 'sparticle-launch-group
-   :length #x101
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-evilsib-appear"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 257
-    (sp-item 2345 :period 1500 :length 20 :offset 1500)
+(defpartgroup group-evilsib-appear
+  :id 557
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2345 :period 1500 :length 20 :offset 1500)
     (sp-item 2346 :period 1500 :length 20 :offset 1500)
     (sp-item 2347 :period 1500 :length 5 :offset 1500)
     (sp-item 2348 :period 1500 :length 20 :offset 1500)
@@ -457,19 +410,14 @@
     (sp-item 2384 :flags (bit1 start-dead))
     (sp-item 2384 :flags (bit1 start-dead))
     )
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2349)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2349
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.1) 1.0)
-    (sp-rnd-flt spt-y (meters -1.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -483,31 +431,20 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit14)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2353)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.21333334)
-    (sp-end)
-    )
-   )
+(defpart 2353
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
   )
 
-(set!
-  (-> *part-id-table* 2350)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2350
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.1) 1.0)
-    (sp-rnd-flt spt-y (meters -1.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -524,20 +461,15 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 2353)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2351)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2351
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.3) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -554,20 +486,15 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 2353)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2352)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2352
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -584,21 +511,16 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 2353)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2344)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2344
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 20480.0 6144.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.05) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -608,7 +530,7 @@
     (sp-rnd-flt spt-a 64.0 32.0 1.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.074074075) (meters 0.14814815) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-vel-z (meters -0.015))
     (sp-flt spt-scalevel-x (meters 0.0005))
     (sp-rnd-flt spt-rotvel-z (degrees -0.53333336) (degrees 1.0666667) 1.0)
@@ -617,37 +539,26 @@
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-int spt-next-time 270)
     (sp-launcher-by-id spt-next-launcher 2354)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2354)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -3.2)
-    (sp-end)
-    )
-   )
+(defpart 2354
+  :init-specs
+  ((sp-flt spt-fade-a -3.2))
   )
 
-(set!
-  (-> *part-id-table* 2345)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2345
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 32.0)
-    (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 64.0 1.0)
     (sp-rnd-flt spt-g 128.0 64.0 1.0)
     (sp-rnd-flt spt-b 128.0 64.0 1.0)
     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.21333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.21333334) 1.0)
     (sp-flt spt-scalevel-x (meters -0.00066666666))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-g -0.42666668)
@@ -660,40 +571,28 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2355)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-a 0.0)
-    (sp-end)
-    )
-   )
+(defpart 2355
+  :init-specs
+  ((sp-flt spt-fade-g 0.0) (sp-flt spt-fade-a 0.0))
   )
 
-(set!
-  (-> *part-id-table* 2346)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2346
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 32.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 3) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 64.0 1.0)
     (sp-rnd-flt spt-g 128.0 64.0 1.0)
     (sp-rnd-flt spt-b 128.0 64.0 1.0)
     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.026666667) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.026666667) 1.0)
     (sp-flt spt-scalevel-x (meters -0.00066666666))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-g -0.42666668)
@@ -706,22 +605,17 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2347)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2347
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters 2.0))
-    (sp-rnd-flt spt-scale-x (meters 28.0) (meters 4.0) 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-rnd-flt spt-scale-x (meters 28) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 64.0 1.0)
     (sp-rnd-flt spt-g 128.0 64.0 1.0)
@@ -731,22 +625,17 @@
     (sp-flt spt-fade-a -2.3272727)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2348)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2348
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-y (meters 0.5) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-    (sp-flt spt-scale-y (meters 16.0))
+    (sp-flt spt-scale-y (meters 16))
     (sp-flt spt-r 255.0)
     (sp-flt spt-g 128.0)
     (sp-rnd-flt spt-b 128.0 128.0 1.0)
@@ -757,22 +646,15 @@
     (sp-flt spt-fade-a -1.0666667)
     (sp-int spt-timer 60)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 558)
-  (new 'static 'sparticle-launch-group
-   :length 79
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-evilsib-hover"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 79
-    (sp-item 2386 :binding 2385)
+(defpartgroup group-evilsib-hover
+  :id 558
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2386 :binding 2385)
     (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
     (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
     (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
@@ -852,16 +734,11 @@
     (sp-item 2384 :flags (bit1 start-dead))
     (sp-item 2384 :flags (bit1 start-dead))
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2386)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 11
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2386
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
@@ -871,21 +748,16 @@
     (sp-flt spt-accel-y -2.048)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2385)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2385
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z 1024.0 1024.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters 0.25) (meters 0.25) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.025) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -895,7 +767,7 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.04444444) (meters 0.08888888) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-vel-z (meters 0.0027777778))
     (sp-flt spt-scalevel-x (meters 0.00027777778))
     (sp-rnd-flt spt-rotvel-z (degrees -0.53333336) (degrees 1.0666667) 1.0)
@@ -905,44 +777,26 @@
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
     (sp-int-plain-rnd spt-next-time 30 14 1)
     (sp-launcher-by-id spt-next-launcher 2388)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2388)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 150)
-    (sp-launcher-by-id spt-next-launcher 2389)
-    (sp-end)
-    )
-   )
+(defpart 2388
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 150) (sp-launcher-by-id spt-next-launcher 2389))
   )
 
-(set!
-  (-> *part-id-table* 2389)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-vel-z (meters -0.008333334))
+(defpart 2389
+  :init-specs
+  ((sp-flt spt-vel-z (meters -0.008333334))
     (sp-flt spt-scalevel-x (meters -0.00041666668))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-a -1.0666667)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2384)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2384
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 0.1)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -958,146 +812,125 @@
     (sp-flt spt-accel-y -1.3653333)
     (sp-int spt-timer 15)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 560)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-sequenceC-glowing-can"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2298))
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
+(defpartgroup group-sequenceC-glowing-can
+  :id 560
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2298))
   )
 
-(set!
-  (-> *part-id-table* 2298)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2298
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.0)
     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
     (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-rnd-flt spt-g 96.0 32.0 1.0)
     (sp-flt spt-b 0.0)
     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
     (sp-flt spt-fade-a -0.42666668)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 561)
-  (new 'static 'sparticle-launch-group
-   :length 69
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-sequenceC-exploding-can"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 69
-    (sp-item 2785 :period 1800 :length 5)
+(defpartgroup group-sequenceC-exploding-can
+  :id 561
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2785 :period 1800 :length 5)
     (sp-item 2786 :period 1800 :length 40)
     (sp-item 2787 :period 1800 :length 20)
     (sp-item 2788 :period 1800 :length 20)
-    (sp-item 2830 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
+    (sp-item 2830 :fade-after (meters 100) :period 600 :length 5 :binding 296)
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2830)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2830
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 32.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-a 0.0)
@@ -1108,19 +941,14 @@
     (sp-cpuinfo-flags bit3)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2786)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2786
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 12.0)
-    (sp-rnd-flt spt-y (meters -1.5) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-y (meters -1.5) (meters 3) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1138,33 +966,22 @@
     (sp-launcher-by-id spt-next-launcher 2789)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2789)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -1.0666667)
-    (sp-end)
-    )
-   )
+(defpart 2789
+  :init-specs
+  ((sp-flt spt-fade-a -1.0666667))
   )
 
-(set!
-  (-> *part-id-table* 2788)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2788
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 12.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-    (sp-flt spt-scale-y (meters 12.0))
+    (sp-flt spt-scale-y (meters 12))
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
     (sp-rnd-flt spt-g 0.0 32.0 1.0)
     (sp-rnd-flt spt-b 128.0 64.0 1.0)
@@ -1173,19 +990,14 @@
     (sp-flt spt-fade-a -1.6)
     (sp-int spt-timer 60)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2785)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2785
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 24.0))
+    (sp-flt spt-scale-x (meters 24))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 64.0 1.0)
     (sp-rnd-flt spt-g 0.0 32.0 1.0)
@@ -1194,20 +1006,15 @@
     (sp-flt spt-fade-a -2.3272727)
     (sp-int spt-timer 54)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2787)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2787
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 16.0)
-    (sp-rnd-flt spt-y (meters -1.5) (meters 3.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters -1.5) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 0.0 96.0 1.0)
@@ -1225,83 +1032,68 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 562)
-  (new 'static 'sparticle-launch-group
-   :length 36
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-sequenceC-dark-splash"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 36
-    (sp-item 295 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
+(defpartgroup group-sequenceC-dark-splash
+  :id 562
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 295 :fade-after (meters 100) :period 600 :length 5 :binding 296)
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-    (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
     (sp-item 2095 :period 600 :length 5)
-    (sp-item 2096 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
+    (sp-item 2096 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
     (sp-item 2097 :period 600 :length 20)
     )
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 681)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #x5
-   :linger-duration #x384
-   :flags (sp-group-flag use-local-clock)
-   :name "group-sequenceC-blow-dust"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2790))
-   :bounds (new 'static 'sphere :w 262144.0)
-   )
+(defpartgroup group-sequenceC-blow-dust
+  :id 681
+  :duration 5
+  :linger-duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2790))
   )
 
-(set!
-  (-> *part-id-table* 2790)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2790
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -1324,20 +1116,12 @@
     (sp-rnd-flt spt-conerot-x (degrees 112.99999) (degrees 2.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -12.500001) (degrees 15.0) 1.0)
     (sp-rnd-flt spt-conerot-radius (meters 0.3) (meters -0.5) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2822)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.1)
-    (sp-end)
-    )
-   )
+(defpart 2822
+  :init-specs
+  ((sp-flt spt-fade-a -0.1))
   )
 
 (deftype sequenceB (process-taskable)
@@ -1420,74 +1204,73 @@
 
 (define
   *lurker-army*
-  (the-as (array army-info)
-   (new
-    'static
-    'boxed-array
-    :type army-info :length 9 :allocated-length 9
-    (new 'static 'army-info
-     :pos
-     (new 'static 'vector :x -920633.4 :y 83546.11 :z 4210409.5)
-     :rot 28556.04
-     :skel 'babak
-     )
-    (new 'static 'army-info
-     :pos
-     (new 'static 'vector :x -873488.4 :y 86441.984 :z 4225454.0)
-     :rot 37861.24
-     :start-frame 5.0
-     :skel 'babak
-     )
-    (new 'static 'army-info
-     :pos
-     (new 'static 'vector :x -905871.4 :y 83132.414 :z 4231934.0)
-     :rot 32054.021
-     :start-frame 10.0
-     :skel 'babak
-     )
-    (new 'static 'army-info
-     :pos
-     (new 'static 'vector :x -926765.06 :y 83496.96 :z 4236230.5)
-     :rot 30001.652
-     :start-frame 15.0
-     :skel 'babak
-     )
-    (new 'static 'army-info
-     :pos
-     (new 'static 'vector :x -893345.8 :y 83517.44 :z 4212961.5)
-     :rot 32755.074
-     :start-frame 20.0
-     :skel 'babak
-     )
-    (new 'static 'army-info
-     :pos
-     (new 'static 'vector :x -842797.06 :y 84041.73 :z 4218855.5)
-     :rot 43916.402
-     :skel 'bonelurker
-     )
-    (new 'static 'army-info
-     :pos
-     (new 'static 'vector :x -839274.5 :y 82644.99 :z 4248723.5)
-     :rot 40510.715
-     :start-frame 6.0
-     :skel 'bonelurker
-     )
-    (new 'static 'army-info
-     :pos
-     (new 'static 'vector :x -871485.44 :y 85909.51 :z 4243181.5)
-     :rot 37046.043
-     :start-frame 12.0
-     :skel 'bonelurker
-     )
-    (new 'static 'army-info
-     :pos
-     (new 'static 'vector :x -947523.56 :y 85835.77 :z 4219314.0)
-     :rot 26980.078
-     :start-frame 18.0
-     :skel 'bonelurker
-     )
-    )
-   )
+  (the-as (array army-info) (new
+                              'static
+                              'boxed-array
+                              :type army-info :length 9 :allocated-length 9
+                              (new 'static 'army-info
+                                :pos
+                                (new 'static 'vector :x -920633.4 :y 83546.11 :z 4210409.5)
+                                :rot 28556.04
+                                :skel 'babak
+                                )
+                              (new 'static 'army-info
+                                :pos
+                                (new 'static 'vector :x -873488.4 :y 86441.984 :z 4225454.0)
+                                :rot 37861.24
+                                :start-frame 5.0
+                                :skel 'babak
+                                )
+                              (new 'static 'army-info
+                                :pos
+                                (new 'static 'vector :x -905871.4 :y 83132.414 :z 4231934.0)
+                                :rot 32054.021
+                                :start-frame 10.0
+                                :skel 'babak
+                                )
+                              (new 'static 'army-info
+                                :pos
+                                (new 'static 'vector :x -926765.06 :y 83496.96 :z 4236230.5)
+                                :rot 30001.652
+                                :start-frame 15.0
+                                :skel 'babak
+                                )
+                              (new 'static 'army-info
+                                :pos
+                                (new 'static 'vector :x -893345.8 :y 83517.44 :z 4212961.5)
+                                :rot 32755.074
+                                :start-frame 20.0
+                                :skel 'babak
+                                )
+                              (new 'static 'army-info
+                                :pos
+                                (new 'static 'vector :x -842797.06 :y 84041.73 :z 4218855.5)
+                                :rot 43916.402
+                                :skel 'bonelurker
+                                )
+                              (new 'static 'army-info
+                                :pos
+                                (new 'static 'vector :x -839274.5 :y 82644.99 :z 4248723.5)
+                                :rot 40510.715
+                                :start-frame 6.0
+                                :skel 'bonelurker
+                                )
+                              (new 'static 'army-info
+                                :pos
+                                (new 'static 'vector :x -871485.44 :y 85909.51 :z 4243181.5)
+                                :rot 37046.043
+                                :start-frame 12.0
+                                :skel 'bonelurker
+                                )
+                              (new 'static 'army-info
+                                :pos
+                                (new 'static 'vector :x -947523.56 :y 85835.77 :z 4219314.0)
+                                :rot 26980.078
+                                :start-frame 18.0
+                                :skel 'bonelurker
+                                )
+                              )
+                            )
   )
 
 (defbehavior evilsib-trans-hook-hover evilbro ()
@@ -1497,613 +1280,200 @@
 
 (defbehavior evilsib-trans-hook-wait evilbro ()
   (when (>= (ja-aframe-num 0) 425.0)
-   (let ((gp-0 (get-process *default-dead-pool* part-tracker #x4000)))
-    (when gp-0
-     (let ((t9-2 (method-of-type part-tracker activate)))
-      (t9-2
-       (the-as part-tracker gp-0)
-       *entity-pool*
-       'part-tracker
-       (the-as pointer #x70004000)
-       )
+    (let ((gp-0 (get-process *default-dead-pool* part-tracker #x4000)))
+      (when gp-0
+        (let ((t9-2 (method-of-type part-tracker activate)))
+          (t9-2 (the-as part-tracker gp-0) *entity-pool* 'part-tracker (the-as pointer #x70004000))
+          )
+        (run-now-in-process gp-0 part-tracker-init (-> *part-group-id-table* 557) -1 #f #f #f (-> self draw origin))
+        (-> gp-0 ppointer)
+        )
       )
-     (run-now-in-process
-      gp-0
-      part-tracker-init
-      (-> *part-group-id-table* 557)
-      -1
-      #f
-      #f
-      #f
-      (-> self draw origin)
-      )
-     (-> gp-0 ppointer)
-     )
+    (send-event self 'trans-hook evilsib-trans-hook-hover)
     )
-   (send-event self 'trans-hook evilsib-trans-hook-hover)
-   )
   0
   (none)
   )
 
 (defmethod play-anim! sequenceB ((obj sequenceB) (arg0 symbol))
   (with-pp
-   (cond
-    (arg0
-     (send-event *target* 'sidekick #f)
-     (let ((s5-0 (get-process *default-dead-pool* manipy #x4000)))
-      (set! (-> obj bonelurker) (ppointer->handle (when s5-0
-                                                   (let
-                                                    ((t9-2
-                                                      (method-of-type
-                                                       manipy
-                                                       activate
-                                                       )
-                                                      )
-                                                     )
-                                                    (t9-2
-                                                     (the-as manipy s5-0)
-                                                     obj
-                                                     'manipy
-                                                     (the-as pointer #x70004000)
-                                                     )
-                                                    )
-                                                   (run-now-in-process
-                                                    s5-0
-                                                    manipy-init
-                                                    (-> obj root-override trans)
-                                                    (-> obj entity)
-                                                    *bonelurker-sg*
-                                                    #f
-                                                    )
-                                                   (-> s5-0 ppointer)
-                                                   )
-                                 )
-       )
-      )
-     (send-event (handle->process (-> obj bonelurker)) 'anim-mode 'clone-anim)
-     (send-event (handle->process (-> obj bonelurker)) 'center-joint 3)
-     (set-setting!
-      *setting-control*
-      pp
-      'music-volume-movie
-      'abs
-      (the-as float 0.0)
-      0
-      )
-     (set-setting!
-      *setting-control*
-      pp
-      'sfx-volume-movie
-      'abs
-      (the-as float 0.0)
-      0
-      )
-     (set-setting!
-      *setting-control*
-      pp
-      'ambient-volume-movie
-      'abs
-      (the-as float 0.0)
-      0
-      )
-     (dotimes (s5-1 9)
-      (let ((s4-0 (-> *lurker-army* s5-1)))
-       (cond
-        ((= (-> s4-0 skel) 'bonelurker)
-         (let ((s3-0 (get-process *default-dead-pool* manipy #x4000)))
-          (set! (-> obj lurker-army s5-1) (ppointer->handle (when s3-0
-                                                             (let
-                                                              ((t9-10
-                                                                (method-of-type
-                                                                 manipy
-                                                                 activate
-                                                                 )
-                                                                )
-                                                               )
-                                                              (t9-10
-                                                               (the-as
-                                                                manipy
-                                                                s3-0
-                                                                )
-                                                               obj
-                                                               'manipy
-                                                               (the-as
-                                                                pointer
-                                                                #x70004000
-                                                                )
-                                                               )
-                                                              )
-                                                             (run-now-in-process
-                                                              s3-0
-                                                              manipy-init
-                                                              (-> s4-0 pos)
-                                                              (-> obj entity)
-                                                              *bonelurker-sg*
-                                                              #f
-                                                              )
-                                                             (-> s3-0 ppointer)
-                                                             )
+    (cond
+      (arg0
+        (send-event *target* 'sidekick #f)
+        (let ((s5-0 (get-process *default-dead-pool* manipy #x4000)))
+          (set! (-> obj bonelurker)
+                (ppointer->handle
+                  (when s5-0
+                    (let ((t9-2 (method-of-type manipy activate)))
+                      (t9-2 (the-as manipy s5-0) obj 'manipy (the-as pointer #x70004000))
+                      )
+                    (run-now-in-process s5-0 manipy-init (-> obj root-override trans) (-> obj entity) *bonelurker-sg* #f)
+                    (-> s5-0 ppointer)
+                    )
+                  )
+                )
+          )
+        (send-event (handle->process (-> obj bonelurker)) 'anim-mode 'clone-anim)
+        (send-event (handle->process (-> obj bonelurker)) 'center-joint 3)
+        (set-setting! *setting-control* pp 'music-volume-movie 'abs (the-as float 0.0) 0)
+        (set-setting! *setting-control* pp 'sfx-volume-movie 'abs (the-as float 0.0) 0)
+        (set-setting! *setting-control* pp 'ambient-volume-movie 'abs (the-as float 0.0) 0)
+        (dotimes (s5-1 9)
+          (let ((s4-0 (-> *lurker-army* s5-1)))
+            (cond
+              ((= (-> s4-0 skel) 'bonelurker)
+               (let ((s3-0 (get-process *default-dead-pool* manipy #x4000)))
+                 (set! (-> obj lurker-army s5-1)
+                       (ppointer->handle (when s3-0
+                                           (let ((t9-10 (method-of-type manipy activate)))
+                                             (t9-10 (the-as manipy s3-0) obj 'manipy (the-as pointer #x70004000))
+                                             )
+                                           (run-now-in-process s3-0 manipy-init (-> s4-0 pos) (-> obj entity) *bonelurker-sg* #f)
+                                           (-> s3-0 ppointer)
                                            )
-           )
-          )
-         (let ((s3-1 (handle->process (-> obj lurker-army s5-1))))
-          (when s3-1
-           (set! (-> (the-as babak s3-1) draw light-index) (the-as uint 1))
-           (set!
-            (-> (the-as babak s3-1) draw level-index)
-            (the-as uint (-> (level-get *level* 'misty) index))
+                                         )
+                       )
+                 )
+               (let ((s3-1 (handle->process (-> obj lurker-army s5-1))))
+                 (when s3-1
+                   (set! (-> (the-as babak s3-1) draw light-index) (the-as uint 1))
+                   (set! (-> (the-as babak s3-1) draw level-index) (the-as uint (-> (level-get *level* 'misty) index)))
+                   )
+                 )
+               )
+              (else
+                (let ((s3-2 (get-process *default-dead-pool* manipy #x4000)))
+                  (set! (-> obj lurker-army s5-1)
+                        (ppointer->handle (when s3-2
+                                            (let ((t9-14 (method-of-type manipy activate)))
+                                              (t9-14 (the-as manipy s3-2) obj 'manipy (the-as pointer #x70004000))
+                                              )
+                                            (run-now-in-process s3-2 manipy-init (-> s4-0 pos) (-> obj entity) *babak-sg* #f)
+                                            (-> s3-2 ppointer)
+                                            )
+                                          )
+                        )
+                  )
+                (let ((s3-3 (handle->process (-> obj lurker-army s5-1))))
+                  (when s3-3
+                    (set! (-> (the-as babak s3-3) draw light-index) (the-as uint 1))
+                    (set! (-> (the-as babak s3-3) draw level-index) (the-as uint (-> (level-get *level* 'misty) index)))
+                    )
+                  )
+                (send-event (handle->process (-> obj lurker-army s5-1)) 'art-joint-anim "idle" 0)
+                )
+              )
+            (send-event (handle->process (-> obj lurker-army s5-1)) 'rot (-> s4-0 rot))
             )
-           )
           )
-         )
-        (else
-         (let ((s3-2 (get-process *default-dead-pool* manipy #x4000)))
-          (set! (-> obj lurker-army s5-1) (ppointer->handle (when s3-2
-                                                             (let
-                                                              ((t9-14
-                                                                (method-of-type
-                                                                 manipy
-                                                                 activate
-                                                                 )
-                                                                )
-                                                               )
-                                                              (t9-14
-                                                               (the-as
-                                                                manipy
-                                                                s3-2
-                                                                )
-                                                               obj
-                                                               'manipy
-                                                               (the-as
-                                                                pointer
-                                                                #x70004000
-                                                                )
-                                                               )
-                                                              )
-                                                             (run-now-in-process
-                                                              s3-2
-                                                              manipy-init
-                                                              (-> s4-0 pos)
-                                                              (-> obj entity)
-                                                              *babak-sg*
-                                                              #f
-                                                              )
-                                                             (-> s3-2 ppointer)
-                                                             )
-                                           )
-           )
-          )
-         (let ((s3-3 (handle->process (-> obj lurker-army s5-1))))
-          (when s3-3
-           (set! (-> (the-as babak s3-3) draw light-index) (the-as uint 1))
-           (set!
-            (-> (the-as babak s3-3) draw level-index)
-            (the-as uint (-> (level-get *level* 'misty) index))
-            )
-           )
-          )
-         (send-event
-          (handle->process (-> obj lurker-army s5-1))
-          'art-joint-anim
-          "idle"
-          0
-          )
-         )
-        )
-       (send-event
-        (handle->process (-> obj lurker-army s5-1))
-        'rot
-        (-> s4-0 rot)
         )
+      ((!= (level-status *level* 'intro) 'active)
+       (return (get-art-elem obj))
        )
       )
-     )
-    ((!= (level-status *level* 'intro) 'active)
-     (return (get-art-elem obj))
-     )
-    )
-   (new 'static 'spool-anim
-    :name "sidekick-human-intro-sequence-b"
-    :index 5
-    :parts 11
-    :command-list
-    '(
-      (0
-        blackout
-        0
+    (new 'static 'spool-anim
+      :name "sidekick-human-intro-sequence-b"
+      :index 5
+      :parts 11
+      :command-list
+      '((0 blackout 0)
+        (0 setting-reset ocean-off near)
+        (0 want-levels misty intro)
+        (0 display-level intro special)
+        (0 kill "money-1404")
+        (0 kill "money-1405")
+        (0 kill "money-1406")
+        (0 kill "money-1407")
+        (0 kill "money-1551")
+        (0 kill "money-1552")
+        (0 kill "money-1553")
+        (0 kill "balloonlurker-9")
+        (0 kill "balloonlurker-10")
+        (0 kill "balloonlurker-11")
+        (0 kill "balloonlurker-12")
+        (0 kill "balloonlurker-13")
+        (0 kill "balloonlurker-14")
+        (0 kill "keg-conveyor-8")
+        (0 kill "mistycannon-8")
+        (0 kill "muse-2")
+        (0 kill "mud-1")
+        (0 kill "mud-2")
+        (0 kill "mud-3")
+        (0 kill "mud-4")
+        (0 kill "mud-5")
+        (0 kill "mud-6")
+        (0 kill "mud-7")
+        (0 kill "mud-8")
+        (0 kill "mud-9")
+        (0 kill "mud-10")
+        (0 kill "mud-11")
+        (0 kill "dark-eco-pool-11")
+        (0 kill "sharkey-32")
+        (0 kill "sharkey-34")
+        (0 kill "sharkey-39")
+        (0 kill "sharkey-41")
+        (0 kill "bonelurker-14")
+        (0 kill "bonelurker-15")
+        (0 kill "bonelurker-16")
+        (0 kill "bonelurker-17")
+        (0 kill "bonelurker-18")
+        (0 kill "bonelurker-19")
+        (0 kill "bonelurker-20")
+        (0 kill "bonelurker-21")
+        (0 kill "bonelurker-22")
+        (0 kill "bonelurker-23")
+        (0 kill "bonelurker-24")
+        (0 kill "bonelurker-26")
+        (0 kill "babak-with-cannon-5")
+        (0 kill "babak-200")
+        (0 kill "babak-201")
+        (0 kill "babak-202")
+        (0 kill "babak-203")
+        (0 kill "babak-204")
+        (0 kill "babak-205")
+        (0 kill "babak-206")
+        (0 kill "babak-207")
+        (0 kill "babak-208")
+        (0 kill "babak-209")
+        (0 kill "babak-212")
+        (0 kill "quicksandlurker-5")
+        (0 kill "boatpaddle-4")
+        (0 kill "silostep-7")
+        (0 kill "silostep-8")
+        (0 kill "silostep-9")
+        (0 kill "silostep-10")
+        (0 kill "orb-cache-top-15")
+        (0 kill "windturbine-11")
+        (0 kill "teetertotter-5")
+        (0 kill "bone-platform-4")
+        (0 kill "misty-battle-controller-1")
+        (30 send-event self offset-army)
+        (196 joint "cameraB")
+        (196 shadow target #f)
+        (196 shadow self #f)
+        (380 send-event self evilbro)
+        (385 send-event "evilbro" draw #t)
+        (385 send-event "evilsis" draw #t)
+        (397 joint "camera")
+        (410 setting-reset ocean-off #t)
+        (456 joint "cameraB")
+        (546 joint "camera")
+        (701 joint "cameraB")
+        (701 setting-reset ocean-off near)
+        (776 joint "camera")
+        (776 setting-reset ocean-off #t)
+        (937 joint "cameraB")
+        (1027 joint "camera")
+        (1122 joint "cameraB")
+        (1221 joint "cameraB")
+        (1221 setting-reset ocean-off near)
+        (1280 alive "sequenceC-1")
+        (1281 save)
+        (1281 shadow target #t)
+        (1281 setting-unset ocean-off)
         )
-      (0
-       setting-reset
-       ocean-off
-       near
-       )
-      (0
-       want-levels
-       misty
-       intro
-       )
-      (0
-       display-level
-       intro
-       special
-       )
-      (0
-       kill
-       "money-1404"
-       )
-      (0
-       kill
-       "money-1405"
-       )
-      (0
-       kill
-       "money-1406"
-       )
-      (0
-       kill
-       "money-1407"
-       )
-      (0
-       kill
-       "money-1551"
-       )
-      (0
-       kill
-       "money-1552"
-       )
-      (0
-       kill
-       "money-1553"
-       )
-      (0
-       kill
-       "balloonlurker-9"
-       )
-      (0
-       kill
-       "balloonlurker-10"
-       )
-      (0
-       kill
-       "balloonlurker-11"
-       )
-      (0
-       kill
-       "balloonlurker-12"
-       )
-      (0
-       kill
-       "balloonlurker-13"
-       )
-      (0
-       kill
-       "balloonlurker-14"
-       )
-      (0
-       kill
-       "keg-conveyor-8"
-       )
-      (0
-       kill
-       "mistycannon-8"
-       )
-      (0
-       kill
-       "muse-2"
-       )
-      (0
-       kill
-       "mud-1"
-       )
-      (0
-       kill
-       "mud-2"
-       )
-      (0
-       kill
-       "mud-3"
-       )
-      (0
-       kill
-       "mud-4"
-       )
-      (0
-       kill
-       "mud-5"
-       )
-      (0
-       kill
-       "mud-6"
-       )
-      (0
-       kill
-       "mud-7"
-       )
-      (0
-       kill
-       "mud-8"
-       )
-      (0
-       kill
-       "mud-9"
-       )
-      (0
-       kill
-       "mud-10"
-       )
-      (0
-       kill
-       "mud-11"
-       )
-      (0
-       kill
-       "dark-eco-pool-11"
-       )
-      (0
-       kill
-       "sharkey-32"
-       )
-      (0
-       kill
-       "sharkey-34"
-       )
-      (0
-       kill
-       "sharkey-39"
-       )
-      (0
-       kill
-       "sharkey-41"
-       )
-      (0
-       kill
-       "bonelurker-14"
-       )
-      (0
-       kill
-       "bonelurker-15"
-       )
-      (0
-       kill
-       "bonelurker-16"
-       )
-      (0
-       kill
-       "bonelurker-17"
-       )
-      (0
-       kill
-       "bonelurker-18"
-       )
-      (0
-       kill
-       "bonelurker-19"
-       )
-      (0
-       kill
-       "bonelurker-20"
-       )
-      (0
-       kill
-       "bonelurker-21"
-       )
-      (0
-       kill
-       "bonelurker-22"
-       )
-      (0
-       kill
-       "bonelurker-23"
-       )
-      (0
-       kill
-       "bonelurker-24"
-       )
-      (0
-       kill
-       "bonelurker-26"
-       )
-      (0
-       kill
-       "babak-with-cannon-5"
-       )
-      (0
-       kill
-       "babak-200"
-       )
-      (0
-       kill
-       "babak-201"
-       )
-      (0
-       kill
-       "babak-202"
-       )
-      (0
-       kill
-       "babak-203"
-       )
-      (0
-       kill
-       "babak-204"
-       )
-      (0
-       kill
-       "babak-205"
-       )
-      (0
-       kill
-       "babak-206"
-       )
-      (0
-       kill
-       "babak-207"
-       )
-      (0
-       kill
-       "babak-208"
-       )
-      (0
-       kill
-       "babak-209"
-       )
-      (0
-       kill
-       "babak-212"
-       )
-      (0
-       kill
-       "quicksandlurker-5"
-       )
-      (0
-       kill
-       "boatpaddle-4"
-       )
-      (0
-       kill
-       "silostep-7"
-       )
-      (0
-       kill
-       "silostep-8"
-       )
-      (0
-       kill
-       "silostep-9"
-       )
-      (0
-       kill
-       "silostep-10"
-       )
-      (0
-       kill
-       "orb-cache-top-15"
-       )
-      (0
-       kill
-       "windturbine-11"
-       )
-      (0
-       kill
-       "teetertotter-5"
-       )
-      (0
-       kill
-       "bone-platform-4"
-       )
-      (0
-       kill
-       "misty-battle-controller-1"
-       )
-      ((the binteger 30)
-       send-event
-       self
-       offset-army
-       )
-      ((the binteger 196)
-       joint
-       "cameraB"
-       )
-      ((the binteger 196)
-       shadow
-       target
-       #f
-       )
-      ((the binteger 196)
-       shadow
-       self
-       #f
-       )
-      ((the binteger 380)
-       send-event
-       self
-       evilbro
-       )
-      ((the binteger 385)
-       send-event
-       "evilbro"
-       draw
-       #t
-       )
-      ((the binteger 385)
-       send-event
-       "evilsis"
-       draw
-       #t
-       )
-      ((the binteger 397)
-       joint
-       "camera"
-       )
-      ((the binteger 410)
-       setting-reset
-       ocean-off
-       #t
-       )
-      ((the binteger 456)
-       joint
-       "cameraB"
-       )
-      ((the binteger 546)
-       joint
-       "camera"
-       )
-      ((the binteger 701)
-       joint
-       "cameraB"
-       )
-      ((the binteger 701)
-       setting-reset
-       ocean-off
-       near
-       )
-      ((the binteger 776)
-       joint
-       "camera"
-       )
-      ((the binteger 776)
-       setting-reset
-       ocean-off
-       #t
-       )
-      ((the binteger 937)
-       joint
-       "cameraB"
-       )
-      ((the binteger 1027)
-       joint
-       "camera"
-       )
-      ((the binteger 1122)
-       joint
-       "cameraB"
-       )
-      ((the binteger 1221)
-       joint
-       "cameraB"
-       )
-      ((the binteger 1221)
-       setting-reset
-       ocean-off
-       near
-       )
-      ((the binteger 1280)
-       alive
-       "sequenceC-1"
-       )
-      ((the binteger 1281)
-       save
-       )
-      ((the binteger 1281)
-       shadow
-       target
-       #t
-       )
-      ((the binteger 1281) setting-unset ocean-off)
       )
     )
-   )
   )
 
 (defmethod get-art-elem sequenceB ((obj sequenceB))
@@ -2114,217 +1484,138 @@
   :virtual #t
   :event
   (behavior ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
-   (case arg2 
-    (('offset-army)
-      (dotimes (gp-0 9)
-       (let ((v1-3 (-> *lurker-army* gp-0)))
-        (send-event
-         (handle->process (-> self lurker-army gp-0))
-         'set-frame-num
-         (-> v1-3 start-frame)
+    (case arg2
+      (('offset-army)
+       (dotimes (gp-0 9)
+         (let ((v1-3 (-> *lurker-army* gp-0)))
+           (send-event (handle->process (-> self lurker-army gp-0)) 'set-frame-num (-> v1-3 start-frame))
+           )
          )
-        )
+       #f
        )
-      #f
-      )
-    (('evilbro)
-     (when (= (level-status *level* 'intro) 'active)
-      (let ((gp-2 (entity-by-name "evilbro-2")))
-       (when gp-2
-        (let ((s5-0 (get-process *default-dead-pool* manipy #x4000)))
-         (set! (-> self evilbro) (ppointer->handle (when s5-0
-                                                    (let
-                                                     ((t9-4
-                                                       (method-of-type
-                                                        manipy
-                                                        activate
-                                                        )
-                                                       )
-                                                      )
-                                                     (t9-4
-                                                      (the-as manipy s5-0)
-                                                      self
-                                                      'manipy
-                                                      (the-as
-                                                       pointer
-                                                       #x70004000
-                                                       )
-                                                      )
-                                                     )
-                                                    (run-now-in-process
-                                                     s5-0
-                                                     manipy-init
-                                                     (->
-                                                      self
-                                                      root-override
-                                                      trans
-                                                      )
-                                                     gp-2
-                                                     *evilbro-sg*
-                                                     #f
-                                                     )
-                                                    (-> s5-0 ppointer)
-                                                    )
-                                  )
-          )
-         )
-        (let ((gp-3 (handle->process (-> self evilbro))))
-         (when gp-3
-          (set! (-> (the-as evilbro gp-3) draw light-index) (the-as uint 1))
-          (set!
-           (-> (the-as evilbro gp-3) draw level-index)
-           (the-as uint (-> (level-get *level* 'misty) index))
+      (('evilbro)
+       (when (= (level-status *level* 'intro) 'active)
+         (let ((gp-2 (entity-by-name "evilbro-2")))
+           (when gp-2
+             (let ((s5-0 (get-process *default-dead-pool* manipy #x4000)))
+               (set! (-> self evilbro)
+                     (ppointer->handle (when s5-0
+                                         (let ((t9-4 (method-of-type manipy activate)))
+                                           (t9-4 (the-as manipy s5-0) self 'manipy (the-as pointer #x70004000))
+                                           )
+                                         (run-now-in-process s5-0 manipy-init (-> self root-override trans) gp-2 *evilbro-sg* #f)
+                                         (-> s5-0 ppointer)
+                                         )
+                                       )
+                     )
+               )
+             (let ((gp-3 (handle->process (-> self evilbro))))
+               (when gp-3
+                 (set! (-> (the-as evilbro gp-3) draw light-index) (the-as uint 1))
+                 (set! (-> (the-as evilbro gp-3) draw level-index) (the-as uint (-> (level-get *level* 'misty) index)))
+                 )
+               )
+             (send-event (handle->process (-> self evilbro)) 'anim-mode 'clone-anim)
+             (send-event (handle->process (-> self evilbro)) 'blend-shape #t)
+             (send-event (handle->process (-> self evilbro)) 'center-joint 3)
+             (send-event (handle->process (-> self evilbro)) 'trans-hook evilsib-trans-hook-wait)
+             (send-event (handle->process (-> self evilbro)) 'draw #f)
+             (send-event
+               (handle->process (-> self evilbro))
+               'eval
+               (lambda :behavior sequenceB () (let ((v0-0 (create-launch-control (-> *part-group-id-table* 558) self)))
+                                                (set! (-> self part) v0-0)
+                                                v0-0
+                                                )
+                                           )
+               )
+             )
            )
-          )
-         )
-        (send-event (handle->process (-> self evilbro)) 'anim-mode 'clone-anim)
-        (send-event (handle->process (-> self evilbro)) 'blend-shape #t)
-        (send-event (handle->process (-> self evilbro)) 'center-joint 3)
-        (send-event
-         (handle->process (-> self evilbro))
-         'trans-hook
-         evilsib-trans-hook-wait
-         )
-        (send-event (handle->process (-> self evilbro)) 'draw #f)
-        (send-event
-         (handle->process (-> self evilbro))
-         'eval
-         (lambda :behavior sequenceB
-          ()
-          (let
-           ((v0-0 (create-launch-control (-> *part-group-id-table* 558) self)))
-           (set! (-> self part) v0-0)
-           v0-0
+         (let ((gp-4 (entity-by-name "evilsis-2")))
+           (when gp-4
+             (let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
+               (set! (-> self evilsis)
+                     (ppointer->handle (when s5-1
+                                         (let ((t9-15 (method-of-type manipy activate)))
+                                           (t9-15 (the-as manipy s5-1) self 'manipy (the-as pointer #x70004000))
+                                           )
+                                         (run-now-in-process s5-1 manipy-init (-> self root-override trans) gp-4 *evilsis-sg* #f)
+                                         (-> s5-1 ppointer)
+                                         )
+                                       )
+                     )
+               )
+             (let ((gp-5 (handle->process (-> self evilsis))))
+               (when gp-5
+                 (set! (-> (the-as evilsis gp-5) draw light-index) (the-as uint 1))
+                 (set! (-> (the-as evilsis gp-5) draw level-index) (the-as uint (-> (level-get *level* 'misty) index)))
+                 )
+               )
+             (send-event (handle->process (-> self evilsis)) 'anim-mode 'clone-anim)
+             (send-event (handle->process (-> self evilsis)) 'blend-shape #t)
+             (send-event (handle->process (-> self evilsis)) 'center-joint 3)
+             (send-event (handle->process (-> self evilsis)) 'trans-hook evilsib-trans-hook-wait)
+             (send-event (handle->process (-> self evilsis)) 'draw #f)
+             (send-event
+               (handle->process (-> self evilsis))
+               'eval
+               (lambda :behavior sequenceB () (let ((v0-0 (create-launch-control (-> *part-group-id-table* 558) self)))
+                                                (set! (-> self part) v0-0)
+                                                v0-0
+                                                )
+                                           )
+               )
+             )
            )
-          )
          )
-        )
-       )
-      (let ((gp-4 (entity-by-name "evilsis-2")))
-       (when gp-4
-        (let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
-         (set! (-> self evilsis) (ppointer->handle (when s5-1
-                                                    (let
-                                                     ((t9-15
-                                                       (method-of-type
-                                                        manipy
-                                                        activate
-                                                        )
-                                                       )
-                                                      )
-                                                     (t9-15
-                                                      (the-as manipy s5-1)
-                                                      self
-                                                      'manipy
-                                                      (the-as
-                                                       pointer
-                                                       #x70004000
-                                                       )
-                                                      )
-                                                     )
-                                                    (run-now-in-process
-                                                     s5-1
-                                                     manipy-init
-                                                     (->
-                                                      self
-                                                      root-override
-                                                      trans
-                                                      )
-                                                     gp-4
-                                                     *evilsis-sg*
-                                                     #f
-                                                     )
-                                                    (-> s5-1 ppointer)
-                                                    )
-                                  )
-          )
-         )
-        (let ((gp-5 (handle->process (-> self evilsis))))
-         (when gp-5
-          (set! (-> (the-as evilsis gp-5) draw light-index) (the-as uint 1))
-          (set!
-           (-> (the-as evilsis gp-5) draw level-index)
-           (the-as uint (-> (level-get *level* 'misty) index))
-           )
-          )
-         )
-        (send-event (handle->process (-> self evilsis)) 'anim-mode 'clone-anim)
-        (send-event (handle->process (-> self evilsis)) 'blend-shape #t)
-        (send-event (handle->process (-> self evilsis)) 'center-joint 3)
-        (send-event
-         (handle->process (-> self evilsis))
-         'trans-hook
-         evilsib-trans-hook-wait
-         )
-        (send-event (handle->process (-> self evilsis)) 'draw #f)
-        (send-event
-         (handle->process (-> self evilsis))
-         'eval
-         (lambda :behavior sequenceB
-          ()
-          (let
-           ((v0-0 (create-launch-control (-> *part-group-id-table* 558) self)))
-           (set! (-> self part) v0-0)
-           v0-0
-           )
-          )
-         )
-        )
        )
       )
-     )
     )
-   )
   :exit
   (behavior ()
-   (send-event *target* 'sidekick #t)
-   (let ((a0-2 (handle->process (-> self bonelurker))))
-    (if a0-2
-     (deactivate a0-2)
-     )
-    )
-   (let ((a0-6 (handle->process (-> self evilbro))))
-    (if a0-6
-     (deactivate a0-6)
-     )
-    )
-   (let ((a0-10 (handle->process (-> self evilsis))))
-    (if a0-10
-     (deactivate a0-10)
-     )
-    )
-   (dotimes (gp-0 9)
-    (let ((a0-14 (handle->process (-> self lurker-army gp-0))))
-     (if a0-14
-      (deactivate a0-14)
+    (send-event *target* 'sidekick #t)
+    (let ((a0-2 (handle->process (-> self bonelurker))))
+      (if a0-2
+          (deactivate a0-2)
+          )
       )
-     )
+    (let ((a0-6 (handle->process (-> self evilbro))))
+      (if a0-6
+          (deactivate a0-6)
+          )
+      )
+    (let ((a0-10 (handle->process (-> self evilsis))))
+      (if a0-10
+          (deactivate a0-10)
+          )
+      )
+    (dotimes (gp-0 9)
+      (let ((a0-14 (handle->process (-> self lurker-army gp-0))))
+        (if a0-14
+            (deactivate a0-14)
+            )
+        )
+      )
+    ((-> (method-of-type process-taskable play-anim) exit))
+    (let ((gp-1 (entity-by-name "sequenceC-1")))
+      (set-blackout-frames 6000)
+      (send-event *camera* 'clear-entity)
+      (entity-birth-no-kill gp-1)
+      (send-event
+        (if gp-1
+            (-> gp-1 extra process)
+            )
+        'play-anim
+        )
+      )
+    (none)
     )
-   ((-> (method-of-type process-taskable play-anim) exit))
-   (let ((gp-1 (entity-by-name "sequenceC-1")))
-    (set-blackout-frames 6000)
-    (send-event *camera* 'clear-entity)
-    (entity-birth-no-kill gp-1)
-    (send-event (if gp-1
-                 (-> gp-1 extra process)
-                 )
-     'play-anim
-     )
-    )
-   (none)
-   )
   :trans
   (behavior ()
-   (spool-push
-    *art-control*
-    "sidekick-human-intro-sequence-c"
-    0
-    self
-    (the-as float -1.0)
+    (spool-push *art-control* "sidekick-human-intro-sequence-c" 0 self (the-as float -1.0))
+    ((-> (method-of-type process-taskable play-anim) trans))
+    (none)
     )
-   ((-> (method-of-type process-taskable play-anim) trans))
-   (none)
-   )
   )
 
 (defmethod should-display? sequenceB ((obj sequenceB))
@@ -2332,406 +1623,163 @@
   )
 
 (defmethod init-from-entity! sequenceB ((obj sequenceB) (arg0 entity-actor))
-  (dummy-40
-   obj
-   arg0
-   *sidekick-human-sg*
-   3
-   44
-   (new 'static 'vector :w 4096.0)
-   -1
-   )
+  (dummy-40 obj arg0 *sidekick-human-sg* 3 44 (new 'static 'vector :w 4096.0) -1)
   (set! (-> obj tasks) (get-task-control (game-task intro)))
   (set! (-> obj bonelurker) (the-as handle #f))
   (set! (-> obj evilbro) (the-as handle #f))
   (set! (-> obj evilsis) (the-as handle #f))
   (dotimes (v1-2 9)
-   (set! (-> obj lurker-army v1-2) (the-as handle #f))
-   )
+    (set! (-> obj lurker-army v1-2) (the-as handle #f))
+    )
   (dummy-42 obj)
   (none)
   )
 
 (defbehavior sequenceC-can-trans-hook-2 sequenceC ()
   (let ((gp-0 (new 'stack-no-clear 'vector)))
-   (vector<-cspace! gp-0 (-> self node-list data 4))
-   (spawn (-> self part) gp-0)
-   )
-  (when (>= (ja-aframe-num 0) 1590.0)
-   (let ((gp-1 (get-process *default-dead-pool* part-tracker #x4000)))
-    (when gp-1
-     (let ((t9-4 (method-of-type part-tracker activate)))
-      (t9-4
-       (the-as part-tracker gp-1)
-       *entity-pool*
-       'part-tracker
-       (the-as pointer #x70004000)
-       )
-      )
-     (run-now-in-process
-      gp-1
-      part-tracker-init
-      (-> *part-group-id-table* 561)
-      -1
-      #f
-      #f
-      #f
-      (-> self draw origin)
-      )
-     (-> gp-1 ppointer)
-     )
+    (vector<-cspace! gp-0 (-> self node-list data 4))
+    (spawn (-> self part) gp-0)
+    )
+  (when (>= (ja-aframe-num 0) 1590.0)
+    (let ((gp-1 (get-process *default-dead-pool* part-tracker #x4000)))
+      (when gp-1
+        (let ((t9-4 (method-of-type part-tracker activate)))
+          (t9-4 (the-as part-tracker gp-1) *entity-pool* 'part-tracker (the-as pointer #x70004000))
+          )
+        (run-now-in-process gp-1 part-tracker-init (-> *part-group-id-table* 561) -1 #f #f #f (-> self draw origin))
+        (-> gp-1 ppointer)
+        )
+      )
+    (send-event self 'trans-hook nothing)
     )
-   (send-event self 'trans-hook nothing)
-   )
   0
   (none)
   )
 
 (defbehavior sequenceC-can-trans-hook sequenceC ()
   (when (>= (ja-aframe-num 0) 1055.0)
-   (lods-assign!
-    (-> self draw)
-    (the-as
-     lod-set
-     (&-> (the-as process-taskable (-> self parent 0)) stack 288)
-     )
+    (lods-assign! (-> self draw) (the-as lod-set (&-> (the-as process-taskable (-> self parent 0)) stack 288)))
+    (send-event self 'trans-hook sequenceC-can-trans-hook-2)
+    (set-vector! (-> self draw color-emissive) 0.5 0.0 0.0 0.0)
     )
-   (send-event self 'trans-hook sequenceC-can-trans-hook-2)
-   (set-vector! (-> self draw color-emissive) 0.5 0.0 0.0 0.0)
-   )
   0
   (none)
   )
 
 (defmethod play-anim! sequenceC ((obj sequenceC) (arg0 symbol))
   (with-pp
-   (when arg0
-    (set-setting!
-     *setting-control*
-     pp
-     'music-volume-movie
-     'abs
-     (the-as float 0.0)
-     0
-     )
-    (set-setting!
-     *setting-control*
-     pp
-     'sfx-volume-movie
-     'abs
-     (the-as float 0.0)
-     0
-     )
-    (set-setting!
-     *setting-control*
-     pp
-     'ambient-volume-movie
-     'abs
-     (the-as float 0.0)
-     0
-     )
-    (let ((s5-0 (get-process *default-dead-pool* manipy #x4000)))
-     (set! (-> obj bonelurker) (ppointer->handle (when s5-0
-                                                  (let
-                                                   ((t9-4
-                                                     (method-of-type
-                                                      manipy
-                                                      activate
-                                                      )
-                                                     )
-                                                    )
-                                                   (t9-4
-                                                    (the-as manipy s5-0)
-                                                    obj
-                                                    'manipy
-                                                    (the-as pointer #x70004000)
-                                                    )
-                                                   )
-                                                  (run-now-in-process
-                                                   s5-0
-                                                   manipy-init
-                                                   (-> obj root-override trans)
-                                                   (-> obj entity)
-                                                   *bonelurker-sg*
-                                                   #f
-                                                   )
-                                                  (-> s5-0 ppointer)
-                                                  )
-                                )
-      )
-     )
-    (send-event (handle->process (-> obj bonelurker)) 'anim-mode 'clone-anim)
-    (send-event (handle->process (-> obj bonelurker)) 'center-joint 3)
-    (let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
-     (set! (-> obj darkecocan) (ppointer->handle (when s5-1
-                                                  (let
-                                                   ((t9-9
-                                                     (method-of-type
-                                                      manipy
-                                                      activate
-                                                      )
-                                                     )
-                                                    )
-                                                   (t9-9
-                                                    (the-as manipy s5-1)
-                                                    obj
-                                                    'manipy
-                                                    (the-as pointer #x70004000)
-                                                    )
-                                                   )
-                                                  (run-now-in-process
-                                                   s5-1
-                                                   manipy-init
-                                                   (-> obj root-override trans)
-                                                   (-> obj entity)
-                                                   *darkecocan-sg*
-                                                   #f
-                                                   )
-                                                  (-> s5-1 ppointer)
-                                                  )
-                                )
-      )
-     )
-    (send-event (handle->process (-> obj darkecocan)) 'anim-mode 'clone-anim)
-    (send-event (handle->process (-> obj darkecocan)) 'center-joint 3)
-    (send-event
-     (handle->process (-> obj darkecocan))
-     'trans-hook
-     sequenceC-can-trans-hook
-     )
-    (send-event
-     (handle->process (-> obj darkecocan))
-     'eval
-     (lambda :behavior sequenceC
-      ()
-      ((method-of-type lod-set dummy-9)
-       (the-as
-        lod-set
-        (&-> (the-as process-taskable (-> self parent 0)) stack 288)
+    (when arg0
+      (set-setting! *setting-control* pp 'music-volume-movie 'abs (the-as float 0.0) 0)
+      (set-setting! *setting-control* pp 'sfx-volume-movie 'abs (the-as float 0.0) 0)
+      (set-setting! *setting-control* pp 'ambient-volume-movie 'abs (the-as float 0.0) 0)
+      (let ((s5-0 (get-process *default-dead-pool* manipy #x4000)))
+        (set! (-> obj bonelurker)
+              (ppointer->handle
+                (when s5-0
+                  (let ((t9-4 (method-of-type manipy activate)))
+                    (t9-4 (the-as manipy s5-0) obj 'manipy (the-as pointer #x70004000))
+                    )
+                  (run-now-in-process s5-0 manipy-init (-> obj root-override trans) (-> obj entity) *bonelurker-sg* #f)
+                  (-> s5-0 ppointer)
+                  )
+                )
+              )
+        )
+      (send-event (handle->process (-> obj bonelurker)) 'anim-mode 'clone-anim)
+      (send-event (handle->process (-> obj bonelurker)) 'center-joint 3)
+      (let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
+        (set! (-> obj darkecocan)
+              (ppointer->handle
+                (when s5-1
+                  (let ((t9-9 (method-of-type manipy activate)))
+                    (t9-9 (the-as manipy s5-1) obj 'manipy (the-as pointer #x70004000))
+                    )
+                  (run-now-in-process s5-1 manipy-init (-> obj root-override trans) (-> obj entity) *darkecocan-sg* #f)
+                  (-> s5-1 ppointer)
+                  )
+                )
+              )
+        )
+      (send-event (handle->process (-> obj darkecocan)) 'anim-mode 'clone-anim)
+      (send-event (handle->process (-> obj darkecocan)) 'center-joint 3)
+      (send-event (handle->process (-> obj darkecocan)) 'trans-hook sequenceC-can-trans-hook)
+      (send-event
+        (handle->process (-> obj darkecocan))
+        'eval
+        (lambda :behavior sequenceC
+          ()
+          ((method-of-type lod-set dummy-9)
+           (the-as lod-set (&-> (the-as process-taskable (-> self parent 0)) stack 288))
+           *darkecocan-glow-sg*
+           (-> self draw art-group)
+           (-> (the-as process-taskable (-> self parent 0)) entity)
+           )
+          (let ((v0-1 (create-launch-control (-> *part-group-id-table* 560) self)))
+            (set! (-> self part) v0-1)
+            v0-1
+            )
+          )
         )
-       *darkecocan-glow-sg*
-       (-> self draw art-group)
-       (-> (the-as process-taskable (-> self parent 0)) entity)
-       )
-      (let ((v0-1 (create-launch-control (-> *part-group-id-table* 560) self)))
-       (set! (-> self part) v0-1)
-       v0-1
-       )
       )
-     )
+    (the-as basic (new 'static 'spool-anim
+                    :name "sidekick-human-intro-sequence-c"
+                    :index 6
+                    :parts 22
+                    :command-list
+                    '((0 blackout 0)
+                      (0 kill "fuel-cell-11")
+                      (0 kill "fuel-cell-50")
+                      (0 kill "money-1561")
+                      (0 kill "money-1562")
+                      (0 kill "money-1563")
+                      (0 kill "money-1564")
+                      (0 kill "money-1565")
+                      (5 alive "dark-eco-pool-11")
+                      (151 joint "cameraB")
+                      (200 want-levels misty village1)
+                      (236 joint "camera")
+                      (301 joint "cameraB")
+                      (421 joint "camera")
+                      (460 shadow self #f)
+                      (470 shadow self #t)
+                      (496 joint "cameraB")
+                      (611 joint "camera")
+                      (721 joint "cameraB")
+                      (1176 joint "camera")
+                      (1271 joint "cameraB")
+                      (1331 joint "camera")
+                      (1386 joint "cameraB")
+                      (1461 joint "camera")
+                      (1524 joint "cameraB")
+                      (1558 joint "camera")
+                      (1602 joint "cameraB")
+                      (1628 joint "camera")
+                      (1676 joint "cameraB")
+                      (1728 joint "camera")
+                      (1791 joint "cameraB")
+                      (1831 joint "camera")
+                      (1942 joint "cameraB")
+                      (2000 display-level village1 special)
+                      (2028 joint "camera")
+                      (2096 joint "cameraB")
+                      (2154 joint "camera")
+                      (2226 joint "cameraB")
+                      (2266 joint "camera")
+                      (2307 joint "cameraB")
+                      (2431 joint "camera")
+                      (2476 joint "cameraB")
+                      (2530 display-level misty movie)
+                      (2530 want-force-vis misty #t)
+                      (2530 dead "dark-eco-pool-11")
+                      (2534 display-level village1 display)
+                      (2535 want-vis vi1)
+                      (2536 joint "camera")
+                      (2580 alive "sage-23")
+                      (2596 save)
+                      )
+                    )
+            )
     )
-   (the-as
-    basic
-    (new 'static 'spool-anim
-     :name "sidekick-human-intro-sequence-c"
-     :index 6
-     :parts 22
-     :command-list
-     '(
-       (0
-         blackout
-         0
-         )
-       (0
-        kill
-        "fuel-cell-11"
-        )
-       (0
-        kill
-        "fuel-cell-50"
-        )
-       (0
-        kill
-        "money-1561"
-        )
-       (0
-        kill
-        "money-1562"
-        )
-       (0
-        kill
-        "money-1563"
-        )
-       (0
-        kill
-        "money-1564"
-        )
-       (0
-        kill
-        "money-1565"
-        )
-       ((the binteger 5)
-        alive
-        "dark-eco-pool-11"
-        )
-       ((the binteger 151)
-        joint
-        "cameraB"
-        )
-       ((the binteger 200)
-        want-levels
-        misty
-        village1
-        )
-       ((the binteger 236)
-        joint
-        "camera"
-        )
-       ((the binteger 301)
-        joint
-        "cameraB"
-        )
-       ((the binteger 421)
-        joint
-        "camera"
-        )
-       ((the binteger 460)
-        shadow
-        self
-        #f
-        )
-       ((the binteger 470)
-        shadow
-        self
-        #t
-        )
-       ((the binteger 496)
-        joint
-        "cameraB"
-        )
-       ((the binteger 611)
-        joint
-        "camera"
-        )
-       ((the binteger 721)
-        joint
-        "cameraB"
-        )
-       ((the binteger 1176)
-        joint
-        "camera"
-        )
-       ((the binteger 1271)
-        joint
-        "cameraB"
-        )
-       ((the binteger 1331)
-        joint
-        "camera"
-        )
-       ((the binteger 1386)
-        joint
-        "cameraB"
-        )
-       ((the binteger 1461)
-        joint
-        "camera"
-        )
-       ((the binteger 1524)
-        joint
-        "cameraB"
-        )
-       ((the binteger 1558)
-        joint
-        "camera"
-        )
-       ((the binteger 1602)
-        joint
-        "cameraB"
-        )
-       ((the binteger 1628)
-        joint
-        "camera"
-        )
-       ((the binteger 1676)
-        joint
-        "cameraB"
-        )
-       ((the binteger 1728)
-        joint
-        "camera"
-        )
-       ((the binteger 1791)
-        joint
-        "cameraB"
-        )
-       ((the binteger 1831)
-        joint
-        "camera"
-        )
-       ((the binteger 1942)
-        joint
-        "cameraB"
-        )
-       ((the binteger 2000)
-        display-level
-        village1
-        special
-        )
-       ((the binteger 2028)
-        joint
-        "camera"
-        )
-       ((the binteger 2096)
-        joint
-        "cameraB"
-        )
-       ((the binteger 2154)
-        joint
-        "camera"
-        )
-       ((the binteger 2226)
-        joint
-        "cameraB"
-        )
-       ((the binteger 2266)
-        joint
-        "camera"
-        )
-       ((the binteger 2307)
-        joint
-        "cameraB"
-        )
-       ((the binteger 2431)
-        joint
-        "camera"
-        )
-       ((the binteger 2476)
-        joint
-        "cameraB"
-        )
-       ((the binteger 2530)
-        display-level
-        misty
-        movie
-        )
-       ((the binteger 2530)
-        want-force-vis
-        misty
-        #t
-        )
-       ((the binteger 2530)
-        dead
-        "dark-eco-pool-11"
-        )
-       ((the binteger 2534)
-        display-level
-        village1
-        display
-        )
-       ((the binteger 2535)
-        want-vis
-        vi1
-        )
-       ((the binteger 2536)
-        joint
-        "camera"
-        )
-       ((the binteger 2580) alive "sage-23") ((the binteger 2596) save)
-       )
-     )
-    )
-   )
   )
 
 (defmethod get-art-elem sequenceC ((obj sequenceC))
@@ -2742,32 +1790,26 @@
   :virtual #t
   :exit
   (behavior ()
-   (let ((a0-1 (handle->process (-> self bonelurker))))
-    (if a0-1
-     (deactivate a0-1)
-     )
+    (let ((a0-1 (handle->process (-> self bonelurker))))
+      (if a0-1
+          (deactivate a0-1)
+          )
+      )
+    (let ((a0-5 (handle->process (-> self darkecocan))))
+      (if a0-5
+          (deactivate a0-5)
+          )
+      )
+    ((-> (method-of-type process-taskable play-anim) exit))
+    (start 'play (get-continue-by-name *game-info* "village1-intro"))
+    (none)
     )
-   (let ((a0-5 (handle->process (-> self darkecocan))))
-    (if a0-5
-     (deactivate a0-5)
-     )
-    )
-   ((-> (method-of-type process-taskable play-anim) exit))
-   (start 'play (get-continue-by-name *game-info* "village1-intro"))
-   (none)
-   )
   :trans
   (behavior ()
-   (spool-push
-    *art-control*
-    "sage-intro-sequence-d1"
-    0
-    self
-    (the-as float -1.0)
+    (spool-push *art-control* "sage-intro-sequence-d1" 0 self (the-as float -1.0))
+    ((-> (method-of-type process-taskable play-anim) trans))
+    (none)
     )
-   ((-> (method-of-type process-taskable play-anim) trans))
-   (none)
-   )
   )
 
 (defmethod should-display? sequenceC ((obj sequenceC))
@@ -2776,48 +1818,26 @@
 
 (defbehavior sequenceC-trans-hook sequenceC ()
   (when (>= (ja-aframe-num 0) 1655.0)
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (vector<-cspace! gp-0 (-> self node-list data 3))
-    (let ((s5-0 (get-process *default-dead-pool* part-tracker #x4000)))
-     (when s5-0
-      (let ((t9-3 (method-of-type part-tracker activate)))
-       (t9-3
-        (the-as part-tracker s5-0)
-        *entity-pool*
-        'part-tracker
-        (the-as pointer #x70004000)
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (vector<-cspace! gp-0 (-> self node-list data 3))
+      (let ((s5-0 (get-process *default-dead-pool* part-tracker #x4000)))
+        (when s5-0
+          (let ((t9-3 (method-of-type part-tracker activate)))
+            (t9-3 (the-as part-tracker s5-0) *entity-pool* 'part-tracker (the-as pointer #x70004000))
+            )
+          (run-now-in-process s5-0 part-tracker-init (-> *part-group-id-table* 562) -1 #f #f #f gp-0)
+          (-> s5-0 ppointer)
+          )
         )
-       )
-      (run-now-in-process
-       s5-0
-       part-tracker-init
-       (-> *part-group-id-table* 562)
-       -1
-       #f
-       #f
-       #f
-       gp-0
-       )
-      (-> s5-0 ppointer)
       )
-     )
+    (set! (-> self cur-trans-hook) nothing)
     )
-   (set! (-> self cur-trans-hook) nothing)
-   )
   0
   (none)
   )
 
 (defmethod init-from-entity! sequenceC ((obj sequenceC) (arg0 entity-actor))
-  (dummy-40
-   obj
-   arg0
-   *sidekick-human-sg*
-   3
-   44
-   (new 'static 'vector :w 4096.0)
-   -1
-   )
+  (dummy-40 obj arg0 *sidekick-human-sg* 3 44 (new 'static 'vector :w 4096.0) -1)
   (set! (-> obj tasks) (get-task-control (game-task intro)))
   (set! (-> obj bonelurker) (the-as handle #f))
   (set! (-> obj darkecocan) (the-as handle #f))
diff --git a/goal_src/levels/ogre/ogre-obs.gc b/goal_src/levels/ogre/ogre-obs.gc
index 27b8b6455f..40be321f1b 100644
--- a/goal_src/levels/ogre/ogre-obs.gc
+++ b/goal_src/levels/ogre/ogre-obs.gc
@@ -34,362 +34,298 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 473) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-tntbarrel-BIG-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2234 :period 3000 :length 5)
-                                         (sp-item 2235 :period 3000 :length 5)
-                                         (sp-item 2236 :period 3000 :length 40)
-                                         (sp-item 2237 :period 3000 :length 40)
-                                         (sp-item 2238 :period 3000 :length 40)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-tntbarrel-BIG-explosion
+  :id 473
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2234 :period 3000 :length 5)
+    (sp-item 2235 :period 3000 :length 5)
+    (sp-item 2236 :period 3000 :length 40)
+    (sp-item 2237 :period 3000 :length 40)
+    (sp-item 2238 :period 3000 :length 40)
+    )
+  )
 
-(set! (-> *part-id-table* 2236) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.32) (meters 0.42666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.009333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-b -1.4222223)
-                                    (sp-rnd-flt spt-accel-y -2.048 -2.048 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2239)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 12.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2236
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.8) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.32) (meters 0.42666668) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.009333333))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -2.1333334)
+    (sp-flt spt-fade-b -1.4222223)
+    (sp-rnd-flt spt-accel-y -2.048 -2.048 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 89 1)
+    (sp-launcher-by-id spt-next-launcher 2239)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 12) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2239)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2239
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
 
-(set! (-> *part-id-table* 2238) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 32.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 3.4133334))
-                                    (sp-flt spt-fade-g -3.2666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2238
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 32))
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 3.4133334))
+    (sp-flt spt-fade-g -3.2666667)
+    (sp-flt spt-fade-b -1.0666667)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2234) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 128.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2234
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 128))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 192.0 32.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2235) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 32.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2235
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 32))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 192.0 32.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2237)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 48.0)
-                                                     (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 16.0) (meters 10.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.32) (meters 0.21333334) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.053333335))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.08533333)
-                                                     (sp-rnd-flt spt-accel-y 2.048 2.048 1.0)
-                                                     (sp-flt spt-friction 0.85)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2240)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 160.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 8.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2237
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 48.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 16) (meters 10) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 48.0 48.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.32) (meters 0.21333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.053333335))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.08533333)
+    (sp-rnd-flt spt-accel-y 2.048 2.048 1.0)
+    (sp-flt spt-friction 0.85)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int spt-next-time 42)
+    (sp-launcher-by-id spt-next-launcher 2240)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 160.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 8) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2240)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -0.26666668)
-                                                     (sp-flt spt-fade-g -0.26666668)
-                                                     (sp-flt spt-fade-b -0.52916664)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 2241)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2240
+  :init-specs
+  ((sp-flt spt-fade-r -0.26666668)
+    (sp-flt spt-fade-g -0.26666668)
+    (sp-flt spt-fade-b -0.52916664)
+    (sp-int spt-next-time 240)
+    (sp-launcher-by-id spt-next-launcher 2241)
+    )
+  )
 
-(set! (-> *part-id-table* 2241)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.24380952)
-                                                     (sp-flt spt-fade-g -0.12190476)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.09142857)
-                                                     (sp-int spt-next-time 525)
-                                                     (sp-launcher-by-id spt-next-launcher 2242)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2241
+  :init-specs
+  ((sp-flt spt-fade-r -0.24380952)
+    (sp-flt spt-fade-g -0.12190476)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-fade-a -0.09142857)
+    (sp-int spt-next-time 525)
+    (sp-launcher-by-id spt-next-launcher 2242)
+    )
+  )
 
-(set! (-> *part-id-table* 2242)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2242
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
+  )
 
-(set! (-> *part-group-id-table* 474) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-tntbarrel-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2079 :period 600 :length 5)
-                                         (sp-item 2080 :period 600 :length 40)
-                                         (sp-item 2081 :period 600 :length 20)
-                                         (sp-item 2082 :period 600 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-tntbarrel-explosion
+  :id 474
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2079 :period 600 :length 5)
+    (sp-item 2080 :period 600 :length 40)
+    (sp-item 2081 :period 600 :length 20)
+    (sp-item 2082 :period 600 :length 20)
+    )
+  )
 
-(set! (-> *part-id-table* 2080) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-b -1.4222223)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2083)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2080
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0026666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -2.1333334)
+    (sp-flt spt-fade-b -1.4222223)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 89 1)
+    (sp-launcher-by-id spt-next-launcher 2083)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2083)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2083
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
 
-(set! (-> *part-id-table* 2082) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.85333335))
-                                    (sp-flt spt-fade-g -3.2666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2082
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+    (sp-flt spt-scale-x (meters 0.3))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 12))
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 0.85333335))
+    (sp-flt spt-fade-g -3.2666667)
+    (sp-flt spt-fade-b -1.0666667)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2079) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 24.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2079
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 24))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 192.0 32.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -2.3272727)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2081)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2084)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 3.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2081
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.02))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int spt-next-time 42)
+    (sp-launcher-by-id spt-next-launcher 2084)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 3) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2084)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -1.0666667)
-                                                     (sp-flt spt-fade-g -1.0666667)
-                                                     (sp-flt spt-fade-b -2.1166666)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2085)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2084
+  :init-specs
+  ((sp-flt spt-fade-r -1.0666667)
+    (sp-flt spt-fade-g -1.0666667)
+    (sp-flt spt-fade-b -2.1166666)
+    (sp-int spt-next-time 60)
+    (sp-launcher-by-id spt-next-launcher 2085)
+    )
+  )
 
-(set! (-> *part-id-table* 2085)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.5688889)
-                                                     (sp-flt spt-fade-g -0.28444445)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 2086)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2085
+  :init-specs
+  ((sp-flt spt-fade-r -0.5688889)
+    (sp-flt spt-fade-g -0.28444445)
+    (sp-flt spt-fade-b 0.0)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-int spt-next-time 225)
+    (sp-launcher-by-id spt-next-launcher 2086)
+    )
+  )
 
-(set! (-> *part-id-table* 2086)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2086
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
+  )
 
 (defskelgroup *tntbarrel-sg* tntbarrel
   0
@@ -1619,102 +1555,87 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 475) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x12c
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-shortcut-boulder-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2149 :period 1500 :length 5)
-                                         (sp-item 2150 :period 1500 :length 5)
-                                         (sp-item 2151 :period 1500 :length 15)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-shortcut-boulder-explosion
+  :id 475
+  :duration 300
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2149 :period 1500 :length 5)
+    (sp-item 2150 :period 1500 :length 5)
+    (sp-item 2151 :period 1500 :length 15)
+    )
+  )
 
-(set! (-> *part-id-table* 2150) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 130.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 54.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.1333334)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2150
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 15))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -2.1333334)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 2149) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-drop)
-                                    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2149
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-rnd-flt spt-num 16.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 70.0 16.0 1.0)
+    (sp-rnd-flt spt-g 70.0 16.0 1.0)
+    (sp-flt spt-b 70.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-accel-y -10.922667)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop)
+    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2151) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-flt spt-scalevel-y (meters 0.0033333334))
-                                    (sp-flt spt-accel-y -1.0922667)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 30 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 2152)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2151
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 48.0 1.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-flt spt-scalevel-y (meters 0.0033333334))
+    (sp-flt spt-accel-y -1.0922667)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 30 299 1)
+    (sp-launcher-by-id spt-next-launcher 2152)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2152)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.2) (sp-end))
-        )
-      )
+(defpart 2152
+  :init-specs
+  ((sp-flt spt-fade-a -0.2))
+  )
 
 (defstate shortcut-boulder-break (shortcut-boulder)
   :code
diff --git a/goal_src/levels/ogre/ogre-part.gc b/goal_src/levels/ogre/ogre-part.gc
index 311cdf72fd..840678012f 100644
--- a/goal_src/levels/ogre/ogre-part.gc
+++ b/goal_src/levels/ogre/ogre-part.gc
@@ -7,33 +7,25 @@
 
 ;; DECOMP BEGINS
 
-(set!
-  (-> *part-group-id-table* 464)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #x5dc
-   :linger-duration #xbb8
-   :flags (sp-group-flag use-local-clock)
-   :name "group-ogreboss-column-break"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2193 :period 1500 :length 5)
+(defpartgroup group-ogreboss-column-break
+  :id 464
+  :duration 1500
+  :linger-duration 3000
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2193 :period 1500 :length 5)
     (sp-item 2194 :period 1500 :length 40)
     (sp-item 2195 :period 1500 :length 20)
     (sp-item 2196 :period 1500 :length 20)
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2194)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2194
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 8.0)
-    (sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters -5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 32.0 1.0)
@@ -53,37 +45,23 @@
     (sp-launcher-by-id spt-next-launcher 2197)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2197)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-flt spt-fade-a -1.0666667)
-    (sp-end)
-    )
-   )
+(defpart 2197
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
   )
 
-(set!
-  (-> *part-id-table* 2196)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2196
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters -5) (meters 1) 1.0)
     (sp-flt spt-scale-x (meters 0.6))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-    (sp-flt spt-scale-y (meters 20.0))
+    (sp-flt spt-scale-y (meters 20))
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-b 96.0)
@@ -94,20 +72,15 @@
     (sp-flt spt-fade-a -1.6)
     (sp-int spt-timer 60)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2193)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2193
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters -4.0))
-    (sp-flt spt-scale-x (meters 44.0))
+    (sp-flt spt-y (meters -4))
+    (sp-flt spt-scale-x (meters 44))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
     (sp-flt spt-g 64.0)
@@ -116,20 +89,15 @@
     (sp-flt spt-fade-a -2.3272727)
     (sp-int spt-timer 54)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2195)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2195
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 24.0)
-    (sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-y (meters -5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 5) (meters 2.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 64.0)
@@ -149,79 +117,52 @@
     (sp-launcher-by-id spt-next-launcher 2198)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 6) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2198)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-fade-r -0.21333334)
+(defpart 2198
+  :init-specs
+  ((sp-flt spt-fade-r -0.21333334)
     (sp-flt spt-fade-g -0.21333334)
     (sp-flt spt-fade-b 0.0)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2199)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2199)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-fade-r -0.021333333)
+(defpart 2199
+  :init-specs
+  ((sp-flt spt-fade-r -0.021333333)
     (sp-flt spt-fade-g 0.0)
     (sp-flt spt-fade-b 0.0)
     (sp-flt spt-fade-a -0.08533333)
     (sp-int spt-next-time 225)
     (sp-launcher-by-id spt-next-launcher 2200)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2200)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-end)
-    )
-   )
+(defpart 2200
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
   )
 
-(set!
-  (-> *part-group-id-table* 465)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #x96
-   :linger-duration #x258
-   :flags (sp-group-flag use-local-clock)
-   :name "group-ogreboss-lava-splash"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2023))
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
+(defpartgroup group-ogreboss-lava-splash
+  :id 465
+  :duration 150
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2023))
   )
 
-(set!
-  (-> *part-id-table* 2023)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2023
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 64.0 1.0)
     (sp-rnd-flt spt-g 0.0 128.0 1.0)
@@ -233,38 +174,24 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 45.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 466)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #x4b
-   :linger-duration #x258
-   :flags (sp-group-flag use-local-clock)
-   :name "group-ogre-bridge-splash"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2108)
-    (sp-item 2109)
-    (sp-item 2110)
-    (sp-item 2111)
-    )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
+(defpartgroup group-ogre-bridge-splash
+  :id 466
+  :duration 75
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2108) (sp-item 2109) (sp-item 2110) (sp-item 2111))
   )
 
-(set!
-  (-> *part-id-table* 2111)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2111
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 4.0 4.0 1.0)
-    (sp-flt spt-y (meters -3.0))
+    (sp-flt spt-y (meters -3))
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.75) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -278,22 +205,17 @@
     (sp-cpuinfo-flags bit0 bit3)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-flt spt-conerot-radius (meters 1.0))
-    (sp-end)
+    (sp-flt spt-conerot-radius (meters 1))
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2108)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2108
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 8.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
-    (sp-flt spt-y (meters -3.0))
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 2) 1.0)
+    (sp-flt spt-y (meters -3))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -311,20 +233,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2109)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2109
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 8.0)
-    (sp-rnd-flt spt-x (meters 3.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters -3.0))
+    (sp-rnd-flt spt-x (meters 3) (meters 4) 1.0)
+    (sp-flt spt-y (meters -3))
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -332,7 +249,7 @@
     (sp-rnd-flt spt-g 0.0 128.0 1.0)
     (sp-flt spt-b 0.0)
     (sp-rnd-flt spt-a 32.0 64.0 1.0)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0016666667) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0016666667) 1.0)
     (sp-flt spt-scalevel-x (meters 0.07777778))
     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
     (sp-copy-from-other spt-scalevel-y -4)
@@ -343,21 +260,16 @@
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2110)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2110
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 4.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
-    (sp-rnd-flt spt-y (meters -3.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 3) 1.0)
+    (sp-rnd-flt spt-y (meters -3) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 5) (meters 8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -380,49 +292,29 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2112)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.08)
-    (sp-end)
-    )
-   )
+(defpart 2112
+  :init-specs
+  ((sp-flt spt-fade-a -0.08))
   )
 
-(set!
-  (-> *part-group-id-table* 468)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #x96
-   :linger-duration #x258
-   :flags (sp-group-flag use-local-clock)
-   :name "group-ogreboss-boulder-grow"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2201)
-    (sp-item 2202)
-    (sp-item 2203)
-    (sp-item 2204)
-    )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
+(defpartgroup group-ogreboss-boulder-grow
+  :id 468
+  :duration 150
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2201) (sp-item 2202) (sp-item 2203) (sp-item 2204))
   )
 
-(set!
-  (-> *part-id-table* 2203)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2203
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 8.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -441,37 +333,27 @@
     (sp-launcher-by-id spt-next-launcher 2205)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 12.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 12) (meters 4) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2205)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r -0.85333335)
+(defpart 2205
+  :init-specs
+  ((sp-flt spt-fade-r -0.85333335)
     (sp-flt spt-fade-g -0.42666668)
     (sp-flt spt-fade-b -0.42666668)
     (sp-flt spt-fade-a -0.85333335)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2204)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2204
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 2.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-    (sp-flt spt-scale-y (meters 16.0))
+    (sp-flt spt-scale-y (meters 16))
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 96.0)
     (sp-flt spt-b 64.0)
@@ -482,20 +364,15 @@
     (sp-flt spt-fade-a -1.6)
     (sp-int spt-timer 30)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2201)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2201
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters 2.0))
-    (sp-rnd-flt spt-scale-x (meters 28.0) (meters 4.0) 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-rnd-flt spt-scale-x (meters 28) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 64.0 1.0)
     (sp-rnd-flt spt-g 0.0 64.0 1.0)
@@ -504,20 +381,15 @@
     (sp-flt spt-fade-a -2.3272727)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2202)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2202
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters 2.0))
-    (sp-rnd-flt spt-scale-x (meters 16.0) (meters 4.0) 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-rnd-flt spt-scale-x (meters 16) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 196.0 64.0 1.0)
@@ -527,37 +399,23 @@
     (sp-flt spt-fade-a -2.3272727)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 469)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-ogreboss-missile"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1933)
-    (sp-item 1934)
-    )
-   :bounds (new 'static 'sphere :w 12288.0)
-   )
+(defpartgroup group-ogreboss-missile
+  :id 469
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 1933) (sp-item 1934))
   )
 
-(set!
-  (-> *part-id-table* 1934)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1934
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 4.8) (meters 0.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -576,22 +434,17 @@
     (sp-flt spt-accel-y -0.027306668)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1933)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1933
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 0.9) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 0.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -606,22 +459,17 @@
     (sp-flt spt-accel-y -0.027306668)
     (sp-int spt-timer 180)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 470)
-  (new 'static 'sparticle-launch-group
-   :length 8
-   :duration #x96
-   :linger-duration #x258
-   :flags (sp-group-flag use-local-clock)
-   :name "group-ogreboss-pre-missile"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 8
-    (sp-item 2079 :period 600 :length 5)
+(defpartgroup group-ogreboss-pre-missile
+  :id 470
+  :duration 150
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 2079 :period 600 :length 5)
     (sp-item 2206 :period 600 :length 40)
     (sp-item 2206 :period 600 :length 40)
     (sp-item 2206 :period 600 :length 30)
@@ -630,18 +478,13 @@
     (sp-item 2082 :period 600 :length 10)
     (sp-item 2082 :period 600 :length 5)
     )
-   :bounds (new 'static 'sphere :w 12288.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2206)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2206
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 8.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 64.0 1.0)
@@ -661,44 +504,31 @@
     (sp-launcher-by-id spt-next-launcher 2083)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 8) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 471)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #x12c
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-ogreboss-missile-impact"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2079 :period 600 :length 5)
+(defpartgroup group-ogreboss-missile-impact
+  :id 471
+  :duration 300
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 2079 :period 600 :length 5)
     (sp-item 2080 :period 600 :length 40)
     (sp-item 2148 :period 600 :length 20)
     (sp-item 2082 :period 600 :length 20)
     )
-   :bounds (new 'static 'sphere :w 65536.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 472)
-  (new 'static 'sparticle-launch-group
-   :length 15
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-ogre-lava-lava-20x20"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 15
-    (sp-item 2030 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-    (sp-item 2031 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 2032 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 2028)
+(defpartgroup group-ogre-lava-lava-20x20
+  :id 472
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 2030 :fade-after (meters 40) :falloff-to (meters 40))
+    (sp-item 2031 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2032 :fade-after (meters 80) :falloff-to (meters 80) :binding 2028)
     (sp-item 2028 :flags (start-dead))
     (sp-item 2028 :flags (start-dead))
     (sp-item 2028 :flags (start-dead))
@@ -707,26 +537,21 @@
     (sp-item 2028 :flags (start-dead))
     (sp-item 2028 :flags (start-dead))
     (sp-item 2028 :flags (start-dead))
-    (sp-item 2033 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 137 :length 5 :binding 2029)
-    (sp-item 2033 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 234 :length 5 :binding 2029)
-    (sp-item 2033 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 92 :length 5 :binding 2029)
+    (sp-item 2033 :fade-after (meters 40) :falloff-to (meters 40) :period 137 :length 5 :binding 2029)
+    (sp-item 2033 :fade-after (meters 60) :falloff-to (meters 60) :period 234 :length 5 :binding 2029)
+    (sp-item 2033 :fade-after (meters 80) :falloff-to (meters 80) :period 92 :length 5 :binding 2029)
     (sp-item 2029 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 57344.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2031)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2031
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.05)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -743,21 +568,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 2034)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2033)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2033
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.5)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -769,21 +589,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2032)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 2032
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.02 0.02 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -797,20 +612,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2030)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
+(defpart 2030
+  :init-specs
+  ((sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -824,68 +634,36 @@
     (sp-int spt-next-time 75)
     (sp-launcher-by-id spt-next-launcher 2035)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2035)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b 16.384)
-    (sp-end)
-    )
-   )
+(defpart 2035
+  :init-specs
+  ((sp-flt spt-fade-b 16.384))
   )
 
-(set!
-  (-> *part-id-table* 2034)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 75)
-    (sp-launcher-by-id spt-next-launcher 2036)
-    (sp-end)
-    )
-   )
+(defpart 2034
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 75) (sp-launcher-by-id spt-next-launcher 2036))
   )
 
-(set!
-  (-> *part-id-table* 2036)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r -0.85333335)
+(defpart 2036
+  :init-specs
+  ((sp-flt spt-fade-r -0.85333335)
     (sp-flt spt-fade-g -0.42666668)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2037)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2037)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-a -0.10666667)
-    (sp-end)
-    )
-   )
+(defpart 2037
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-a -0.10666667))
   )
 
-(set!
-  (-> *part-id-table* 2028)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2028
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.7)
     (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -898,17 +676,12 @@
     (sp-int-plain-rnd spt-timer 30 179 1)
     (sp-cpuinfo-flags bit0 bit3)
     (sp-flt spt-rotate-y (degrees 45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2029)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2029
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 1.0 6.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -923,9 +696,7 @@
     (sp-cpuinfo-flags bit0 bit3)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
 (deftype ogre-part (part-spawner)
diff --git a/goal_src/levels/racer_common/racer-part.gc b/goal_src/levels/racer_common/racer-part.gc
index de91ba0d46..137b1b34a4 100644
--- a/goal_src/levels/racer_common/racer-part.gc
+++ b/goal_src/levels/racer_common/racer-part.gc
@@ -7,153 +7,103 @@
 
 ;; DECOMP BEGINS
 
-(defun
-  part-hud-racer-speed-func
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
+(defun part-hud-racer-speed-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
   (let* ((f0-0 (-> *target* control unknown-float01))
          (f0-1 (cond
-                ((>= 122880.0 f0-0)
-                 (lerp-scale 42780.445 27488.71 f0-0 0.0 122880.0)
+                 ((>= 122880.0 f0-0)
+                  (lerp-scale 42780.445 27488.71 f0-0 0.0 122880.0)
+                  )
+                 ((>= 131072.0 f0-0)
+                  (lerp-scale 27488.71 14927.645 f0-0 122880.0 131072.0)
+                  )
+                 ((>= 139264.0 f0-0)
+                  (lerp-scale 14927.645 7281.778 f0-0 131072.0 139264.0)
+                  )
+                 ((>= 147456.0 f0-0)
+                  (lerp-scale 7281.778 -546.13336 f0-0 139264.0 147456.0)
+                  )
+                 ((>= 155648.0 f0-0)
+                  (lerp-scale -546.13336 -6371.5557 f0-0 147456.0 155648.0)
+                  )
+                 ((>= 163840.0 f0-0)
+                  (lerp-scale -6371.5557 -10922.667 f0-0 155648.0 163840.0)
+                  )
+                 (else
+                   (lerp-scale -10922.667 -15473.777 f0-0 163840.0 172032.0)
+                   )
                  )
-                ((>= 131072.0 f0-0)
-                 (lerp-scale 27488.71 14927.645 f0-0 122880.0 131072.0)
-                 )
-                ((>= 139264.0 f0-0)
-                 (lerp-scale 14927.645 7281.778 f0-0 131072.0 139264.0)
-                 )
-                ((>= 147456.0 f0-0)
-                 (lerp-scale 7281.778 -546.13336 f0-0 139264.0 147456.0)
-                 )
-                ((>= 155648.0 f0-0)
-                 (lerp-scale -546.13336 -6371.5557 f0-0 147456.0 155648.0)
-                 )
-                ((>= 163840.0 f0-0)
-                 (lerp-scale -6371.5557 -10922.667 f0-0 155648.0 163840.0)
-                 )
-                (else
-                 (lerp-scale -10922.667 -15473.777 f0-0 163840.0 172032.0)
-                 )
-                )
-          )
+               )
          )
-   (cond
-    ((< (-> *hud-parts* bike-speed 0 offset) 10)
-     (cond
-      ((< f0-1 (-> arg2 vector 1 z))
-       (let
-        ((f0-4
-          (deg-seek
-           (-> arg2 vector 1 z)
-           f0-1
-           (* 131072.0 (-> *display* seconds-per-frame))
+    (cond
+      ((< (-> *hud-parts* bike-speed 0 offset) 10)
+       (cond
+         ((< f0-1 (-> arg2 vector 1 z))
+          (let ((f0-4 (deg-seek (-> arg2 vector 1 z) f0-1 (* 131072.0 (-> *display* seconds-per-frame)))))
+            (set! (-> arg2 vector 1 z) f0-4)
+            f0-4
+            )
+          )
+         (else
+           (let ((f0-7 (deg-seek (-> arg2 vector 1 z) f0-1 (* 32768.0 (-> *display* seconds-per-frame)))))
+             (set! (-> arg2 vector 1 z) f0-7)
+             f0-7
+             )
            )
-          )
          )
-        (set! (-> arg2 vector 1 z) f0-4)
-        f0-4
-        )
        )
       (else
-       (let
-        ((f0-7
-          (deg-seek
-           (-> arg2 vector 1 z)
-           f0-1
-           (* 32768.0 (-> *display* seconds-per-frame))
-           )
-          )
-         )
-        (set! (-> arg2 vector 1 z) f0-7)
-        f0-7
+        (set! (-> arg2 vector 1 z) f0-1)
+        f0-1
         )
-       )
       )
-     )
-    (else
-     (set! (-> arg2 vector 1 z) f0-1)
-     f0-1
-     )
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 108)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag screen-space)
-   :name "group-part-hud-racer-speed-dial"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 740 :flags (launch-asap))
-    )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
+(defpartgroup group-part-hud-racer-speed-dial
+  :id 108
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 740 :flags (launch-asap)))
   )
 
-(set!
-  (-> *part-group-id-table* 109)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag screen-space)
-   :name "group-part-hud-racer-speed"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 741 :flags (launch-asap))
-    )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
+(defpartgroup group-part-hud-racer-speed
+  :id 109
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 741 :flags (launch-asap)))
   )
 
-(set!
-  (-> *part-group-id-table* 110)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag screen-space)
-   :name "group-part-hud-racer-speed-front"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 1999 :flags (launch-asap))
-    )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
+(defpartgroup group-part-hud-racer-speed-front
+  :id 110
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 1999 :flags (launch-asap)))
   )
 
-(set!
-  (-> *part-id-table* 741)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x45f))
+(defpart 741
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x45f))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 3.0))
+    (sp-flt spt-scale-x (meters 3))
     (sp-int spt-rot-x 4)
-    (sp-flt spt-scale-y (meters 3.0))
+    (sp-flt spt-scale-y (meters 3))
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 128.0)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 740)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x45f))
+(defpart 740
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x45f))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-int spt-rot-x 4)
     (sp-flt spt-rot-z (degrees 235.0))
     (sp-flt spt-scale-y (meters 0.3))
@@ -164,17 +114,12 @@
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit9)
     (sp-func spt-func 'part-hud-racer-speed-func)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1999)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x45f))
+(defpart 1999
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x45f))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.8))
     (sp-int spt-rot-x 4)
@@ -185,201 +130,148 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(defun
-  part-hud-racer-heat-func
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
+(defun part-hud-racer-heat-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
   (let ((f0-1 (/ (-> *target* racer heat) (-> *RACER-bank* heat-max))))
-   (set! (-> arg2 vector 1 z) (* 182.04445 (+ -45.0 (* 215.0 f0-1))))
-   (cond
-    ((and (< 0.8 f0-1) (zero? (logand (-> *display* integral-frame-counter) 8)))
-     (set! (-> arg2 vector 2 x) 128.0)
-     (set! (-> arg2 vector 2 y) 0.0)
-     (let ((f0-4 0.0))
-      (set! (-> arg2 vector 2 z) f0-4)
-      f0-4
+    (set! (-> arg2 vector 1 z) (* 182.04445 (+ -45.0 (* 215.0 f0-1))))
+    (cond
+      ((and (< 0.8 f0-1) (zero? (logand (-> *display* integral-frame-counter) 8)))
+       (set! (-> arg2 vector 2 x) 128.0)
+       (set! (-> arg2 vector 2 y) 0.0)
+       (let ((f0-4 0.0))
+         (set! (-> arg2 vector 2 z) f0-4)
+         f0-4
+         )
+       )
+      (else
+        (set! (-> arg2 vector 2 x) 128.0)
+        (set! (-> arg2 vector 2 y) 128.0)
+        (let ((f0-7 128.0))
+          (set! (-> arg2 vector 2 z) f0-7)
+          f0-7
+          )
+        )
       )
-     )
-    (else
-     (set! (-> arg2 vector 2 x) 128.0)
-     (set! (-> arg2 vector 2 y) 128.0)
-     (let ((f0-7 128.0))
-      (set! (-> arg2 vector 2 z) f0-7)
-      f0-7
-      )
-     )
     )
-   )
   )
 
 (defun zoomer-heat-slice-color ((arg0 matrix) (arg1 float))
   (cond
-   ((< arg1 0.6)
-    (set! (-> arg0 vector 2 x) (* 213.33333 arg1))
-    (set! (-> arg0 vector 2 y) 128.0)
-    (let ((f0-4 0.0))
-     (set! (-> arg0 vector 2 z) f0-4)
-     f0-4
+    ((< arg1 0.6)
+     (set! (-> arg0 vector 2 x) (* 213.33333 arg1))
+     (set! (-> arg0 vector 2 y) 128.0)
+     (let ((f0-4 0.0))
+       (set! (-> arg0 vector 2 z) f0-4)
+       f0-4
+       )
      )
-    )
-   ((< arg1 0.8)
-    (set! (-> arg0 vector 2 x) 128.0)
-    (set! (-> arg0 vector 2 y) (- 128.0 (* 640.0 (+ -0.6 arg1))))
-    (let ((f0-9 0.0))
-     (set! (-> arg0 vector 2 z) f0-9)
-     f0-9
+    ((< arg1 0.8)
+     (set! (-> arg0 vector 2 x) 128.0)
+     (set! (-> arg0 vector 2 y) (- 128.0 (* 640.0 (+ -0.6 arg1))))
+     (let ((f0-9 0.0))
+       (set! (-> arg0 vector 2 z) f0-9)
+       f0-9
+       )
      )
-    )
-   ((zero? (logand (-> *display* integral-frame-counter) 8))
-    (set! (-> arg0 vector 2 x) 128.0)
-    (set! (-> arg0 vector 2 y) 0.0)
-    (let ((f0-12 0.0))
-     (set! (-> arg0 vector 2 z) f0-12)
-     f0-12
+    ((zero? (logand (-> *display* integral-frame-counter) 8))
+     (set! (-> arg0 vector 2 x) 128.0)
+     (set! (-> arg0 vector 2 y) 0.0)
+     (let ((f0-12 0.0))
+       (set! (-> arg0 vector 2 z) f0-12)
+       f0-12
+       )
      )
+    (else
+      (set! (-> arg0 vector 2 x) 128.0)
+      (set! (-> arg0 vector 2 y) 100.0)
+      (let ((f0-15 100.0))
+        (set! (-> arg0 vector 2 z) f0-15)
+        f0-15
+        )
+      )
     )
-   (else
-    (set! (-> arg0 vector 2 x) 128.0)
-    (set! (-> arg0 vector 2 y) 100.0)
-    (let ((f0-15 100.0))
-     (set! (-> arg0 vector 2 z) f0-15)
-     f0-15
-     )
-    )
-   )
   )
 
-(defun
-  part-hud-zoomer-heat-slice-01-func
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
+(defun part-hud-zoomer-heat-slice-01-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
   (let ((f0-1 (/ (-> *target* racer heat) (-> *RACER-bank* heat-max))))
-   (set! (-> arg2 vector 1 z) (* 182.04445 (+ -135.0 (* 215.0 f0-1))))
-   (zoomer-heat-slice-color arg2 f0-1)
-   )
+    (set! (-> arg2 vector 1 z) (* 182.04445 (+ -135.0 (* 215.0 f0-1))))
+    (zoomer-heat-slice-color arg2 f0-1)
+    )
   )
 
-(defun
-  part-hud-zoomer-heat-slice-02-func
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
+(defun part-hud-zoomer-heat-slice-02-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
   (let ((f0-1 (/ (-> *target* racer heat) (-> *RACER-bank* heat-max))))
-   (set! (-> arg2 vector 1 z) (* 182.04445 (+ -225.0 (* 215.0 f0-1))))
-   (if (< (-> arg2 vector 1 z) -24576.0)
-    (set! (-> arg2 vector 1 z) -24576.0)
+    (set! (-> arg2 vector 1 z) (* 182.04445 (+ -225.0 (* 215.0 f0-1))))
+    (if (< (-> arg2 vector 1 z) -24576.0)
+        (set! (-> arg2 vector 1 z) -24576.0)
+        )
+    (zoomer-heat-slice-color arg2 f0-1)
     )
-   (zoomer-heat-slice-color arg2 f0-1)
-   )
   )
 
-(defun
-  part-hud-zoomer-heat-slice-03-func
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
+(defun part-hud-zoomer-heat-slice-03-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
   (let ((f0-1 (/ (-> *target* racer heat) (-> *RACER-bank* heat-max))))
-   (set! (-> arg2 vector 1 z) (* 182.04445 (+ -315.0 (* 215.0 f0-1))))
-   (if (< (-> arg2 vector 1 z) -24576.0)
-    (set! (-> arg2 vector 1 z) -24576.0)
+    (set! (-> arg2 vector 1 z) (* 182.04445 (+ -315.0 (* 215.0 f0-1))))
+    (if (< (-> arg2 vector 1 z) -24576.0)
+        (set! (-> arg2 vector 1 z) -24576.0)
+        )
+    (zoomer-heat-slice-color arg2 f0-1)
     )
-   (zoomer-heat-slice-color arg2 f0-1)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 111)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag screen-space)
-   :name "group-part-hud-racer-heat-backing"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 737 :flags (launch-asap))
-    )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
+(defpartgroup group-part-hud-racer-heat-backing
+  :id 111
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 737 :flags (launch-asap)))
   )
 
-(set!
-  (-> *part-group-id-table* 112)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag screen-space)
-   :name "group-part-hud-racer-heat-dial"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 738 :flags (launch-asap))
-    )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
+(defpartgroup group-part-hud-racer-heat-dial
+  :id 112
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 738 :flags (launch-asap)))
   )
 
-(set!
-  (-> *part-group-id-table* 113)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag screen-space)
-   :name "group-part-hud-racer-heat"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 739 :flags (launch-asap))
-    )
-   :bounds (new 'static 'sphere :w 8192.0)
-   )
+(defpartgroup group-part-hud-racer-heat
+  :id 113
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 739 :flags (launch-asap)))
   )
 
-(set!
-  (-> *part-group-id-table* 114)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags
-   (sp-group-flag use-local-clock screen-space)
-   :name "group-part-hud-racer-heat-slice"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 2010 :flags (launch-asap))
-    (sp-item 2011 :flags (launch-asap))
-    (sp-item 2012 :flags (launch-asap))
-    )
-   :bounds (new 'static 'sphere :w 409600.0)
-   )
+(defpartgroup group-part-hud-racer-heat-slice
+  :id 114
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 2010 :flags (launch-asap)) (sp-item 2011 :flags (launch-asap)) (sp-item 2012 :flags (launch-asap)))
   )
 
-(set!
-  (-> *part-id-table* 739)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x45f))
+(defpart 739
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x45f))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 3.0))
+    (sp-flt spt-scale-x (meters 3))
     (sp-int spt-rot-x 4)
-    (sp-flt spt-scale-y (meters 3.0))
+    (sp-flt spt-scale-y (meters 3))
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 128.0)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 737)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x45f))
+(defpart 737
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x45f))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 3.5))
     (sp-int spt-rot-x 4)
@@ -390,17 +282,12 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 738)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :page #x45f))
+(defpart 738
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x45f))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.9))
     (sp-int spt-rot-x 4)
@@ -412,19 +299,14 @@
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit9)
     (sp-func spt-func 'part-hud-racer-heat-func)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2010)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+(defpart 2010
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 2.0))
+    (sp-flt spt-scale-x (meters 2))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
@@ -433,19 +315,14 @@
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit9)
     (sp-func spt-func 'part-hud-zoomer-heat-slice-01-func)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2011)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+(defpart 2011
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 2.0))
+    (sp-flt spt-scale-x (meters 2))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
@@ -454,19 +331,14 @@
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit9)
     (sp-func spt-func 'part-hud-zoomer-heat-slice-02-func)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2012)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+(defpart 2012
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 2.0))
+    (sp-flt spt-scale-x (meters 2))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
@@ -475,9 +347,7 @@
     (sp-int spt-timer -1)
     (sp-cpuinfo-flags bit2 bit9)
     (sp-func spt-func 'part-hud-zoomer-heat-slice-03-func)
-    (sp-end)
     )
-   )
   )
 
 (deftype hud-bike-heat (hud)
@@ -491,82 +361,70 @@
 
 (defmethod TODO-RENAME-19 hud-bike-heat ((obj hud-bike-heat))
   (if *target*
-   (TODO-RENAME-16 obj (the int (-> *target* racer heat)) 0)
-   )
+      (TODO-RENAME-16 obj (the int (-> *target* racer heat)) 0)
+      )
   0
   (none)
   )
 
 (defmethod init-particles! hud-bike-heat ((obj hud-bike-heat) (arg0 int))
   (with-pp
-   (push-setting! *setting-control* pp 'common-page 'set 0.0 2)
-   (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
-    (let ((s5-0 (-> obj nb-of-particles)))
-     (set! (-> obj particles s5-0) (new 'static 'hud-particle))
-     (set!
-      (-> obj particles s5-0 part)
-      (create-launch-control (-> *part-group-id-table* 111) obj)
+    (push-setting! *setting-control* pp 'common-page 'set 0.0 2)
+    (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
+      (let ((s5-0 (-> obj nb-of-particles)))
+        (set! (-> obj particles s5-0) (new 'static 'hud-particle))
+        (set! (-> obj particles s5-0 part) (create-launch-control (-> *part-group-id-table* 111) obj))
+        (set! (-> obj particles s5-0 init-pos x) 13.0)
+        (set! (-> obj particles s5-0 init-pos y) 370.0)
+        (set! (-> obj particles s5-0 init-pos z) 10.0)
+        (set! (-> obj particles s5-0 part matrix) -1)
+        )
+      (+! (-> obj nb-of-particles) 1)
       )
-     (set! (-> obj particles s5-0 init-pos x) 13.0)
-     (set! (-> obj particles s5-0 init-pos y) 370.0)
-     (set! (-> obj particles s5-0 init-pos z) 10.0)
-     (set! (-> obj particles s5-0 part matrix) -1)
-     )
-    (+! (-> obj nb-of-particles) 1)
-    )
-   (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
-    (let ((s5-1 (-> obj nb-of-particles)))
-     (set! (-> obj particles s5-1) (new 'static 'hud-particle))
-     (set!
-      (-> obj particles s5-1 part)
-      (create-launch-control (-> *part-group-id-table* 112) obj)
+    (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
+      (let ((s5-1 (-> obj nb-of-particles)))
+        (set! (-> obj particles s5-1) (new 'static 'hud-particle))
+        (set! (-> obj particles s5-1 part) (create-launch-control (-> *part-group-id-table* 112) obj))
+        (set! (-> obj particles s5-1 init-pos x) 70.0)
+        (set! (-> obj particles s5-1 init-pos y) 370.0)
+        (set! (-> obj particles s5-1 init-pos z) 6.0)
+        (set! (-> obj particles s5-1 part matrix) -1)
+        )
+      (+! (-> obj nb-of-particles) 1)
       )
-     (set! (-> obj particles s5-1 init-pos x) 70.0)
-     (set! (-> obj particles s5-1 init-pos y) 370.0)
-     (set! (-> obj particles s5-1 init-pos z) 6.0)
-     (set! (-> obj particles s5-1 part matrix) -1)
-     )
-    (+! (-> obj nb-of-particles) 1)
-    )
-   (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
-    (let ((s5-2 (-> obj nb-of-particles)))
-     (set! (-> obj particles s5-2) (new 'static 'hud-particle))
-     (set!
-      (-> obj particles s5-2 part)
-      (create-launch-control (-> *part-group-id-table* 113) obj)
+    (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
+      (let ((s5-2 (-> obj nb-of-particles)))
+        (set! (-> obj particles s5-2) (new 'static 'hud-particle))
+        (set! (-> obj particles s5-2 part) (create-launch-control (-> *part-group-id-table* 113) obj))
+        (set! (-> obj particles s5-2 init-pos x) 20.0)
+        (set! (-> obj particles s5-2 init-pos y) 370.0)
+        (set! (-> obj particles s5-2 init-pos z) 1.0)
+        (set! (-> obj particles s5-2 part matrix) -1)
+        )
+      (+! (-> obj nb-of-particles) 1)
       )
-     (set! (-> obj particles s5-2 init-pos x) 20.0)
-     (set! (-> obj particles s5-2 init-pos y) 370.0)
-     (set! (-> obj particles s5-2 init-pos z) 1.0)
-     (set! (-> obj particles s5-2 part matrix) -1)
-     )
-    (+! (-> obj nb-of-particles) 1)
-    )
-   (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
-    (let ((s5-3 (-> obj nb-of-particles)))
-     (set! (-> obj particles s5-3) (new 'static 'hud-particle))
-     (set!
-      (-> obj particles s5-3 part)
-      (create-launch-control (-> *part-group-id-table* 114) obj)
+    (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
+      (let ((s5-3 (-> obj nb-of-particles)))
+        (set! (-> obj particles s5-3) (new 'static 'hud-particle))
+        (set! (-> obj particles s5-3 part) (create-launch-control (-> *part-group-id-table* 114) obj))
+        (set! (-> obj particles s5-3 init-pos x) 70.0)
+        (set! (-> obj particles s5-3 init-pos y) 370.0)
+        (set! (-> obj particles s5-3 init-pos z) 7.0)
+        (set! (-> obj particles s5-3 part matrix) -1)
+        )
+      (+! (-> obj nb-of-particles) 1)
       )
-     (set! (-> obj particles s5-3 init-pos x) 70.0)
-     (set! (-> obj particles s5-3 init-pos y) 370.0)
-     (set! (-> obj particles s5-3 init-pos z) 7.0)
-     (set! (-> obj particles s5-3 part matrix) -1)
-     )
-    (+! (-> obj nb-of-particles) 1)
+    (dotimes (s5-4 (-> obj nb-of-particles))
+      (if (= (-> obj particles s5-4 part matrix) -1)
+          (set! (-> obj particles s5-4 part matrix) (sprite-allocate-user-hvdf))
+          )
+      )
+    (set! (-> obj x-sgn) -1)
+    (set! (-> obj y-sgn) 1)
+    (set! (-> obj force-on-screen) #t)
+    0
+    (none)
     )
-   (dotimes (s5-4 (-> obj nb-of-particles))
-    (if (= (-> obj particles s5-4 part matrix) -1)
-     (set! (-> obj particles s5-4 part matrix) (sprite-allocate-user-hvdf))
-     )
-    )
-   (set! (-> obj x-sgn) -1)
-   (set! (-> obj y-sgn) 1)
-   (set! (-> obj force-on-screen) #t)
-   0
-   (none)
-   )
   )
 
 (deftype hud-bike-speed (hud)
@@ -580,118 +438,94 @@
 
 (defmethod TODO-RENAME-19 hud-bike-speed ((obj hud-bike-speed))
   (if *target*
-   (TODO-RENAME-16 obj (the int (-> *target* control unknown-float01)) 0)
-   )
+      (TODO-RENAME-16 obj (the int (-> *target* control unknown-float01)) 0)
+      )
   0
   (none)
   )
 
 (defmethod init-particles! hud-bike-speed ((obj hud-bike-speed) (arg0 int))
   (with-pp
-   (push-setting! *setting-control* pp 'common-page 'set 0.0 2)
-   (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
-    (let ((s5-0 (-> obj nb-of-particles)))
-     (set! (-> obj particles s5-0) (new 'static 'hud-particle))
-     (set!
-      (-> obj particles s5-0 part)
-      (create-launch-control (-> *part-group-id-table* 108) obj)
+    (push-setting! *setting-control* pp 'common-page 'set 0.0 2)
+    (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
+      (let ((s5-0 (-> obj nb-of-particles)))
+        (set! (-> obj particles s5-0) (new 'static 'hud-particle))
+        (set! (-> obj particles s5-0 part) (create-launch-control (-> *part-group-id-table* 108) obj))
+        (set! (-> obj particles s5-0 init-pos x) 433.0)
+        (set! (-> obj particles s5-0 init-pos y) 370.0)
+        (set! (-> obj particles s5-0 init-pos z) 3.0)
+        (set! (-> obj particles s5-0 part matrix) -1)
+        )
+      (+! (-> obj nb-of-particles) 1)
       )
-     (set! (-> obj particles s5-0 init-pos x) 433.0)
-     (set! (-> obj particles s5-0 init-pos y) 370.0)
-     (set! (-> obj particles s5-0 init-pos z) 3.0)
-     (set! (-> obj particles s5-0 part matrix) -1)
-     )
-    (+! (-> obj nb-of-particles) 1)
-    )
-   (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
-    (let ((s5-1 (-> obj nb-of-particles)))
-     (set! (-> obj particles s5-1) (new 'static 'hud-particle))
-     (set!
-      (-> obj particles s5-1 part)
-      (create-launch-control (-> *part-group-id-table* 109) obj)
+    (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
+      (let ((s5-1 (-> obj nb-of-particles)))
+        (set! (-> obj particles s5-1) (new 'static 'hud-particle))
+        (set! (-> obj particles s5-1 part) (create-launch-control (-> *part-group-id-table* 109) obj))
+        (set! (-> obj particles s5-1 init-pos x) 378.0)
+        (set! (-> obj particles s5-1 init-pos y) 370.0)
+        (set! (-> obj particles s5-1 init-pos z) 5.0)
+        (set! (-> obj particles s5-1 part matrix) -1)
+        )
+      (+! (-> obj nb-of-particles) 1)
       )
-     (set! (-> obj particles s5-1 init-pos x) 378.0)
-     (set! (-> obj particles s5-1 init-pos y) 370.0)
-     (set! (-> obj particles s5-1 init-pos z) 5.0)
-     (set! (-> obj particles s5-1 part matrix) -1)
-     )
-    (+! (-> obj nb-of-particles) 1)
-    )
-   (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
-    (let ((s5-2 (-> obj nb-of-particles)))
-     (set! (-> obj particles s5-2) (new 'static 'hud-particle))
-     (set!
-      (-> obj particles s5-2 part)
-      (create-launch-control (-> *part-group-id-table* 110) obj)
+    (when (< (-> obj nb-of-particles) (-> obj max-nb-of-particles))
+      (let ((s5-2 (-> obj nb-of-particles)))
+        (set! (-> obj particles s5-2) (new 'static 'hud-particle))
+        (set! (-> obj particles s5-2 part) (create-launch-control (-> *part-group-id-table* 110) obj))
+        (set! (-> obj particles s5-2 init-pos x) 415.0)
+        (set! (-> obj particles s5-2 init-pos y) 370.0)
+        (set! (-> obj particles s5-2 init-pos z) 1.0)
+        (set! (-> obj particles s5-2 part matrix) -1)
+        )
+      (+! (-> obj nb-of-particles) 1)
       )
-     (set! (-> obj particles s5-2 init-pos x) 415.0)
-     (set! (-> obj particles s5-2 init-pos y) 370.0)
-     (set! (-> obj particles s5-2 init-pos z) 1.0)
-     (set! (-> obj particles s5-2 part matrix) -1)
-     )
-    (+! (-> obj nb-of-particles) 1)
+    (dotimes (s5-3 (-> obj nb-of-particles))
+      (if (= (-> obj particles s5-3 part matrix) -1)
+          (set! (-> obj particles s5-3 part matrix) (sprite-allocate-user-hvdf))
+          )
+      )
+    (set! (-> obj x-sgn) 1)
+    (set! (-> obj y-sgn) 1)
+    (set! (-> obj force-on-screen) #t)
+    0
+    (none)
     )
-   (dotimes (s5-3 (-> obj nb-of-particles))
-    (if (= (-> obj particles s5-3 part matrix) -1)
-     (set! (-> obj particles s5-3 part matrix) (sprite-allocate-user-hvdf))
-     )
-    )
-   (set! (-> obj x-sgn) 1)
-   (set! (-> obj y-sgn) 1)
-   (set! (-> obj force-on-screen) #t)
-   0
-   (none)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 115)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-racer-trans-pad"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 742 :fade-after (meters 160.0))
-    (sp-item 743 :fade-after (meters 160.0))
-    (sp-item 744 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (is-3d))
+(defpartgroup group-racer-trans-pad
+  :id 115
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 742 :fade-after (meters 160))
+    (sp-item 743 :fade-after (meters 160))
+    (sp-item 744 :fade-after (meters 60) :falloff-to (meters 60) :flags (is-3d))
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 742)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 742
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-flt spt-y (meters 7.0))
-    (sp-rnd-flt spt-scale-x (meters 14.0) (meters 1.0) 1.0)
-    (sp-flt spt-scale-y (meters 14.0))
+    (sp-flt spt-y (meters 7))
+    (sp-rnd-flt spt-scale-x (meters 14) (meters 1) 1.0)
+    (sp-flt spt-scale-y (meters 14))
     (sp-flt spt-r 40.0)
     (sp-rnd-flt spt-g 60.0 60.0 1.0)
     (sp-flt spt-b 128.0)
     (sp-rnd-flt spt-a 32.0 32.0 1.0)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 743)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 743
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-flt spt-y (meters 4.0))
-    (sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
-    (sp-flt spt-scale-y (meters 14.0))
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
+    (sp-flt spt-scale-y (meters 14))
     (sp-flt spt-r 40.0)
     (sp-rnd-flt spt-g 60.0 60.0 1.0)
     (sp-flt spt-b 128.0)
@@ -699,20 +533,15 @@
     (sp-flt spt-fade-a -8.533334)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 744)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 744
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
-    (sp-flt spt-scale-x (meters 0.0))
+    (sp-flt spt-scale-x (meters 0))
     (sp-rnd-flt spt-rot-x 0.0 2730.6667 1.0)
     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -720,7 +549,7 @@
     (sp-rnd-flt spt-g 0.0 127.0 1.0)
     (sp-flt spt-b 127.0)
     (sp-flt spt-a 127.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-scalevel-x (meters 0.02))
     (sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
     (sp-copy-from-other spt-scalevel-y -4)
@@ -728,19 +557,14 @@
     (sp-flt spt-accel-y -0.6144)
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2211)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2211
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 8.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -756,19 +580,14 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2207)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2207
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 32.0 1.0)
@@ -786,17 +605,12 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2221)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+(defpart 2221
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
     (sp-rnd-flt spt-num 0.5 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -813,20 +627,15 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 40.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 1.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 1) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2208)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2208
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 16.0 16.0 1.0)
@@ -844,17 +653,12 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2218)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 2218
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -872,20 +676,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 1.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 1) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2215)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2215
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 64.0 1.0)
@@ -903,19 +702,14 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2216)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2216
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 96.0 32.0 1.0)
@@ -933,19 +727,14 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2831)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2831
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 96.0 32.0 1.0)
@@ -963,19 +752,14 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2214)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2214
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 32.0 1.0)
@@ -993,17 +777,12 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2220)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
+(defpart 2220
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.025) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -1021,20 +800,15 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 1.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 1) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2213)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2213
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 32.0 1.0)
@@ -1052,22 +826,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2275)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
+(defpart 2275
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-flt spt-x (meters 10.0))
-    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 3.0) 1.0)
+    (sp-flt spt-x (meters 10))
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 3) 1.0)
     (sp-flt spt-rot-y (degrees 0.0))
-    (sp-rnd-flt spt-scale-y (meters 1.5) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1.5) (meters 3) 1.0)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-b 128.0)
@@ -1082,21 +851,16 @@
     (sp-int spt-next-time 90)
     (sp-launcher-by-id spt-next-launcher 119)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2276)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 2276
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-rnd-flt spt-num 0.04 0.03 1.0)
     (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
-    (sp-rnd-flt spt-z -819.2 1638.4 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.2) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1110,20 +874,15 @@
     (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 116)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2212)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 2212
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-func spt-birth-func 'birth-func-vector-orient)
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 4.0) (meters -0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters -0.5) 1.0)
     (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
     (sp-flt spt-rot-y (degrees 0.0))
     (sp-flt spt-rot-z (degrees 90.0))
@@ -1135,21 +894,16 @@
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-userdata 0.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2225)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
+(defpart 2225
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
     (sp-rnd-flt spt-num 4.0 16.0 1.0)
     (sp-flt spt-x (meters 0.9))
     (sp-flt spt-y (meters 0.05))
-    (sp-flt spt-z -3686.4)
+    (sp-flt spt-z (meters -0.9))
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.05) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1169,22 +923,17 @@
     (sp-cpuinfo-flags bit0 bit2 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2226)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
+(defpart 2226
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
     (sp-rnd-flt spt-num 4.0 16.0 1.0)
     (sp-flt spt-x (meters 0.9))
     (sp-flt spt-y (meters 0.05))
-    (sp-flt spt-z -3686.4)
+    (sp-flt spt-z (meters -0.9))
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.05) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1204,18 +953,13 @@
     (sp-cpuinfo-flags bit0 bit2 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2227)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2227
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -1234,68 +978,44 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-int-plain-rnd spt-next-time 15 4 1)
     (sp-launcher-by-id spt-next-launcher 2277)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2277)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-fade-r -5.0)
+(defpart 2277
+  :init-specs
+  ((sp-flt spt-fade-r -5.0)
     (sp-flt spt-fade-g -1.6)
     (sp-flt spt-fade-b 1.6)
     (sp-flt spt-fade-a 0.0)
     (sp-int spt-next-time 20)
     (sp-launcher-by-id spt-next-launcher 2278)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2278)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r -0.2)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-flt spt-fade-a -0.21333334)
-    (sp-end)
-    )
-   )
+(defpart 2278
+  :init-specs
+  ((sp-flt spt-fade-r -0.2) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.21333334))
   )
 
-(set!
-  (-> *part-group-id-table* 116)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #x12c
-   :linger-duration #xbb8
-   :flags (sp-group-flag use-local-clock)
-   :name "group-racer-explode"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 2279 :period 600 :length 5)
+(defpartgroup group-racer-explode
+  :id 116
+  :duration 300
+  :linger-duration 3000
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2279 :period 600 :length 5)
     (sp-item 2280 :period 600 :length 40)
     (sp-item 2281 :period 600 :length 20)
     (sp-item 2282 :period 600 :length 20)
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2280)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2280
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 8.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 192.0 64.0 1.0)
@@ -1315,37 +1035,23 @@
     (sp-launcher-by-id spt-next-launcher 2283)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2283)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-flt spt-fade-a -1.0666667)
-    (sp-end)
-    )
-   )
+(defpart 2283
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
   )
 
-(set!
-  (-> *part-id-table* 2282)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2282
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-    (sp-flt spt-scale-y (meters 12.0))
+    (sp-flt spt-scale-y (meters 12))
     (sp-flt spt-r 255.0)
     (sp-flt spt-g 196.0)
     (sp-flt spt-b 64.0)
@@ -1356,20 +1062,15 @@
     (sp-flt spt-fade-a -1.6)
     (sp-int spt-timer 60)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2279)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2279
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters 2.0))
-    (sp-flt spt-scale-x (meters 24.0))
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 24))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
     (sp-rnd-flt spt-g 192.0 32.0 1.0)
@@ -1378,20 +1079,15 @@
     (sp-flt spt-fade-a -2.3272727)
     (sp-int spt-timer 54)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2281)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2281
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 16.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -1411,62 +1107,39 @@
     (sp-launcher-by-id spt-next-launcher 2284)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 3.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 3) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2284)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-fade-r -1.0666667)
+(defpart 2284
+  :init-specs
+  ((sp-flt spt-fade-r -1.0666667)
     (sp-flt spt-fade-g -1.0666667)
     (sp-flt spt-fade-b -2.1166666)
     (sp-int spt-next-time 60)
     (sp-launcher-by-id spt-next-launcher 2285)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2285)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-fade-r -0.5688889)
+(defpart 2285
+  :init-specs
+  ((sp-flt spt-fade-r -0.5688889)
     (sp-flt spt-fade-g -0.28444445)
     (sp-flt spt-fade-b 0.0)
     (sp-flt spt-fade-a -0.21333334)
     (sp-int spt-next-time 225)
     (sp-launcher-by-id spt-next-launcher 2286)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2286)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-end)
-    )
-   )
+(defpart 2286
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
   )
 
-(set!
-  (-> *part-id-table* 2229)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2229
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1480,9 +1153,7 @@
     (sp-flt spt-accel-y -0.06826667)
     (sp-int spt-timer 450)
     (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/racer_common/target-racer-h-FIC-LAV-MIS-OGR-ROL.gc b/goal_src/levels/racer_common/target-racer-h-FIC-LAV-MIS-OGR-ROL.gc
index 9f120c9909..0a97cb7e62 100644
--- a/goal_src/levels/racer_common/target-racer-h-FIC-LAV-MIS-OGR-ROL.gc
+++ b/goal_src/levels/racer_common/target-racer-h-FIC-LAV-MIS-OGR-ROL.gc
@@ -138,28 +138,26 @@
   )
 
 
-(define
-  *RACER-bank*
-  (new 'static 'racer-bank
-   :slide-hold-time (seconds 0.2)
-   :heat-max 100.0
-   :hotcoals-heat-inc 3.0
-   :lava-heat-inc 20.0
-   :lava-air-heat-inc 4.0
-   :surface-heat-inc 1.0
-   :jump-heat-inc 2.0
-   :lavatube-hotcoals-heat-inc 2.0
-   :lavatube-lava-heat-inc 4.5
-   :lavatube-lava-air-heat-inc 4.0
-   :lavatube-surface-heat-inc 1.0
-   :lavatube-jump-heat-inc 10.0
-   :boost-curve-max (meters 5.0)
-   :boost-level-max (meters 12.5)
-   :boost-level-inc (meters 2.0)
-   :boost-duration (seconds 2.5)
-   :yellow-projectile-speed (meters 80.0)
-   )
-  )
+(define *RACER-bank* (new 'static 'racer-bank
+                       :slide-hold-time (seconds 0.2)
+                       :heat-max 100.0
+                       :hotcoals-heat-inc 3.0
+                       :lava-heat-inc 20.0
+                       :lava-air-heat-inc 4.0
+                       :surface-heat-inc 1.0
+                       :jump-heat-inc 2.0
+                       :lavatube-hotcoals-heat-inc 2.0
+                       :lavatube-lava-heat-inc 4.5
+                       :lavatube-lava-air-heat-inc 4.0
+                       :lavatube-surface-heat-inc 1.0
+                       :lavatube-jump-heat-inc 10.0
+                       :boost-curve-max (meters 5.0)
+                       :boost-level-max (meters 12.5)
+                       :boost-level-inc (meters 2.0)
+                       :boost-duration (seconds 2.5)
+                       :yellow-projectile-speed (meters 80.0)
+                       )
+        )
 
 (defskelgroup *balloon-sg* balloon
   0
diff --git a/goal_src/levels/robocave/robocave-part.gc b/goal_src/levels/robocave/robocave-part.gc
index 19c838a244..6f13d26afa 100644
--- a/goal_src/levels/robocave/robocave-part.gc
+++ b/goal_src/levels/robocave/robocave-part.gc
@@ -16,71 +16,49 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 506)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-robocave-torch"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 729 :fade-after (meters 150.0) :falloff-to (meters 180.0))
-    (sp-item 730 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 731 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 600 :length 90)
-    (sp-item 732 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 369 :length 69)
-    (sp-item 733 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 710 :length 51)
-    (sp-item 734 :fade-after (meters 30.0) :falloff-to (meters 30.0))
+(defpartgroup group-part-robocave-torch
+  :id 506
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 729 :fade-after (meters 150) :falloff-to (meters 180))
+    (sp-item 730 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 731 :fade-after (meters 40) :falloff-to (meters 40) :period 600 :length 90)
+    (sp-item 732 :fade-after (meters 40) :falloff-to (meters 40) :period 369 :length 69)
+    (sp-item 733 :fade-after (meters 40) :falloff-to (meters 40) :period 710 :length 51)
+    (sp-item 734 :fade-after (meters 30) :falloff-to (meters 30))
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 734)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.3)
+(defpart 734
+  :init-specs
+  ((sp-flt spt-num 0.3)
     (sp-flt spt-x (meters 0.2))
-    (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 2867.2)
     (sp-flt spt-b 3276.8)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-flt spt-vel-y (meters 0.026666667))
     (sp-int spt-timer 180)
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 735)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 735)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -6.826667)
-    (sp-end)
-    )
-   )
+(defpart 735
+  :init-specs
+  ((sp-flt spt-fade-b -6.826667))
   )
 
-(set!
-  (-> *part-id-table* 729)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 729
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1068708659 1 0.5)
     (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-    (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
+    (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -95,32 +73,21 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 736)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 736)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -1.3333334)
-    (sp-end)
-    )
-   )
+(defpart 736
+  :init-specs
+  ((sp-flt spt-fade-a -1.3333334))
   )
 
-(set!
-  (-> *part-id-table* 731)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 731
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -135,21 +102,16 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 736)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 732)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 732
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z 0.0 1638.4 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -164,21 +126,16 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 736)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 733)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 733
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
     (sp-flt spt-y (meters 0.6))
-    (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
+    (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -193,22 +150,17 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 736)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 730)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 730
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.3))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -230,9 +182,7 @@
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/rolling/rolling-obs.gc b/goal_src/levels/rolling/rolling-obs.gc
index 99b8efe0bd..21973a6aed 100644
--- a/goal_src/levels/rolling/rolling-obs.gc
+++ b/goal_src/levels/rolling/rolling-obs.gc
@@ -508,68 +508,58 @@
   (the-as (function none :behavior dark-plant) ja-post)
   )
 
-(set! (-> *part-group-id-table* 455)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x2a
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-plant"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1764) (sp-item 2356))
-        :bounds (new 'static 'sphere :w 61440.0)
-        )
-      )
+(defpartgroup group-dark-plant
+  :id 455
+  :duration 42
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 1764) (sp-item 2356))
+  )
 
-(set! (-> *part-id-table* 2356) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-g -3.0)
-                                    (sp-flt spt-fade-a -2.4)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2356
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 12))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-rnd-flt spt-b 0.0 32.0 1.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-fade-g -3.0)
+    (sp-flt spt-fade-a -2.4)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 1764) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 128.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00066666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y 0.0 5.4613333 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 45.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.5) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees -15.0) (degrees 30.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1764
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 128.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 128.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00066666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y 0.0 5.4613333 1.0)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-conerot-x (degrees 45.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.5) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees -15.0) (degrees 30.0) 1.0)
+    )
+  )
 
 (defmethod init-from-entity! dark-plant ((obj dark-plant) (arg0 entity-actor))
   (set! (-> obj root) (new 'process 'trsqv))
diff --git a/goal_src/levels/rolling/rolling-race-ring.gc b/goal_src/levels/rolling/rolling-race-ring.gc
index ce5d710fe6..e1dc7ee28c 100644
--- a/goal_src/levels/rolling/rolling-race-ring.gc
+++ b/goal_src/levels/rolling/rolling-race-ring.gc
@@ -30,305 +30,261 @@
   )
 
 
-(set! (-> *part-group-id-table* 457) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :name "group-rolling-ring"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1773 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1774 :fade-after (meters 80.0))
-                                         (sp-item 1775 :flags (is-3d))
-                                         (sp-item 1776 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-ring
+  :id 457
+  :linger-duration 0
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1773 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1774 :fade-after (meters 80))
+    (sp-item 1775 :flags (is-3d))
+    (sp-item 1776 :flags (is-3d))
+    )
+  )
 
-(set! (-> *part-id-table* 1773) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 2.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1115684864 1 64.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -1.4222221)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1773
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 2.0 2.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1115684864 1 64.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1115684864 1 64.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a -1.4222221)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 4.5))
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1774) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1115684864 1 64.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -1.4222221)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1774
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1115684864 1 64.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1115684864 1 64.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a -1.4222221)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 4.5))
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1775) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 10.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1775
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 10))
+    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 1 127.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 96.0 32.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1776) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1776
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 12))
+    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+    (sp-flt spt-rot-y (degrees 0.0))
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 1 127.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 458) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x5
-                                       :linger-duration #x8d
-                                       :name "group-rolling-spawn-ring"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1777 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1778 :flags (is-3d))
-                                         (sp-item 1779 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-spawn-ring
+  :id 458
+  :duration 5
+  :linger-duration 141
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1777 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1778 :flags (is-3d))
+    (sp-item 1779 :flags (is-3d))
+    )
+  )
 
-(set! (-> *part-id-table* 1777) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1115684864 1 64.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-rnd-int spt-a 0 63 1.0)
-                                    (sp-flt spt-vel-y (meters 0.03))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int-plain-rnd spt-next-time 20 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 1780)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1777
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1115684864 1 64.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1115684864 1 64.0)
+    (sp-rnd-int spt-a 0 63 1.0)
+    (sp-flt spt-vel-y (meters 0.03))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit3)
+    (sp-int-plain-rnd spt-next-time 20 19 1)
+    (sp-launcher-by-id spt-next-launcher 1780)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0))
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1780)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-rnd-int spt-r 1115684864 1 64.0)
-                                                     (sp-flt spt-g 0.0)
-                                                     (sp-rnd-int spt-b 1115684864 1 64.0)
-                                                     (sp-rnd-int spt-a 0 63 1.0)
-                                                     (sp-int-plain-rnd spt-next-time 20 19 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1780)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1780
+  :init-specs
+  ((sp-rnd-int spt-r 1115684864 1 64.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1115684864 1 64.0)
+    (sp-rnd-int spt-a 0 63 1.0)
+    (sp-int-plain-rnd spt-next-time 20 19 1)
+    (sp-launcher-by-id spt-next-launcher 1780)
+    )
+  )
 
-(set! (-> *part-id-table* 1778) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.06666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1781)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1778
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0))
+    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 1 127.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 96.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.06666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 1781)
+    )
+  )
 
-(set! (-> *part-id-table* 1781)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-rnd-int spt-r 1124073472 1 127.0)
-                                                     (sp-flt spt-g 0.0)
-                                                     (sp-rnd-int spt-b 1124073472 1 127.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 1781)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1781
+  :init-specs
+  ((sp-rnd-int spt-r 1124073472 1 127.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 1781)
+    )
+  )
 
-(set! (-> *part-id-table* 1779) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.08))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1782)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1779
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0))
+    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+    (sp-flt spt-rot-y (degrees 0.0))
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 1 127.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.08))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 1782)
+    )
+  )
 
-(set! (-> *part-id-table* 1782)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-rnd-int spt-r 1124073472 1 127.0)
-                                                     (sp-flt spt-g 0.0)
-                                                     (sp-rnd-int spt-b 1124073472 1 127.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 1782)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1782
+  :init-specs
+  ((sp-rnd-int spt-r 1124073472 1 127.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 1782)
+    )
+  )
 
-(set! (-> *part-group-id-table* 459) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #x5
-                                       :linger-duration #x96
-                                       :name "group-rolling-explode-ring"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1783 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1784 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-explode-ring
+  :id 459
+  :duration 5
+  :linger-duration 150
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1783 :fade-after (meters 100) :falloff-to (meters 100)) (sp-item 1784 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 1783) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 64.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1115684864 1 64.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.033333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1783
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 64.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1115684864 1 64.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1115684864 1 64.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.033333335) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 4.5))
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1784) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-scale-x (meters 10.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters 0.06666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1784
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-flt spt-scale-x (meters 10))
+    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-int spt-r 1124073472 1 127.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-scalevel-x (meters 0.06666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
 (defun race-ring-set-particle-rotation-callback ((arg0 part-tracker))
   (let ((f0-0 (-> (the-as (pointer race-ring) (-> arg0 userdata)) 0 rot-y)))
@@ -346,305 +302,261 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 460) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :name "group-rolling-ring-blue"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1785 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1786 :fade-after (meters 80.0))
-                                         (sp-item 1787 :flags (is-3d))
-                                         (sp-item 1788 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-ring-blue
+  :id 460
+  :linger-duration 0
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1785 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1786 :fade-after (meters 80))
+    (sp-item 1787 :flags (is-3d))
+    (sp-item 1788 :flags (is-3d))
+    )
+  )
 
-(set! (-> *part-id-table* 1785) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 2.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -1.4222221)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1785
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 2.0 2.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1115684864 1 64.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a -1.4222221)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 4.5))
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1786) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -1.4222221)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1786
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1115684864 1 64.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a -1.4222221)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 4.5))
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1787) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 10.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1124073472 1 127.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1787
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 10))
+    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1124073472 1 127.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 96.0 32.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1788) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1124073472 1 127.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1788
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 12))
+    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+    (sp-flt spt-rot-y (degrees 0.0))
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1124073472 1 127.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 461) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x5
-                                       :linger-duration #x8d
-                                       :name "group-rolling-spawn-ring-blue"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1789 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1790 :flags (is-3d))
-                                         (sp-item 1791 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-spawn-ring-blue
+  :id 461
+  :duration 5
+  :linger-duration 141
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1789 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1790 :flags (is-3d))
+    (sp-item 1791 :flags (is-3d))
+    )
+  )
 
-(set! (-> *part-id-table* 1789) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-rnd-int spt-a 0 63 1.0)
-                                    (sp-flt spt-vel-y (meters 0.03))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int-plain-rnd spt-next-time 20 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 1792)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1789
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1115684864 1 64.0)
+    (sp-rnd-int spt-a 0 63 1.0)
+    (sp-flt spt-vel-y (meters 0.03))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit3)
+    (sp-int-plain-rnd spt-next-time 20 19 1)
+    (sp-launcher-by-id spt-next-launcher 1792)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0))
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1792)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-int spt-g 1115684864 1 64.0)
-                                                     (sp-rnd-int spt-b 1115684864 1 64.0)
-                                                     (sp-rnd-int spt-a 0 63 1.0)
-                                                     (sp-int-plain-rnd spt-next-time 20 19 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1792)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1792
+  :init-specs
+  ((sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1115684864 1 64.0)
+    (sp-rnd-int spt-a 0 63 1.0)
+    (sp-int-plain-rnd spt-next-time 20 19 1)
+    (sp-launcher-by-id spt-next-launcher 1792)
+    )
+  )
 
-(set! (-> *part-id-table* 1790) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1124073472 1 127.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.06666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1793)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1790
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0))
+    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1124073472 1 127.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 96.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.06666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 1793)
+    )
+  )
 
-(set! (-> *part-id-table* 1793)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-int spt-g 1124073472 1 127.0)
-                                                     (sp-rnd-int spt-b 1124073472 1 127.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 1793)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1793
+  :init-specs
+  ((sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1124073472 1 127.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 1793)
+    )
+  )
 
-(set! (-> *part-id-table* 1791) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1124073472 1 127.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.08))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1794)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1791
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0))
+    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+    (sp-flt spt-rot-y (degrees 0.0))
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1124073472 1 127.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.08))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 1794)
+    )
+  )
 
-(set! (-> *part-id-table* 1794)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-int spt-g 1124073472 1 127.0)
-                                                     (sp-rnd-int spt-b 1124073472 1 127.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 1794)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1794
+  :init-specs
+  ((sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1124073472 1 127.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 1794)
+    )
+  )
 
-(set! (-> *part-group-id-table* 462) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #x5
-                                       :linger-duration #x96
-                                       :name "group-rolling-explode-ring-blue"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1795 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1796 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-explode-ring-blue
+  :id 462
+  :duration 5
+  :linger-duration 150
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1795 :fade-after (meters 100) :falloff-to (meters 100)) (sp-item 1796 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 1795) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 64.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.033333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1795
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 64.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1115684864 1 64.0)
+    (sp-rnd-int spt-b 1115684864 1 64.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.033333335) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 4.5))
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1796) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-scale-x (meters 10.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1124073472 1 127.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters 0.06666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1796
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-flt spt-scale-x (meters 10))
+    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+    (sp-flt spt-rot-z (degrees 90.0))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-int spt-g 1124073472 1 127.0)
+    (sp-rnd-int spt-b 1124073472 1 127.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-scalevel-x (meters 0.06666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
 (defun race-ring-blue-set-particle-rotation-callback ((arg0 part-tracker))
   (let ((f0-0 (-> (the-as (pointer race-ring) (-> arg0 userdata)) 0 rot-y)))
@@ -1231,11 +1143,10 @@
   (set! (-> obj cyl radius) 24576.0)
   (set! (-> obj cyl length) 4096.0)
   (cond
-    ((and
-       (first-ring? obj)
-       (!= (get-task-status (-> obj entity extra perm task)) (task-status invalid))
-       (!= (get-task-status (-> obj entity extra perm task)) 7)
-       )
+    ((and (first-ring? obj)
+          (!= (get-task-status (-> obj entity extra perm task)) (task-status invalid))
+          (!= (get-task-status (-> obj entity extra perm task)) 7)
+          )
      (set! (-> obj alt-task) (res-lump-value (-> obj entity) 'alt-task uint))
      (if (or (= (-> obj alt-task) 0) (= (get-task-status (the-as game-task (-> obj alt-task))) (task-status invalid)))
          (go race-ring-active)
diff --git a/goal_src/levels/snow/snow-bumper.gc b/goal_src/levels/snow/snow-bumper.gc
index 2752af748b..f343293160 100644
--- a/goal_src/levels/snow/snow-bumper.gc
+++ b/goal_src/levels/snow/snow-bumper.gc
@@ -45,86 +45,69 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 519)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-snow-bumper-idle"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 1893 :fade-after (meters 90.0) :falloff-to (meters 90.0) :period 25 :length 10)
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-snow-bumper-idle
+  :id 519
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1893 :fade-after (meters 90) :falloff-to (meters 90) :period 25 :length 10))
+  )
 
-(set! (-> *part-id-table* 1893) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 15.0)
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-flt spt-z 0.0)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-flt spt-scale-y (meters 6.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.013333334))
-                                    (sp-flt spt-scalevel-x (meters 0.0038461538))
-                                    (sp-flt spt-scalevel-y (meters -0.03076923))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-int spt-timer 25)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 5.0))
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1893
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 15.0)
+    (sp-flt spt-y (meters 1.5))
+    (sp-flt spt-z (meters 0))
+    (sp-flt spt-scale-x (meters 1.5))
+    (sp-flt spt-scale-y (meters 6))
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 64.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-vel-y (meters 0.013333334))
+    (sp-flt spt-scalevel-x (meters 0.0038461538))
+    (sp-flt spt-scalevel-y (meters -0.03076923))
+    (sp-flt spt-fade-a 0.0)
+    (sp-int spt-timer 25)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 5))
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 520) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-snow-bumper-shove"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 1895))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-snow-bumper-shove
+  :id 520
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1895))
+  )
 
-(set! (-> *part-id-table* 1895) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-flt spt-x (meters 5.5))
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-flt spt-z 0.0)
-                                    (sp-flt spt-scale-x (meters 2.0))
-                                    (sp-flt spt-scale-y (meters 6.0))
-                                    (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-flt spt-vel-x (meters 0.033333335))
-                                    (sp-flt spt-scalevel-x (meters 0.008333334))
-                                    (sp-flt spt-scalevel-y (meters 0.2))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-int spt-timer 25)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 45.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1895
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-flt spt-x (meters 5.5))
+    (sp-flt spt-y (meters 1.5))
+    (sp-flt spt-z (meters 0))
+    (sp-flt spt-scale-x (meters 2))
+    (sp-flt spt-scale-y (meters 6))
+    (sp-rnd-flt spt-r 64.0 32.0 1.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-vel-x (meters 0.033333335))
+    (sp-flt spt-scalevel-x (meters 0.008333334))
+    (sp-flt spt-scalevel-y (meters 0.2))
+    (sp-flt spt-fade-a 0.0)
+    (sp-int spt-timer 25)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 45.0) 1.0)
+    )
+  )
 
 (defmethod shove-player snow-bumper ((obj snow-bumper) (arg0 process-drawable))
   (with-pp
diff --git a/goal_src/levels/snow/snow-flutflut-obs.gc b/goal_src/levels/snow/snow-flutflut-obs.gc
index 77186c84b9..f7214d2693 100644
--- a/goal_src/levels/snow/snow-flutflut-obs.gc
+++ b/goal_src/levels/snow/snow-flutflut-obs.gc
@@ -98,188 +98,158 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 516) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-flutflut-plat-small"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2087 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         (sp-item 2088 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-flutflut-plat-small
+  :id 516
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2087 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 2088 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
 
-(set! (-> *part-id-table* 2087)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-y (meters -1.0))
-                                                     (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 5324.8)
-                                                     (sp-flt spt-g 4096.0)
-                                                     (sp-flt spt-b 3686.4)
-                                                     (sp-flt spt-vel-y (meters -0.0033333334))
-                                                     (sp-flt spt-fade-b -16.383999)
-                                                     (sp-int spt-timer 25)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-flt spt-rotate-y (degrees 45.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2087
+  :init-specs
+  ((sp-flt spt-num 1.5)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-flt spt-y (meters -1))
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+    (sp-int spt-rot-x 5)
+    (sp-flt spt-r 5324.8)
+    (sp-flt spt-g 4096.0)
+    (sp-flt spt-b 3686.4)
+    (sp-flt spt-vel-y (meters -0.0033333334))
+    (sp-flt spt-fade-b -16.383999)
+    (sp-int spt-timer 25)
+    (sp-cpuinfo-flags aux-list)
+    (sp-flt spt-rotate-y (degrees 45.0))
+    )
+  )
 
-(set! (-> *part-id-table* 2088) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-rnd-flt spt-x (meters -3.0) (meters 6.0) 1.0)
-                                    (sp-flt spt-y (meters -1.25))
-                                    (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.01))
-                                    (sp-flt spt-fade-g -0.42666668)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.13653333)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2088
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-x (meters -3) (meters 6) 1.0)
+    (sp-flt spt-y (meters -1.25))
+    (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-flt spt-vel-y (meters -0.01))
+    (sp-flt spt-fade-g -0.42666668)
+    (sp-flt spt-fade-a -0.32)
+    (sp-flt spt-accel-y -0.13653333)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-rotate-y (degrees 45.0))
+    )
+  )
 
-(set! (-> *part-group-id-table* 517) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-flutflut-plat-med"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2089 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         (sp-item 2090 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-flutflut-plat-med
+  :id 517
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2089 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 2090 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
 
-(set! (-> *part-id-table* 2089)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 3.0)
-                                                     (sp-flt spt-y (meters -2.5))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 5324.8)
-                                                     (sp-flt spt-g 4096.0)
-                                                     (sp-flt spt-b 3686.4)
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-fade-b -16.383999)
-                                                     (sp-int spt-timer 25)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 1.0) (meters 3.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2089
+  :init-specs
+  ((sp-flt spt-num 3.0)
+    (sp-flt spt-y (meters -2.5))
+    (sp-int spt-rot-x 5)
+    (sp-flt spt-r 5324.8)
+    (sp-flt spt-g 4096.0)
+    (sp-flt spt-b 3686.4)
+    (sp-flt spt-vel-y (meters 0.0033333334))
+    (sp-flt spt-fade-b -16.383999)
+    (sp-int spt-timer 25)
+    (sp-cpuinfo-flags aux-list)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 1) (meters 3) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2090) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters -2.25))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-flt spt-fade-g -0.42666668)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.13653333)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2090
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-flt spt-y (meters -2.25))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-flt spt-vel-y (meters 0.01))
+    (sp-flt spt-fade-g -0.42666668)
+    (sp-flt spt-fade-a -0.32)
+    (sp-flt spt-accel-y -0.13653333)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 1) (meters 3) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 518) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-flutflut-plat-large"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2091 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         (sp-item 2092 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-flutflut-plat-large
+  :id 518
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2091 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 2092 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
 
-(set! (-> *part-id-table* 2091)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 4.0)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-y (meters -1.5))
-                                                     (sp-rnd-flt spt-z -24576.0 49152.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 5324.8)
-                                                     (sp-flt spt-g 4096.0)
-                                                     (sp-flt spt-b 3686.4)
-                                                     (sp-flt spt-vel-y (meters -0.0033333334))
-                                                     (sp-flt spt-fade-b -16.383999)
-                                                     (sp-int spt-timer 25)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-flt spt-rotate-y (degrees 30.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2091
+  :init-specs
+  ((sp-flt spt-num 4.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-flt spt-y (meters -1.5))
+    (sp-rnd-flt spt-z (meters -6) (meters 12) 1.0)
+    (sp-int spt-rot-x 5)
+    (sp-flt spt-r 5324.8)
+    (sp-flt spt-g 4096.0)
+    (sp-flt spt-b 3686.4)
+    (sp-flt spt-vel-y (meters -0.0033333334))
+    (sp-flt spt-fade-b -16.383999)
+    (sp-int spt-timer 25)
+    (sp-cpuinfo-flags aux-list)
+    (sp-flt spt-rotate-y (degrees 30.0))
+    )
+  )
 
-(set! (-> *part-id-table* 2092) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters -1.25))
-                                    (sp-rnd-flt spt-z -24576.0 49152.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.01))
-                                    (sp-flt spt-fade-g -0.42666668)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.13653333)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2092
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-flt spt-y (meters -1.25))
+    (sp-rnd-flt spt-z (meters -6) (meters 12) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-flt spt-vel-y (meters -0.01))
+    (sp-flt spt-fade-g -0.42666668)
+    (sp-flt spt-fade-a -0.32)
+    (sp-flt spt-accel-y -0.13653333)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-rotate-y (degrees 30.0))
+    )
+  )
 
 (defstate snow-button-up-idle (snow-button)
   :event
diff --git a/goal_src/levels/snow/snow-obs.gc b/goal_src/levels/snow/snow-obs.gc
index 6ad838a5cf..cabfb8a68a 100644
--- a/goal_src/levels/snow/snow-obs.gc
+++ b/goal_src/levels/snow/snow-obs.gc
@@ -198,206 +198,165 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 510) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-snow-yellow-eco-room-open"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 1990 :fade-after (meters 110.0))
-                                         (sp-item 1991 :fade-after (meters 110.0))
-                                         (sp-item 1992 :fade-after (meters 110.0))
-                                         (sp-item 1993 :fade-after (meters 110.0))
-                                         (sp-item 1994 :fade-after (meters 110.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -24576.0 :w 32768.0)
-                                       )
-      )
+(defpartgroup group-snow-yellow-eco-room-open
+  :id 510
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 1990 :fade-after (meters 110))
+    (sp-item 1991 :fade-after (meters 110))
+    (sp-item 1992 :fade-after (meters 110))
+    (sp-item 1993 :fade-after (meters 110))
+    (sp-item 1994 :fade-after (meters 110))
+    )
+  )
 
-(set! (-> *part-group-id-table* 511) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :name "group-snow-yellow-eco-room-activate"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1994)
-                                         (sp-item 1994)
-                                         (sp-item 1995 :flags (bit1) :period 1200 :length 15)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -24576.0 :w 32768.0)
-                                       )
-      )
+(defpartgroup group-snow-yellow-eco-room-activate
+  :id 511
+  :duration 900
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 1994) (sp-item 1994) (sp-item 1995 :flags (bit1) :period 1200 :length 15))
+  )
 
-(set! (-> *part-id-table* 1995) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 30.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 20.0) (meters 10.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-r 127.0)
-                                    (sp-flt spt-g 127.0)
-                                    (sp-rnd-flt spt-b 0.0 16.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.05) (degrees 0.1) 1.0)
-                                    (sp-flt spt-fade-a 0.85333335)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 1996)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1995
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 30.0)
+    (sp-flt spt-y (meters -4))
+    (sp-rnd-flt spt-scale-x (meters 20) (meters 10) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 5) (meters 2) 1.0)
+    (sp-flt spt-r 127.0)
+    (sp-flt spt-g 127.0)
+    (sp-rnd-flt spt-b 0.0 16.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.05) (degrees 0.1) 1.0)
+    (sp-flt spt-fade-a 0.85333335)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 1996)
+    )
+  )
 
-(set! (-> *part-id-table* 1996)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 1997)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1996
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 225) (sp-launcher-by-id spt-next-launcher 1997))
+  )
 
-(set! (-> *part-id-table* 1997)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
+(defpart 1997
+  :init-specs
+  ((sp-flt spt-fade-a -0.14222223))
+  )
 
-(set! (-> *part-id-table* 1990) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 10.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 8.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1990
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -4))
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 8) (meters 2) 1.0)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-rnd-flt spt-b 0.0 64.0 1.0)
+    (sp-rnd-flt spt-a 128.0 128.0 1.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1991) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1991
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -4))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 128.0 128.0 1.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1992) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -30.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1998)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1992
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 0.5 1.0 1.0)
+    (sp-flt spt-y (meters -4))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees -30.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 1998)
+    )
+  )
 
-(set! (-> *part-id-table* 1998)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -1.0)
-                                                     (sp-flt spt-fade-g -1.0)
-                                                     (sp-flt spt-fade-a -2.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1998
+  :init-specs
+  ((sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-fade-r -1.0)
+    (sp-flt spt-fade-g -1.0)
+    (sp-flt spt-fade-a -2.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1993) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 150.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1998)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1993
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 0.5 1.0 1.0)
+    (sp-flt spt-y (meters -4))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 150.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 1998)
+    )
+  )
 
-(set! (-> *part-id-table* 1994) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -6.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -140.0) (degrees 100.00001) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1998)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 80.0) (degrees 200.00002) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1994
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-y (meters -6.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 2) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees -140.0) (degrees 100.00001) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 1998)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 80.0) (degrees 200.00002) 1.0)
+    (sp-flt spt-conerot-radius (meters 4))
+    )
+  )
 
 (defstate snow-eggtop-idle-up (snow-eggtop)
   :event
@@ -957,217 +916,181 @@
   :longest-edge (meters 12.8)
   )
 
-(set! (-> *part-group-id-table* 512) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-snow-fort-gate-coming-down"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 1896))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-snow-fort-gate-coming-down
+  :id 512
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1896))
+  )
 
-(set! (-> *part-id-table* 1896) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 10.5) (meters 8.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 96.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-rnd-flt spt-b 96.0 16.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-flt spt-fade-a 0.42666668)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 75 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 1897)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1896
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.5 1.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 10.5) (meters 8.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 96.0)
+    (sp-flt spt-g 96.0)
+    (sp-rnd-flt spt-b 96.0 16.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-flt spt-fade-a 0.42666668)
+    (sp-flt spt-accel-y -2.7306666)
+    (sp-flt spt-friction 0.98)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 75 74 1)
+    (sp-launcher-by-id spt-next-launcher 1897)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1897)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 1897
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
+  )
 
-(set! (-> *part-group-id-table* 513) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-snow-fort-gate-hits-bottom"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 1898))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-snow-fort-gate-hits-bottom
+  :id 513
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1898))
+  )
 
-(set! (-> *part-id-table* 1898) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 64.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-z -12288.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-rnd-flt spt-b 128.0 16.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.013333334) (meters 0.026666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters 0.046666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-flt spt-fade-a 0.42666668)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 750)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 75 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 1899)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1898
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 64.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+    (sp-flt spt-z (meters -3))
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 8) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-rnd-flt spt-b 128.0 16.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters -0.013333334) (meters 0.026666667) 1.0)
+    (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters 0.046666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-flt spt-fade-a 0.42666668)
+    (sp-flt spt-accel-y -0.68266666)
+    (sp-flt spt-friction 0.98)
+    (sp-int spt-timer 750)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 75 74 1)
+    (sp-launcher-by-id spt-next-launcher 1899)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1899)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.10666667) (sp-end))
-        )
-      )
+(defpart 1899
+  :init-specs
+  ((sp-flt spt-fade-a -0.10666667))
+  )
 
-(set! (-> *part-group-id-table* 514)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-snow-fort-gate-snowdrops"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 2271 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 1200 :length 150)
-          (sp-item 2271 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 1200 :length 100)
-          (sp-item 2271 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 1200 :length 60)
-          (sp-item 2271 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 1200 :length 30)
-          (sp-item 2271 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 1200 :length 10)
-          (sp-item 2272 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 200)
-          (sp-item 2272 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 150)
-          (sp-item 2272 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 100)
-          (sp-item 2272 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 50)
-          (sp-item 2272 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 20)
-          (sp-item 2273 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 170)
-          (sp-item 2273 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 115)
-          (sp-item 2273 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 70)
-          (sp-item 2273 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 35)
-          (sp-item 2273 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 10)
-          )
-        :bounds
-        (new 'static 'sphere :y -65536.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-snow-fort-gate-snowdrops
+  :id 514
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 2271 :fade-after (meters 100) :falloff-to (meters 130) :period 1200 :length 150)
+    (sp-item 2271 :fade-after (meters 100) :falloff-to (meters 130) :period 1200 :length 100)
+    (sp-item 2271 :fade-after (meters 100) :falloff-to (meters 130) :period 1200 :length 60)
+    (sp-item 2271 :fade-after (meters 100) :falloff-to (meters 130) :period 1200 :length 30)
+    (sp-item 2271 :fade-after (meters 100) :falloff-to (meters 130) :period 1200 :length 10)
+    (sp-item 2272 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 200)
+    (sp-item 2272 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 150)
+    (sp-item 2272 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 100)
+    (sp-item 2272 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 50)
+    (sp-item 2272 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 20)
+    (sp-item 2273 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 170)
+    (sp-item 2273 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 115)
+    (sp-item 2273 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 70)
+    (sp-item 2273 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 35)
+    (sp-item 2273 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 10)
+    )
+  )
 
-(set! (-> *part-id-table* 2271) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-flt spt-r 150.0)
-                                    (sp-flt spt-g 150.0)
-                                    (sp-rnd-flt spt-b 150.0 55.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters -0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-rnd-flt spt-accel-y -2.7306666 -1.3653333 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 600)
-                                    (sp-launcher-by-id spt-next-launcher 2274)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2271
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 0.25)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.25) 1.0)
+    (sp-flt spt-r 150.0)
+    (sp-flt spt-g 150.0)
+    (sp-rnd-flt spt-b 150.0 55.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-vel-y (meters -0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-rnd-flt spt-accel-y -2.7306666 -1.3653333 1.0)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 600)
+    (sp-launcher-by-id spt-next-launcher 2274)
+    )
+  )
 
-(set! (-> *part-id-table* 2274)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.42666668) (sp-end))
-        )
-      )
+(defpart 2274
+  :init-specs
+  ((sp-flt spt-fade-a -0.42666668))
+  )
 
-(set! (-> *part-id-table* 2272) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 150.0)
-                                    (sp-flt spt-g 150.0)
-                                    (sp-rnd-flt spt-b 150.0 55.0 1.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 600)
-                                    (sp-launcher-by-id spt-next-launcher 2274)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2272
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
+    (sp-flt spt-r 150.0)
+    (sp-flt spt-g 150.0)
+    (sp-rnd-flt spt-b 150.0 55.0 1.0)
+    (sp-rnd-flt spt-a 96.0 32.0 1.0)
+    (sp-flt spt-vel-y (meters -0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 600)
+    (sp-launcher-by-id spt-next-launcher 2274)
+    )
+  )
 
-(set! (-> *part-id-table* 2273) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-r 150.0)
-                                    (sp-flt spt-g 150.0)
-                                    (sp-rnd-flt spt-b 150.0 55.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.006666667))
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2273
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+    (sp-flt spt-num 0.25)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1) 1.0)
+    (sp-flt spt-r 150.0)
+    (sp-flt spt-g 150.0)
+    (sp-rnd-flt spt-b 150.0 55.0 1.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-flt spt-vel-y (meters -0.006666667))
+    (sp-flt spt-fade-a -0.14222223)
+    (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit12)
+    )
+  )
 
 (defstate snow-fort-gate-idle-closed (snow-fort-gate)
   :event
@@ -1408,91 +1331,76 @@
   :longest-edge (meters 12.1)
   )
 
-(set! (-> *part-group-id-table* 515)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-snow-gears-dripping"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1900) (sp-item 1901))
-        :bounds
-        (new 'static 'sphere :y -16384.0 :w 65536.0)
-        )
-      )
+(defpartgroup group-snow-gears-dripping
+  :id 515
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -4 0 16)
+  :parts
+  ((sp-item 1900) (sp-item 1901))
+  )
 
-(set! (-> *part-id-table* 1900) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters -9.0) (meters 18.0) 1.0)
-                                    (sp-flt spt-y (meters -6.0))
-                                    (sp-rnd-flt spt-z -36864.0 73728.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 40.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 40.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 40.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters -0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
-                                    (sp-int spt-timer 390)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-drop)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1900
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters -9) (meters 18) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -9) (meters 18) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 40.0 1.0)
+    (sp-rnd-flt spt-g 32.0 40.0 1.0)
+    (sp-rnd-flt spt-b 32.0 40.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters -0.04) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
+    (sp-int spt-timer 390)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop)
+    )
+  )
 
-(set! (-> *part-id-table* 1901)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-y (meters -7.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 4.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 64.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-flt spt-fade-a 1.0666667)
-                                                     (sp-flt spt-accel-y 0.06826667)
-                                                     (sp-int spt-timer 1200)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 1902)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 6.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1901
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -7))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 4.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 16.0 1.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 64.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+    (sp-flt spt-fade-a 1.0666667)
+    (sp-flt spt-accel-y 0.06826667)
+    (sp-int spt-timer 1200)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 60)
+    (sp-launcher-by-id spt-next-launcher 1902)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 6) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1902)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 450 239 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1903)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1902
+  :init-specs
+  ((sp-flt spt-fade-a 0.0)
+    (sp-int-plain-rnd spt-next-time 450 239 1)
+    (sp-launcher-by-id spt-next-launcher 1903)
+    )
+  )
 
-(set! (-> *part-id-table* 1903)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
+(defpart 1903
+  :init-specs
+  ((sp-flt spt-fade-a -0.14222223))
+  )
 
 (defmethod TODO-RENAME-20 snow-gears ((obj snow-gears))
   (let ((a1-0 (new 'stack-no-clear 'vector)))
diff --git a/goal_src/levels/snow/snow-part.gc b/goal_src/levels/snow/snow-part.gc
index 30462c1064..5deb9c5487 100644
--- a/goal_src/levels/snow/snow-part.gc
+++ b/goal_src/levels/snow/snow-part.gc
@@ -16,195 +16,144 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 528)
-  (new 'static 'sparticle-launch-group
-   :length 15
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-snow-snowdrops1"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 15
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 2700 :length 150)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 2700 :length 100)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 2700 :length 60)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 2700 :length 30)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 2700 :length 10)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2700 :length 200)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2700 :length 150)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2700 :length 100)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2700 :length 50)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2700 :length 20)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 2700 :length 170)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 2700 :length 115)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 2700 :length 70)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 2700 :length 35)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 2700 :length 10)
+(defpartgroup group-snow-snowdrops1
+  :id 528
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 2700 :length 150)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 2700 :length 100)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 2700 :length 60)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 2700 :length 30)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 2700 :length 10)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 2700 :length 200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 2700 :length 150)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 2700 :length 100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 2700 :length 50)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 2700 :length 20)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 2700 :length 170)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 2700 :length 115)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 2700 :length 70)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 2700 :length 35)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 2700 :length 10)
     )
-   :bounds
-   (new 'static 'sphere :y -65536.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 529)
-  (new 'static 'sparticle-launch-group
-   :length 15
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-snow-snowdrops2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 15
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3068 :length 150 :offset 900)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3068 :length 100 :offset 900)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3068 :length 60 :offset 900)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3068 :length 30 :offset 900)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3068 :length 10 :offset 900)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3068 :length 200 :offset 900)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3068 :length 150 :offset 900)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3068 :length 100 :offset 900)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3068 :length 50 :offset 900)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3068 :length 20 :offset 900)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3068 :length 170 :offset 900)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3068 :length 115 :offset 900)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3068 :length 70 :offset 900)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3068 :length 35 :offset 900)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3068 :length 10 :offset 900)
+(defpartgroup group-snow-snowdrops2
+  :id 529
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3068 :length 150 :offset 900)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3068 :length 100 :offset 900)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3068 :length 60 :offset 900)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3068 :length 30 :offset 900)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3068 :length 10 :offset 900)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3068 :length 200 :offset 900)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3068 :length 150 :offset 900)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3068 :length 100 :offset 900)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3068 :length 50 :offset 900)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3068 :length 20 :offset 900)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3068 :length 170 :offset 900)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3068 :length 115 :offset 900)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3068 :length 70 :offset 900)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3068 :length 35 :offset 900)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3068 :length 10 :offset 900)
     )
-   :bounds
-   (new 'static 'sphere :y -65536.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 530)
-  (new 'static 'sparticle-launch-group
-   :length 15
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-snow-snowdrops3"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 15
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3345 :length 150 :offset 1800)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3345 :length 100 :offset 1800)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3345 :length 60 :offset 1800)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3345 :length 30 :offset 1800)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3345 :length 10 :offset 1800)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3345 :length 200 :offset 1800)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3345 :length 150 :offset 1800)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3345 :length 100 :offset 1800)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3345 :length 50 :offset 1800)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3345 :length 20 :offset 1800)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3345 :length 170 :offset 1800)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3345 :length 115 :offset 1800)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3345 :length 70 :offset 1800)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3345 :length 35 :offset 1800)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3345 :length 10 :offset 1800)
+(defpartgroup group-snow-snowdrops3
+  :id 530
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3345 :length 150 :offset 1800)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3345 :length 100 :offset 1800)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3345 :length 60 :offset 1800)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3345 :length 30 :offset 1800)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3345 :length 10 :offset 1800)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3345 :length 200 :offset 1800)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3345 :length 150 :offset 1800)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3345 :length 100 :offset 1800)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3345 :length 50 :offset 1800)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3345 :length 20 :offset 1800)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3345 :length 170 :offset 1800)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3345 :length 115 :offset 1800)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3345 :length 70 :offset 1800)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3345 :length 35 :offset 1800)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3345 :length 10 :offset 1800)
     )
-   :bounds
-   (new 'static 'sphere :y -65536.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 531)
-  (new 'static 'sparticle-launch-group
-   :length 15
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-snow-snowdrops4"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 15
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 4035 :length 150 :offset 300)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 4035 :length 100 :offset 300)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 4035 :length 60 :offset 300)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 4035 :length 30 :offset 300)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 4035 :length 10 :offset 300)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4035 :length 200 :offset 300)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4035 :length 150 :offset 300)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4035 :length 100 :offset 300)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4035 :length 50 :offset 300)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4035 :length 20 :offset 300)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 4035 :length 170 :offset 300)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 4035 :length 115 :offset 300)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 4035 :length 70 :offset 300)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 4035 :length 35 :offset 300)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 4035 :length 10 :offset 300)
+(defpartgroup group-snow-snowdrops4
+  :id 531
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 4035 :length 150 :offset 300)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 4035 :length 100 :offset 300)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 4035 :length 60 :offset 300)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 4035 :length 30 :offset 300)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 4035 :length 10 :offset 300)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 4035 :length 200 :offset 300)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 4035 :length 150 :offset 300)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 4035 :length 100 :offset 300)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 4035 :length 50 :offset 300)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 4035 :length 20 :offset 300)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 4035 :length 170 :offset 300)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 4035 :length 115 :offset 300)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 4035 :length 70 :offset 300)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 4035 :length 35 :offset 300)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 4035 :length 10 :offset 300)
     )
-   :bounds
-   (new 'static 'sphere :y -65536.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 532)
-  (new 'static 'sparticle-launch-group
-   :length 15
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-snow-snowdrops5"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 15
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 5385 :length 150 :offset 1200)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 5385 :length 100 :offset 1200)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 5385 :length 60 :offset 1200)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 5385 :length 30 :offset 1200)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 5385 :length 10 :offset 1200)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 5385 :length 200 :offset 1200)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 5385 :length 150 :offset 1200)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 5385 :length 100 :offset 1200)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 5385 :length 50 :offset 1200)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 5385 :length 20 :offset 1200)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 5385 :length 170 :offset 1200)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 5385 :length 115 :offset 1200)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 5385 :length 70 :offset 1200)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 5385 :length 35 :offset 1200)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 5385 :length 10 :offset 1200)
+(defpartgroup group-snow-snowdrops5
+  :id 532
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 5385 :length 150 :offset 1200)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 5385 :length 100 :offset 1200)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 5385 :length 60 :offset 1200)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 5385 :length 30 :offset 1200)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 5385 :length 10 :offset 1200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 5385 :length 200 :offset 1200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 5385 :length 150 :offset 1200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 5385 :length 100 :offset 1200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 5385 :length 50 :offset 1200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 5385 :length 20 :offset 1200)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 5385 :length 170 :offset 1200)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 5385 :length 115 :offset 1200)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 5385 :length 70 :offset 1200)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 5385 :length 35 :offset 1200)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 5385 :length 10 :offset 1200)
     )
-   :bounds
-   (new 'static 'sphere :y -65536.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 533)
-  (new 'static 'sparticle-launch-group
-   :length 15
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-snow-snowdrops6"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 15
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 6129 :length 150 :offset 2100)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 6129 :length 100 :offset 2100)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 6129 :length 60 :offset 2100)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 6129 :length 30 :offset 2100)
-    (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 6129 :length 10 :offset 2100)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 6129 :length 200 :offset 2100)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 6129 :length 150 :offset 2100)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 6129 :length 100 :offset 2100)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 6129 :length 50 :offset 2100)
-    (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 6129 :length 20 :offset 2100)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 6129 :length 170 :offset 2100)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 6129 :length 115 :offset 2100)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 6129 :length 70 :offset 2100)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 6129 :length 35 :offset 2100)
-    (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 6129 :length 10 :offset 2100)
+(defpartgroup group-snow-snowdrops6
+  :id 533
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 6129 :length 150 :offset 2100)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 6129 :length 100 :offset 2100)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 6129 :length 60 :offset 2100)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 6129 :length 30 :offset 2100)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 6129 :length 10 :offset 2100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 6129 :length 200 :offset 2100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 6129 :length 150 :offset 2100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 6129 :length 100 :offset 2100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 6129 :length 50 :offset 2100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 6129 :length 20 :offset 2100)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 6129 :length 170 :offset 2100)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 6129 :length 115 :offset 2100)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 6129 :length 70 :offset 2100)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 6129 :length 35 :offset 2100)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 6129 :length 10 :offset 2100)
     )
-   :bounds
-   (new 'static 'sphere :y -65536.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1924)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1924
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.25)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.25) 1.0)
@@ -219,32 +168,21 @@
     (sp-cpuinfo-flags bit2 bit12)
     (sp-int spt-next-time 600)
     (sp-launcher-by-id spt-next-launcher 1927)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1927)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.42666668)
-    (sp-end)
-    )
-   )
+(defpart 1927
+  :init-specs
+  ((sp-flt spt-fade-a -0.42666668))
   )
 
-(set!
-  (-> *part-id-table* 1925)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1925
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
@@ -259,23 +197,18 @@
     (sp-cpuinfo-flags bit2 bit12)
     (sp-int spt-next-time 600)
     (sp-launcher-by-id spt-next-launcher 1927)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1926)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+(defpart 1926
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
     (sp-flt spt-num 0.25)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.25) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1) 1.0)
     (sp-flt spt-r 200.0)
     (sp-flt spt-g 200.0)
     (sp-rnd-flt spt-b 200.0 55.0 1.0)
@@ -285,76 +218,52 @@
     (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit12)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 534)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-part-snow-torch"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 2041 :fade-after (meters 200.0) :falloff-to (meters 220.0))
-    (sp-item 2042 :fade-after (meters 140.0) :falloff-to (meters 1400.0))
-    (sp-item 2043 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
-    (sp-item 2044 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
-    (sp-item 2045 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 710 :length 51)
-    (sp-item 2046 :fade-after (meters 60.0) :falloff-to (meters 60.0))
+(defpartgroup group-part-snow-torch
+  :id 534
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 2041 :fade-after (meters 200) :falloff-to (meters 220))
+    (sp-item 2042 :fade-after (meters 140) :falloff-to (meters 1400))
+    (sp-item 2043 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 90)
+    (sp-item 2044 :fade-after (meters 50) :falloff-to (meters 50) :period 369 :length 69)
+    (sp-item 2045 :fade-after (meters 50) :falloff-to (meters 50) :period 710 :length 51)
+    (sp-item 2046 :fade-after (meters 60) :falloff-to (meters 60))
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2046)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.3)
+(defpart 2046
+  :init-specs
+  ((sp-flt spt-num 0.3)
     (sp-flt spt-x (meters 0.2))
-    (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 2867.2)
     (sp-flt spt-b 3276.8)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-flt spt-vel-y (meters 0.026666667))
     (sp-int spt-timer 180)
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 2047)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2047)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -6.826667)
-    (sp-end)
-    )
-   )
+(defpart 2047
+  :init-specs
+  ((sp-flt spt-fade-b -6.826667))
   )
 
-(set!
-  (-> *part-id-table* 2041)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2041
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1069547520 1 1.0)
     (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-    (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
+    (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -369,32 +278,21 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 2048)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2048)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -1.3333334)
-    (sp-end)
-    )
-   )
+(defpart 2048
+  :init-specs
+  ((sp-flt spt-fade-a -1.3333334))
   )
 
-(set!
-  (-> *part-id-table* 2043)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2043
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -409,21 +307,16 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 2048)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2044)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2044
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z 0.0 1638.4 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -438,21 +331,16 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 2048)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2045)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2045
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
     (sp-flt spt-y (meters 0.6))
-    (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
+    (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -467,22 +355,17 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 2048)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2042)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2042
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.3))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -504,36 +387,19 @@
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 535)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-snow-mountain-snow"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2093))
-   :bounds
-   (new 'static 'sphere :y -65536.0 :z -131072.0 :w 327680.0)
-   )
-  )
+(defpartgroup group-snow-mountain-snow :id 535 :bounds (static-bspherem 0 -16 -32 80) :parts ((sp-item 2093)))
 
-(set!
-  (-> *part-id-table* 2093)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2093
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-rnd-flt spt-y (meters -30.0) (meters 20.0) 1.0)
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 30.0) (meters 20.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-rnd-flt spt-y (meters -30) (meters 20) 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 30) (meters 20) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 196.0 64.0 1.0)
@@ -550,91 +416,61 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-int-plain-rnd spt-next-time 180 419 1)
     (sp-launcher-by-id spt-next-launcher 2094)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2094)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.035555556)
-    (sp-end)
-    )
-   )
+(defpart 2094
+  :init-specs
+  ((sp-flt spt-fade-a -0.035555556))
   )
 
-(set!
-  (-> *part-group-id-table* 536)
-  (new 'static 'sparticle-launch-group
-   :length 8
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-snow-door-torch"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 8
-    (sp-item 2113 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-    (sp-item 2114 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 492 :length 60)
-    (sp-item 2115 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-    (sp-item 2116 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 369 :length 219)
-    (sp-item 2117 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 690 :length 90)
-    (sp-item 2118 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 918 :length 669)
-    (sp-item 2119 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 750 :length 30)
-    (sp-item 2120 :fade-after (meters 50.0) :falloff-to (meters 60.0))
+(defpartgroup group-snow-door-torch
+  :id 536
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 2113 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 2114 :fade-after (meters 40) :falloff-to (meters 40) :period 492 :length 60)
+    (sp-item 2115 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 2116 :fade-after (meters 40) :falloff-to (meters 40) :period 369 :length 219)
+    (sp-item 2117 :fade-after (meters 40) :falloff-to (meters 40) :period 690 :length 90)
+    (sp-item 2118 :fade-after (meters 40) :falloff-to (meters 40) :period 918 :length 669)
+    (sp-item 2119 :fade-after (meters 40) :falloff-to (meters 40) :period 750 :length 30)
+    (sp-item 2120 :fade-after (meters 50) :falloff-to (meters 60))
     )
-   :bounds
-   (new 'static 'sphere :y 20480.0 :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2120)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.6)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
-    (sp-flt spt-y (meters 2.0))
+(defpart 2120
+  :init-specs
+  ((sp-flt spt-num 0.6)
+    (sp-rnd-flt spt-x (meters 0) (meters 2) 1.0)
+    (sp-flt spt-y (meters 2))
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5898.24)
     (sp-flt spt-b 6553.6)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-flt spt-vel-y (meters 0.053333335))
     (sp-int spt-timer 180)
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 2121)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2121)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -10.922667)
-    (sp-end)
-    )
-   )
+(defpart 2121
+  :init-specs
+  ((sp-flt spt-fade-b -10.922667))
   )
 
-(set!
-  (-> *part-id-table* 2113)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2113
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.75 0.6 1.0)
     (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -2048.0 6144.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -651,23 +487,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2114)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2114
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1058642330 1 1.3)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z 0.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -684,23 +515,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2115)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2115
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.6 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -719,23 +545,18 @@
     (sp-launcher-by-id spt-next-launcher 2122)
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2123)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2123
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 0.2 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -754,49 +575,32 @@
     (sp-launcher-by-id spt-next-launcher 2122)
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2122)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-g 0.26666668)
+(defpart 2122
+  :init-specs
+  ((sp-flt spt-fade-g 0.26666668)
     (sp-flt spt-fade-b 0.53333336)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 2124)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2124)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-end)
-    )
-   )
+(defpart 2124
+  :init-specs
+  ((sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
   )
 
-(set!
-  (-> *part-id-table* 2116)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2116
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.6 0.7 1.0)
     (sp-rnd-flt spt-x (meters -1.2) (meters 2.4) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4915.2 9830.4 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
+    (sp-rnd-flt spt-z (meters -1.2) (meters 2.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -813,23 +617,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees -15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2117)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2117
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1056964608 1 0.9)
-    (sp-rnd-flt spt-x (meters -1.2) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1.2) (meters 1) 1.0)
     (sp-flt spt-y (meters 1.25))
-    (sp-rnd-flt spt-z -4915.2 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
+    (sp-rnd-flt spt-z (meters -1.2) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -846,23 +645,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees -15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2118)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2118
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.75 1.2 1.0)
     (sp-rnd-flt spt-x (meters -1.2) (meters 2.4) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4915.2 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
+    (sp-rnd-flt spt-z (meters -1.2) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -879,23 +673,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 0.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2119)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2119
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1060320051 1 1.6)
     (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
     (sp-flt spt-y (meters 1.25))
-    (sp-rnd-flt spt-z -4096.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -912,37 +701,30 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 0.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 537)
-  (new 'static 'sparticle-launch-group
-   :length 50
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-snow-birds"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 50
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-    (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
+(defpartgroup group-snow-birds
+  :id 537
+  :bounds (static-bspherem 0 8 0 45)
+  :parts
+  ((sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
     (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
     (sp-item 2244 :flags (is-3d start-dead))
     (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
@@ -978,40 +760,26 @@
     (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
     (sp-item 2244 :flags (is-3d start-dead))
     )
-   :bounds
-   (new 'static 'sphere :y 32768.0 :w 184320.0)
-   )
   )
 
-(defun
-  snow-bird-bob-func
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
-  (set!
-   (-> arg2 y)
-   (+
-    (-> (the-as process-drawable (-> arg1 key proc)) root trans y)
-    (*
-     -2048.0
-     (sin (* 218.45334 (the float (mod (-> *display* base-frame-counter) 300))))
-     )
-    )
-   )
+(defun snow-bird-bob-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+  (set! (-> arg2 y) (+ (-> (the-as process-drawable (-> arg1 key proc)) root trans y)
+                       (* -2048.0 (sin (* 218.45334 (the float (mod (-> *display* base-frame-counter) 300)))))
+                       )
+        )
   0
   (none)
   )
 
-(set!
-  (-> *part-id-table* 2245)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2245
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-func spt-birth-func 'birth-func-random-next-time)
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -70.0) (meters 140.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -286720.0 573440.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -70) (meters 140) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -70) (meters 140) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
@@ -1019,34 +787,24 @@
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-userdata 199.98)
     (sp-func spt-func 'snow-bird-bob-func)
-    (sp-end)
     )
-   )
   )
 
-(defun
-  sparticle-snow-birds-moon
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
-  (set!
-   (-> arg2 vector 1 z)
-   (the float (sar (shl (the int (+ -16384.0 (-> arg1 omega))) 48) 48))
-   )
+(defun sparticle-snow-birds-moon ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
+  (set! (-> arg2 vector 1 z) (the float (sar (shl (the int (+ -16384.0 (-> arg1 omega))) 48) 48)))
   0
   (none)
   )
 
-(set!
-  (-> *part-id-table* 2243)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2243
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-func spt-birth-func 'birth-func-copy-omega-to-z)
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
-    (sp-flt spt-y (meters 0.0))
-    (sp-flt spt-z 122880.0)
-    (sp-flt spt-scale-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-z (meters 30))
+    (sp-flt spt-scale-x (meters 0))
     (sp-flt spt-rot-z (degrees 0.0))
     (sp-flt spt-r 32.0)
     (sp-flt spt-g 32.0)
@@ -1054,64 +812,47 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-flt spt-vel-x (meters 0.0044444446))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-scalevel-x (meters 0.04))
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit3 bit7)
     (sp-func spt-func 'sparticle-snow-birds-moon)
     (sp-int spt-next-time 199)
     (sp-launcher-by-id spt-next-launcher 2246)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2246)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-scale-x (meters 8.0))
+(defpart 2246
+  :init-specs
+  ((sp-flt spt-scale-x (meters 8))
     (sp-flt spt-scalevel-x (meters -0.08))
     (sp-int spt-timer 600)
     (sp-int spt-next-time 100)
     (sp-launcher-by-id spt-next-launcher 2247)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2247)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-scale-x (meters 0.0))
+(defpart 2247
+  :init-specs
+  ((sp-flt spt-scale-x (meters 0))
     (sp-flt spt-scalevel-x (meters -0.04))
     (sp-int spt-timer 600)
     (sp-int spt-next-time 199)
     (sp-launcher-by-id spt-next-launcher 2246)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2244)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 2244
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-func spt-birth-func 'birth-func-copy2-rot-color)
     (sp-flt spt-num 2.0)
-    (sp-flt spt-scale-x (meters 4.0))
+    (sp-flt spt-scale-x (meters 4))
     (sp-flt spt-scale-y (meters 1.5))
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9 bit12)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/snow/snow-ram.gc b/goal_src/levels/snow/snow-ram.gc
index 5e5d758fa8..8bfddda83e 100644
--- a/goal_src/levels/snow/snow-ram.gc
+++ b/goal_src/levels/snow/snow-ram.gc
@@ -20,129 +20,105 @@
   :longest-edge (meters 7.7)
   )
 
-(set! (-> *part-group-id-table* 526) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ram-hit-wall"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1921)
-                                         (sp-item 1922 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-ram-hit-wall
+  :id 526
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1921) (sp-item 1922 :fade-after (meters 60) :falloff-to (meters 60)))
+  )
 
-(set! (-> *part-id-table* 1920) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00066666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -20.48 13.653334 1.0)
-                                    (sp-rnd-flt spt-friction 0.92 0.05 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit0 bit3 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 170.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1920
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 64.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 16.0 1.0)
+    (sp-rnd-flt spt-g 128.0 48.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00066666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -20.48 13.653334 1.0)
+    (sp-rnd-flt spt-friction 0.92 0.05 1.0)
+    (sp-int spt-timer 210)
+    (sp-cpuinfo-flags bit0 bit3 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 170.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1922) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -0.60952383)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1922
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 100.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-fade-a -0.60952383)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-int spt-timer 210)
+    (sp-cpuinfo-flags bit2 bit3 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1921) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -2.1333334)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1921
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 100.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 96.0)
+    (sp-flt spt-fade-a -2.1333334)
+    (sp-int spt-timer 42)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 527) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ram-wheel-puffs"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 1923 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-ram-wheel-puffs
+  :id 527
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1923 :fade-after (meters 70) :falloff-to (meters 70)))
+  )
 
-(set! (-> *part-id-table* 1923)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 100.0)
-                                                     (sp-flt spt-g 100.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0033333334) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.26666668)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-int spt-timer 120)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1923
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 100.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-fade-a -0.26666668)
+    (sp-flt spt-accel-y -1.3653333)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2)
+    )
+  )
 
 (defmethod dummy-20 ram ((obj ram))
   (let ((gp-0 (-> obj part)))
diff --git a/goal_src/levels/snow/target-ice.gc b/goal_src/levels/snow/target-ice.gc
index 137a62e7c6..676c3fd6e0 100644
--- a/goal_src/levels/snow/target-ice.gc
+++ b/goal_src/levels/snow/target-ice.gc
@@ -11,7 +11,10 @@
   :event
   target-standard-event-handler
   :enter
-  (behavior () (set! (-> self control unknown-surface00) *walk-mods*) (none))
+  (behavior ()
+    (set! (-> self control unknown-surface00) *walk-mods*)
+    (none)
+    )
   :exit
   target-state-hook-exit
   :trans
@@ -24,44 +27,34 @@
       (remove-exit)
       (go target-ice-walk)
       )
-    (when (and
-            (logtest?
-              (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-abs 0)
-              (pad-buttons l1 r1)
-              )
-            (can-duck?)
-            )
+    (when (and (logtest? (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-abs 0)
+                         (pad-buttons l1 r1)
+                         )
+               (can-duck?)
+               )
       (remove-exit)
       (go target-duck-stance)
       )
-    (if (and
-            (logtest?
-              (logior
-                (logior
-                  (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 0)
-                  (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 1)
-                  )
-                (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 2)
-                )
-              (pad-buttons x)
-              )
-            (can-jump? #f)
-            )
+    (if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 0)
+                                       (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 1)
+                                       )
+                               (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 2)
+                               )
+                       (pad-buttons x)
+                       )
+             (can-jump? #f)
+             )
         (go target-jump (-> *TARGET-bank* jump-height-min) (-> *TARGET-bank* jump-height-max) (the-as surface #f))
         )
-    (if (and
-            (logtest?
-              (logior
-                (logior
-                  (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 0)
-                  (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 1)
-                  )
-                (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 2)
-                )
-              (pad-buttons circle)
-              )
-            (can-feet?)
-            )
+    (if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 0)
+                                       (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 1)
+                                       )
+                               (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 2)
+                               )
+                       (pad-buttons circle)
+                       )
+             (can-feet?)
+             )
         (go target-attack)
         )
     (if (can-hands? #t)
@@ -84,8 +77,8 @@
            (set! gp-0 21)
            )
           ((= (if (> (-> self skel active-channels) 0)
-                   (-> self skel root-channel 0 frame-group)
-                   )
+                  (-> self skel root-channel 0 frame-group)
+                  )
               (-> self draw art-group data 71)
               )
            (let ((a0-11 (-> self skel root-channel 0)))
@@ -107,8 +100,8 @@
              )
            )
           ((= (if (> (-> self skel active-channels) 0)
-                   (-> self skel root-channel 0 frame-group)
-                   )
+                  (-> self skel root-channel 0 frame-group)
+                  )
               (-> self draw art-group data 51)
               )
            (cond
@@ -153,8 +146,8 @@
              )
            )
           ((= (if (> (-> self skel active-channels) 0)
-                   (-> self skel root-channel 0 frame-group)
-                   )
+                  (-> self skel root-channel 0 frame-group)
+                  )
               (-> self draw art-group data 78)
               )
            (let ((a0-29 (-> self skel root-channel 0)))
@@ -176,8 +169,8 @@
              )
            )
           ((= (if (> (-> self skel active-channels) 0)
-                   (-> self skel root-channel 0 frame-group)
-                   )
+                  (-> self skel root-channel 0 frame-group)
+                  )
               (-> self draw art-group data 84)
               )
            (let ((a0-36 (-> self skel root-channel 0)))
@@ -200,8 +193,8 @@
            (set! gp-0 0)
            )
           ((= (if (> (-> self skel active-channels) 0)
-                   (-> self skel root-channel 0 frame-group)
-                   )
+                  (-> self skel root-channel 0 frame-group)
+                  )
               (-> self draw art-group data 59)
               )
            (set! (-> self control unknown-float81) (-> self control unknown-float80))
@@ -214,14 +207,14 @@
                                                  )
                    )
              (set! (-> s5-0 param 0) (the float (+ (-> (the-as art-joint-anim (if (rand-vu-percent? 0.3)
-                                                                                     (-> self draw art-group data 61)
-                                                                                     (-> self draw art-group data 60)
-                                                                                     )
-                                                                  )
-                                                        data
-                                                        0
-                                                        length
-                                                        )
+                                                                                  (-> self draw art-group data 61)
+                                                                                  (-> self draw art-group data 60)
+                                                                                  )
+                                                               )
+                                                       data
+                                                       0
+                                                       length
+                                                       )
                                                    -1
                                                    )
                                           )
@@ -285,8 +278,8 @@
       (while (< 16384.0 (-> self control unknown-float01))
         (cond
           ((= (if (> (-> self skel active-channels) 0)
-                   (-> self skel root-channel 0 frame-group)
-                   )
+                  (-> self skel root-channel 0 frame-group)
+                  )
               (-> self draw art-group data 103)
               )
            )
@@ -305,8 +298,8 @@
           )
         )
       (when (not (= (if (> (-> self skel active-channels) 0)
-                         (-> self skel root-channel 0 frame-group)
-                         )
+                        (-> self skel root-channel 0 frame-group)
+                        )
                     (-> self draw art-group data 104)
                     )
                  )
@@ -339,7 +332,11 @@
     (none)
     )
   :exit
-  (behavior () (target-effect-exit) (target-state-hook-exit) (none))
+  (behavior ()
+    (target-effect-exit)
+    (target-state-hook-exit)
+    (none)
+    )
   :trans
   (behavior ()
     ((-> self state-hook))
@@ -347,33 +344,26 @@
       (remove-exit)
       (go target-walk)
       )
-    (if (and
-            (logtest?
-              (logior
-                (logior
-                  (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 0)
-                  (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 1)
+    (if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 0)
+                                       (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 1)
+                                       )
+                               (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 2)
+                               )
+                       (pad-buttons l1 r1)
+                       )
+             (and (>= (- (-> *display* base-frame-counter) (the-as int (-> *TARGET-bank* wheel-timeout)))
+                      (-> self control unknown-dword30)
+                      )
+                  (and (!= (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) stick0-speed) 0.0) (can-wheel?))
                   )
-                (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 2)
-                )
-              (pad-buttons l1 r1)
-              )
-            (and
-              (>= (- (-> *display* base-frame-counter) (the-as int (-> *TARGET-bank* wheel-timeout)))
-                  (-> self control unknown-dword30)
-                  )
-              (and (!= (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) stick0-speed) 0.0) (can-wheel?))
-              )
-            )
+             )
         (go target-wheel)
         )
-    (when (and
-            (logtest?
-              (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-abs 0)
-              (pad-buttons l1 r1)
-              )
-            (can-duck?)
-            )
+    (when (and (logtest? (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-abs 0)
+                         (pad-buttons l1 r1)
+                         )
+               (can-duck?)
+               )
       (target-effect-exit)
       (remove-exit)
       (go target-duck-stance)
@@ -393,34 +383,26 @@
       (remove-exit)
       (go target-ice-stance)
       )
-    (if (and
-            (logtest?
-              (logior
-                (logior
-                  (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 0)
-                  (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 1)
-                  )
-                (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 2)
-                )
-              (pad-buttons x)
-              )
-            (can-jump? #f)
-            )
+    (if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 0)
+                                       (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 1)
+                                       )
+                               (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 2)
+                               )
+                       (pad-buttons x)
+                       )
+             (can-jump? #f)
+             )
         (go target-jump (-> *TARGET-bank* jump-height-min) (-> *TARGET-bank* jump-height-max) (the-as surface #f))
         )
-    (if (and
-            (logtest?
-              (logior
-                (logior
-                  (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 0)
-                  (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 1)
-                  )
-                (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 2)
-                )
-              (pad-buttons circle)
-              )
-            (can-feet?)
-            )
+    (if (and (logtest? (logior (logior (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 0)
+                                       (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 1)
+                                       )
+                               (-> *cpad-list* cpads (-> self control unknown-cpad-info00 number) button0-rel 2)
+                               )
+                       (pad-buttons circle)
+                       )
+             (can-feet?)
+             )
         (go target-attack)
         )
     (if (can-hands? #t)
@@ -434,8 +416,8 @@
   (behavior ()
     (cond
       ((= (if (> (-> self skel active-channels) 0)
-               (-> self skel root-channel 0 frame-group)
-               )
+              (-> self skel root-channel 0 frame-group)
+              )
           (-> self draw art-group data 23)
           )
        (let ((f30-0 (ja-aframe-num 0)))
@@ -451,8 +433,8 @@
          )
        )
       ((= (if (> (-> self skel active-channels) 0)
-               (-> self skel root-channel 0 frame-group)
-               )
+              (-> self skel root-channel 0 frame-group)
+              )
           (-> self draw art-group data 102)
           )
        )
@@ -490,8 +472,8 @@
                )
              )
             ((= (if (> (-> self skel active-channels) 0)
-                     (-> self skel root-channel 0 frame-group)
-                     )
+                    (-> self skel root-channel 0 frame-group)
+                    )
                 (-> self draw art-group data 59)
                 )
              (set! (-> self control unknown-float81) (-> self control unknown-float80))
diff --git a/goal_src/levels/snow/yeti.gc b/goal_src/levels/snow/yeti.gc
index f391eade4c..6ab1d699ee 100644
--- a/goal_src/levels/snow/yeti.gc
+++ b/goal_src/levels/snow/yeti.gc
@@ -113,118 +113,99 @@
                                 )
         )
 
-(set! (-> *part-group-id-table* 538) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-yeti-slave-appear1"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1928 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-                                         (sp-item 1929 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 65536.0)
-                                       )
-      )
+(defpartgroup group-yeti-slave-appear1
+  :id 538
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 1928 :fade-after (meters 70) :falloff-to (meters 70))
+    (sp-item 1929 :fade-after (meters 70) :falloff-to (meters 70))
+    )
+  )
 
-(set! (-> *part-id-table* 1929) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.24) (meters 0.24) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.033333335) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 3.4666667) 1.0)
-                                    (sp-flt spt-accel-y -5.4613333)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 40.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1929
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.24) (meters 0.24) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 96.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.033333335) (meters 0.05) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 3.4666667) 1.0)
+    (sp-flt spt-accel-y -5.4613333)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 40.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1928)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 24
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 32.0)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.016666668) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.07111111)
-                                                     (sp-flt spt-accel-y -5.4613333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 40.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1928
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.016666668) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.006666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.07111111)
+    (sp-flt spt-accel-y -5.4613333)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 40.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 539) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-yeti-slave-appear2"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 1930 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 65536.0)
-                                       )
-      )
+(defpartgroup group-yeti-slave-appear2
+  :id 539
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 1930 :fade-after (meters 70) :falloff-to (meters 70)))
+  )
 
-(set! (-> *part-id-table* 1930) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 3.4666667) 1.0)
-                                    (sp-flt spt-accel-y -5.4613333)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1930
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+    (sp-rnd-flt spt-num 1.0 2.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 3.4666667) 1.0)
+    (sp-flt spt-accel-y -5.4613333)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defbehavior yeti-slave-default-event-handler yeti-slave ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
   (case arg2
diff --git a/goal_src/levels/sunken/bully.gc b/goal_src/levels/sunken/bully.gc
index ba339536e0..33ac18f157 100644
--- a/goal_src/levels/sunken/bully.gc
+++ b/goal_src/levels/sunken/bully.gc
@@ -90,186 +90,155 @@
                                )
   )
 
-(set! (-> *part-group-id-table* 454) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-bully-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2871)
-                                         (sp-item 2872)
-                                         (sp-item 2873)
-                                         (sp-item 2874)
-                                         (sp-item 2875)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-bully-explode
+  :id 454
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2871) (sp-item 2872) (sp-item 2873) (sp-item 2874) (sp-item 2875))
+  )
 
-(set! (-> *part-id-table* 2871) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-flt spt-accel-y 2.7306666)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int-plain-rnd spt-next-time 30 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 2876)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2871
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-flt spt-accel-y 2.7306666)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int-plain-rnd spt-next-time 30 59 1)
+    (sp-launcher-by-id spt-next-launcher 2876)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2876)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2876
+  :init-specs
+  ((sp-flt spt-fade-a -1.0666667))
+  )
 
-(set! (-> *part-id-table* 2872) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 3.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1.0) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.009765625))
-                                    (sp-flt spt-fade-a 2.1333334)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2877)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2872
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-flt spt-y (meters 1.5))
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1) 1.0)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 2.1333334)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 15)
+    (sp-launcher-by-id spt-next-launcher 2877)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 2877)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.1333334) (sp-end))
-        )
-      )
+(defpart 2877
+  :init-specs
+  ((sp-flt spt-fade-a -2.1333334))
+  )
 
-(set! (-> *part-id-table* 2873) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 48.0)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2873
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1.5))
+    (sp-flt spt-scale-x (meters 12))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 48.0)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 2874) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.3))
-                                    (sp-flt spt-r 160.0)
-                                    (sp-flt spt-g 160.0)
-                                    (sp-flt spt-b 160.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                    (sp-flt spt-rotvel-x (degrees 1.2))
-                                    (sp-flt spt-rotvel-y (degrees 2.4))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2878)
-                                    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2874
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.3))
+    (sp-flt spt-r 160.0)
+    (sp-flt spt-g 160.0)
+    (sp-flt spt-b 160.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+    (sp-flt spt-rotvel-x (degrees 1.2))
+    (sp-flt spt-rotvel-y (degrees 2.4))
+    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
+    (sp-flt spt-accel-y -13.653334)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 2878)
+    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2878)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -3.4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2878
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters -0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -3.4)
+    )
+  )
 
-(set! (-> *part-id-table* 2875) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
-                                    (sp-flt spt-num 16.5)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.3))
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 100.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                    (sp-flt spt-rotvel-x (degrees 1.2))
-                                    (sp-flt spt-rotvel-y (degrees 2.4))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2878)
-                                    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2875
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
+    (sp-flt spt-num 16.5)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.3))
+    (sp-flt spt-r 100.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 100.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+    (sp-flt spt-rotvel-x (degrees 1.2))
+    (sp-flt spt-rotvel-y (degrees 2.4))
+    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
+    (sp-flt spt-accel-y -13.653334)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 2878)
+    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defstate bully-broken-cage-explode (bully-broken-cage)
   :code
diff --git a/goal_src/levels/sunken/orbit-plat.gc b/goal_src/levels/sunken/orbit-plat.gc
index 49f6df2654..4f8aeeec16 100644
--- a/goal_src/levels/sunken/orbit-plat.gc
+++ b/goal_src/levels/sunken/orbit-plat.gc
@@ -70,110 +70,89 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 440)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-orbit-plat-jet"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 1715 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 150 :length 75)
-          (sp-item 1715 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 75 :length 96)
-          (sp-item 1715 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 90 :length 60)
-          (sp-item 1716 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-orbit-plat-jet
+  :id 440
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1715 :fade-after (meters 100) :falloff-to (meters 120) :period 150 :length 75)
+    (sp-item 1715 :fade-after (meters 100) :falloff-to (meters 120) :period 75 :length 96)
+    (sp-item 1715 :fade-after (meters 140) :falloff-to (meters 160) :period 90 :length 60)
+    (sp-item 1716 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
-(set! (-> *part-id-table* 1716)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 18
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.0 1.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 0.0)
-          (sp-flt spt-g 64.0)
-          (sp-flt spt-b 48.0)
-          (sp-rnd-flt spt-a 32.0 96.0 1.0)
-          (sp-rnd-flt spt-vel-z (meters 0.02) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.013333334) (meters 0.006666667) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -1.7066667)
-          (sp-int spt-timer 75)
-          (sp-cpuinfo-flags bit2)
-          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 15.0) 1.0)
-          (sp-end)
-          )
-        )
-      )
+(defpart 1716
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 48.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-z (meters 0.02) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters -0.013333334) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -1.7066667)
+    (sp-int spt-timer 75)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 15.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1715)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 20
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 1.0 2.0 1.0)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec
-              :mask #x1
-              :num 0.05
-              :group #x1
-              :sound-name (static-sound-name "steam-medium")
-              :volume #x333
+(defpart 1715
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 1.0 2.0 1.0)
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 0.05
+                :group #x1
+                :sound-name (static-sound-name "steam-medium")
+                :volume #x333
+                )
               )
-            )
-          (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.75) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 0.0)
-          (sp-flt spt-g 96.0)
-          (sp-flt spt-b 128.0)
-          (sp-rnd-flt spt-a 16.0 32.0 1.0)
-          (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.013333334) (meters 0.006666667) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.8)
-          (sp-flt spt-friction 0.96)
-          (sp-int spt-timer 75)
-          (sp-cpuinfo-flags bit2)
-          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 15.0) 1.0)
-          (sp-end)
-          )
-        )
-      )
+    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.75) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters -0.013333334) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.8)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 75)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 15.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1717) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 3.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.7) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-rnd-flt spt-g 16.0 96.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.45) (meters 0.05) 1.0)
-                                    (sp-flt spt-fade-r -0.08888889)
-                                    (sp-int spt-timer 360)
-                                    (sp-cpuinfo-flags bit2 launch-along-z)
-                                    (sp-flt spt-conerot-x (degrees 0.0))
-                                    (sp-flt spt-conerot-y (degrees 0.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters -3.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1717
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 1.0 3.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.7) (meters 0.3) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-rnd-flt spt-g 16.0 96.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-vel-z (meters 0.45) (meters 0.05) 1.0)
+    (sp-flt spt-fade-r -0.08888889)
+    (sp-int spt-timer 360)
+    (sp-cpuinfo-flags bit2 launch-along-z)
+    (sp-flt spt-conerot-x (degrees 0.0))
+    (sp-flt spt-conerot-y (degrees 0.0))
+    (sp-rnd-flt spt-conerot-radius (meters -3) (meters 4) 1.0)
+    )
+  )
 
 (defmethod dummy-20 orbit-plat-bottom ((obj orbit-plat-bottom) (arg0 vector) (arg1 vector))
   (let* ((s5-1 (vector-! (new 'stack-no-clear 'vector) arg1 arg0))
diff --git a/goal_src/levels/sunken/square-platform.gc b/goal_src/levels/sunken/square-platform.gc
index 1a7e5bf19c..8aae475a90 100644
--- a/goal_src/levels/sunken/square-platform.gc
+++ b/goal_src/levels/sunken/square-platform.gc
@@ -77,141 +77,113 @@
   )
 
 
-(set! (-> *part-group-id-table* 437)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-square-platform-breach-splash"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2222 :flags (is-3d)) (sp-item 2315 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-square-platform-breach-splash
+  :id 437
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2222 :flags (is-3d)) (sp-item 2315 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 2222) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.5) (meters 3.5) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2316)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2222
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3.5) (meters 3.5) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.013333334) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 3.2)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 10 29 1)
+    (sp-launcher-by-id spt-next-launcher 2316)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2316)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.17066666) (sp-end))
-        )
-      )
+(defpart 2316
+  :init-specs
+  ((sp-flt spt-fade-a -0.17066666))
+  )
 
-(set! (-> *part-id-table* 2315) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2316)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2315
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters 3) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.013333334) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 3.2)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 10 29 1)
+    (sp-launcher-by-id spt-next-launcher 2316)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 438) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name
-                                       "group-square-platform-submerge-bubbles"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2223))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-square-platform-submerge-bubbles
+  :id 438
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2223))
+  )
 
-(set! (-> *part-id-table* 2223) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-z -16384.0 32768.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.125) (meters 0.025) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 0.8)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata -663298.44)
-                                    (sp-func spt-func 'check-water-level-above-and-die)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2317)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2223
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.125) (meters 0.025) 1.0)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+    (sp-flt spt-fade-a 0.8)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-flt spt-userdata -663298.44)
+    (sp-func spt-func 'check-water-level-above-and-die)
+    (sp-int-plain-rnd spt-next-time 30 29 1)
+    (sp-launcher-by-id spt-next-launcher 2317)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 2317)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
+(defpart 2317
+  :init-specs
+  ((sp-flt spt-fade-a 0.0))
+  )
 
-(set! (-> *part-group-id-table* 439)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-square-platform-submerge-splash"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2222 :flags (is-3d)) (sp-item 2315 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-square-platform-submerge-splash
+  :id 439
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2222 :flags (is-3d)) (sp-item 2315 :flags (is-3d)))
+  )
 
 (defmethod TODO-RENAME-27 square-platform ((obj square-platform) (arg0 symbol))
   (local-vars (v0-3 sound-id) (sv-48 int))
diff --git a/goal_src/levels/sunken/steam-cap.gc b/goal_src/levels/sunken/steam-cap.gc
index f0aafa8218..a810713f75 100644
--- a/goal_src/levels/sunken/steam-cap.gc
+++ b/goal_src/levels/sunken/steam-cap.gc
@@ -45,443 +45,384 @@
   )
 
 
-(set! (-> *part-group-id-table* 441)
-      (new 'static 'sparticle-launch-group
-        :length 7
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-steam-cap-sides"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 7
-          (sp-item 1718 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75)
-          (sp-item 1719 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75 :offset 60)
-          (sp-item 1720 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75 :offset 120)
-          (sp-item 1721 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75)
-          (sp-item 1722 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75 :offset 60)
-          (sp-item 1723 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75 :offset 120)
-          (sp-item 1724 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 180 :length 75 :offset 120)
-          )
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
+(defpartgroup group-steam-cap-sides
+  :id 441
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 1718 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75)
+    (sp-item 1719 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75 :offset 60)
+    (sp-item 1720 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75 :offset 120)
+    (sp-item 1721 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75)
+    (sp-item 1722 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75 :offset 60)
+    (sp-item 1723 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75 :offset 120)
+    (sp-item 1724 :fade-after (meters 60) :falloff-to (meters 60) :period 180 :length 75 :offset 120)
+    )
+  )
 
-(set! (-> *part-id-table* 1724) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-flt spt-num 1.0)
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 4096.0)
-                                    (sp-flt spt-g 2867.2)
-                                    (sp-flt spt-b 3276.8)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1725)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1724
+  :init-specs
+  ((sp-flt spt-num 1.0)
+    (sp-int spt-rot-x 5)
+    (sp-flt spt-r 4096.0)
+    (sp-flt spt-g 2867.2)
+    (sp-flt spt-b 3276.8)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags aux-list)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 1725)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1725)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -2.7306666) (sp-end))
-        )
-      )
+(defpart 1725
+  :init-specs
+  ((sp-flt spt-fade-b -2.7306666))
+  )
 
-(set! (-> *part-id-table* 1718) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1718
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.0 2.0 1.0)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 0.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.01))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.10666667)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 1726)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1721) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1721
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.0 2.0 1.0)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 0.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.01))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.10666667)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 1726)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1719) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1719
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.0 2.0 1.0)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 0.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.01))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.10666667)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 1726)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1722) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1722
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.0 2.0 1.0)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 0.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.01))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.10666667)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 1726)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1720) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1720
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.0 2.0 1.0)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 0.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.01))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.10666667)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 1726)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1723) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1723
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.0 2.0 1.0)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 0.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.01))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.10666667)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 1726)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1726)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 1726
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
+  )
 
-(set! (-> *part-group-id-table* 442)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-steam-cap-plume"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 1727 :fade-after (meters 120.0) :falloff-to (meters 160.0))
-          (sp-item 1728 :fade-after (meters 120.0) :falloff-to (meters 160.0))
-          (sp-item 1729 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1730 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 131072.0)
-        )
-      )
+(defpartgroup group-steam-cap-plume
+  :id 442
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 1727 :fade-after (meters 120) :falloff-to (meters 160))
+    (sp-item 1728 :fade-after (meters 120) :falloff-to (meters 160))
+    (sp-item 1729 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1730 :fade-after (meters 60) :falloff-to (meters 60) :flags (start-dead))
+    )
+  )
 
-(set! (-> *part-group-id-table* 443) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-steam-cap-plume-spread"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1731 :fade-after (meters 120.0) :falloff-to (meters 160.0))
-                                         (sp-item 1732 :fade-after (meters 120.0) :falloff-to (meters 160.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 131072.0)
-                                       )
-      )
+(defpartgroup group-steam-cap-plume-spread
+  :id 443
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 1731 :fade-after (meters 120) :falloff-to (meters 160))
+    (sp-item 1732 :fade-after (meters 120) :falloff-to (meters 160))
+    )
+  )
 
-(set! (-> *part-id-table* 1730) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-flt spt-num 0.4)
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 6144.0)
-                                    (sp-flt spt-g 2867.2)
-                                    (sp-flt spt-b 3276.8)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.94 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1725)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1730
+  :init-specs
+  ((sp-flt spt-num 0.4)
+    (sp-int spt-rot-x 5)
+    (sp-flt spt-r 6144.0)
+    (sp-flt spt-g 2867.2)
+    (sp-flt spt-b 3276.8)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-rnd-flt spt-friction 0.94 0.02 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags aux-list)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 1725)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1732) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1735)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1732
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 1735)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 15.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1731) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1735)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1731
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-flt spt-y (meters -0.5))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-accel-y 0.13653333)
+    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 1735)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 15.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0.5))
+    )
+  )
 
-(set! (-> *part-id-table* 1735)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.32) (sp-end))
-        )
-      )
+(defpart 1735
+  :init-specs
+  ((sp-flt spt-fade-a -0.32))
+  )
 
-(set! (-> *part-id-table* 1727)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters -1.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-flt spt-accel-y 2.7306666)
-                                                     (sp-int spt-timer 153)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1727
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.5 0.5 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+    (sp-flt spt-y (meters -1))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-flt spt-vel-y (meters 0.053333335))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-accel-y 2.7306666)
+    (sp-int spt-timer 153)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1728)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
-                                                     (sp-flt spt-y (meters -1.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-flt spt-accel-y 2.7306666)
-                                                     (sp-int spt-timer 153)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1728
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 0.5 0.5 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
+    (sp-flt spt-y (meters -1))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-vel-y (meters 0.053333335))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-flt spt-accel-y 2.7306666)
+    (sp-int spt-timer 153)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1729)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 11
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 153)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1729
+  :init-specs
+  ((sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-int spt-rot-x 5)
+    (sp-flt spt-r 6144.0)
+    (sp-flt spt-g 2457.6)
+    (sp-flt spt-b 3276.8)
+    (sp-flt spt-vel-y (meters 0.053333335))
+    (sp-int spt-timer 153)
+    (sp-cpuinfo-flags aux-list)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defskelgroup *steam-cap-sg* steam-cap
   0
diff --git a/goal_src/levels/sunken/sun-exit-chamber.gc b/goal_src/levels/sunken/sun-exit-chamber.gc
index 0a81386a69..0629711bea 100644
--- a/goal_src/levels/sunken/sun-exit-chamber.gc
+++ b/goal_src/levels/sunken/sun-exit-chamber.gc
@@ -126,85 +126,73 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 620)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-exit-chamber-ripples"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2512 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-exit-chamber-ripples
+  :id 620
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2512 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 2513) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-ocean-height)
-                                    (sp-flt spt-num 0.25)
-                                    (sp-rnd-flt spt-x (meters 5.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-userdata 2048.0)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2514)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2513
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-func spt-birth-func 'birth-func-ocean-height)
+    (sp-flt spt-num 0.25)
+    (sp-rnd-flt spt-x (meters 5) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 6) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.02) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 3.2)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-flt spt-userdata 2048.0)
+    (sp-int-plain-rnd spt-next-time 10 29 1)
+    (sp-launcher-by-id spt-next-launcher 2514)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2514)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.094814815) (sp-end))
-        )
-      )
+(defpart 2514
+  :init-specs
+  ((sp-flt spt-fade-a -0.094814815))
+  )
 
-(set! (-> *part-id-table* 2512) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-ocean-height)
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters 6.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.5) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-userdata 2048.0)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2514)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2512
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-func spt-birth-func 'birth-func-ocean-height)
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters 6) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3.5) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 3.2)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-flt spt-userdata 2048.0)
+    (sp-int-plain-rnd spt-next-time 10 29 1)
+    (sp-launcher-by-id spt-next-launcher 2514)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defmethod dummy-20 blue-eco-charger-orb ((obj blue-eco-charger-orb) (arg0 float))
   (set-vector!
@@ -658,28 +646,25 @@
     )
   )
 
-(set! (-> *part-id-table* 2515) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-accel-y 2.7306666)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-above-and-die)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2515
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 40.0 24.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+    (sp-flt spt-accel-y 2.7306666)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-above-and-die)
+    )
+  )
 
 (defmethod dummy-24 exit-chamber ((obj exit-chamber) (arg0 float))
   (let ((s4-0 (-> obj node-list data 3 bone transform))
diff --git a/goal_src/levels/sunken/sunken-obs.gc b/goal_src/levels/sunken/sunken-obs.gc
index 0df1ec20e9..8a83521fdd 100644
--- a/goal_src/levels/sunken/sunken-obs.gc
+++ b/goal_src/levels/sunken/sunken-obs.gc
@@ -40,70 +40,60 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 436) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-side-to-side-plat"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1713 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1714 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-side-to-side-plat
+  :id 436
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1713 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1714 :fade-after (meters 160) :falloff-to (meters 160))
+    )
+  )
 
-(set! (-> *part-id-table* 1713)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-flt spt-num 4.0)
-                                                     (sp-rnd-flt spt-x (meters -11.0) (meters 22.0) 1.0)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 5324.8)
-                                                     (sp-flt spt-g 4096.0)
-                                                     (sp-flt spt-b 3686.4)
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-fade-b -16.383999)
-                                                     (sp-int spt-timer 25)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 140.0) (degrees 40.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 3.0))
-                                                     (sp-flt spt-rotate-y (degrees 18.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1713
+  :init-specs
+  ((sp-flt spt-num 4.0)
+    (sp-rnd-flt spt-x (meters -11) (meters 22) 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-int spt-rot-x 5)
+    (sp-flt spt-r 5324.8)
+    (sp-flt spt-g 4096.0)
+    (sp-flt spt-b 3686.4)
+    (sp-flt spt-vel-y (meters 0.0033333334))
+    (sp-flt spt-fade-b -16.383999)
+    (sp-int spt-timer 25)
+    (sp-cpuinfo-flags aux-list)
+    (sp-rnd-flt spt-conerot-x (degrees 140.0) (degrees 40.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 3))
+    (sp-flt spt-rotate-y (degrees 18.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1714) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-x (meters -11.0) (meters 22.0) 1.0)
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-flt spt-fade-g -0.42666668)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.13653333)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 130.0) (degrees 100.00001) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 3.0))
-                                    (sp-flt spt-rotate-y (degrees 18.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1714
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-x (meters -11) (meters 22) 1.0)
+    (sp-flt spt-y (meters 1.5))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-flt spt-vel-y (meters 0.01))
+    (sp-flt spt-fade-g -0.42666668)
+    (sp-flt spt-fade-a -0.32)
+    (sp-flt spt-accel-y -0.13653333)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 130.0) (degrees 100.00001) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 3))
+    (sp-flt spt-rotate-y (degrees 18.0))
+    )
+  )
 
 (defmethod get-unlit-skel side-to-side-plat ((obj side-to-side-plat))
   *side-to-side-plat-sg*
diff --git a/goal_src/levels/sunken/sunken-part.gc b/goal_src/levels/sunken/sunken-part.gc
index b0dd94c885..3861afb04d 100644
--- a/goal_src/levels/sunken/sunken-part.gc
+++ b/goal_src/levels/sunken/sunken-part.gc
@@ -16,16 +16,11 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 332)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-183"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1420 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1419)
+(defpartgroup group-sunken-heatpipe-183
+  :id 332
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1420 :fade-after (meters 80) :falloff-to (meters 80) :binding 1419)
     (sp-item 1419 :flags (bit1 start-dead launch-asap))
     (sp-item 1419 :flags (bit1 start-dead launch-asap))
     (sp-item 1419 :flags (bit1 start-dead launch-asap))
@@ -51,19 +46,13 @@
     (sp-item 1419 :flags (bit1 start-dead launch-asap))
     (sp-item 1419 :flags (bit1 start-dead launch-asap))
     (sp-item 1419 :flags (bit1 start-dead launch-asap))
-    (sp-item 1421 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1421 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1420)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1420
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.5))
     (sp-flt spt-y (meters 0.2))
@@ -75,22 +64,17 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 95.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 5120.0)
-    (sp-end)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 5120.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1419)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1419
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-flt spt-x (meters 4.0))
+    (sp-flt spt-x (meters 4))
     (sp-flt spt-y (meters 4.2222223))
-    (sp-flt spt-z 4710.4)
+    (sp-flt spt-z (meters 1.15))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -98,35 +82,24 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1422)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.64)
-    (sp-end)
-    )
-   )
+(defpart 1422
+  :init-specs
+  ((sp-flt spt-fade-a -0.64))
   )
 
-(set!
-  (-> *part-id-table* 1421)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-flt spt-num 0.25)
+(defpart 1421
+  :init-specs
+  ((sp-flt spt-num 0.25)
     (sp-flt spt-x (meters -2.5))
     (sp-flt spt-y (meters 0.2))
     (sp-int spt-rot-x 6)
@@ -140,25 +113,18 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 95.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 5.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 333)
-  (new 'static 'sparticle-launch-group
-   :length 98
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-tunnel-bubbles-27"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 98
-    (sp-item 1425 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1425 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1426 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1426 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-tunnel-bubbles-27
+  :id 333
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1425 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1425 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1426 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1426 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -207,68 +173,62 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1427 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1428 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1427 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1428 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1427)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1427
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -37.0) (meters 64.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -37) (meters 64) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -282,21 +242,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1428)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1428
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -37.0) (meters 64.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -37) (meters 64) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -310,21 +265,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1425)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1425
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -37.0) (meters 64.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -37) (meters 64) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -333,21 +283,16 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1426)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1426
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -37.0) (meters 64.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -37) (meters 64) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -356,45 +301,29 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1429)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
+(defpart 1429
+  :init-specs
+  ((sp-flt spt-fade-a 0.0)
     (sp-int-plain-rnd spt-next-time 1800 1799 1)
     (sp-launcher-by-id spt-next-launcher 1430)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1430)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.10666667)
-    (sp-end)
-    )
-   )
+(defpart 1430
+  :init-specs
+  ((sp-flt spt-fade-a -0.10666667))
   )
 
-(set!
-  (-> *part-id-table* 1423)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1423
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 409.6)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0.1))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-flt spt-scale-y (meters 0.9))
     (sp-flt spt-r 255.0)
@@ -403,8 +332,8 @@
     (sp-flt spt-a 0.0)
     (sp-flt spt-omega 0.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.21333334) 1 1747.6267)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-scalevel-x (meters -0.0050000004))
     (sp-flt spt-scalevel-y (meters 0.0016666667))
     (sp-flt spt-fade-a 1.6)
@@ -412,77 +341,57 @@
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int spt-next-time 30)
     (sp-launcher-by-id spt-next-launcher 1431)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1431)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 8
-    (sp-flt spt-scale-x (meters 1.2))
-    (sp-flt spt-scale-y (meters 1.0))
+(defpart 1431
+  :init-specs
+  ((sp-flt spt-scale-x (meters 1.2))
+    (sp-flt spt-scale-y (meters 1))
     (sp-flt spt-scalevel-x (meters 0.010000001))
     (sp-flt spt-scalevel-y (meters -0.0033333334))
     (sp-flt spt-fade-a 0.0)
     (sp-int spt-next-time 30)
     (sp-launcher-by-id spt-next-launcher 1432)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1432)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-scale-x (meters 1.5))
+(defpart 1432
+  :init-specs
+  ((sp-flt spt-scale-x (meters 1.5))
     (sp-flt spt-scale-y (meters 0.9))
     (sp-flt spt-scalevel-x (meters -0.010000001))
     (sp-flt spt-scalevel-y (meters 0.0033333334))
     (sp-int spt-next-time 30)
     (sp-launcher-by-id spt-next-launcher 1431)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1433)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
-    (sp-flt spt-y (meters 0.0))
-    (sp-flt spt-z 0.0)
+(defpart 1433
+  :init-specs
+  ((sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-z (meters 0))
     (sp-int spt-rot-x 9)
     (sp-flt spt-r 2048.0)
     (sp-flt spt-g 1638.4)
     (sp-flt spt-b 1228.8)
     (sp-flt spt-omega 0.0)
-    (sp-flt spt-vel-x (meters 0.0))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-x (meters 0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3 bit7 aux-list)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1424)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1424
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -497,49 +406,31 @@
     (sp-rnd-flt spt-conerot-x (degrees 110.0) (degrees 70.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 0.4))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1434)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0016666667) 1.0)
+(defpart 1434
+  :init-specs
+  ((sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0016666667) 1.0)
     (sp-flt spt-accel-y -0.27306667)
     (sp-int spt-next-time 75)
     (sp-launcher-by-id spt-next-launcher 1435)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1435)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.14222223)
-    (sp-end)
-    )
-   )
+(defpart 1435
+  :init-specs
+  ((sp-flt spt-fade-a -0.14222223))
   )
 
-(set!
-  (-> *part-group-id-table* 334)
-  (new 'static 'sparticle-launch-group
-   :length 98
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-tunnel-bubbles-32"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 98
-    (sp-item 1436 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1436 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1437 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1437 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-tunnel-bubbles-32
+  :id 334
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1436 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1436 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1437 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1437 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -588,68 +479,62 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1438 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1439 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1438 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1439 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1438)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1438
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -24.0) (meters 48.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -24) (meters 48) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -663,21 +548,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees -23.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1439)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1439
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -24.0) (meters 48.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -24) (meters 48) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -691,21 +571,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees -23.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1436)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1436
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -24.0) (meters 48.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -24) (meters 48) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -714,21 +589,16 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -23.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1437)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1437
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -24.0) (meters 48.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -24) (meters 48) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -737,24 +607,17 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -23.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 335)
-  (new 'static 'sparticle-launch-group
-   :length 98
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-tunnel-bubbles-33"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 98
-    (sp-item 1440 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1440 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1441 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1441 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-tunnel-bubbles-33
+  :id 335
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1440 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1440 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1441 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1441 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -803,68 +666,62 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1442 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1443 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1442 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1443 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1442)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1442
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.02)
-    (sp-rnd-flt spt-x (meters -13.0) (meters 25.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -13) (meters 25) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -878,21 +735,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees 26.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1443)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1443
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.02)
-    (sp-rnd-flt spt-x (meters -13.0) (meters 25.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -13) (meters 25) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -906,21 +758,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees 26.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1440)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1440
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters -13.0) (meters 25.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -13) (meters 25) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -929,21 +776,16 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 26.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1441)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1441
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters -13.0) (meters 25.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -13) (meters 25) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -952,24 +794,17 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 26.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 336)
-  (new 'static 'sparticle-launch-group
-   :length 98
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-tunnel-bubbles-199"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 98
-    (sp-item 1444 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1444 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1445 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1445 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-tunnel-bubbles-199
+  :id 336
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1444 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1444 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1445 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1445 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1018,68 +853,62 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1446 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1447 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1446 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1447 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1446)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1446
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -25.0) (meters 36.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -25) (meters 36) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1093,21 +922,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees 26.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1447)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1447
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -25.0) (meters 36.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -25) (meters 36) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1121,21 +945,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees 26.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1444)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1444
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -25.0) (meters 36.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -25) (meters 36) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1144,21 +963,16 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 26.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1445)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1445
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -25.0) (meters 36.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -25) (meters 36) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1167,24 +981,17 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 26.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 337)
-  (new 'static 'sparticle-launch-group
-   :length 98
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-tunnel-bubbles-281"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 98
-    (sp-item 1448 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1448 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1449 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1449 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-tunnel-bubbles-281
+  :id 337
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1448 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1448 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1449 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1449 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1233,68 +1040,62 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1450 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1451 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1450 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1451 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1450)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1450
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1308,21 +1109,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1451)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1451
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1336,21 +1132,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1448)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1448
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1359,21 +1150,16 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1449)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1449
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1382,24 +1168,17 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 338)
-  (new 'static 'sparticle-launch-group
-   :length 98
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-tunnel-bubbles-202"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 98
-    (sp-item 1452 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1452 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1453 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1453 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-tunnel-bubbles-202
+  :id 338
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1452 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1452 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1453 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1453 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1448,68 +1227,62 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1454 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1455 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1454 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1455 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1454)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1454
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -22.0) (meters 44.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -22) (meters 44) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1523,21 +1296,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees -5.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1455)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1455
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -22.0) (meters 44.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -22) (meters 44) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1551,21 +1319,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees -5.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1452)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1452
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -22.0) (meters 44.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -22) (meters 44) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1574,21 +1337,16 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -5.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1453)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1453
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -22.0) (meters 44.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
+    (sp-rnd-flt spt-x (meters -22) (meters 44) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1597,22 +1355,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees -5.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 339)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-35"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1456 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1456 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-35
+  :id 339
+  :bounds (static-bspherem 0 8 0 32)
+  :parts
+  ((sp-item 1456 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1456 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1636,45 +1387,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1457 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1457 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 32768.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1457)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1457
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1688,21 +1433,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees -65.0) (degrees 30.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1456)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1456
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1711,37 +1451,23 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees -65.0) (degrees 30.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 340)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-helix-bubbles-398"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 1458 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 163840.0)
-   )
+(defpartgroup group-sunken-helix-bubbles-398
+  :id 340
+  :bounds (static-bspherem 0 4 0 40)
+  :parts
+  ((sp-item 1458 :fade-after (meters 100) :falloff-to (meters 100)))
   )
 
-(set!
-  (-> *part-id-table* 1458)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1458
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.75)
-    (sp-rnd-flt spt-x (meters -5.0) (meters 10.0) 1.0)
-    (sp-rnd-flt spt-y (meters -10.0) (meters 15.0) 1.0)
-    (sp-rnd-flt spt-z -118784.0 24576.0 1.0)
+    (sp-rnd-flt spt-x (meters -5) (meters 10) 1.0)
+    (sp-rnd-flt spt-y (meters -10) (meters 15) 1.0)
+    (sp-rnd-flt spt-z (meters -29) (meters 6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1755,61 +1481,36 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1459)
     (sp-rnd-int-flt spt-rotate-y (degrees -67.5) 6 8192.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1459)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
+(defpart 1459
+  :init-specs
+  ((sp-flt spt-fade-a 0.0)
     (sp-int-plain-rnd spt-next-time 900 899 1)
     (sp-launcher-by-id spt-next-launcher 1460)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1460)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.10666667)
-    (sp-end)
-    )
-   )
+(defpart 1460
+  :init-specs
+  ((sp-flt spt-fade-a -0.10666667))
   )
 
-(set!
-  (-> *part-group-id-table* 341)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-helix-bubbles-397"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 1461 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 163840.0)
-   )
+(defpartgroup group-sunken-helix-bubbles-397
+  :id 341
+  :bounds (static-bspherem 0 4 0 40)
+  :parts
+  ((sp-item 1461 :fade-after (meters 100) :falloff-to (meters 100)))
   )
 
-(set!
-  (-> *part-id-table* 1461)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1461
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.75)
-    (sp-rnd-flt spt-x (meters -5.0) (meters 10.0) 1.0)
-    (sp-rnd-flt spt-y (meters -20.0) (meters 30.0) 1.0)
-    (sp-rnd-flt spt-z -118784.0 24576.0 1.0)
+    (sp-rnd-flt spt-x (meters -5) (meters 10) 1.0)
+    (sp-rnd-flt spt-y (meters -20) (meters 30) 1.0)
+    (sp-rnd-flt spt-z (meters -29) (meters 6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1823,21 +1524,14 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1459)
     (sp-rnd-int-flt spt-rotate-y (degrees -67.5) 7 8192.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 342)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-355"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1463 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1462)
+(defpartgroup group-sunken-heatpipe-355
+  :id 342
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1463 :fade-after (meters 80) :falloff-to (meters 80) :binding 1462)
     (sp-item 1462 :flags (bit1 start-dead launch-asap))
     (sp-item 1462 :flags (bit1 start-dead launch-asap))
     (sp-item 1462 :flags (bit1 start-dead launch-asap))
@@ -1863,19 +1557,13 @@
     (sp-item 1462 :flags (bit1 start-dead launch-asap))
     (sp-item 1462 :flags (bit1 start-dead launch-asap))
     (sp-item 1462 :flags (bit1 start-dead launch-asap))
-    (sp-item 1464 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1464 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1463)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1463
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.5))
@@ -1887,23 +1575,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees 145.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1462)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1462
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 2.6666667))
     (sp-flt spt-y (meters 3.3333333))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1911,24 +1594,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1464)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1464
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
@@ -1942,23 +1620,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees 145.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 343)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-361"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1466 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1465)
+(defpartgroup group-sunken-heatpipe-361
+  :id 343
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1466 :fade-after (meters 80) :falloff-to (meters 80) :binding 1465)
     (sp-item 1465 :flags (bit1 start-dead launch-asap))
     (sp-item 1465 :flags (bit1 start-dead launch-asap))
     (sp-item 1465 :flags (bit1 start-dead launch-asap))
@@ -1984,19 +1655,13 @@
     (sp-item 1465 :flags (bit1 start-dead launch-asap))
     (sp-item 1465 :flags (bit1 start-dead launch-asap))
     (sp-item 1465 :flags (bit1 start-dead launch-asap))
-    (sp-item 1467 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1467 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1466)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1466
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.5))
@@ -2008,23 +1673,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees 220.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1465)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1465
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 5.5555553))
     (sp-flt spt-y (meters 3.3333333))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2032,24 +1692,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1467)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1467
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
@@ -2063,23 +1718,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees 220.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 344)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-360"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1469 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1468)
+(defpartgroup group-sunken-heatpipe-360
+  :id 344
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1469 :fade-after (meters 80) :falloff-to (meters 80) :binding 1468)
     (sp-item 1468 :flags (bit1 start-dead launch-asap))
     (sp-item 1468 :flags (bit1 start-dead launch-asap))
     (sp-item 1468 :flags (bit1 start-dead launch-asap))
@@ -2105,19 +1753,13 @@
     (sp-item 1468 :flags (bit1 start-dead launch-asap))
     (sp-item 1468 :flags (bit1 start-dead launch-asap))
     (sp-item 1468 :flags (bit1 start-dead launch-asap))
-    (sp-item 1470 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1470 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1469)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1469
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.5))
@@ -2129,23 +1771,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees 400.00003))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1468)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1468
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 5.5555553))
     (sp-flt spt-y (meters 4.6666665))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2153,24 +1790,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1470)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1470
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
@@ -2184,23 +1816,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees 400.00003))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 345)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-377"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1472 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1471)
+(defpartgroup group-sunken-heatpipe-377
+  :id 345
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1472 :fade-after (meters 80) :falloff-to (meters 80) :binding 1471)
     (sp-item 1471 :flags (bit1 start-dead launch-asap))
     (sp-item 1471 :flags (bit1 start-dead launch-asap))
     (sp-item 1471 :flags (bit1 start-dead launch-asap))
@@ -2226,19 +1851,13 @@
     (sp-item 1471 :flags (bit1 start-dead launch-asap))
     (sp-item 1471 :flags (bit1 start-dead launch-asap))
     (sp-item 1471 :flags (bit1 start-dead launch-asap))
-    (sp-item 1473 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1473 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1472)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1472
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.5))
@@ -2250,23 +1869,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees 375.00003))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1471)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1471
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 4.6666665))
     (sp-flt spt-y (meters 4.6666665))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2274,24 +1888,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1473)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1473
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
@@ -2305,23 +1914,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees 375.00003))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 346)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-376"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1475 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1474)
+(defpartgroup group-sunken-heatpipe-376
+  :id 346
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1475 :fade-after (meters 80) :falloff-to (meters 80) :binding 1474)
     (sp-item 1474 :flags (bit1 start-dead launch-asap))
     (sp-item 1474 :flags (bit1 start-dead launch-asap))
     (sp-item 1474 :flags (bit1 start-dead launch-asap))
@@ -2347,19 +1949,13 @@
     (sp-item 1474 :flags (bit1 start-dead launch-asap))
     (sp-item 1474 :flags (bit1 start-dead launch-asap))
     (sp-item 1474 :flags (bit1 start-dead launch-asap))
-    (sp-item 1476 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1476 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1475)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1475
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.5))
@@ -2371,23 +1967,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees 195.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1474)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1474
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 4.6666665))
     (sp-flt spt-y (meters 3.3333333))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2395,24 +1986,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1476)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1476
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
@@ -2426,23 +2012,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees 195.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 347)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-375"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1478 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1477)
+(defpartgroup group-sunken-heatpipe-375
+  :id 347
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1478 :fade-after (meters 80) :falloff-to (meters 80) :binding 1477)
     (sp-item 1477 :flags (bit1 start-dead launch-asap))
     (sp-item 1477 :flags (bit1 start-dead launch-asap))
     (sp-item 1477 :flags (bit1 start-dead launch-asap))
@@ -2468,19 +2047,13 @@
     (sp-item 1477 :flags (bit1 start-dead launch-asap))
     (sp-item 1477 :flags (bit1 start-dead launch-asap))
     (sp-item 1477 :flags (bit1 start-dead launch-asap))
-    (sp-item 1479 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1479 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1478)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1478
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.5))
@@ -2492,23 +2065,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees 392.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1477)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1477
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 5.3333335))
     (sp-flt spt-y (meters 4.4444447))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2516,24 +2084,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1479)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1479
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
@@ -2547,23 +2110,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees 392.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 348)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-374"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1481 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1480)
+(defpartgroup group-sunken-heatpipe-374
+  :id 348
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1481 :fade-after (meters 80) :falloff-to (meters 80) :binding 1480)
     (sp-item 1480 :flags (bit1 start-dead launch-asap))
     (sp-item 1480 :flags (bit1 start-dead launch-asap))
     (sp-item 1480 :flags (bit1 start-dead launch-asap))
@@ -2589,19 +2145,13 @@
     (sp-item 1480 :flags (bit1 start-dead launch-asap))
     (sp-item 1480 :flags (bit1 start-dead launch-asap))
     (sp-item 1480 :flags (bit1 start-dead launch-asap))
-    (sp-item 1482 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1482 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1481)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1481
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.5))
@@ -2613,23 +2163,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees 212.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1480)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1480
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 5.3333335))
     (sp-flt spt-y (meters 3.5555556))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2637,24 +2182,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1482)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1482
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
@@ -2668,23 +2208,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees 212.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 349)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-363"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1484 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1483)
+(defpartgroup group-sunken-heatpipe-363
+  :id 349
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1484 :fade-after (meters 80) :falloff-to (meters 80) :binding 1483)
     (sp-item 1483 :flags (bit1 start-dead launch-asap))
     (sp-item 1483 :flags (bit1 start-dead launch-asap))
     (sp-item 1483 :flags (bit1 start-dead launch-asap))
@@ -2710,19 +2243,13 @@
     (sp-item 1483 :flags (bit1 start-dead launch-asap))
     (sp-item 1483 :flags (bit1 start-dead launch-asap))
     (sp-item 1483 :flags (bit1 start-dead launch-asap))
-    (sp-item 1485 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1485 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1484)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1484
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.3))
@@ -2734,23 +2261,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 95.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees -63.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1483)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1483
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 1.4222223))
     (sp-flt spt-y (meters 4.4444447))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2758,24 +2280,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1485)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1485
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
@@ -2789,23 +2306,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 95.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees -63.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 350)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-362"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1487 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1486)
+(defpartgroup group-sunken-heatpipe-362
+  :id 350
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1487 :fade-after (meters 80) :falloff-to (meters 80) :binding 1486)
     (sp-item 1486 :flags (bit1 start-dead launch-asap))
     (sp-item 1486 :flags (bit1 start-dead launch-asap))
     (sp-item 1486 :flags (bit1 start-dead launch-asap))
@@ -2831,19 +2341,13 @@
     (sp-item 1486 :flags (bit1 start-dead launch-asap))
     (sp-item 1486 :flags (bit1 start-dead launch-asap))
     (sp-item 1486 :flags (bit1 start-dead launch-asap))
-    (sp-item 1488 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1488 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1487)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1487
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.5))
@@ -2855,23 +2359,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees 124.99999))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1486)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1486
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 1.4222223))
     (sp-flt spt-y (meters 3.5555556))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2879,24 +2378,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1488)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1488
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
@@ -2910,23 +2404,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees 124.99999))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 351)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-364"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1490 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1489)
+(defpartgroup group-sunken-heatpipe-364
+  :id 351
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1490 :fade-after (meters 80) :falloff-to (meters 80) :binding 1489)
     (sp-item 1489 :flags (bit1 start-dead launch-asap))
     (sp-item 1489 :flags (bit1 start-dead launch-asap))
     (sp-item 1489 :flags (bit1 start-dead launch-asap))
@@ -2952,19 +2439,13 @@
     (sp-item 1489 :flags (bit1 start-dead launch-asap))
     (sp-item 1489 :flags (bit1 start-dead launch-asap))
     (sp-item 1489 :flags (bit1 start-dead launch-asap))
-    (sp-item 1491 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1491 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1490)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1490
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.3))
@@ -2976,23 +2457,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 96.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees 62.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1489)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1489
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -0.9777778))
     (sp-flt spt-y (meters 3.5555556))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -3000,24 +2476,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1491)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1491
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
@@ -3031,23 +2502,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 96.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees 62.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 352)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-365"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1493 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1492)
+(defpartgroup group-sunken-heatpipe-365
+  :id 352
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1493 :fade-after (meters 80) :falloff-to (meters 80) :binding 1492)
     (sp-item 1492 :flags (bit1 start-dead launch-asap))
     (sp-item 1492 :flags (bit1 start-dead launch-asap))
     (sp-item 1492 :flags (bit1 start-dead launch-asap))
@@ -3073,19 +2537,13 @@
     (sp-item 1492 :flags (bit1 start-dead launch-asap))
     (sp-item 1492 :flags (bit1 start-dead launch-asap))
     (sp-item 1492 :flags (bit1 start-dead launch-asap))
-    (sp-item 1494 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1494 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1493)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1493
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.5))
@@ -3097,23 +2555,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 98.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees -124.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1492)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1492
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -1.1111112))
     (sp-flt spt-y (meters 4.4444447))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -3121,24 +2574,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1494)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1494
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
@@ -3152,11 +2600,9 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 98.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees -124.0))
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/sunken/sunken-part2.gc b/goal_src/levels/sunken/sunken-part2.gc
index 4a25785f1e..7ff2918a88 100644
--- a/goal_src/levels/sunken/sunken-part2.gc
+++ b/goal_src/levels/sunken/sunken-part2.gc
@@ -7,17 +7,12 @@
 
 ;; DECOMP BEGINS
 
-(set!
-  (-> *part-group-id-table* 353)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-34"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1495 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1495 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-34
+  :id 353
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1495 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1495 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -41,45 +36,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1496 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1496 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1496)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1496
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -93,21 +82,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 7.0000005) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1495)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1495
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -116,22 +100,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 7.0000005) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 354)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-36"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1497 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1497 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-36
+  :id 354
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1497 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1497 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -155,45 +132,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1498 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1498 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1498)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1498
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -207,21 +178,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1497)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1497
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -230,22 +196,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 355)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-30"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1499 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1499 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-30
+  :id 355
+  :bounds (static-bspherem 0 4 0 30)
+  :parts
+  ((sp-item 1499 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1499 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -269,45 +228,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1500 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1500 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 122880.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1500)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1500
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -321,21 +274,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees -20.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1499)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1499
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -344,22 +292,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees -20.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 356)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-31"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1501 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1501 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-31
+  :id 356
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1501 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1501 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -383,45 +324,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1502 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1502 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1502)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1502
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -435,21 +370,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees -120.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1501)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1501
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -458,22 +388,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees -120.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 357)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-29"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1503 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1503 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-29
+  :id 357
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1503 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1503 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -497,45 +420,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1504 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1504 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1504)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1504
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -549,21 +466,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1503)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1503
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -572,22 +484,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 358)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-159"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1505 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1505 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-159
+  :id 358
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1505 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1505 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -611,45 +516,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1506 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1506 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1506)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1506
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -663,21 +562,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 60.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1505)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1505
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -686,22 +580,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 60.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 359)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-161"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1507 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1507 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-161
+  :id 359
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1507 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1507 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -725,45 +612,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1508 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1508 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1508)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1508
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -777,21 +658,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 70.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1507)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1507
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -800,22 +676,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 70.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 360)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-204"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1509 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1509 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-204
+  :id 360
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1509 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1509 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -839,45 +708,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1510 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1510 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1510)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1510
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 32768.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 8) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -891,21 +754,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 30.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1509)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1509
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 32768.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 8) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -914,22 +772,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 30.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 361)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-205"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1511 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1511 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-205
+  :id 361
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1511 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1511 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -953,45 +804,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1512 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1512 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1512)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1512
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1005,21 +850,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1511)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1511
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1028,22 +868,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 362)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-203"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1513 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1513 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-203
+  :id 362
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1513 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1513 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1067,45 +900,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1514 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1514 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1514)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1514
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1119,21 +946,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 80.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1513)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1513
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1142,22 +964,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 80.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 363)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-42"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1515 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1515 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-42
+  :id 363
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1515 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1515 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1181,45 +996,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1516 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1516 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1516)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1516
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -25.0) (meters 50.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 16384.0 16384.0 1.0)
+    (sp-rnd-flt spt-x (meters -25) (meters 50) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 4) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1233,21 +1042,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-flt spt-rotate-y (degrees 195.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1515)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1515
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -25.0) (meters 50.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 16384.0 16384.0 1.0)
+    (sp-rnd-flt spt-x (meters -25) (meters 50) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 4) (meters 4) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1256,22 +1060,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 195.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 364)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-41"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1517 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1517 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-41
+  :id 364
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1517 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1517 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1295,45 +1092,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1518 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1518 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1518)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1518
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1347,21 +1138,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees -70.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1517)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1517
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1370,22 +1156,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees -70.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 365)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-206"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1519 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1519 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-206
+  :id 365
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1519 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1519 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1409,45 +1188,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1520 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1520)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1520
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1461,21 +1234,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 170.0) (degrees 30.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1519)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1519
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1484,22 +1252,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 170.0) (degrees 30.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 366)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-201"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1521 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1521 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-201
+  :id 366
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1521 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1521 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1523,45 +1284,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1522 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1522 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1522)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1522
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1575,21 +1330,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees -40.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1521)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1521
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1598,22 +1348,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees -40.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 367)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-3"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1523 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1523 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-3
+  :id 367
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1523 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1523 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1637,45 +1380,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1524 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1524 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1524)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1524
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1689,21 +1426,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1523)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1523
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1712,22 +1444,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 368)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1525 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1525 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-2
+  :id 368
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1525 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1525 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1751,45 +1476,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1526 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1526 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1526)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1526
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 16384.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 4) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1803,21 +1522,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 249.99998) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1525)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1525
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z 16384.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters 4) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1826,21 +1540,14 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 249.99998) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 369)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-382"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1528 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1527)
+(defpartgroup group-sunken-heatpipe-382
+  :id 369
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1528 :fade-after (meters 80) :falloff-to (meters 80) :binding 1527)
     (sp-item 1527 :flags (bit1 start-dead launch-asap))
     (sp-item 1527 :flags (bit1 start-dead launch-asap))
     (sp-item 1527 :flags (bit1 start-dead launch-asap))
@@ -1866,22 +1573,16 @@
     (sp-item 1527 :flags (bit1 start-dead launch-asap))
     (sp-item 1527 :flags (bit1 start-dead launch-asap))
     (sp-item 1527 :flags (bit1 start-dead launch-asap))
-    (sp-item 1529 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1529 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1528)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1528
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1890,50 +1591,40 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
     (sp-flt spt-rotate-y (degrees 50.000004))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1527)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1527
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 6.2222223))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 2457.6)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1529)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1529
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2457.6)
@@ -1945,23 +1636,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
     (sp-flt spt-rotate-y (degrees 50.000004))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 370)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-381"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1531 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1530)
+(defpartgroup group-sunken-heatpipe-381
+  :id 370
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1531 :fade-after (meters 80) :falloff-to (meters 80) :binding 1530)
     (sp-item 1530 :flags (bit1 start-dead launch-asap))
     (sp-item 1530 :flags (bit1 start-dead launch-asap))
     (sp-item 1530 :flags (bit1 start-dead launch-asap))
@@ -1987,22 +1671,16 @@
     (sp-item 1530 :flags (bit1 start-dead launch-asap))
     (sp-item 1530 :flags (bit1 start-dead launch-asap))
     (sp-item 1530 :flags (bit1 start-dead launch-asap))
-    (sp-item 1532 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1532 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1531)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1531
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2011,50 +1689,40 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
     (sp-flt spt-rotate-y (degrees 80.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1530)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1530
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 7.5555553))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 2457.6)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1532)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1532
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2457.6)
@@ -2066,23 +1734,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
     (sp-flt spt-rotate-y (degrees 80.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 371)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-380"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1534 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1533)
+(defpartgroup group-sunken-heatpipe-380
+  :id 371
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1534 :fade-after (meters 80) :falloff-to (meters 80) :binding 1533)
     (sp-item 1533 :flags (bit1 start-dead launch-asap))
     (sp-item 1533 :flags (bit1 start-dead launch-asap))
     (sp-item 1533 :flags (bit1 start-dead launch-asap))
@@ -2108,22 +1769,16 @@
     (sp-item 1533 :flags (bit1 start-dead launch-asap))
     (sp-item 1533 :flags (bit1 start-dead launch-asap))
     (sp-item 1533 :flags (bit1 start-dead launch-asap))
-    (sp-item 1535 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1535 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1534)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1534
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2132,50 +1787,40 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
     (sp-flt spt-rotate-y (degrees 47.5))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1533)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1533
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 6.2222223))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 2457.6)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1535)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1535
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2457.6)
@@ -2187,23 +1832,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
     (sp-flt spt-rotate-y (degrees 47.5))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 372)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-379"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1537 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1536)
+(defpartgroup group-sunken-heatpipe-379
+  :id 372
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1537 :fade-after (meters 80) :falloff-to (meters 80) :binding 1536)
     (sp-item 1536 :flags (bit1 start-dead launch-asap))
     (sp-item 1536 :flags (bit1 start-dead launch-asap))
     (sp-item 1536 :flags (bit1 start-dead launch-asap))
@@ -2229,22 +1867,16 @@
     (sp-item 1536 :flags (bit1 start-dead launch-asap))
     (sp-item 1536 :flags (bit1 start-dead launch-asap))
     (sp-item 1536 :flags (bit1 start-dead launch-asap))
-    (sp-item 1538 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1538 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1537)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1537
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2253,50 +1885,40 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
     (sp-flt spt-rotate-y (degrees 70.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1536)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1536
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 7.111111))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 2457.6)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1538)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1538
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2457.6)
@@ -2308,23 +1930,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
     (sp-flt spt-rotate-y (degrees 70.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 373)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-378"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1540 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1539)
+(defpartgroup group-sunken-heatpipe-378
+  :id 373
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1540 :fade-after (meters 80) :falloff-to (meters 80) :binding 1539)
     (sp-item 1539 :flags (bit1 start-dead launch-asap))
     (sp-item 1539 :flags (bit1 start-dead launch-asap))
     (sp-item 1539 :flags (bit1 start-dead launch-asap))
@@ -2350,22 +1965,16 @@
     (sp-item 1539 :flags (bit1 start-dead launch-asap))
     (sp-item 1539 :flags (bit1 start-dead launch-asap))
     (sp-item 1539 :flags (bit1 start-dead launch-asap))
-    (sp-item 1541 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1541 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1540)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1540
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2374,50 +1983,40 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
     (sp-flt spt-rotate-y (degrees 23.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1539)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1539
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 5.111111))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 2457.6)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1541)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1541
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2457.6)
@@ -2429,24 +2028,17 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
     (sp-flt spt-rotate-y (degrees 23.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 374)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-402"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1542 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1542 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-402
+  :id 374
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1542 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1542 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -2470,45 +2062,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1543 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1543 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1543)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1543
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -2522,21 +2108,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 190.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1542)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1542
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2545,22 +2126,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 190.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 375)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-401"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1544 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1544 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-401
+  :id 375
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1544 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1544 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -2584,45 +2158,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1545 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1545 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1545)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1545
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -2636,21 +2204,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 105.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1544)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1544
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2659,22 +2222,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 105.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 376)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-400"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1546 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1546 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-400
+  :id 376
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1546 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1546 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -2698,45 +2254,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1547 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1547 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1547)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1547
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -2750,21 +2300,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 20.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1546)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1546
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2773,22 +2318,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 20.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 377)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-399"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1548 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1548 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-399
+  :id 377
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1548 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1548 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -2812,45 +2350,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1549 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1549 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1549)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1549
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -2864,21 +2396,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 225.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1548)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1548
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2887,9 +2414,7 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 225.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/sunken/sunken-part3.gc b/goal_src/levels/sunken/sunken-part3.gc
index 235c564009..a149e5f673 100644
--- a/goal_src/levels/sunken/sunken-part3.gc
+++ b/goal_src/levels/sunken/sunken-part3.gc
@@ -7,16 +7,11 @@
 
 ;; DECOMP BEGINS
 
-(set!
-  (-> *part-group-id-table* 378)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-383"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1551 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1550)
+(defpartgroup group-sunken-heatpipe-383
+  :id 378
+  :bounds (static-bspherem 0 1 0 3)
+  :parts
+  ((sp-item 1551 :fade-after (meters 80) :falloff-to (meters 80) :binding 1550)
     (sp-item 1550 :flags (bit1 start-dead launch-asap))
     (sp-item 1550 :flags (bit1 start-dead launch-asap))
     (sp-item 1550 :flags (bit1 start-dead launch-asap))
@@ -42,22 +37,16 @@
     (sp-item 1550 :flags (bit1 start-dead launch-asap))
     (sp-item 1550 :flags (bit1 start-dead launch-asap))
     (sp-item 1550 :flags (bit1 start-dead launch-asap))
-    (sp-item 1552 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1552 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 12288.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1551)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1551
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -66,50 +55,40 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1550)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1550
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-flt spt-x (meters 0.0))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 2457.6)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1552)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1552
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2457.6)
@@ -121,23 +100,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 379)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-198"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1554 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1553)
+(defpartgroup group-sunken-heatpipe-198
+  :id 379
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1554 :fade-after (meters 80) :falloff-to (meters 80) :binding 1553)
     (sp-item 1553 :flags (bit1 start-dead launch-asap))
     (sp-item 1553 :flags (bit1 start-dead launch-asap))
     (sp-item 1553 :flags (bit1 start-dead launch-asap))
@@ -163,22 +135,16 @@
     (sp-item 1553 :flags (bit1 start-dead launch-asap))
     (sp-item 1553 :flags (bit1 start-dead launch-asap))
     (sp-item 1553 :flags (bit1 start-dead launch-asap))
-    (sp-item 1555 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1555 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1554)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1554
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -187,50 +153,40 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
     (sp-flt spt-rotate-y (degrees 120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1553)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1553
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 1.3333334))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 2457.6)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1555)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1555
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2457.6)
@@ -242,23 +198,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
     (sp-flt spt-rotate-y (degrees 120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 380)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-189"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1557 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1556)
+(defpartgroup group-sunken-heatpipe-189
+  :id 380
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1557 :fade-after (meters 80) :falloff-to (meters 80) :binding 1556)
     (sp-item 1556 :flags (bit1 start-dead launch-asap))
     (sp-item 1556 :flags (bit1 start-dead launch-asap))
     (sp-item 1556 :flags (bit1 start-dead launch-asap))
@@ -284,22 +233,16 @@
     (sp-item 1556 :flags (bit1 start-dead launch-asap))
     (sp-item 1556 :flags (bit1 start-dead launch-asap))
     (sp-item 1556 :flags (bit1 start-dead launch-asap))
-    (sp-item 1558 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1558 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1557)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1557
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 0.7)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -308,50 +251,40 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
     (sp-flt spt-rotate-y (degrees 116.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1556)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1556
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 3.0)
     (sp-flt spt-x (meters 1.1555556))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 2457.6)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1558)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.05)
+(defpart 1558
+  :init-specs
+  ((sp-flt spt-num 0.05)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2457.6)
@@ -363,23 +296,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
     (sp-flt spt-rotate-y (degrees 116.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 381)
-  (new 'static 'sparticle-launch-group
-   :length 28
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-193"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 28
-    (sp-item 1560 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1559)
+(defpartgroup group-sunken-heatpipe-193
+  :id 381
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1560 :fade-after (meters 80) :falloff-to (meters 80) :binding 1559)
     (sp-item 1559 :flags (bit1 start-dead launch-asap))
     (sp-item 1559 :flags (bit1 start-dead launch-asap))
     (sp-item 1559 :flags (bit1 start-dead launch-asap))
@@ -405,22 +331,16 @@
     (sp-item 1559 :flags (bit1 start-dead launch-asap))
     (sp-item 1559 :flags (bit1 start-dead launch-asap))
     (sp-item 1559 :flags (bit1 start-dead launch-asap))
-    (sp-item 1561 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-    (sp-item 1562 :fade-after (meters 60.0) :falloff-to (meters 60.0))
+    (sp-item 1561 :fade-after (meters 64) :falloff-to (meters 64))
+    (sp-item 1562 :fade-after (meters 60) :falloff-to (meters 60))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1560)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1560
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-flt spt-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
     (sp-flt spt-y (meters -1.4))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -430,48 +350,38 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 0.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
     (sp-flt spt-rotate-y (degrees 116.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1559)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1559
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 1.1555556))
-    (sp-flt spt-y (meters 0.0))
-    (sp-flt spt-z 2457.6)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-z (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1561)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-flt spt-num 1.0)
+(defpart 1561
+  :init-specs
+  ((sp-flt spt-num 1.0)
     (sp-rnd-flt spt-y (meters -1.4) (meters 2.8) 1.0)
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 3276.8)
@@ -484,17 +394,12 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1562)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1562
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-y (meters -1.4) (meters 2.8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
@@ -511,22 +416,15 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-flt spt-conerot-radius (meters 1.0))
-    (sp-end)
+    (sp-flt spt-conerot-radius (meters 1))
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 382)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-207"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1564 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1563)
+(defpartgroup group-sunken-heatpipe-207
+  :id 382
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1564 :fade-after (meters 80) :falloff-to (meters 80) :binding 1563)
     (sp-item 1563 :flags (bit1 start-dead launch-asap))
     (sp-item 1563 :flags (bit1 start-dead launch-asap))
     (sp-item 1563 :flags (bit1 start-dead launch-asap))
@@ -552,22 +450,16 @@
     (sp-item 1563 :flags (bit1 start-dead launch-asap))
     (sp-item 1563 :flags (bit1 start-dead launch-asap))
     (sp-item 1563 :flags (bit1 start-dead launch-asap))
-    (sp-item 1565 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1565 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1564)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1564
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -576,50 +468,40 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
     (sp-flt spt-rotate-y (degrees 25.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1563)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1563
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 5.1555557))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 2457.6)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1565)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1565
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -1.4))
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2457.6)
@@ -631,24 +513,17 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
     (sp-flt spt-rotate-y (degrees 25.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 383)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-388"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1566 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1566 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-388
+  :id 383
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1566 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1566 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -672,45 +547,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1567 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1567 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1567)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1567
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 24.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 24) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -724,21 +593,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1566)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1566
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 24.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 24) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -747,22 +611,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 384)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-387"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1568 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1568 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-387
+  :id 384
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1568 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1568 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -786,45 +643,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1569 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1569 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1569)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1569
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -838,21 +689,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 40.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1568)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1568
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -861,22 +707,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 40.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 385)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-386"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1570 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1570 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-386
+  :id 385
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1570 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1570 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -900,45 +739,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1571 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1571 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1571)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1571
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -952,21 +785,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1570)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1570
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -975,22 +803,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 386)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-384"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1572 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1572 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-384
+  :id 386
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1572 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1572 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1014,45 +835,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1573 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1573 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1573)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1573
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 24.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 24) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1066,21 +881,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees -204.99998) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1572)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1572
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 24.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 24) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1089,22 +899,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees -204.99998) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 387)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-385"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1574 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1574 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-385
+  :id 387
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1574 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1574 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1128,45 +931,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1575 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1575 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1575)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1575
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1180,21 +977,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees -185.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1574)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1574
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1203,22 +995,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees -185.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 388)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-394"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1576 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1576 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-394
+  :id 388
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1576 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1576 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1242,45 +1027,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1577 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1577 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1577)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1577
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1294,21 +1073,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees -60.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1576)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1576
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1317,22 +1091,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees -60.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 389)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-390"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1578 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1578 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-390
+  :id 389
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1578 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1578 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1356,45 +1123,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1579 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1579 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1579)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1579
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1408,21 +1169,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees -45.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1578)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1578
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1431,22 +1187,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees -45.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 390)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-393"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1582 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1582 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-393
+  :id 390
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1582 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1582 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1470,45 +1219,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1583 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1583 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1583)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1583
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1522,21 +1265,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 90.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1582)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1582
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1545,22 +1283,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 90.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 391)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-392"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1584 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1584 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-392
+  :id 391
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1584 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1584 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1584,45 +1315,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1585 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1585 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1585)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1585
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1636,21 +1361,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 135.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1584)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1584
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1659,22 +1379,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 135.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 392)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-38"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1586 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1586 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-38
+  :id 392
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1586 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1586 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1698,45 +1411,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1587 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1587 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1587)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1587
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1750,21 +1457,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 145.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1586)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1586
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1773,22 +1475,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 145.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 393)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-200"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1588 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1588 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-200
+  :id 393
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1588 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1588 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1812,45 +1507,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1589 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1589 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1589)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1589
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1864,21 +1553,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees 45.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1588)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1588
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 30.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 30) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -1887,22 +1571,15 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 45.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 394)
-  (new 'static 'sparticle-launch-group
-   :length 48
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-window-bubbles-391"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 48
-    (sp-item 1580 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-    (sp-item 1580 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
+(defpartgroup group-sunken-window-bubbles-391
+  :id 394
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1580 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1580 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
@@ -1926,45 +1603,39 @@
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
     (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-    (sp-item 1581 :fade-after (meters 100.0) :falloff-to (meters 100.0))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1581 :fade-after (meters 100) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1581)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1581
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
     (sp-flt spt-r 255.0)
@@ -1978,21 +1649,16 @@
     (sp-int-plain-rnd spt-next-time 99 197 1)
     (sp-launcher-by-id spt-next-launcher 1429)
     (sp-rnd-flt spt-rotate-y (degrees -90.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1580)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 1580
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 0.3))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2001,9 +1667,7 @@
     (sp-int spt-timer 4800)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees -90.0) (degrees 40.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/sunken/sunken-part4.gc b/goal_src/levels/sunken/sunken-part4.gc
index 2ebeb1d7df..6b98341a25 100644
--- a/goal_src/levels/sunken/sunken-part4.gc
+++ b/goal_src/levels/sunken/sunken-part4.gc
@@ -7,16 +7,11 @@
 
 ;; DECOMP BEGINS
 
-(set!
-  (-> *part-group-id-table* 395)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-282"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1591 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1590)
+(defpartgroup group-sunken-heatpipe-282
+  :id 395
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1591 :fade-after (meters 80) :falloff-to (meters 80) :binding 1590)
     (sp-item 1590 :flags (bit1 start-dead launch-asap))
     (sp-item 1590 :flags (bit1 start-dead launch-asap))
     (sp-item 1590 :flags (bit1 start-dead launch-asap))
@@ -42,21 +37,15 @@
     (sp-item 1590 :flags (bit1 start-dead launch-asap))
     (sp-item 1590 :flags (bit1 start-dead launch-asap))
     (sp-item 1590 :flags (bit1 start-dead launch-asap))
-    (sp-item 1592 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1592 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1591)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1591
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -66,23 +55,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 112.99999))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1590)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1590
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 1.1111112))
     (sp-flt spt-y (meters 3.3333333))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -90,25 +74,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1592)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1592
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -121,23 +100,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 112.99999))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 396)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-285"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1594 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1593)
+(defpartgroup group-sunken-heatpipe-285
+  :id 396
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1594 :fade-after (meters 80) :falloff-to (meters 80) :binding 1593)
     (sp-item 1593 :flags (bit1 start-dead launch-asap))
     (sp-item 1593 :flags (bit1 start-dead launch-asap))
     (sp-item 1593 :flags (bit1 start-dead launch-asap))
@@ -163,21 +135,15 @@
     (sp-item 1593 :flags (bit1 start-dead launch-asap))
     (sp-item 1593 :flags (bit1 start-dead launch-asap))
     (sp-item 1593 :flags (bit1 start-dead launch-asap))
-    (sp-item 1595 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1595 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1594)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1594
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -187,23 +153,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 100.00001))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1593)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1593
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 0.6666667))
     (sp-flt spt-y (meters 3.3333333))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -211,25 +172,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1595)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1595
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -242,23 +198,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 100.00001))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 397)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-288"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1597 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1596)
+(defpartgroup group-sunken-heatpipe-288
+  :id 397
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1597 :fade-after (meters 80) :falloff-to (meters 80) :binding 1596)
     (sp-item 1596 :flags (bit1 start-dead launch-asap))
     (sp-item 1596 :flags (bit1 start-dead launch-asap))
     (sp-item 1596 :flags (bit1 start-dead launch-asap))
@@ -284,21 +233,15 @@
     (sp-item 1596 :flags (bit1 start-dead launch-asap))
     (sp-item 1596 :flags (bit1 start-dead launch-asap))
     (sp-item 1596 :flags (bit1 start-dead launch-asap))
-    (sp-item 1598 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1598 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1597)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1597
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -308,23 +251,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 85.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1596)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1596
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-flt spt-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
     (sp-flt spt-y (meters 3.3333333))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -332,25 +270,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1598)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1598
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -363,23 +296,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 85.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 398)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-299"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1600 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1599)
+(defpartgroup group-sunken-heatpipe-299
+  :id 398
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1600 :fade-after (meters 80) :falloff-to (meters 80) :binding 1599)
     (sp-item 1599 :flags (bit1 start-dead launch-asap))
     (sp-item 1599 :flags (bit1 start-dead launch-asap))
     (sp-item 1599 :flags (bit1 start-dead launch-asap))
@@ -405,21 +331,15 @@
     (sp-item 1599 :flags (bit1 start-dead launch-asap))
     (sp-item 1599 :flags (bit1 start-dead launch-asap))
     (sp-item 1599 :flags (bit1 start-dead launch-asap))
-    (sp-item 1601 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1601 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1600)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1600
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -429,23 +349,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 60.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1599)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1599
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -1.1111112))
     (sp-flt spt-y (meters 3.3333333))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -453,25 +368,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1601)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1601
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -484,23 +394,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 60.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 399)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-302"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1603 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1602)
+(defpartgroup group-sunken-heatpipe-302
+  :id 399
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1603 :fade-after (meters 80) :falloff-to (meters 80) :binding 1602)
     (sp-item 1602 :flags (bit1 start-dead launch-asap))
     (sp-item 1602 :flags (bit1 start-dead launch-asap))
     (sp-item 1602 :flags (bit1 start-dead launch-asap))
@@ -526,21 +429,15 @@
     (sp-item 1602 :flags (bit1 start-dead launch-asap))
     (sp-item 1602 :flags (bit1 start-dead launch-asap))
     (sp-item 1602 :flags (bit1 start-dead launch-asap))
-    (sp-item 1604 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1604 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1603)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1603
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -550,23 +447,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 47.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1602)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1602
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -1.7777778))
     (sp-flt spt-y (meters 3.3333333))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -574,25 +466,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1604)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1604
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -605,23 +492,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 47.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 400)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-367"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1606 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1605)
+(defpartgroup group-sunken-heatpipe-367
+  :id 400
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1606 :fade-after (meters 80) :falloff-to (meters 80) :binding 1605)
     (sp-item 1605 :flags (bit1 start-dead launch-asap))
     (sp-item 1605 :flags (bit1 start-dead launch-asap))
     (sp-item 1605 :flags (bit1 start-dead launch-asap))
@@ -647,21 +527,15 @@
     (sp-item 1605 :flags (bit1 start-dead launch-asap))
     (sp-item 1605 :flags (bit1 start-dead launch-asap))
     (sp-item 1605 :flags (bit1 start-dead launch-asap))
-    (sp-item 1607 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1607 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1606)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1606
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -671,23 +545,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1605)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1605
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -2.6666667))
     (sp-flt spt-y (meters 3.3333333))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -695,25 +564,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1607)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1607
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -726,23 +590,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 401)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-371"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1609 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1608)
+(defpartgroup group-sunken-heatpipe-371
+  :id 401
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1609 :fade-after (meters 80) :falloff-to (meters 80) :binding 1608)
     (sp-item 1608 :flags (bit1 start-dead launch-asap))
     (sp-item 1608 :flags (bit1 start-dead launch-asap))
     (sp-item 1608 :flags (bit1 start-dead launch-asap))
@@ -768,21 +625,15 @@
     (sp-item 1608 :flags (bit1 start-dead launch-asap))
     (sp-item 1608 :flags (bit1 start-dead launch-asap))
     (sp-item 1608 :flags (bit1 start-dead launch-asap))
-    (sp-item 1610 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1610 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1609)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1609
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -792,23 +643,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 7.0000005))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1608)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1608
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -3.5555556))
     (sp-flt spt-y (meters 3.3333333))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -816,25 +662,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1610)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1610
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -847,23 +688,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 7.0000005))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 402)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-308"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1612 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1611)
+(defpartgroup group-sunken-heatpipe-308
+  :id 402
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1612 :fade-after (meters 80) :falloff-to (meters 80) :binding 1611)
     (sp-item 1611 :flags (bit1 start-dead launch-asap))
     (sp-item 1611 :flags (bit1 start-dead launch-asap))
     (sp-item 1611 :flags (bit1 start-dead launch-asap))
@@ -889,21 +723,15 @@
     (sp-item 1611 :flags (bit1 start-dead launch-asap))
     (sp-item 1611 :flags (bit1 start-dead launch-asap))
     (sp-item 1611 :flags (bit1 start-dead launch-asap))
-    (sp-item 1613 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1613 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1612)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1612
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.3))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -913,23 +741,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 98.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1611)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1611
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-flt spt-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
     (sp-flt spt-y (meters 3.7777777))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -937,25 +760,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1613)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1613
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -968,23 +786,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 98.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 403)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-312"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1615 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1614)
+(defpartgroup group-sunken-heatpipe-312
+  :id 403
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1615 :fade-after (meters 80) :falloff-to (meters 80) :binding 1614)
     (sp-item 1614 :flags (bit1 start-dead launch-asap))
     (sp-item 1614 :flags (bit1 start-dead launch-asap))
     (sp-item 1614 :flags (bit1 start-dead launch-asap))
@@ -1010,21 +821,15 @@
     (sp-item 1614 :flags (bit1 start-dead launch-asap))
     (sp-item 1614 :flags (bit1 start-dead launch-asap))
     (sp-item 1614 :flags (bit1 start-dead launch-asap))
-    (sp-item 1616 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1616 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1615)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1615
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.3))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1034,23 +839,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 98.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -192.00002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1614)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1614
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -4.4444447))
     (sp-flt spt-y (meters 4.4444447))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1058,25 +858,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1616)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1616
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1089,23 +884,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 98.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -192.00002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 404)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-316"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1618 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1617)
+(defpartgroup group-sunken-heatpipe-316
+  :id 404
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1618 :fade-after (meters 80) :falloff-to (meters 80) :binding 1617)
     (sp-item 1617 :flags (bit1 start-dead launch-asap))
     (sp-item 1617 :flags (bit1 start-dead launch-asap))
     (sp-item 1617 :flags (bit1 start-dead launch-asap))
@@ -1131,21 +919,15 @@
     (sp-item 1617 :flags (bit1 start-dead launch-asap))
     (sp-item 1617 :flags (bit1 start-dead launch-asap))
     (sp-item 1617 :flags (bit1 start-dead launch-asap))
-    (sp-item 1619 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1619 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1618)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1618
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.3))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1155,23 +937,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 98.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -162.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1617)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1617
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -3.1111112))
     (sp-flt spt-y (meters 4.4444447))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1179,25 +956,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1619)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1619
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1210,23 +982,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 98.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -162.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 405)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-320"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1621 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1620)
+(defpartgroup group-sunken-heatpipe-320
+  :id 405
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1621 :fade-after (meters 80) :falloff-to (meters 80) :binding 1620)
     (sp-item 1620 :flags (bit1 start-dead launch-asap))
     (sp-item 1620 :flags (bit1 start-dead launch-asap))
     (sp-item 1620 :flags (bit1 start-dead launch-asap))
@@ -1252,21 +1017,15 @@
     (sp-item 1620 :flags (bit1 start-dead launch-asap))
     (sp-item 1620 :flags (bit1 start-dead launch-asap))
     (sp-item 1620 :flags (bit1 start-dead launch-asap))
-    (sp-item 1622 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1622 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1621)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1621
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.3))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1276,23 +1035,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 98.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -105.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1620)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1620
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -0.6666667))
     (sp-flt spt-y (meters 4.4444447))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1300,25 +1054,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1622)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1622
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1331,23 +1080,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 98.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -105.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 406)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-324"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1624 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1623)
+(defpartgroup group-sunken-heatpipe-324
+  :id 406
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1624 :fade-after (meters 80) :falloff-to (meters 80) :binding 1623)
     (sp-item 1623 :flags (bit1 start-dead launch-asap))
     (sp-item 1623 :flags (bit1 start-dead launch-asap))
     (sp-item 1623 :flags (bit1 start-dead launch-asap))
@@ -1373,21 +1115,15 @@
     (sp-item 1623 :flags (bit1 start-dead launch-asap))
     (sp-item 1623 :flags (bit1 start-dead launch-asap))
     (sp-item 1623 :flags (bit1 start-dead launch-asap))
-    (sp-item 1625 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1625 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1624)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1624
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.2))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1397,23 +1133,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 96.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -85.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1623)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1623
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 0.22222222))
     (sp-flt spt-y (meters 4.2222223))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1421,25 +1152,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1625)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1625
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1452,23 +1178,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 96.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -85.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 407)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-328"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1627 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1626)
+(defpartgroup group-sunken-heatpipe-328
+  :id 407
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1627 :fade-after (meters 80) :falloff-to (meters 80) :binding 1626)
     (sp-item 1626 :flags (bit1 start-dead launch-asap))
     (sp-item 1626 :flags (bit1 start-dead launch-asap))
     (sp-item 1626 :flags (bit1 start-dead launch-asap))
@@ -1494,21 +1213,15 @@
     (sp-item 1626 :flags (bit1 start-dead launch-asap))
     (sp-item 1626 :flags (bit1 start-dead launch-asap))
     (sp-item 1626 :flags (bit1 start-dead launch-asap))
-    (sp-item 1628 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1628 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1627)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1627
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.2))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1518,23 +1231,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 96.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -67.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1626)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1626
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 0.8888889))
     (sp-flt spt-y (meters 4.2222223))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1542,25 +1250,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1628)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1628
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1573,23 +1276,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 96.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -67.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 408)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-332"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1630 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1629)
+(defpartgroup group-sunken-heatpipe-332
+  :id 408
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1630 :fade-after (meters 80) :falloff-to (meters 80) :binding 1629)
     (sp-item 1629 :flags (bit1 start-dead launch-asap))
     (sp-item 1629 :flags (bit1 start-dead launch-asap))
     (sp-item 1629 :flags (bit1 start-dead launch-asap))
@@ -1615,21 +1311,15 @@
     (sp-item 1629 :flags (bit1 start-dead launch-asap))
     (sp-item 1629 :flags (bit1 start-dead launch-asap))
     (sp-item 1629 :flags (bit1 start-dead launch-asap))
-    (sp-item 1631 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1631 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1630)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1630
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.4))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1639,23 +1329,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -20.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1629)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1629
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 3.3333333))
     (sp-flt spt-y (meters 4.6666665))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1663,25 +1348,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1631)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1631
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.70000005))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1694,23 +1374,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 103.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -20.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 409)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-333"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1633 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1632)
+(defpartgroup group-sunken-heatpipe-333
+  :id 409
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1633 :fade-after (meters 80) :falloff-to (meters 80) :binding 1632)
     (sp-item 1632 :flags (bit1 start-dead launch-asap))
     (sp-item 1632 :flags (bit1 start-dead launch-asap))
     (sp-item 1632 :flags (bit1 start-dead launch-asap))
@@ -1736,19 +1409,13 @@
     (sp-item 1632 :flags (bit1 start-dead launch-asap))
     (sp-item 1632 :flags (bit1 start-dead launch-asap))
     (sp-item 1632 :flags (bit1 start-dead launch-asap))
-    (sp-item 1634 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1634 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1633)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1633
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.9))
     (sp-flt spt-y (meters 0.9))
@@ -1760,23 +1427,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 115.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1632)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1632
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 5.3333335))
     (sp-flt spt-y (meters 5.111111))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1784,24 +1446,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1634)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1634
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -1.9))
     (sp-flt spt-y (meters 1.2))
     (sp-int spt-rot-x 6)
@@ -1815,23 +1472,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 115.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 410)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-334"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1636 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1635)
+(defpartgroup group-sunken-heatpipe-334
+  :id 410
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1636 :fade-after (meters 80) :falloff-to (meters 80) :binding 1635)
     (sp-item 1635 :flags (bit1 start-dead launch-asap))
     (sp-item 1635 :flags (bit1 start-dead launch-asap))
     (sp-item 1635 :flags (bit1 start-dead launch-asap))
@@ -1857,19 +1507,13 @@
     (sp-item 1635 :flags (bit1 start-dead launch-asap))
     (sp-item 1635 :flags (bit1 start-dead launch-asap))
     (sp-item 1635 :flags (bit1 start-dead launch-asap))
-    (sp-item 1637 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1637 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1636)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1636
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.9))
     (sp-flt spt-y (meters 0.7))
@@ -1881,23 +1525,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 110.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 20.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1635)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1635
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 5.111111))
     (sp-flt spt-y (meters 5.111111))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1905,26 +1544,21 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1637)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1637
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -1.9))
-    (sp-flt spt-y (meters 1.0))
+    (sp-flt spt-y (meters 1))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 2662.4)
@@ -1936,23 +1570,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 110.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 20.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 411)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-335"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1639 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1638)
+(defpartgroup group-sunken-heatpipe-335
+  :id 411
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1639 :fade-after (meters 80) :falloff-to (meters 80) :binding 1638)
     (sp-item 1638 :flags (bit1 start-dead launch-asap))
     (sp-item 1638 :flags (bit1 start-dead launch-asap))
     (sp-item 1638 :flags (bit1 start-dead launch-asap))
@@ -1978,21 +1605,15 @@
     (sp-item 1638 :flags (bit1 start-dead launch-asap))
     (sp-item 1638 :flags (bit1 start-dead launch-asap))
     (sp-item 1638 :flags (bit1 start-dead launch-asap))
-    (sp-item 1640 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1640 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1639)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1639
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -2002,23 +1623,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 105.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1638)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1638
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 4.4444447))
     (sp-flt spt-y (meters 5.111111))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2026,25 +1642,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1640)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1640
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -2057,23 +1668,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 105.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 412)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-336"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1642 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1641)
+(defpartgroup group-sunken-heatpipe-336
+  :id 412
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1642 :fade-after (meters 80) :falloff-to (meters 80) :binding 1641)
     (sp-item 1641 :flags (bit1 start-dead launch-asap))
     (sp-item 1641 :flags (bit1 start-dead launch-asap))
     (sp-item 1641 :flags (bit1 start-dead launch-asap))
@@ -2099,21 +1703,15 @@
     (sp-item 1641 :flags (bit1 start-dead launch-asap))
     (sp-item 1641 :flags (bit1 start-dead launch-asap))
     (sp-item 1641 :flags (bit1 start-dead launch-asap))
-    (sp-item 1643 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1643 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1642)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1642
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -2123,23 +1721,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 105.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1641)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1641
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 3.7777777))
     (sp-flt spt-y (meters 5.111111))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2147,25 +1740,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1643)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1643
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -2178,23 +1766,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 105.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 413)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-337"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1645 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1644)
+(defpartgroup group-sunken-heatpipe-337
+  :id 413
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1645 :fade-after (meters 80) :falloff-to (meters 80) :binding 1644)
     (sp-item 1644 :flags (bit1 start-dead launch-asap))
     (sp-item 1644 :flags (bit1 start-dead launch-asap))
     (sp-item 1644 :flags (bit1 start-dead launch-asap))
@@ -2220,21 +1801,15 @@
     (sp-item 1644 :flags (bit1 start-dead launch-asap))
     (sp-item 1644 :flags (bit1 start-dead launch-asap))
     (sp-item 1644 :flags (bit1 start-dead launch-asap))
-    (sp-item 1646 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1646 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1645)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1645
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -2244,23 +1819,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 105.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -37.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1644)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1644
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 2.4444444))
     (sp-flt spt-y (meters 5.111111))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2268,25 +1838,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1646)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1646
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -2299,23 +1864,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 105.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -37.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 414)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-338"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1648 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1647)
+(defpartgroup group-sunken-heatpipe-338
+  :id 414
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1648 :fade-after (meters 80) :falloff-to (meters 80) :binding 1647)
     (sp-item 1647 :flags (bit1 start-dead launch-asap))
     (sp-item 1647 :flags (bit1 start-dead launch-asap))
     (sp-item 1647 :flags (bit1 start-dead launch-asap))
@@ -2341,21 +1899,15 @@
     (sp-item 1647 :flags (bit1 start-dead launch-asap))
     (sp-item 1647 :flags (bit1 start-dead launch-asap))
     (sp-item 1647 :flags (bit1 start-dead launch-asap))
-    (sp-item 1649 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1649 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1648)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1648
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -2365,23 +1917,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 105.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -62.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1647)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1647
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 1.7777778))
     (sp-flt spt-y (meters 5.111111))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2389,25 +1936,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1649)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1649
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -2420,23 +1962,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 105.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -62.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 415)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-339"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1651 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1650)
+(defpartgroup group-sunken-heatpipe-339
+  :id 415
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1651 :fade-after (meters 80) :falloff-to (meters 80) :binding 1650)
     (sp-item 1650 :flags (bit1 start-dead launch-asap))
     (sp-item 1650 :flags (bit1 start-dead launch-asap))
     (sp-item 1650 :flags (bit1 start-dead launch-asap))
@@ -2462,21 +1997,15 @@
     (sp-item 1650 :flags (bit1 start-dead launch-asap))
     (sp-item 1650 :flags (bit1 start-dead launch-asap))
     (sp-item 1650 :flags (bit1 start-dead launch-asap))
-    (sp-item 1652 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1652 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1651)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1651
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.3))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -2486,23 +2015,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 99.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -85.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1650)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1650
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 0.44444445))
     (sp-flt spt-y (meters 4.4444447))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2510,25 +2034,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1652)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1652
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -2541,23 +2060,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 99.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -85.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 416)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-340"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1654 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1653)
+(defpartgroup group-sunken-heatpipe-340
+  :id 416
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1654 :fade-after (meters 80) :falloff-to (meters 80) :binding 1653)
     (sp-item 1653 :flags (bit1 start-dead launch-asap))
     (sp-item 1653 :flags (bit1 start-dead launch-asap))
     (sp-item 1653 :flags (bit1 start-dead launch-asap))
@@ -2583,21 +2095,15 @@
     (sp-item 1653 :flags (bit1 start-dead launch-asap))
     (sp-item 1653 :flags (bit1 start-dead launch-asap))
     (sp-item 1653 :flags (bit1 start-dead launch-asap))
-    (sp-item 1655 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1655 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1654)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1654
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -2607,23 +2113,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 105.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 160.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1653)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1653
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 3.1111112))
     (sp-flt spt-y (meters 3.5555556))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2631,25 +2132,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1655)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1655
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.8))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -2662,23 +2158,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 105.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 160.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 417)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-341"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1657 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1656)
+(defpartgroup group-sunken-heatpipe-341
+  :id 417
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1657 :fade-after (meters 80) :falloff-to (meters 80) :binding 1656)
     (sp-item 1656 :flags (bit1 start-dead launch-asap))
     (sp-item 1656 :flags (bit1 start-dead launch-asap))
     (sp-item 1656 :flags (bit1 start-dead launch-asap))
@@ -2704,21 +2193,15 @@
     (sp-item 1656 :flags (bit1 start-dead launch-asap))
     (sp-item 1656 :flags (bit1 start-dead launch-asap))
     (sp-item 1656 :flags (bit1 start-dead launch-asap))
-    (sp-item 1658 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1658 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1657)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1657
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.3))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -2728,23 +2211,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees 177.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1656)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1656
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 3.7777777))
     (sp-flt spt-y (meters 3.5555556))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2752,25 +2230,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1658)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1658
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -2783,23 +2256,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 100.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees 177.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 418)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-357"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1660 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1659)
+(defpartgroup group-sunken-heatpipe-357
+  :id 418
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1660 :fade-after (meters 80) :falloff-to (meters 80) :binding 1659)
     (sp-item 1659 :flags (bit1 start-dead launch-asap))
     (sp-item 1659 :flags (bit1 start-dead launch-asap))
     (sp-item 1659 :flags (bit1 start-dead launch-asap))
@@ -2825,19 +2291,13 @@
     (sp-item 1659 :flags (bit1 start-dead launch-asap))
     (sp-item 1659 :flags (bit1 start-dead launch-asap))
     (sp-item 1659 :flags (bit1 start-dead launch-asap))
-    (sp-item 1661 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1661 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1660)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1660
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.3))
@@ -2849,23 +2309,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 97.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4505.6)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4505.6)
     (sp-flt spt-rotate-y (degrees 131.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1659)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1659
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 1.7777778))
     (sp-flt spt-y (meters 3.5555556))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2873,24 +2328,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1661)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1661
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
@@ -2904,23 +2354,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 97.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.4) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.4) 1.0)
     (sp-flt spt-rotate-y (degrees 131.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 419)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-356"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1663 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1662)
+(defpartgroup group-sunken-heatpipe-356
+  :id 419
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1663 :fade-after (meters 80) :falloff-to (meters 80) :binding 1662)
     (sp-item 1662 :flags (bit1 start-dead launch-asap))
     (sp-item 1662 :flags (bit1 start-dead launch-asap))
     (sp-item 1662 :flags (bit1 start-dead launch-asap))
@@ -2946,19 +2389,13 @@
     (sp-item 1662 :flags (bit1 start-dead launch-asap))
     (sp-item 1662 :flags (bit1 start-dead launch-asap))
     (sp-item 1662 :flags (bit1 start-dead launch-asap))
-    (sp-item 1664 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1664 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1663)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1663
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.3))
@@ -2970,23 +2407,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 97.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4505.6)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4505.6)
     (sp-flt spt-rotate-y (degrees 311.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1662)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1662
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 1.7777778))
     (sp-flt spt-y (meters 4.4444447))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2994,24 +2426,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1664)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1664
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
@@ -3025,23 +2452,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 97.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.4) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.4) 1.0)
     (sp-flt spt-rotate-y (degrees 311.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 420)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-354"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1666 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1665)
+(defpartgroup group-sunken-heatpipe-354
+  :id 420
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1666 :fade-after (meters 80) :falloff-to (meters 80) :binding 1665)
     (sp-item 1665 :flags (bit1 start-dead launch-asap))
     (sp-item 1665 :flags (bit1 start-dead launch-asap))
     (sp-item 1665 :flags (bit1 start-dead launch-asap))
@@ -3067,19 +2487,13 @@
     (sp-item 1665 :flags (bit1 start-dead launch-asap))
     (sp-item 1665 :flags (bit1 start-dead launch-asap))
     (sp-item 1665 :flags (bit1 start-dead launch-asap))
-    (sp-item 1667 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1667 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1666)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1666
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.3))
@@ -3091,23 +2505,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 97.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
     (sp-flt spt-rotate-y (degrees 325.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1665)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1665
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters 2.6666667))
     (sp-flt spt-y (meters 4.4444447))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -3115,24 +2524,19 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1667)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
+(defpart 1667
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-flt spt-x (meters -2.2))
     (sp-flt spt-y (meters 0.6))
     (sp-int spt-rot-x 6)
@@ -3146,37 +2550,23 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 97.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
     (sp-flt spt-rotate-y (degrees 325.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 565)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-sheild"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 2311)
-    (sp-item 2312 :flags (is-3d))
-    )
-   :bounds (new 'static 'sphere :w 131072.0)
-   )
+(defpartgroup group-sunken-sheild
+  :id 565
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 2311) (sp-item 2312 :flags (is-3d)))
   )
 
-(set!
-  (-> *part-id-table* 2312)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 2312
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-rnd-flt spt-num 0.1 0.6 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 1.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -3194,30 +2584,19 @@
     (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2313)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a 0.0)
-    (sp-end)
-    )
-   )
+(defpart 2313
+  :init-specs
+  ((sp-flt spt-fade-a 0.0))
   )
 
-(set!
-  (-> *part-id-table* 2311)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-rnd-flt spt-num 4.0 2.0 1.0)
-    (sp-rnd-flt spt-x (meters 2.0) (meters 17.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
+(defpart 2311
+  :init-specs
+  ((sp-rnd-flt spt-num 4.0 2.0 1.0)
+    (sp-rnd-flt spt-x (meters 2) (meters 17) 1.0)
+    (sp-flt spt-y (meters -6))
     (sp-int spt-rot-x 8)
     (sp-flt spt-r 16384.0)
     (sp-flt spt-g 12288.0)
@@ -3229,20 +2608,12 @@
     (sp-int spt-next-time 75)
     (sp-launcher-by-id spt-next-launcher 2314)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2314)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b 32.768)
-    (sp-end)
-    )
-   )
+(defpart 2314
+  :init-specs
+  ((sp-flt spt-fade-b 32.768))
   )
 
 
diff --git a/goal_src/levels/sunken/sunken-part5.gc b/goal_src/levels/sunken/sunken-part5.gc
index b768a4ec4b..065f54e577 100644
--- a/goal_src/levels/sunken/sunken-part5.gc
+++ b/goal_src/levels/sunken/sunken-part5.gc
@@ -7,16 +7,11 @@
 
 ;; DECOMP BEGINS
 
-(set!
-  (-> *part-group-id-table* 421)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-227"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1669 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1668)
+(defpartgroup group-sunken-heatpipe-227
+  :id 421
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1669 :fade-after (meters 80) :falloff-to (meters 80) :binding 1668)
     (sp-item 1668 :flags (bit1 start-dead launch-asap))
     (sp-item 1668 :flags (bit1 start-dead launch-asap))
     (sp-item 1668 :flags (bit1 start-dead launch-asap))
@@ -42,21 +37,15 @@
     (sp-item 1668 :flags (bit1 start-dead launch-asap))
     (sp-item 1668 :flags (bit1 start-dead launch-asap))
     (sp-item 1668 :flags (bit1 start-dead launch-asap))
-    (sp-item 1670 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1670 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1669)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1669
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -66,23 +55,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 106.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -131.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1668)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1668
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -1.7777778))
     (sp-flt spt-y (meters 4.888889))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -90,25 +74,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1670)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1670
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.90000004))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -121,23 +100,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 106.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -131.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 422)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-238"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1672 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1671)
+(defpartgroup group-sunken-heatpipe-238
+  :id 422
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1672 :fade-after (meters 80) :falloff-to (meters 80) :binding 1671)
     (sp-item 1671 :flags (bit1 start-dead launch-asap))
     (sp-item 1671 :flags (bit1 start-dead launch-asap))
     (sp-item 1671 :flags (bit1 start-dead launch-asap))
@@ -163,21 +135,15 @@
     (sp-item 1671 :flags (bit1 start-dead launch-asap))
     (sp-item 1671 :flags (bit1 start-dead launch-asap))
     (sp-item 1671 :flags (bit1 start-dead launch-asap))
-    (sp-item 1673 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1673 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1672)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1672
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -187,23 +153,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 108.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -100.00001))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1671)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1671
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -0.44444445))
     (sp-flt spt-y (meters 4.888889))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -211,25 +172,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1673)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1673
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.90000004))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -242,23 +198,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 108.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -100.00001))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 423)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-239"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1675 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1674)
+(defpartgroup group-sunken-heatpipe-239
+  :id 423
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1675 :fade-after (meters 80) :falloff-to (meters 80) :binding 1674)
     (sp-item 1674 :flags (bit1 start-dead launch-asap))
     (sp-item 1674 :flags (bit1 start-dead launch-asap))
     (sp-item 1674 :flags (bit1 start-dead launch-asap))
@@ -284,21 +233,15 @@
     (sp-item 1674 :flags (bit1 start-dead launch-asap))
     (sp-item 1674 :flags (bit1 start-dead launch-asap))
     (sp-item 1674 :flags (bit1 start-dead launch-asap))
-    (sp-item 1676 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1676 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1675)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1675
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -308,23 +251,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 108.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -124.99999))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1674)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1674
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -1.1111112))
     (sp-flt spt-y (meters 4.888889))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -332,25 +270,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1676)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1676
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.90000004))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -363,23 +296,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 108.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -124.99999))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 424)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-240"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1678 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1677)
+(defpartgroup group-sunken-heatpipe-240
+  :id 424
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1678 :fade-after (meters 80) :falloff-to (meters 80) :binding 1677)
     (sp-item 1677 :flags (bit1 start-dead launch-asap))
     (sp-item 1677 :flags (bit1 start-dead launch-asap))
     (sp-item 1677 :flags (bit1 start-dead launch-asap))
@@ -405,21 +331,15 @@
     (sp-item 1677 :flags (bit1 start-dead launch-asap))
     (sp-item 1677 :flags (bit1 start-dead launch-asap))
     (sp-item 1677 :flags (bit1 start-dead launch-asap))
-    (sp-item 1679 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1679 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1678)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1678
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -429,23 +349,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 108.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -93.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1677)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1677
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-flt spt-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
     (sp-flt spt-y (meters 4.888889))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -453,25 +368,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1679)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1679
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.90000004))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -484,23 +394,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 108.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -93.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 425)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-241"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1681 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1680)
+(defpartgroup group-sunken-heatpipe-241
+  :id 425
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1681 :fade-after (meters 80) :falloff-to (meters 80) :binding 1680)
     (sp-item 1680 :flags (bit1 start-dead launch-asap))
     (sp-item 1680 :flags (bit1 start-dead launch-asap))
     (sp-item 1680 :flags (bit1 start-dead launch-asap))
@@ -526,21 +429,15 @@
     (sp-item 1680 :flags (bit1 start-dead launch-asap))
     (sp-item 1680 :flags (bit1 start-dead launch-asap))
     (sp-item 1680 :flags (bit1 start-dead launch-asap))
-    (sp-item 1682 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1682 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1681)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1681
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -550,23 +447,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 108.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1680)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1680
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -0.6666667))
     (sp-flt spt-y (meters 4.888889))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -574,25 +466,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1682)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1682
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.90000004))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -605,23 +492,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 108.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 426)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-242"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1684 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1683)
+(defpartgroup group-sunken-heatpipe-242
+  :id 426
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1684 :fade-after (meters 80) :falloff-to (meters 80) :binding 1683)
     (sp-item 1683 :flags (bit1 start-dead launch-asap))
     (sp-item 1683 :flags (bit1 start-dead launch-asap))
     (sp-item 1683 :flags (bit1 start-dead launch-asap))
@@ -647,21 +527,15 @@
     (sp-item 1683 :flags (bit1 start-dead launch-asap))
     (sp-item 1683 :flags (bit1 start-dead launch-asap))
     (sp-item 1683 :flags (bit1 start-dead launch-asap))
-    (sp-item 1685 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1685 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1684)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1684
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -671,23 +545,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 108.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1683)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1683
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 4.888889))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -695,25 +564,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1685)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1685
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.90000004))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -726,23 +590,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 108.00001))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -135.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 427)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-243"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1687 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1686)
+(defpartgroup group-sunken-heatpipe-243
+  :id 427
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1687 :fade-after (meters 80) :falloff-to (meters 80) :binding 1686)
     (sp-item 1686 :flags (bit1 start-dead launch-asap))
     (sp-item 1686 :flags (bit1 start-dead launch-asap))
     (sp-item 1686 :flags (bit1 start-dead launch-asap))
@@ -768,21 +625,15 @@
     (sp-item 1686 :flags (bit1 start-dead launch-asap))
     (sp-item 1686 :flags (bit1 start-dead launch-asap))
     (sp-item 1686 :flags (bit1 start-dead launch-asap))
-    (sp-item 1688 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1688 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1687)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1687
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.4))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -792,23 +643,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -147.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1686)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1686
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -2.4444444))
     (sp-flt spt-y (meters 4.4444447))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -816,25 +662,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1688)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1688
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.70000005))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -847,23 +688,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -147.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 428)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-278"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1690 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1689)
+(defpartgroup group-sunken-heatpipe-278
+  :id 428
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1690 :fade-after (meters 80) :falloff-to (meters 80) :binding 1689)
     (sp-item 1689 :flags (bit1 start-dead launch-asap))
     (sp-item 1689 :flags (bit1 start-dead launch-asap))
     (sp-item 1689 :flags (bit1 start-dead launch-asap))
@@ -889,21 +723,15 @@
     (sp-item 1689 :flags (bit1 start-dead launch-asap))
     (sp-item 1689 :flags (bit1 start-dead launch-asap))
     (sp-item 1689 :flags (bit1 start-dead launch-asap))
-    (sp-item 1691 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1691 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1690)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1690
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.4))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -913,23 +741,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -165.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1689)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1689
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -3.0222223))
     (sp-flt spt-y (meters 4.6666665))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -937,25 +760,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1691)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1691
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.70000005))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -968,23 +786,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -165.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 429)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-251"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1693 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1692)
+(defpartgroup group-sunken-heatpipe-251
+  :id 429
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1693 :fade-after (meters 80) :falloff-to (meters 80) :binding 1692)
     (sp-item 1692 :flags (bit1 start-dead launch-asap))
     (sp-item 1692 :flags (bit1 start-dead launch-asap))
     (sp-item 1692 :flags (bit1 start-dead launch-asap))
@@ -1010,21 +821,15 @@
     (sp-item 1692 :flags (bit1 start-dead launch-asap))
     (sp-item 1692 :flags (bit1 start-dead launch-asap))
     (sp-item 1692 :flags (bit1 start-dead launch-asap))
-    (sp-item 1694 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1694 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1693)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1693
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.4))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1034,23 +839,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -136.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1692)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1692
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -2.1333334))
     (sp-flt spt-y (meters 4.6666665))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1058,25 +858,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1694)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1694
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.70000005))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1089,23 +884,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -136.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 430)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-254"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1696 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1695)
+(defpartgroup group-sunken-heatpipe-254
+  :id 430
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1696 :fade-after (meters 80) :falloff-to (meters 80) :binding 1695)
     (sp-item 1695 :flags (bit1 start-dead launch-asap))
     (sp-item 1695 :flags (bit1 start-dead launch-asap))
     (sp-item 1695 :flags (bit1 start-dead launch-asap))
@@ -1131,21 +919,15 @@
     (sp-item 1695 :flags (bit1 start-dead launch-asap))
     (sp-item 1695 :flags (bit1 start-dead launch-asap))
     (sp-item 1695 :flags (bit1 start-dead launch-asap))
-    (sp-item 1697 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1697 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1696)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1696
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.4))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1155,23 +937,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -185.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1695)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1695
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -3.911111))
     (sp-flt spt-y (meters 4.6666665))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1179,25 +956,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1697)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1697
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.70000005))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1210,23 +982,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -185.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 431)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-264"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1699 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1698)
+(defpartgroup group-sunken-heatpipe-264
+  :id 431
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1699 :fade-after (meters 80) :falloff-to (meters 80) :binding 1698)
     (sp-item 1698 :flags (bit1 start-dead launch-asap))
     (sp-item 1698 :flags (bit1 start-dead launch-asap))
     (sp-item 1698 :flags (bit1 start-dead launch-asap))
@@ -1252,21 +1017,15 @@
     (sp-item 1698 :flags (bit1 start-dead launch-asap))
     (sp-item 1698 :flags (bit1 start-dead launch-asap))
     (sp-item 1698 :flags (bit1 start-dead launch-asap))
-    (sp-item 1700 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1700 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1699)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1699
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.4))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1276,23 +1035,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -203.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1698)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1698
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -4.6666665))
     (sp-flt spt-y (meters 4.6666665))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1300,25 +1054,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1700)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1700
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.70000005))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1331,23 +1080,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -203.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 432)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-265"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1702 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1701)
+(defpartgroup group-sunken-heatpipe-265
+  :id 432
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1702 :fade-after (meters 80) :falloff-to (meters 80) :binding 1701)
     (sp-item 1701 :flags (bit1 start-dead launch-asap))
     (sp-item 1701 :flags (bit1 start-dead launch-asap))
     (sp-item 1701 :flags (bit1 start-dead launch-asap))
@@ -1373,21 +1115,15 @@
     (sp-item 1701 :flags (bit1 start-dead launch-asap))
     (sp-item 1701 :flags (bit1 start-dead launch-asap))
     (sp-item 1701 :flags (bit1 start-dead launch-asap))
-    (sp-item 1703 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1703 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1702)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1702
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.4))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1397,23 +1133,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -217.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1701)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1701
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -5.3333335))
     (sp-flt spt-y (meters 4.6666665))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1421,25 +1152,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1703)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1703
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.70000005))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1452,23 +1178,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 102.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -217.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 433)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-266"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1705 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1704)
+(defpartgroup group-sunken-heatpipe-266
+  :id 433
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1705 :fade-after (meters 80) :falloff-to (meters 80) :binding 1704)
     (sp-item 1704 :flags (bit1 start-dead launch-asap))
     (sp-item 1704 :flags (bit1 start-dead launch-asap))
     (sp-item 1704 :flags (bit1 start-dead launch-asap))
@@ -1494,21 +1213,15 @@
     (sp-item 1704 :flags (bit1 start-dead launch-asap))
     (sp-item 1704 :flags (bit1 start-dead launch-asap))
     (sp-item 1704 :flags (bit1 start-dead launch-asap))
-    (sp-item 1706 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1706 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1705)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1705
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.6))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1518,23 +1231,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 107.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -243.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1704)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1704
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -6.4444447))
     (sp-flt spt-y (meters 4.888889))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1542,25 +1250,20 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1706)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
+(defpart 1706
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.90000004))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
@@ -1573,23 +1276,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 107.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -243.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 434)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-267"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1708 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1707)
+(defpartgroup group-sunken-heatpipe-267
+  :id 434
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1708 :fade-after (meters 80) :falloff-to (meters 80) :binding 1707)
     (sp-item 1707 :flags (bit1 start-dead launch-asap))
     (sp-item 1707 :flags (bit1 start-dead launch-asap))
     (sp-item 1707 :flags (bit1 start-dead launch-asap))
@@ -1615,21 +1311,15 @@
     (sp-item 1707 :flags (bit1 start-dead launch-asap))
     (sp-item 1707 :flags (bit1 start-dead launch-asap))
     (sp-item 1707 :flags (bit1 start-dead launch-asap))
-    (sp-item 1709 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1709 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1708)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1708
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.7))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1639,23 +1329,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 110.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -267.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1707)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1707
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -7.7777777))
     (sp-flt spt-y (meters 5.111111))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1663,26 +1348,21 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1709)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
-    (sp-flt spt-y (meters 1.0))
+(defpart 1709
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
+    (sp-flt spt-y (meters 1))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 2662.4)
@@ -1694,23 +1374,16 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 110.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -267.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 435)
-  (new 'static 'sparticle-launch-group
-   :length 27
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-sunken-heatpipe-268"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 27
-    (sp-item 1711 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1710)
+(defpartgroup group-sunken-heatpipe-268
+  :id 435
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1711 :fade-after (meters 80) :falloff-to (meters 80) :binding 1710)
     (sp-item 1710 :flags (bit1 start-dead launch-asap))
     (sp-item 1710 :flags (bit1 start-dead launch-asap))
     (sp-item 1710 :flags (bit1 start-dead launch-asap))
@@ -1736,21 +1409,15 @@
     (sp-item 1710 :flags (bit1 start-dead launch-asap))
     (sp-item 1710 :flags (bit1 start-dead launch-asap))
     (sp-item 1710 :flags (bit1 start-dead launch-asap))
-    (sp-item 1712 :fade-after (meters 64.0) :falloff-to (meters 64.0))
+    (sp-item 1712 :fade-after (meters 64) :falloff-to (meters 64))
     )
-   :bounds
-   (new 'static 'sphere :y 4096.0 :w 14336.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1711)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1711
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-y (meters 0.7))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1760,23 +1427,18 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 110.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
+    (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
     (sp-flt spt-rotate-y (degrees -300.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1710)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1710
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 5.0)
     (sp-flt spt-x (meters -9.333333))
     (sp-flt spt-y (meters 4.6666665))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1784,26 +1446,21 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 1.28)
     (sp-int spt-timer 150)
     (sp-cpuinfo-flags bit2 bit3 bit7)
     (sp-int-plain-rnd spt-next-time 25 24 1)
     (sp-launcher-by-id spt-next-launcher 1422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1712)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-flt spt-num 0.2)
-    (sp-flt spt-x (meters -2.0))
-    (sp-flt spt-y (meters 1.0))
+(defpart 1712
+  :init-specs
+  ((sp-flt spt-num 0.2)
+    (sp-flt spt-x (meters -2))
+    (sp-flt spt-y (meters 1))
     (sp-int spt-rot-x 6)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 2662.4)
@@ -1815,11 +1472,9 @@
     (sp-cpuinfo-flags bit2 bit3 aux-list)
     (sp-flt spt-conerot-x (degrees 110.0))
     (sp-flt spt-conerot-y (degrees 90.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
     (sp-flt spt-rotate-y (degrees -300.0))
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/sunken/sunken-pipegame.gc b/goal_src/levels/sunken/sunken-pipegame.gc
index 5fd73f4e87..58bff028f3 100644
--- a/goal_src/levels/sunken/sunken-pipegame.gc
+++ b/goal_src/levels/sunken/sunken-pipegame.gc
@@ -63,572 +63,454 @@
   )
 
 
-(set! (-> *part-group-id-table* 448) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-jar-suck0"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1741)
-                                         (sp-item 1742)
-                                         (sp-item 1743)
-                                         (sp-item 1744 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-jar-suck0
+  :id 448
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1741) (sp-item 1742) (sp-item 1743) (sp-item 1744 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 1741) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 10.0)
-                                    (sp-flt spt-y (meters 6.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-fade-a 1.4222223)
-                                    (sp-flt spt-accel-y 13.653334)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1745)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters -10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1741
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 10.0)
+    (sp-flt spt-y (meters 6))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-r 64.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-y (meters 0.006666667))
+    (sp-flt spt-fade-a 1.4222223)
+    (sp-flt spt-accel-y 13.653334)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 45 44 1)
+    (sp-launcher-by-id spt-next-launcher 1745)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters -10) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1745)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
+(defpart 1745
+  :init-specs
+  ((sp-flt spt-fade-a 0.0))
+  )
 
-(set! (-> *part-id-table* 1742) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -3.657143)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1742
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 5.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -3.657143)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1743) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 7.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1743
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 7) (meters 3) 1.0)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1744) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1744
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0.3))
+    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 449) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-jar-suck1"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1746)
-                                         (sp-item 1742)
-                                         (sp-item 1747)
-                                         (sp-item 1748 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-jar-suck1
+  :id 449
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1746) (sp-item 1742) (sp-item 1747) (sp-item 1748 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 1746) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 10.0)
-                                    (sp-flt spt-y (meters 6.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-fade-a 1.4222223)
-                                    (sp-flt spt-accel-y 13.653334)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1745)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters -10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1746
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 10.0)
+    (sp-flt spt-y (meters 6))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-r 0.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 128.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-y (meters 0.006666667))
+    (sp-flt spt-fade-a 1.4222223)
+    (sp-flt spt-accel-y 13.653334)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 45 44 1)
+    (sp-launcher-by-id spt-next-launcher 1745)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters -10) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1747) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 7.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1747
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 7) (meters 3) 1.0)
+    (sp-rnd-flt spt-r 0.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1748) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1748
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0.3))
+    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-r 0.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 450) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-jar-suck2"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1749)
-                                         (sp-item 1742)
-                                         (sp-item 1750)
-                                         (sp-item 1751 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-jar-suck2
+  :id 450
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1749) (sp-item 1742) (sp-item 1750) (sp-item 1751 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 1749) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 10.0)
-                                    (sp-flt spt-y (meters 6.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-fade-a 1.4222223)
-                                    (sp-flt spt-accel-y 13.653334)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1745)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters -10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1749
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 10.0)
+    (sp-flt spt-y (meters 6))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-y (meters 0.006666667))
+    (sp-flt spt-fade-a 1.4222223)
+    (sp-flt spt-accel-y 13.653334)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 45 44 1)
+    (sp-launcher-by-id spt-next-launcher 1745)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters -10) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1750) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 7.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1750
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 7) (meters 3) 1.0)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1751) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1751
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0.3))
+    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 451) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-blow0"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1752)
-                                         (sp-item 1753)
-                                         (sp-item 1754)
-                                         (sp-item 1755 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-blow0
+  :id 451
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1752) (sp-item 1753) (sp-item 1754) (sp-item 1755 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 1752) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.033333335))
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-accel-y -27.306667)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1756)
-                                    (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1752
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-r 64.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-vel-y (meters -0.033333335))
+    (sp-flt spt-scalevel-y (meters 0.006666667))
+    (sp-flt spt-accel-y -27.306667)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 45 44 1)
+    (sp-launcher-by-id spt-next-launcher 1756)
+    (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0))
+    )
+  )
 
-(set! (-> *part-id-table* 1756)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.4222223) (sp-end))
-        )
-      )
+(defpart 1756
+  :init-specs
+  ((sp-flt spt-fade-a -1.4222223))
+  )
 
-(set! (-> *part-id-table* 1753) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -8.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -3.657143)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1753
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 5.0)
+    (sp-rnd-flt spt-y (meters 0) (meters -8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -3.657143)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1754) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -3.5))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-rnd-flt spt-scale-y (meters 13.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1754
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -3.5))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 0.5) 1.0)
+    (sp-flt spt-rot-z (degrees 180.0))
+    (sp-rnd-flt spt-scale-y (meters 13) (meters 3) 1.0)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1755) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1755
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0.3))
+    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 452) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-blow1"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1757)
-                                         (sp-item 1753)
-                                         (sp-item 1758)
-                                         (sp-item 1759 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-blow1
+  :id 452
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1757) (sp-item 1753) (sp-item 1758) (sp-item 1759 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 1757) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.033333335))
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-accel-y -27.306667)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1756)
-                                    (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1757
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-r 0.0 32.0 1.0)
+    (sp-rnd-flt spt-g 64.0 128.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-vel-y (meters -0.033333335))
+    (sp-flt spt-scalevel-y (meters 0.006666667))
+    (sp-flt spt-accel-y -27.306667)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 45 44 1)
+    (sp-launcher-by-id spt-next-launcher 1756)
+    (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0))
+    )
+  )
 
-(set! (-> *part-id-table* 1758) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -3.5))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-rnd-flt spt-scale-y (meters 13.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1758
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -3.5))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 0.5) 1.0)
+    (sp-flt spt-rot-z (degrees 180.0))
+    (sp-rnd-flt spt-scale-y (meters 13) (meters 3) 1.0)
+    (sp-rnd-flt spt-r 0.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1759) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1759
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0.3))
+    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-r 0.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 128.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 453) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-blow2"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1760)
-                                         (sp-item 1753)
-                                         (sp-item 1761)
-                                         (sp-item 1762 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-blow2
+  :id 453
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1760) (sp-item 1753) (sp-item 1761) (sp-item 1762 :flags (is-3d)))
+  )
 
-(set! (-> *part-id-table* 1760) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.033333335))
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-accel-y -27.306667)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1756)
-                                    (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1760
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-vel-y (meters -0.033333335))
+    (sp-flt spt-scalevel-y (meters 0.006666667))
+    (sp-flt spt-accel-y -27.306667)
+    (sp-int spt-timer 120)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 45 44 1)
+    (sp-launcher-by-id spt-next-launcher 1756)
+    (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 0))
+    )
+  )
 
-(set! (-> *part-id-table* 1761) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -3.5))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-rnd-flt spt-scale-y (meters 13.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1761
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -3.5))
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 0.5) 1.0)
+    (sp-flt spt-rot-z (degrees 180.0))
+    (sp-rnd-flt spt-scale-y (meters 13) (meters 3) 1.0)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1762) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1762
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0.3))
+    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-fade-a -8.533334)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
 (defbehavior sunken-pipegame-button-init-by-other sunken-pipegame-button ((arg0 vector) (arg1 quaternion) (arg2 entity-actor) (arg3 symbol))
   (basebutton-init-by-other (the-as basebutton #f) arg0 arg1 arg2 arg3 0.0)
diff --git a/goal_src/levels/sunken/sunken-water.gc b/goal_src/levels/sunken/sunken-water.gc
index f45bcf182d..61d8715d2a 100644
--- a/goal_src/levels/sunken/sunken-water.gc
+++ b/goal_src/levels/sunken/sunken-water.gc
@@ -42,53 +42,39 @@
                                   )
         )
 
-(set! (-> *part-group-id-table* 446)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-sunken-water-deadly-water"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1736 :fade-after (meters 50.0)))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-sunken-water-deadly-water
+  :id 446
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1736 :fade-after (meters 50)))
+  )
 
-(set! (-> *part-id-table* 1736) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.25))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.1875))
-                                    (sp-flt spt-scalevel-y (meters -0.001875))
-                                    (sp-flt spt-fade-a -3.2)
-                                    (sp-int spt-timer 81)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2022)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1736
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 4) 1.0)
+    (sp-flt spt-scale-y (meters 0.25))
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 96.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters 0.1875))
+    (sp-flt spt-scalevel-y (meters -0.001875))
+    (sp-flt spt-fade-a -3.2)
+    (sp-int spt-timer 81)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 15)
+    (sp-launcher-by-id spt-next-launcher 2022)
+    )
+  )
 
-(set! (-> *part-id-table* 2022)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-fade-a -1.28)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2022
+  :init-specs
+  ((sp-flt spt-r 255.0) (sp-rnd-flt spt-g 128.0 128.0 1.0) (sp-flt spt-b 0.0) (sp-flt spt-fade-a -1.28))
+  )
 
 (defmethod draw-ripple sunken-water ((obj sunken-water))
   (set! (-> obj draw ripple send-query) #t)
diff --git a/goal_src/levels/sunken/whirlpool.gc b/goal_src/levels/sunken/whirlpool.gc
index 39523275c4..c3f94805f9 100644
--- a/goal_src/levels/sunken/whirlpool.gc
+++ b/goal_src/levels/sunken/whirlpool.gc
@@ -35,278 +35,262 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 447)
-      (new 'static 'sparticle-launch-group
-        :length #xbb
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-whirlpool-swirl"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 187
-          (sp-item 1739 :fade-after (meters 60.0) :falloff-to (meters 60.0) :binding 1737)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-whirlpool-swirl
+  :id 447
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1739 :fade-after (meters 60) :falloff-to (meters 60) :binding 1737)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 1739) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 6.6))
-                                    (sp-flt spt-scale-x (meters 0.2))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1739
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 6.6))
+    (sp-flt spt-scale-x (meters 0.2))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-g 0.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-accel-y -0.68266666)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1737)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-x (meters 0.0))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-rnd-flt spt-z 16384.0 4096.0 1.0)
-                                                     (sp-flt spt-scale-x (meters 3.2))
-                                                     (sp-flt spt-scale-y (meters 1.0))
-                                                     (sp-flt spt-r 150.0)
-                                                     (sp-flt spt-g 150.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.053333335))
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-vel-z (meters -0.01))
-                                                     (sp-flt spt-scalevel-x (meters -0.004888889))
-                                                     (sp-flt spt-fade-a 0.42666668)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit7)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1740)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1737
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters 4) (meters 1) 1.0)
+    (sp-flt spt-scale-x (meters 3.2))
+    (sp-flt spt-scale-y (meters 1))
+    (sp-flt spt-r 150.0)
+    (sp-flt spt-g 150.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-flt spt-vel-x (meters 0.053333335))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters -0.01))
+    (sp-flt spt-scalevel-x (meters -0.004888889))
+    (sp-flt spt-fade-a 0.42666668)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit3 bit7)
+    (sp-int-plain-rnd spt-next-time 37 36 1)
+    (sp-launcher-by-id spt-next-launcher 1740)
+    )
+  )
 
-(set! (-> *part-id-table* 1740)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
+(defpart 1740
+  :init-specs
+  ((sp-flt spt-fade-a 0.0))
+  )
 
-(set! (-> *part-id-table* 1738) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -1.8285716)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1738
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-fade-a -1.8285716)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
 (defmethod dummy-20 whirlpool ((obj whirlpool) (arg0 float))
   (let* ((gp-0 (target-pos 0))
diff --git a/goal_src/levels/swamp/kermit.gc b/goal_src/levels/swamp/kermit.gc
index 41eae5f8e6..ac037da1f7 100644
--- a/goal_src/levels/swamp/kermit.gc
+++ b/goal_src/levels/swamp/kermit.gc
@@ -9,519 +9,431 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 298)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-kermit-charging-up"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 1359 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 1356)
-          (sp-item 1359 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 1357)
-          (sp-item 1359 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 1358)
-          (sp-item 1360)
-          (sp-item 1361 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1362 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1363 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1358 :fade-after (meters 30.0) :falloff-to (meters 30.0) :flags (start-dead))
-          (sp-item 1357 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (start-dead))
-          (sp-item 1356 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 1358 :fade-after (meters 90.0) :falloff-to (meters 90.0) :flags (start-dead))
-          (sp-item 1357 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 1356 :fade-after (meters 110.0) :falloff-to (meters 110.0) :flags (start-dead))
-          (sp-item 1358 :fade-after (meters 120.0) :falloff-to (meters 120.0) :flags (start-dead))
-          (sp-item 1357 :fade-after (meters 120.0) :falloff-to (meters 120.0) :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :y 20480.0 :w 20480.0)
-        )
-      )
+(defpartgroup group-kermit-charging-up
+  :id 298
+  :bounds (static-bspherem 0 5 0 5)
+  :parts
+  ((sp-item 1359 :fade-after (meters 140) :falloff-to (meters 140) :binding 1356)
+    (sp-item 1359 :fade-after (meters 140) :falloff-to (meters 140) :binding 1357)
+    (sp-item 1359 :fade-after (meters 140) :falloff-to (meters 140) :binding 1358)
+    (sp-item 1360)
+    (sp-item 1361 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1362 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1363 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1358 :fade-after (meters 30) :falloff-to (meters 30) :flags (start-dead))
+    (sp-item 1357 :fade-after (meters 60) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 1356 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 1358 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
+    (sp-item 1357 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 1356 :fade-after (meters 110) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 1358 :fade-after (meters 120) :falloff-to (meters 120) :flags (start-dead))
+    (sp-item 1357 :fade-after (meters 120) :falloff-to (meters 120) :flags (start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 1360) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-flt spt-g 32.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                    (sp-flt spt-fade-a -0.2)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1360
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-rnd-flt spt-num 0.1 1.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
+    (sp-flt spt-y (meters 0.5))
+    (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-flt spt-g 32.0)
+    (sp-flt spt-b 192.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+    (sp-flt spt-fade-a -0.2)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1359) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.1 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1359
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 0.05 0.1 1.0)
+    (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
+    (sp-flt spt-y (meters 0.5))
+    (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 192.0)
+    (sp-flt spt-a 96.0)
+    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
+    (sp-flt spt-fade-a 0.0)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1356) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
-                                        :mask #x1
-                                        :num 0.05
-                                        :group #x1
-                                        :sound-name (static-sound-name "eco-blue-spark1")
-                                        :volume #x2cc
-                                        )
-                                      )
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1356
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 0.05
+                :group #x1
+                :sound-name (static-sound-name "eco-blue-spark1")
+                :volume #x2cc
+                )
+              )
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 1364)
+    )
+  )
 
-(set! (-> *part-id-table* 1357) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
-                                        :mask #x1
-                                        :num 0.075
-                                        :group #x1
-                                        :sound-name (static-sound-name "eco-blue-spark2")
-                                        :volume #x400
-                                        )
-                                      )
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1357
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 0.075
+                :group #x1
+                :sound-name (static-sound-name "eco-blue-spark2")
+                :volume #x400
+                )
+              )
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 1364)
+    )
+  )
 
-(set! (-> *part-id-table* 1358) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
-                                        :mask #x1
-                                        :num 0.05
-                                        :group #x1
-                                        :sound-name (static-sound-name "eco-blue-spark3")
-                                        :volume #x2cc
-                                        )
-                                      )
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1358
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 0.05
+                :group #x1
+                :sound-name (static-sound-name "eco-blue-spark3")
+                :volume #x2cc
+                )
+              )
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 1364)
+    )
+  )
 
-(set! (-> *part-id-table* 1361) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.5 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 91)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1361
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 0.1 0.5 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-flt spt-y (meters 0.5))
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 91)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 1364)
+    )
+  )
 
-(set! (-> *part-id-table* 1362) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 0.4 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 91)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1362
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+    (sp-rnd-flt spt-num 0.2 0.4 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-flt spt-y (meters 0.5))
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 91)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 1364)
+    )
+  )
 
-(set! (-> *part-id-table* 1363) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.1 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 91)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1363
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+    (sp-rnd-flt spt-num 0.3 0.1 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-flt spt-y (meters 0.5))
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 91)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 1364)
+    )
+  )
 
-(set! (-> *part-id-table* 1364)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -1.0)
-                                                     (sp-flt spt-fade-g -1.0)
-                                                     (sp-flt spt-fade-a -2.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1364
+  :init-specs
+  ((sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-fade-r -1.0)
+    (sp-flt spt-fade-g -1.0)
+    (sp-flt spt-fade-a -2.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 299)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-kermit-charged-up"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1365 :period 15 :length 5))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-kermit-charged-up
+  :id 299
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1365 :period 15 :length 5))
+  )
 
-(set! (-> *part-id-table* 1365) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 75)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1365
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 70.0 16.0 1.0)
+    (sp-rnd-flt spt-g 70.0 16.0 1.0)
+    (sp-flt spt-b 70.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-accel-y -10.922667)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 75)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-userdata 0.0)
+    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 300) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-kermit-pulse"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1368 :flags (launch-asap) :binding 1366)
-                                         (sp-item 1366 :flags (start-dead launch-asap) :binding 1367)
-                                         (sp-item 1367 :flags (start-dead))
-                                         (sp-item 1367 :flags (start-dead))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-kermit-pulse
+  :id 300
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1368 :flags (launch-asap) :binding 1366)
+    (sp-item 1366 :flags (start-dead launch-asap) :binding 1367)
+    (sp-item 1367 :flags (start-dead))
+    (sp-item 1367 :flags (start-dead))
+    )
+  )
 
-(set! (-> *part-id-table* 1368) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 3.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 3000)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-func spt-func 'sparticle-track-root)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1369)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1368
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 3))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 32.0 1.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 3000)
+    (sp-cpuinfo-flags bit3)
+    (sp-func spt-func 'sparticle-track-root)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 1369)
+    )
+  )
 
-(set! (-> *part-id-table* 1369)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-a 100.0 28.0 1.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 1369)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1369
+  :init-specs
+  ((sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-a 100.0 28.0 1.0)
+    (sp-int spt-next-time 5)
+    (sp-launcher-by-id spt-next-launcher 1369)
+    )
+  )
 
-(set! (-> *part-id-table* 1366) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-y (meters 4.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-z 0.0)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.053333335))
-                                    (sp-flt spt-vel-y (meters 0.053333335))
-                                    (sp-flt spt-vel-z (meters 0.002))
-                                    (sp-int spt-timer 3000)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1370)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1366
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 16) 1.0)
+    (sp-flt spt-z (meters 0))
+    (sp-flt spt-scale-x (meters 1.5))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 32.0 1.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-flt spt-vel-x (meters 0.053333335))
+    (sp-flt spt-vel-y (meters 0.053333335))
+    (sp-flt spt-vel-z (meters 0.002))
+    (sp-int spt-timer 3000)
+    (sp-cpuinfo-flags bit2 bit3 bit7)
+    (sp-int spt-next-time 300)
+    (sp-launcher-by-id spt-next-launcher 1370)
+    )
+  )
 
-(set! (-> *part-id-table* 1370)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-vel-z (meters 0.0)) (sp-end))
-        )
-      )
+(defpart 1370
+  :init-specs
+  ((sp-flt spt-vel-z (meters 0)))
+  )
 
-(set! (-> *part-id-table* 1367) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.85))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00075757573))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.16)
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1367
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 0.85))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-rnd-flt spt-g 96.0 32.0 1.0)
+    (sp-rnd-flt spt-b 96.0 64.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-scalevel-x (meters -0.00075757573))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.16)
+    (sp-flt spt-fade-a -0.14222223)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-group-id-table* 301)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x5dc
-        :name "group-kermit-pulse-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1371) (sp-item 1372))
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
+(defpartgroup group-kermit-pulse-impact
+  :id 301
+  :duration 5
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 1371) (sp-item 1372))
+  )
 
-(set! (-> *part-id-table* 1371) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters -0.1) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-z -409.6 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.9) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.00083333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-a -0.64)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 30)
-                                    (sp-launcher-by-id spt-next-launcher 1373)
-                                    (sp-rnd-flt spt-launchrot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1371
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters -0.1) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-z (meters -0.1) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.9) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.00083333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.01))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -2.1333334)
+    (sp-flt spt-fade-a -0.64)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 30)
+    (sp-launcher-by-id spt-next-launcher 1373)
+    (sp-rnd-flt spt-launchrot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 1373)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -3.2)
-                                                     (sp-flt spt-fade-g 1.0)
-                                                     (sp-flt spt-fade-b 1.0)
-                                                     (sp-int spt-next-time 30)
-                                                     (sp-launcher-by-id spt-next-launcher 1374)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1373
+  :init-specs
+  ((sp-flt spt-fade-r -3.2)
+    (sp-flt spt-fade-g 1.0)
+    (sp-flt spt-fade-b 1.0)
+    (sp-int spt-next-time 30)
+    (sp-launcher-by-id spt-next-launcher 1374)
+    )
+  )
 
-(set! (-> *part-id-table* 1374)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1374
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
+  )
 
-(set! (-> *part-id-table* 1372) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -0.1) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-z -409.6 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.06666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-a -1.4222223)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-flt spt-friction 0.93)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 30)
-                                    (sp-launcher-by-id spt-next-launcher 1373)
-                                    (sp-rnd-flt spt-launchrot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1372
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+    (sp-flt spt-num 32.0)
+    (sp-rnd-flt spt-x (meters -0.1) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-y (meters -0.1) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-z (meters -0.1) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-rnd-flt spt-b 192.0 64.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.06666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+    (sp-flt spt-fade-g -2.1333334)
+    (sp-flt spt-fade-a -1.4222223)
+    (sp-flt spt-accel-y -2.7306666)
+    (sp-flt spt-friction 0.93)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 30)
+    (sp-launcher-by-id spt-next-launcher 1373)
+    (sp-rnd-flt spt-launchrot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
 (deftype joint-mod-tracker (basic)
   ((target-pos               vector                   :inline :offset-assert  16)
diff --git a/goal_src/levels/swamp/swamp-obs.gc b/goal_src/levels/swamp/swamp-obs.gc
index 97e9b8a26e..1d4818a770 100644
--- a/goal_src/levels/swamp/swamp-obs.gc
+++ b/goal_src/levels/swamp/swamp-obs.gc
@@ -20,129 +20,112 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 289) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x5
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-swamp-spike-up"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1325 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 1326 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 1327 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-swamp-spike-up
+  :id 289
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1325 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1326 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1327 :fade-after (meters 60) :falloff-to (meters 60))
+    )
+  )
 
-(set! (-> *part-id-table* 1325)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-int-flt spt-x (meters -2.0) 2 8192.0)
-                                                     (sp-flt spt-y (meters 0.75))
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 48.0 24.0 1.0)
-                                                     (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.01))
-                                                     (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
-                                                     (sp-flt spt-friction 0.96)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 30 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1328)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -179.3918))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1325
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-int-flt spt-x (meters -2) 2 8192.0)
+    (sp-flt spt-y (meters 0.75))
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 32.0 1.0)
+    (sp-rnd-flt spt-g 48.0 24.0 1.0)
+    (sp-rnd-flt spt-b 48.0 8.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.01))
+    (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 30 299 1)
+    (sp-launcher-by-id spt-next-launcher 1328)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-rotate-y (degrees -179.3918))
+    )
+  )
 
-(set! (-> *part-id-table* 1328)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.32) (sp-end))
-        )
-      )
+(defpart 1328
+  :init-specs
+  ((sp-flt spt-fade-a -0.32))
+  )
 
-(set! (-> *part-id-table* 1326)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-int-flt spt-x (meters -2.0) 2 8192.0)
-                                                     (sp-flt spt-y (meters -0.75))
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 32.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-g 36.0 18.0 1.0)
-                                                     (sp-rnd-flt spt-b 24.0 4.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.01))
-                                                     (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
-                                                     (sp-flt spt-friction 0.96)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 30 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1328)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -179.3918))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1326
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-int-flt spt-x (meters -2) 2 8192.0)
+    (sp-flt spt-y (meters -0.75))
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 16.0 1.0)
+    (sp-rnd-flt spt-g 36.0 18.0 1.0)
+    (sp-rnd-flt spt-b 24.0 4.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.01))
+    (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 30 299 1)
+    (sp-launcher-by-id spt-next-launcher 1328)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-rotate-y (degrees -179.3918))
+    )
+  )
 
-(set! (-> *part-id-table* 1327) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-int-flt spt-x (meters -2.0) 2 8192.0)
-                                    (sp-flt spt-y (meters 0.25))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 16.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-drop)
-                                    (sp-int spt-next-time 390)
-                                    (sp-launcher-by-id spt-next-launcher 1329)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -179.3918))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1327
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-int-flt spt-x (meters -2) 2 8192.0)
+    (sp-flt spt-y (meters 0.25))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 16.0 1.0)
+    (sp-rnd-flt spt-g 48.0 16.0 1.0)
+    (sp-rnd-flt spt-b 48.0 16.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+    (sp-flt spt-accel-y -13.653334)
+    (sp-flt spt-friction 0.96)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop)
+    (sp-int spt-next-time 390)
+    (sp-launcher-by-id spt-next-launcher 1329)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-rotate-y (degrees -179.3918))
+    )
+  )
 
-(set! (-> *part-group-id-table* 290) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #x5
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-swamp-spike-down"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1325 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 1326 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-swamp-spike-down
+  :id 290
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1325 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1326 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
 
 (deftype swamp-spike (process-drawable)
   ((root-override collide-shape         :offset        112)
@@ -645,102 +628,87 @@
   )
 
 
-(set! (-> *part-group-id-table* 291) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x12c
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-swamp-rock-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1330 :period 1500 :length 5)
-                                         (sp-item 1331 :period 1500 :length 5)
-                                         (sp-item 1332 :period 1500 :length 15)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-swamp-rock-explosion
+  :id 291
+  :duration 300
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1330 :period 1500 :length 5)
+    (sp-item 1331 :period 1500 :length 5)
+    (sp-item 1332 :period 1500 :length 15)
+    )
+  )
 
-(set! (-> *part-id-table* 1331) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 130.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 54.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.1333334)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1331
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-scale-x (meters 15))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 130.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 54.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -2.1333334)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1330) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-drop)
-                                    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1330
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-rnd-flt spt-num 16.0 16.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 70.0 16.0 1.0)
+    (sp-rnd-flt spt-g 70.0 16.0 1.0)
+    (sp-flt spt-b 70.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-accel-y -10.922667)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop)
+    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1332) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-flt spt-scalevel-y (meters 0.0033333334))
-                                    (sp-flt spt-accel-y -1.0922667)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 30 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 1333)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1332
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 48.0 1.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-rnd-flt spt-a 16.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.013333334))
+    (sp-flt spt-scalevel-y (meters 0.0033333334))
+    (sp-flt spt-accel-y -1.0922667)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2)
+    (sp-int-plain-rnd spt-next-time 30 299 1)
+    (sp-launcher-by-id spt-next-launcher 1333)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1333)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.2) (sp-end))
-        )
-      )
+(defpart 1333
+  :init-specs
+  ((sp-flt spt-fade-a -0.2))
+  )
 
 (defskelgroup *swamp-rock-sg* swamp-rock
   0
diff --git a/goal_src/levels/swamp/swamp-part.gc b/goal_src/levels/swamp/swamp-part.gc
index e49e684c14..cf4ac648e5 100644
--- a/goal_src/levels/swamp/swamp-part.gc
+++ b/goal_src/levels/swamp/swamp-part.gc
@@ -16,30 +16,25 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 302)
-  (new 'static 'sparticle-launch-group
-   :length 76
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bayou-billy-hut"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 76
-    (sp-item 1377 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1500 :length 300)
-    (sp-item 1377 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2928 :length 360)
-    (sp-item 1377 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 4602 :length 180)
-    (sp-item 1378 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1500 :length 300)
-    (sp-item 1378 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2928 :length 360)
-    (sp-item 1378 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 4602 :length 180)
-    (sp-item 1379 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 180 :length 45)
-    (sp-item 1380 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 180 :length 45)
-    (sp-item 1381 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1382 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 736 :length 30)
-    (sp-item 1382 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1103 :length 30)
-    (sp-item 1382 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1546 :length 30)
-    (sp-item 1383 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1383 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1383 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+(defpartgroup group-swamp-bayou-billy-hut
+  :id 302
+  :bounds (static-bspherem -4 -3 0 12)
+  :parts
+  ((sp-item 1377 :fade-after (meters 175) :falloff-to (meters 175) :period 1500 :length 300)
+    (sp-item 1377 :fade-after (meters 175) :falloff-to (meters 175) :period 2928 :length 360)
+    (sp-item 1377 :fade-after (meters 175) :falloff-to (meters 175) :period 4602 :length 180)
+    (sp-item 1378 :fade-after (meters 175) :falloff-to (meters 175) :period 1500 :length 300)
+    (sp-item 1378 :fade-after (meters 175) :falloff-to (meters 175) :period 2928 :length 360)
+    (sp-item 1378 :fade-after (meters 175) :falloff-to (meters 175) :period 4602 :length 180)
+    (sp-item 1379 :fade-after (meters 125) :falloff-to (meters 125) :period 180 :length 45)
+    (sp-item 1380 :fade-after (meters 125) :falloff-to (meters 125) :period 180 :length 45)
+    (sp-item 1381 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1382 :fade-after (meters 100) :falloff-to (meters 100) :period 736 :length 30)
+    (sp-item 1382 :fade-after (meters 100) :falloff-to (meters 100) :period 1103 :length 30)
+    (sp-item 1382 :fade-after (meters 100) :falloff-to (meters 100) :period 1546 :length 30)
+    (sp-item 1383 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1383 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1383 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -102,21 +97,15 @@
     (sp-item 2304 :flags (is-3d start-dead))
     (sp-item 2304 :flags (is-3d start-dead))
     )
-   :bounds
-   (new 'static 'sphere :x -16384.0 :y -12288.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2305)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2305
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 8.0)
-    (sp-flt spt-x (meters 6.0))
-    (sp-flt spt-y (meters -13.0))
-    (sp-flt spt-z 16384.0)
+    (sp-flt spt-x (meters 6))
+    (sp-flt spt-y (meters -13))
+    (sp-flt spt-z (meters 4))
     (sp-flt spt-scale-x (meters 1.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -125,34 +114,21 @@
     (sp-cpuinfo-flags bit3)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2308)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2308)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-int spt-timer 300)
-    (sp-int spt-next-time 150)
-    (sp-launcher-by-id spt-next-launcher 2308)
-    (sp-end)
-    )
-   )
+(defpart 2308
+  :init-specs
+  ((sp-int spt-timer 300) (sp-int spt-next-time 150) (sp-launcher-by-id spt-next-launcher 2308))
   )
 
-(set!
-  (-> *part-id-table* 2306)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2306
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 8.0)
-    (sp-flt spt-x (meters 5.0))
+    (sp-flt spt-x (meters 5))
     (sp-flt spt-y (meters -13.5))
-    (sp-flt spt-z 14336.0)
+    (sp-flt spt-z (meters 3.5))
     (sp-flt spt-scale-x (meters 1.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-g 0.0)
@@ -161,21 +137,16 @@
     (sp-cpuinfo-flags bit3)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2308)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2307)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2307
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 8.0)
     (sp-flt spt-x (meters 6.5))
     (sp-flt spt-y (meters -12.5))
-    (sp-flt spt-z 20480.0)
+    (sp-flt spt-z (meters 5))
     (sp-flt spt-scale-x (meters 1.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 0.0)
@@ -184,20 +155,15 @@
     (sp-cpuinfo-flags bit3)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2308)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2303)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2303
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-int spt-num 1065353216 1 2.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 2048.0 4096.0 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 1) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 0.0 255.0 1.0)
@@ -207,22 +173,17 @@
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit7)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2308)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2304)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 2304
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-func spt-birth-func 'birth-func-copy-rot-color)
     (sp-flt spt-num 3.0)
     (sp-flt spt-scale-x (meters 0.075))
@@ -234,21 +195,16 @@
     (sp-rnd-flt spt-a 32.0 64.0 1.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9 bit12)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1384)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1384
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 15.0) (meters 30.0) 1.0)
-    (sp-rnd-flt spt-y (meters 14.0) (meters 3.0) 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters 15) (meters 30) 1.0)
+    (sp-rnd-flt spt-y (meters 14) (meters 3) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
@@ -261,53 +217,38 @@
     (sp-int spt-next-time 555)
     (sp-launcher-by-id spt-next-launcher 1385)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1385)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 10
-    (sp-flt spt-g 128.0)
-    (sp-flt spt-vel-x (meters 0.0))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+(defpart 1385
+  :init-specs
+  ((sp-flt spt-g 128.0)
+    (sp-flt spt-vel-x (meters 0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-accel-x 0.0)
     (sp-flt spt-accel-y 0.0)
     (sp-flt spt-accel-z 0.0)
     (sp-int-plain-rnd spt-next-time 2700 1499 1)
     (sp-launcher-by-id spt-next-launcher 1386)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1386)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-b 128.0)
+(defpart 1386
+  :init-specs
+  ((sp-flt spt-b 128.0)
     (sp-rnd-int spt-accel-x -1070677186 1 5.4613333)
     (sp-rnd-int spt-accel-z -1070677186 1 5.4613333)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1383)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1383
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 15.0) (meters 30.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters 15) (meters 30) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 3) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
@@ -320,22 +261,17 @@
     (sp-int spt-next-time 555)
     (sp-launcher-by-id spt-next-launcher 1385)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1375)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1375
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 12288.0 4096.0 1.0)
-    (sp-flt spt-scale-x (meters 5.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 3) (meters 1) 1.0)
+    (sp-flt spt-scale-x (meters 5))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -345,40 +281,30 @@
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 6000)
     (sp-cpuinfo-flags bit3 bit7)
     (sp-int-plain-rnd spt-next-time 150 449 1)
     (sp-launcher-by-id spt-next-launcher 1387)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1387)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+(defpart 1387
+  :init-specs
+  ((sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
     (sp-int-plain-rnd spt-next-time 150 449 1)
     (sp-launcher-by-id spt-next-launcher 1387)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1376)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x21 :page #x2))
+(defpart 1376
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x21 :page #x2))
     (sp-func spt-birth-func 'birth-func-copy-rot-color)
     (sp-flt spt-num 4.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-rnd-flt spt-rot-x -5461.3335 43690.668 1.0)
     (sp-flt spt-rot-y (degrees 0.0))
     (sp-flt spt-scale-y (meters 1.7))
@@ -388,20 +314,15 @@
     (sp-rnd-flt spt-a 48.0 48.0 1.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1377)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1377
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
     (sp-flt spt-y (meters -0.25))
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 80.0 20.0 1.0)
@@ -425,17 +346,12 @@
     (sp-flt spt-conerot-y (degrees -20.0))
     (sp-flt spt-conerot-z (degrees -90.0))
     (sp-flt spt-conerot-radius (meters 0.25))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1378)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1378
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 0.9 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -459,20 +375,15 @@
     (sp-rnd-flt spt-conerot-x (degrees -25.000002) (degrees 10.0) 1.0)
     (sp-rnd-flt spt-conerot-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
     (sp-flt spt-conerot-radius (meters 0.25))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1379)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1379
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
     (sp-flt spt-y (meters -0.25))
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 80.0 20.0 1.0)
@@ -496,19 +407,14 @@
     (sp-flt spt-conerot-y (degrees -20.0))
     (sp-flt spt-conerot-z (degrees -90.0))
     (sp-flt spt-conerot-radius (meters 0.25))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1380)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1380
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 80.0 20.0 1.0)
@@ -530,21 +436,16 @@
     (sp-rnd-flt spt-conerot-x (degrees -25.000002) (degrees 10.0) 1.0)
     (sp-rnd-flt spt-conerot-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
     (sp-flt spt-conerot-radius (meters 0.25))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1381)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1381
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 0.9 1.0)
     (sp-flt spt-x (meters -7.8))
     (sp-flt spt-y (meters -8.5))
-    (sp-flt spt-z -9011.2)
+    (sp-flt spt-z (meters -2.2))
     (sp-flt spt-scale-x (meters 1.6))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -566,21 +467,16 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 0.25))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1382)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1382
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 1.0 1.0)
     (sp-flt spt-x (meters -7.8))
     (sp-flt spt-y (meters -8.5))
-    (sp-flt spt-z -9011.2)
+    (sp-flt spt-z (meters -2.2))
     (sp-flt spt-scale-x (meters 1.6))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -602,21 +498,14 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 0.25))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 303)
-  (new 'static 'sparticle-launch-group
-   :length 50
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-01"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 50
-    (sp-item 1390 :fade-after (meters 125.0) :period 150 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-01
+  :id 303
+  :bounds (static-bspherem 0 0 -8 30)
+  :parts
+  ((sp-item 1390 :fade-after (meters 125) :period 150 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -653,9 +542,9 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
-    (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -667,41 +556,30 @@
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     )
-   :bounds
-   (new 'static 'sphere :z -32768.0 :w 122880.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1390)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 11
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1390
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 35.0) 1.0)
-    (sp-rnd-flt spt-z -143360.0 225280.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -10) (meters 35) 1.0)
+    (sp-rnd-flt spt-z (meters -35) (meters 55) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1388)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x20 :page #x2))
+(defpart 1388
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x20 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.1 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 32.0 1.0)
     (sp-rnd-flt spt-g 64.0 32.0 1.0)
@@ -714,44 +592,22 @@
     (sp-cpuinfo-flags bit2)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1391)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1391)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 1050)
-    (sp-launcher-by-id spt-next-launcher 1392)
-    (sp-end)
-    )
-   )
+(defpart 1391
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 1050) (sp-launcher-by-id spt-next-launcher 1392))
   )
 
-(set!
-  (-> *part-id-table* 1392)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-g 0.0)
-    (sp-flt spt-b 0.0)
-    (sp-flt spt-a 0.0)
-    (sp-int spt-timer 5)
-    (sp-end)
-    )
-   )
+(defpart 1392
+  :init-specs
+  ((sp-flt spt-g 0.0) (sp-flt spt-b 0.0) (sp-flt spt-a 0.0) (sp-int spt-timer 5))
   )
 
-(set!
-  (-> *part-id-table* 1389)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1389
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -764,35 +620,23 @@
     (sp-cpuinfo-flags bit3)
     (sp-int spt-next-time 1200)
     (sp-launcher-by-id spt-next-launcher 1393)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1393)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-rnd-flt spt-a 8.0 32.0 1.0)
+(defpart 1393
+  :init-specs
+  ((sp-rnd-flt spt-a 8.0 32.0 1.0)
     (sp-flt spt-scalevel-x (meters 0.04))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-int spt-timer 5)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 304)
-  (new 'static 'sparticle-launch-group
-   :length 33
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-02"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 33
-    (sp-item 1394 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-02
+  :id 304
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1394 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -812,9 +656,9 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
-    (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -826,41 +670,29 @@
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1394)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1394
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z -81920.0 163840.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -8) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters -20) (meters 40) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees 25.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 305)
-  (new 'static 'sparticle-launch-group
-   :length 50
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-03"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 50
-    (sp-item 1395 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-03
+  :id 305
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1395 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -897,9 +729,9 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
-    (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -911,41 +743,29 @@
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1395)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1395
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -4.0) (meters 12.0) 1.0)
-    (sp-rnd-flt spt-z -163840.0 245760.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -4) (meters 12) 1.0)
+    (sp-rnd-flt spt-z (meters -40) (meters 60) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees 25.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 306)
-  (new 'static 'sparticle-launch-group
-   :length 50
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-04"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 50
-    (sp-item 1396 :fade-after (meters 125.0) :period 150 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-04
+  :id 306
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1396 :fade-after (meters 125) :period 150 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -982,9 +802,9 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
-    (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -996,41 +816,29 @@
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1396)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1396
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -35.0) (meters 60.0) 1.0)
-    (sp-rnd-flt spt-z -49152.0 73728.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -35) (meters 60) 1.0)
+    (sp-rnd-flt spt-z (meters -12) (meters 18) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees 40.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 307)
-  (new 'static 'sparticle-launch-group
-   :length 19
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-05"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 19
-    (sp-item 1397 :fade-after (meters 125.0) :period 600 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-05
+  :id 307
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1397 :fade-after (meters 125) :period 600 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1389 :flags (start-dead launch-asap))
@@ -1050,42 +858,30 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1397)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1397
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-    (sp-rnd-flt spt-z -24576.0 49152.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 12) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 308)
-  (new 'static 'sparticle-launch-group
-   :length 69
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-06"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 69
-    (sp-item 1398 :fade-after (meters 200.0) :period 120 :length 5 :binding 1388)
-    (sp-item 1399 :fade-after (meters 200.0) :period 450 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-06
+  :id 308
+  :bounds (static-bspherem 0 0 0 40)
+  :parts
+  ((sp-item 1398 :fade-after (meters 200) :period 120 :length 5 :binding 1388)
+    (sp-item 1399 :fade-after (meters 200) :period 450 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -1140,9 +936,9 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
-    (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -1154,65 +950,48 @@
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 163840.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1398)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1398
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -45.0) (meters 80.0) 1.0)
-    (sp-rnd-flt spt-z -81920.0 163840.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -45) (meters 80) 1.0)
+    (sp-rnd-flt spt-z (meters -20) (meters 40) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1399)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1399
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 40.0) 1.0)
-    (sp-rnd-flt spt-z 73728.0 61440.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -10) (meters 40) 1.0)
+    (sp-rnd-flt spt-z (meters 18) (meters 15) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 309)
-  (new 'static 'sparticle-launch-group
-   :length 71
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-07"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 71
-    (sp-item 1400 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-    (sp-item 1401 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-    (sp-item 1402 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-    (sp-item 1403 :fade-after (meters 125.0) :period 600 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-07
+  :id 309
+  :bounds (static-bspherem 0 0 0 40)
+  :parts
+  ((sp-item 1400 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1401 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1402 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1403 :fade-after (meters 125) :period 600 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -1267,9 +1046,9 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
-    (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -1281,83 +1060,63 @@
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 163840.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1400)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1400
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 15.0) 1.0)
-    (sp-rnd-flt spt-z -32768.0 155648.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 15) 1.0)
+    (sp-rnd-flt spt-z (meters -8) (meters 38) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1401)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1401
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -17.5) (meters 10.0) 1.0)
-    (sp-rnd-flt spt-z -61440.0 204800.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -17.5) (meters 10) 1.0)
+    (sp-rnd-flt spt-z (meters -15) (meters 50) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1402)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1402
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 45.0) 1.0)
-    (sp-rnd-flt spt-z 86016.0 32768.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -20) (meters 45) 1.0)
+    (sp-rnd-flt spt-z (meters 21) (meters 8) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-g 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1403)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1403
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -33.0) (meters 6.0) 1.0)
-    (sp-rnd-flt spt-z -102400.0 102400.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -33) (meters 6) 1.0)
+    (sp-rnd-flt spt-z (meters -25) (meters 25) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
@@ -1365,21 +1124,14 @@
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 310)
-  (new 'static 'sparticle-launch-group
-   :length 38
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-08"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 38
-    (sp-item 1404 :fade-after (meters 125.0) :period 150 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-08
+  :id 310
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1404 :fade-after (meters 125) :period 150 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -1404,9 +1156,9 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
-    (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -1418,41 +1170,29 @@
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1404)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1404
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -18.0) (meters 45.0) 1.0)
-    (sp-rnd-flt spt-z -102400.0 163840.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -18) (meters 45) 1.0)
+    (sp-rnd-flt spt-z (meters -25) (meters 40) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 311)
-  (new 'static 'sparticle-launch-group
-   :length 25
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-09"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 25
-    (sp-item 1405 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-09
+  :id 311
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1405 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -1478,41 +1218,29 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1405)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1405
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 42.0) 1.0)
-    (sp-rnd-flt spt-z -40960.0 73728.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -20) (meters 42) 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 18) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees 30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 312)
-  (new 'static 'sparticle-launch-group
-   :length 38
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-10"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 38
-    (sp-item 1406 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-10
+  :id 312
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1406 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -1537,9 +1265,9 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
-    (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -1551,41 +1279,29 @@
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1406)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1406
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -30.0) (meters 52.0) 1.0)
-    (sp-rnd-flt spt-z -40960.0 73728.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -30) (meters 52) 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 18) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 313)
-  (new 'static 'sparticle-launch-group
-   :length 38
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-11"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 38
-    (sp-item 1407 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-11
+  :id 313
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1407 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -1610,9 +1326,9 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
-    (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -1624,41 +1340,29 @@
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1407)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1407
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -14.0) (meters 22.0) 1.0)
-    (sp-rnd-flt spt-z -53248.0 122880.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -14) (meters 22) 1.0)
+    (sp-rnd-flt spt-z (meters -13) (meters 30) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 314)
-  (new 'static 'sparticle-launch-group
-   :length 25
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-12"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 25
-    (sp-item 1408 :fade-after (meters 125.0) :period 150 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-12
+  :id 314
+  :bounds (static-bspherem 0 0 0 40)
+  :parts
+  ((sp-item 1408 :fade-after (meters 125) :period 150 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -1684,41 +1388,29 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     )
-   :bounds (new 'static 'sphere :w 163840.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1408)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1408
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 33.0) 1.0)
-    (sp-rnd-flt spt-z -53248.0 286720.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -15) (meters 33) 1.0)
+    (sp-rnd-flt spt-z (meters -13) (meters 70) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -65.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 315)
-  (new 'static 'sparticle-launch-group
-   :length 25
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-13"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 25
-    (sp-item 1409 :fade-after (meters 125.0) :period 600 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-13
+  :id 315
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 1409 :fade-after (meters 125) :period 600 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -1744,41 +1436,29 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     )
-   :bounds (new 'static 'sphere :w 40960.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1409)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1409
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 20.0) 1.0)
-    (sp-rnd-flt spt-z -32768.0 81920.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -8) (meters 20) 1.0)
+    (sp-rnd-flt spt-z (meters -8) (meters 20) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -40.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 316)
-  (new 'static 'sparticle-launch-group
-   :length 38
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-bubbles-14"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 38
-    (sp-item 1410 :fade-after (meters 125.0) :period 120 :length 5 :binding 1388)
+(defpartgroup group-swamp-bubbles-14
+  :id 316
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1410 :fade-after (meters 125) :period 120 :length 5 :binding 1388)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
     (sp-item 1388 :flags (start-dead) :binding 1389)
@@ -1803,9 +1483,9 @@
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
     (sp-item 1389 :flags (start-dead launch-asap))
-    (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-    (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
@@ -1817,96 +1497,67 @@
     (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
     (sp-item 1376 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 81920.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1410)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1410
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -35.0) (meters 50.0) 1.0)
-    (sp-rnd-flt spt-z -163840.0 225280.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -35) (meters 50) 1.0)
+    (sp-rnd-flt spt-z (meters -40) (meters 55) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
     (sp-int-plain-rnd spt-timer 150 599 1)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -10.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 317)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-swamp-torch"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 1411 :fade-after (meters 200.0) :falloff-to (meters 220.0))
-    (sp-item 1412 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-    (sp-item 1413 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
-    (sp-item 1414 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
-    (sp-item 1415 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 710 :length 51)
-    (sp-item 1416 :fade-after (meters 60.0) :falloff-to (meters 60.0))
+(defpartgroup group-swamp-torch
+  :id 317
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 1411 :fade-after (meters 200) :falloff-to (meters 220))
+    (sp-item 1412 :fade-after (meters 140) :falloff-to (meters 140))
+    (sp-item 1413 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 90)
+    (sp-item 1414 :fade-after (meters 50) :falloff-to (meters 50) :period 369 :length 69)
+    (sp-item 1415 :fade-after (meters 50) :falloff-to (meters 50) :period 710 :length 51)
+    (sp-item 1416 :fade-after (meters 60) :falloff-to (meters 60))
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1416)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.3)
+(defpart 1416
+  :init-specs
+  ((sp-flt spt-num 0.3)
     (sp-flt spt-x (meters 0.2))
-    (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 2867.2)
     (sp-flt spt-b 3276.8)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-flt spt-vel-y (meters 0.026666667))
     (sp-int spt-timer 180)
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 1417)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1417)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -6.826667)
-    (sp-end)
-    )
-   )
+(defpart 1417
+  :init-specs
+  ((sp-flt spt-fade-b -6.826667))
   )
 
-(set!
-  (-> *part-id-table* 1411)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1411
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1069547520 1 1.0)
     (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-    (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
+    (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1921,32 +1572,21 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 1418)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1418)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -1.3333334)
-    (sp-end)
-    )
-   )
+(defpart 1418
+  :init-specs
+  ((sp-flt spt-fade-a -1.3333334))
   )
 
-(set!
-  (-> *part-id-table* 1413)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1413
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-    (sp-flt spt-y (meters 1.0))
-    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1961,21 +1601,16 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 1418)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1414)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1414
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
     (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z 0.0 1638.4 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1990,21 +1625,16 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 1418)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1415)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1415
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
     (sp-flt spt-y (meters 0.6))
-    (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
+    (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2019,22 +1649,17 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 15)
     (sp-launcher-by-id spt-next-launcher 1418)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1412)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1412
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters 0.3))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2056,9 +1681,7 @@
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/swamp/swamp-rat-nest.gc b/goal_src/levels/swamp/swamp-rat-nest.gc
index 87fb3dc6a2..be81bcf0da 100644
--- a/goal_src/levels/swamp/swamp-rat-nest.gc
+++ b/goal_src/levels/swamp/swamp-rat-nest.gc
@@ -11,693 +11,595 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 292) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #x5
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-swamp-rat-nest-a-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 1334)
-                                         (sp-item 1335)
-                                         (sp-item 1336)
-                                         (sp-item 1337)
-                                         (sp-item 1338)
-                                         (sp-item 1339)
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-swamp-rat-nest-a-explosion
+  :id 292
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1334) (sp-item 1335) (sp-item 1336) (sp-item 1337) (sp-item 1338) (sp-item 1339))
+  )
 
-(set! (-> *part-group-id-table* 293)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x5
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-rat-nest-b-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 1342) (sp-item 1339) (sp-item 1337) (sp-item 1334))
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-swamp-rat-nest-b-explosion
+  :id 293
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1342) (sp-item 1339) (sp-item 1337) (sp-item 1334))
+  )
 
-(set! (-> *part-group-id-table* 294)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x5
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-rat-nest-c-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 1335) (sp-item 1339) (sp-item 1337) (sp-item 1334))
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-swamp-rat-nest-c-explosion
+  :id 294
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1335) (sp-item 1339) (sp-item 1337) (sp-item 1334))
+  )
 
-(set! (-> *part-group-id-table* 295)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-rat-nest-a-puff"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 1346) (sp-item 1347) (sp-item 1348))
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-swamp-rat-nest-a-puff
+  :id 295
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1346) (sp-item 1347) (sp-item 1348))
+  )
 
-(set! (-> *part-group-id-table* 296)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-rat-nest-b-puff"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1350) (sp-item 1351))
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-swamp-rat-nest-b-puff
+  :id 296
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1350) (sp-item 1351))
+  )
 
-(set! (-> *part-group-id-table* 297)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-rat-nest-c-puff"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1353) (sp-item 1354))
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-swamp-rat-nest-c-puff
+  :id 297
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1353) (sp-item 1354))
+  )
 
-(set! (-> *part-id-table* 1353) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1353
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 48.0 1.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.14222223)
+    (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1354) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 85.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1354
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 32.0 16.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 85.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 2))
+    )
+  )
 
-(set! (-> *part-id-table* 1355) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -4.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.07111111)
-                                    (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1355
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters -4.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 48.0 1.0)
+    (sp-rnd-flt spt-g 64.0 48.0 1.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.07111111)
+    (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1350) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1350
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 48.0 1.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.14222223)
+    (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1351) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 85.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 3.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1351
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 32.0 16.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 85.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 3))
+    )
+  )
 
-(set! (-> *part-id-table* 1352) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -10.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.07111111)
-                                    (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1352
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters -10.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 48.0 1.0)
+    (sp-rnd-flt spt-g 64.0 48.0 1.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-rnd-flt spt-a 16.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.07111111)
+    (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1334) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 160.0)
-                                    (sp-flt spt-b 96.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-flt spt-fade-a -1.0)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1334
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 1))
+    (sp-flt spt-scale-x (meters 16))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 160.0)
+    (sp-flt spt-b 96.0)
+    (sp-flt spt-a 32.0)
+    (sp-flt spt-fade-a -1.0)
+    (sp-int spt-timer 15)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1341) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -12.0))
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 96.0)
-                                    (sp-flt spt-a 16.0)
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1341
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters -12))
+    (sp-flt spt-scale-x (meters 16))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 96.0)
+    (sp-flt spt-a 16.0)
+    (sp-flt spt-fade-a 0.0)
+    (sp-int spt-timer 15)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1339)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 8.0 1.0)
-                                                     (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                                     (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.08) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.005))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
-                                                     (sp-flt spt-friction 0.92)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 40.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1339
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 8.0 8.0 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 48.0 1.0)
+    (sp-rnd-flt spt-g 48.0 32.0 1.0)
+    (sp-rnd-flt spt-b 48.0 8.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.08) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.005))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
+    (sp-flt spt-friction 0.92)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 40.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1335) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 16.0 8.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -2.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.21333334)
-                                    (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1335
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 16.0 8.0 1.0)
+    (sp-rnd-flt spt-y (meters -2) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 48.0 1.0)
+    (sp-rnd-flt spt-g 48.0 32.0 1.0)
+    (sp-rnd-flt spt-b 48.0 8.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.005))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1340) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 10.0 5.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -12.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1340
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 10.0 5.0 1.0)
+    (sp-rnd-flt spt-y (meters -12) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 48.0 32.0 1.0)
+    (sp-rnd-flt spt-g 48.0 32.0 1.0)
+    (sp-rnd-flt spt-b 48.0 8.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.005))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1336) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 12.0 8.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.21333334)
-                                    (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 1.0) (meters 1.75) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1336
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 12.0 8.0 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 0.25) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 48.0 32.0 1.0)
+    (sp-rnd-flt spt-g 64.0 48.0 1.0)
+    (sp-rnd-flt spt-b 48.0 8.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.005))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 1) (meters 1.75) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1337) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.6) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-rnd-flt spt-accel-y -8.192 -2.7306666 1.0)
-                                    (sp-int spt-timer 750)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-drop)
-                                    (sp-rnd-flt spt-conerot-x (degrees 15.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 3.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1337
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-rnd-flt spt-num 8.0 16.0 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 32.0 16.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-rnd-flt spt-accel-y -8.192 -2.7306666 1.0)
+    (sp-int spt-timer 750)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-flt spt-userdata 0.0)
+    (sp-func spt-func 'check-water-level-drop)
+    (sp-rnd-flt spt-conerot-x (degrees 15.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 3.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1338) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -6.826667 1.0)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1338
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-rnd-flt spt-num 32.0 32.0 1.0)
+    (sp-rnd-flt spt-y (meters 2) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-r 32.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 32.0 1.0)
+    (sp-rnd-flt spt-b 32.0 16.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y -1.3653333 -6.826667 1.0)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 1) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1346) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1346
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 48.0 1.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.14222223)
+    (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1349) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -12.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.035555556)
-                                    (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1349
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters -12) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 48.0 1.0)
+    (sp-rnd-flt spt-g 64.0 48.0 1.0)
+    (sp-rnd-flt spt-b 64.0 16.0 1.0)
+    (sp-rnd-flt spt-a 8.0 8.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.035555556)
+    (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1347) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1347
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 96.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 32.0 1.0)
+    (sp-rnd-flt spt-b 32.0 16.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 3) (meters 0.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1348) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1348
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+    (sp-rnd-flt spt-num 0.5 0.5 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-r 32.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 32.0 1.0)
+    (sp-rnd-flt spt-b 32.0 16.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-flt spt-fade-a -0.28444445)
+    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 3) (meters 0.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1342) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 20.0 8.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -3.5) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.21333334)
-                                    (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1342
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 20.0 8.0 1.0)
+    (sp-rnd-flt spt-y (meters -3.5) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 48.0 1.0)
+    (sp-rnd-flt spt-g 48.0 32.0 1.0)
+    (sp-rnd-flt spt-b 48.0 8.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.005))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1343) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 16.0 5.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -10.5) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1343
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 16.0 5.0 1.0)
+    (sp-rnd-flt spt-y (meters -10.5) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 48.0 32.0 1.0)
+    (sp-rnd-flt spt-g 48.0 32.0 1.0)
+    (sp-rnd-flt spt-b 48.0 8.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.005))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.10666667)
+    (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1344) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num -5.0)
-                                    (sp-flt spt-y (meters -12.0))
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 96.0)
-                                    (sp-flt spt-a 16.0)
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1344
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num -5.0)
+    (sp-flt spt-y (meters -12))
+    (sp-flt spt-scale-x (meters 16))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 96.0)
+    (sp-flt spt-a 16.0)
+    (sp-flt spt-fade-a 0.0)
+    (sp-int spt-timer 15)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1345) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 12.0 4.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -4.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.16)
-                                    (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1345
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 12.0 4.0 1.0)
+    (sp-rnd-flt spt-y (meters -4) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 48.0 32.0 1.0)
+    (sp-rnd-flt spt-g 48.0 32.0 1.0)
+    (sp-rnd-flt spt-b 48.0 8.0 1.0)
+    (sp-rnd-flt spt-a 48.0 48.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.005))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit12)
+    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
+    )
+  )
 
 (deftype swamp-rat-nest (process-drawable)
   ((child-process       (pointer swamp-rat-nest-dummy)  :offset         20)
diff --git a/goal_src/levels/title/title-obs.gc b/goal_src/levels/title/title-obs.gc
index 34599dd137..af732e4ba3 100644
--- a/goal_src/levels/title/title-obs.gc
+++ b/goal_src/levels/title/title-obs.gc
@@ -193,11 +193,10 @@
   (set! (-> self draw origin-joint-index) (the-as uint 3))
   (set! (-> self draw shadow-mask) (the-as uint 255))
   (set! (-> self draw global-effect) (draw-effect title))
-  (when (or
-          (string= (-> self draw art-group name) "logo-volumes")
-          (string= (-> self draw art-group name) "logo-volumes-japan")
-          (string= (-> self draw art-group name) "logo-black")
-          )
+  (when (or (string= (-> self draw art-group name) "logo-volumes")
+            (string= (-> self draw art-group name) "logo-volumes-japan")
+            (string= (-> self draw art-group name) "logo-black")
+            )
     (set! (-> self main-joint) (new 'process 'joint-mod (joint-mod-handler-mode joint-set*) self 3))
     (set! (-> self main-joint max-dist) (the-as meters #t))
     )
@@ -573,33 +572,34 @@
     (none)
     )
   :exit
-  (behavior () ((-> (method-of-type logo startup) exit)) (set-blackout-frames 10) (none))
+  (behavior ()
+    ((-> (method-of-type logo startup) exit))
+    (set-blackout-frames 10)
+    (none)
+    )
   :trans
   (behavior ()
     ((-> (method-of-type logo startup) trans))
-    (if (and
-            *debug-segment*
-            (cpad-pressed? 0 start circle x)
-            (member (level-status *level* 'village1) '(loaded active))
-            )
+    (if (and *debug-segment*
+             (cpad-pressed? 0 start circle x)
+             (member (level-status *level* 'village1) '(loaded active))
+             )
         (set-setting! *setting-control* self 'bg-a 'abs 1.0 0)
         )
-    (when (and
-            (= (-> *setting-control* current bg-a) 1.0)
-            (and
-              (member (level-status *level* 'village1) '(active loaded))
-              (>= (- (-> *display* base-frame-counter) (-> self state-time)) 900)
-              (let ((gp-2 (level-get *level* 'village1)))
-                (when gp-2
-                  (load-state-want-levels 'title 'village1)
-                  (load-state-want-display-level 'village1 'display-self)
-                  (load-state-want-vis 'vi1)
-                  (set-force-inside! *load-state* 'village1 #t)
-                  (!= (-> gp-2 all-visible?) 'loading)
-                  )
-                )
-              )
-            )
+    (when (and (= (-> *setting-control* current bg-a) 1.0)
+               (and (member (level-status *level* 'village1) '(active loaded))
+                    (>= (- (-> *display* base-frame-counter) (-> self state-time)) 900)
+                    (let ((gp-2 (level-get *level* 'village1)))
+                      (when gp-2
+                        (load-state-want-levels 'title 'village1)
+                        (load-state-want-display-level 'village1 'display-self)
+                        (load-state-want-vis 'vi1)
+                        (set-force-inside! *load-state* 'village1 #t)
+                        (!= (-> gp-2 all-visible?) 'loading)
+                        )
+                      )
+                    )
+               )
       (load-state-want-display-level 'village1 'special)
       (if (not (-> self done?))
           (ja-abort-spooled-anim (-> self anim) (the-as art-joint-anim #f) -1)
@@ -700,7 +700,10 @@
     (none)
     )
   :post
-  (behavior () (ja-post) (none))
+  (behavior ()
+    (ja-post)
+    (none)
+    )
   )
 
 (defbehavior logo-init-by-other logo ((arg0 entity) (arg1 vector) (arg2 symbol))
@@ -853,10 +856,9 @@
           (goto cfg-8)
           )
         (set! (-> *setting-control* default bg-a) 0.0)
-        (when (or
-                (zero? (-> s5-2 handle))
-                (and (nonzero? (-> s5-2 formatted)) (zero? (-> s5-2 inited)) (< (-> s5-2 mem-actual) (-> s5-2 mem-required)))
-                )
+        (when (or (zero? (-> s5-2 handle))
+                  (and (nonzero? (-> s5-2 formatted)) (zero? (-> s5-2 inited)) (< (-> s5-2 mem-actual) (-> s5-2 mem-required)))
+                  )
           (mem-copy! (the-as pointer *auto-save-info*) (the-as pointer s5-2) 300)
           (set-blackout-frames 0)
           (let ((gp-1 7))
diff --git a/goal_src/levels/training/training-obs.gc b/goal_src/levels/training/training-obs.gc
index d5f098ae6a..07a7d79cc8 100644
--- a/goal_src/levels/training/training-obs.gc
+++ b/goal_src/levels/training/training-obs.gc
@@ -525,220 +525,179 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 143) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xf
-                                       :linger-duration #x5dc
-                                       :name "group-scarecrow-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2912)
-                                         (sp-item 2913)
-                                         (sp-item 2914)
-                                         (sp-item 2915)
-                                         (sp-item 2916)
-                                         )
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-scarecrow-explode
+  :id 143
+  :duration 15
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2912) (sp-item 2913) (sp-item 2914) (sp-item 2915) (sp-item 2916))
+  )
 
-(set! (-> *part-id-table* 2912) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 2.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 160.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.011904762))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y 2.7306666)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 420)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 2917)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2912
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 2.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 32.0 1.0)
+    (sp-rnd-flt spt-g 160.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 32.0 1.0)
+    (sp-rnd-flt spt-a 8.0 16.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.011904762))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-accel-y 2.7306666)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 420)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int-plain-rnd spt-next-time 30 59 1)
+    (sp-launcher-by-id spt-next-launcher 2917)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2917)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a -0.4)
-                                                     (sp-int-plain-rnd spt-next-time 30 29 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2918)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2917
+  :init-specs
+  ((sp-flt spt-fade-a -0.4) (sp-int-plain-rnd spt-next-time 30 29 1) (sp-launcher-by-id spt-next-launcher 2918))
+  )
 
-(set! (-> *part-id-table* 2918)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.04) (sp-end))
-        )
-      )
+(defpart 2918
+  :init-specs
+  ((sp-flt spt-fade-a -0.04))
+  )
 
-(set! (-> *part-id-table* 2913) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 2.5))
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 3.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1.0) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.009765625))
-                                    (sp-flt spt-fade-a 2.1333334)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2919)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2913
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+    (sp-flt spt-num 4.0)
+    (sp-flt spt-y (meters 2.5))
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1) 1.0)
+    (sp-flt spt-r 192.0)
+    (sp-flt spt-g 192.0)
+    (sp-rnd-flt spt-b 64.0 128.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-flt spt-scalevel-x (meters 0.009765625))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+    (sp-flt spt-scalevel-y (meters 0.009765625))
+    (sp-flt spt-fade-a 2.1333334)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 15)
+    (sp-launcher-by-id spt-next-launcher 2919)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
-(set! (-> *part-id-table* 2919)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.1333334) (sp-end))
-        )
-      )
+(defpart 2919
+  :init-specs
+  ((sp-flt spt-fade-a -2.1333334))
+  )
 
-(set! (-> *part-id-table* 2914) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 2.5)
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 48.0)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2914
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 2.5)
+    (sp-flt spt-y (meters 1.5))
+    (sp-flt spt-scale-x (meters 12))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 196.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 196.0)
+    (sp-flt spt-a 48.0)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2915) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.3))
-                                    (sp-flt spt-r 160.0)
-                                    (sp-flt spt-g 160.0)
-                                    (sp-flt spt-b 160.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                    (sp-flt spt-rotvel-x (degrees 1.2))
-                                    (sp-flt spt-rotvel-y (degrees 2.4))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2920)
-                                    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2915
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
+    (sp-rnd-flt spt-num 8.0 8.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 2.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.3))
+    (sp-flt spt-r 160.0)
+    (sp-flt spt-g 160.0)
+    (sp-flt spt-b 160.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+    (sp-flt spt-rotvel-x (degrees 1.2))
+    (sp-flt spt-rotvel-y (degrees 2.4))
+    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
+    (sp-flt spt-accel-y -13.653334)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 2920)
+    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2920)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -3.4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2920
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters -0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -3.4)
+    )
+  )
 
-(set! (-> *part-id-table* 2916) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.3))
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 100.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                    (sp-flt spt-rotvel-x (degrees 1.2))
-                                    (sp-flt spt-rotvel-y (degrees 2.4))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2920)
-                                    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2916
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
+    (sp-rnd-flt spt-num 8.0 8.0 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 2.5) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-scale-y (meters 0.3))
+    (sp-flt spt-r 100.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 100.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+    (sp-flt spt-rotvel-x (degrees 1.2))
+    (sp-flt spt-rotvel-y (degrees 2.4))
+    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
+    (sp-flt spt-accel-y -13.653334)
+    (sp-flt spt-friction 0.97)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit12 bit14)
+    (sp-int spt-next-time 75)
+    (sp-launcher-by-id spt-next-launcher 2920)
+    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 144) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xf
-                                       :linger-duration #x5dc
-                                       :name "group-scarecrow-joint-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2912))
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-scarecrow-joint-explode
+  :id 144
+  :duration 15
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2912))
+  )
 
-(set! (-> *part-group-id-table* 145) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xf
-                                       :linger-duration #x5dc
-                                       :name "group-scarecrow-hit"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2913))
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-scarecrow-hit
+  :id 145
+  :duration 15
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2913))
+  )
 
 (deftype scarecrow-a (process-drawable)
   ((root-override       collide-shape         :offset        112)
diff --git a/goal_src/levels/training/training-part.gc b/goal_src/levels/training/training-part.gc
index 971129e884..4bb664239e 100644
--- a/goal_src/levels/training/training-part.gc
+++ b/goal_src/levels/training/training-part.gc
@@ -16,192 +16,153 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 146)
-  (new 'static 'sparticle-launch-group
-   :length 26
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-training-geyser-2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 26
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 4500)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 4530)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 4560)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 4590)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 4620)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 4650)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 4050)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 4080)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 4110)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 4140)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 4170)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 3900)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 4050)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 4080)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 4110)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 4140)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 4170)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 3900)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 4050)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 4050)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 3750)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 3450)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 4050)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 4050)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 3750)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 3450)
+(defpartgroup group-training-geyser-2
+  :id 146
+  :flags (always-draw)
+  :bounds (static-bspherem 0 32 0 70)
+  :parts
+  ((sp-item 752 :falloff-to (meters 500) :period 4800 :length 1200 :offset 4500)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1140 :offset 4530)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1080 :offset 4560)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1020 :offset 4590)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 960 :offset 4620)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 900 :offset 4650)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1200 :offset 4050)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1140 :offset 4080)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1080 :offset 4110)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1020 :offset 4140)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 960 :offset 4170)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 900 :offset 3900)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1200 :offset 4050)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1140 :offset 4080)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1080 :offset 4110)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1020 :offset 4140)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 960 :offset 4170)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 900 :offset 3900)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 4050)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 4050)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 3750)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 3450)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 4050)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 4050)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 3750)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 3450)
     )
-   :bounds
-   (new 'static 'sphere :y 131072.0 :w 286720.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 147)
-  (new 'static 'sparticle-launch-group
-   :length 26
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-training-geyser-5"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 26
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 900)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 930)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 960)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 990)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 1020)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 1050)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 450)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 420)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 390)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 360)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 330)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 300)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 450)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 420)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 390)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 360)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 330)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 300)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 450)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 450)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 150)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 4650)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 450)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 450)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 150)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 4650)
+(defpartgroup group-training-geyser-5
+  :id 147
+  :flags (always-draw)
+  :bounds (static-bspherem 0 32 0 70)
+  :parts
+  ((sp-item 752 :falloff-to (meters 500) :period 4800 :length 1200 :offset 900)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1140 :offset 930)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1080 :offset 960)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1020 :offset 990)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 960 :offset 1020)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 900 :offset 1050)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1200 :offset 450)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1140 :offset 420)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1080 :offset 390)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1020 :offset 360)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 960 :offset 330)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 900 :offset 300)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1200 :offset 450)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1140 :offset 420)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1080 :offset 390)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1020 :offset 360)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 960 :offset 330)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 900 :offset 300)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 450)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 450)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 150)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 4650)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 450)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 450)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 150)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 4650)
     )
-   :bounds
-   (new 'static 'sphere :y 131072.0 :w 286720.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 149)
-  (new 'static 'sparticle-launch-group
-   :length 18
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-training-geyser-6"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 18
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 2100)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 2130)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 2160)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 2190)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 2220)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 2250)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 1650)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 1680)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 1710)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 1740)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 1770)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 1500)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 1650)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 1680)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 1710)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 1740)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 1770)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 1500)
+(defpartgroup group-training-geyser-6
+  :id 149
+  :flags (always-draw)
+  :bounds (static-bspherem 0 32 0 70)
+  :parts
+  ((sp-item 752 :falloff-to (meters 500) :period 4800 :length 1200 :offset 2100)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1140 :offset 2130)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1080 :offset 2160)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1020 :offset 2190)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 960 :offset 2220)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 900 :offset 2250)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1200 :offset 1650)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1140 :offset 1680)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1080 :offset 1710)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1020 :offset 1740)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 960 :offset 1770)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 900 :offset 1500)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1200 :offset 1650)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1140 :offset 1680)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1080 :offset 1710)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1020 :offset 1740)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 960 :offset 1770)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 900 :offset 1500)
     )
-   :bounds
-   (new 'static 'sphere :y 131072.0 :w 286720.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 148)
-  (new 'static 'sparticle-launch-group
-   :length 26
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-training-geyser-4"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 26
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 3300)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 3330)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 3360)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 3390)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 3420)
-    (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 3450)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 2850)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 2880)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 2910)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 2940)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 2970)
-    (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 2700)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 2850)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 2880)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 2910)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 2940)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 2970)
-    (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 2700)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 2850)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 2850)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 2550)
-    (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 2250)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 2850)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 2850)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 2550)
-    (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 2250)
+(defpartgroup group-training-geyser-4
+  :id 148
+  :flags (always-draw)
+  :bounds (static-bspherem 0 32 0 70)
+  :parts
+  ((sp-item 752 :falloff-to (meters 500) :period 4800 :length 1200 :offset 3300)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1140 :offset 3330)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1080 :offset 3360)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1020 :offset 3390)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 960 :offset 3420)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 900 :offset 3450)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1200 :offset 2850)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1140 :offset 2880)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1080 :offset 2910)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1020 :offset 2940)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 960 :offset 2970)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 900 :offset 2700)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1200 :offset 2850)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1140 :offset 2880)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1080 :offset 2910)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1020 :offset 2940)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 960 :offset 2970)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 900 :offset 2700)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 2850)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 2850)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 2550)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 2250)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 2850)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 2850)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 2550)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 2250)
     )
-   :bounds
-   (new 'static 'sphere :y 131072.0 :w 286720.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 752)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 752
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.2)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #xc0
-      :num 0.1
-      :group #x1
-      :sound-name (static-sound-name "geyser")
-      :volume #x400
-      :fo-min 50
-      :fo-max #xc8
-      )
-     )
-    (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-    (sp-flt spt-y (meters -8.0))
-    (sp-flt spt-scale-x (meters 8.0))
+    (sp-sound (new 'static 'sound-spec
+                :mask #xc0
+                :num 0.1
+                :group #x1
+                :sound-name (static-sound-name "geyser")
+                :volume #x400
+                :fo-min 50
+                :fo-max #xc8
+                )
+              )
+    (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+    (sp-flt spt-y (meters -8))
+    (sp-flt spt-scale-x (meters 8))
     (sp-flt spt-rot-z (degrees 180.0))
-    (sp-flt spt-scale-y (meters 16.0))
+    (sp-flt spt-scale-y (meters 16))
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
     (sp-rnd-flt spt-g 200.0 55.0 1.0)
     (sp-rnd-flt spt-b 200.0 55.0 1.0)
@@ -216,33 +177,21 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 761)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-scalevel-x (meters 0.06666667))
-    (sp-flt spt-fade-a -1.0666667)
-    (sp-end)
-    )
-   )
+(defpart 761
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.06666667)) (sp-flt spt-fade-a -1.0666667))
   )
 
-(set!
-  (-> *part-id-table* 753)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 29
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 753
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 85.0) (meters 10.0) 1.0)
-    (sp-flt spt-scale-x (meters 8.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 85) (meters 10) 1.0)
+    (sp-flt spt-scale-x (meters 8))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
@@ -266,42 +215,29 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 762)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.03678161)
-    (sp-end)
-    )
-   )
+(defpart 762
+  :init-specs
+  ((sp-flt spt-fade-a -0.03678161))
   )
 
-(defun
-  check-drop-level-training-mist
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-training-mist ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (new 'stack-no-clear 'vector)
-   (sp-kill-particle arg0 arg1)
-   )
+    (new 'stack-no-clear 'vector)
+    (sp-kill-particle arg0 arg1)
+    )
   (none)
   )
 
-(set!
-  (-> *part-id-table* 754)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 29
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 754
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-flt spt-num 0.035)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 85.0) (meters 10.0) 1.0)
-    (sp-flt spt-scale-x (meters 8.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 85) (meters 10) 1.0)
+    (sp-flt spt-scale-x (meters 8))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
@@ -325,17 +261,12 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 763)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 763
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-rnd-int spt-num 0 1 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -350,20 +281,15 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-conerot-x (degrees 25.000002) (degrees 40.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 764)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 764
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters 0.02))
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 110.0 32.0 1.0)
@@ -376,63 +302,48 @@
     (sp-int spt-timer 120)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(defun
-  check-drop-level-training-spout-rain
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-training-spout-rain ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-2 (the-as number (logior #x3f800000 v1-1)))
-           )
-     (if (< (+ -1.0 (the-as float v1-2)) 0.25)
-      (sound-play-by-name
-       (static-sound-name "water-drop")
-       (new-sound-id)
-       1024
-       0
-       0
-       1
-       #t
-       )
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-2 (the-as number (logior #x3f800000 v1-1)))
+             )
+        (if (< (+ -1.0 (the-as float v1-2)) 0.25)
+            (sound-play-by-name (static-sound-name "water-drop") (new-sound-id) 1024 0 0 1 #t)
+            )
+        )
+      (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 763)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
+      (sp-launch-particles-var
+        *sp-particle-system-3d*
+        (-> *part-id-table* 764)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
       )
-     )
-    (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 763)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
-    (sp-launch-particles-var
-     *sp-particle-system-3d*
-     (-> *part-id-table* 764)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
     )
-   )
   (none)
   )
 
-(set!
-  (-> *part-id-table* 759)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 759
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-    (sp-rnd-flt spt-y (meters 10.0) (meters 20.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+    (sp-rnd-flt spt-y (meters 10) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
     (sp-flt spt-r 50.0)
@@ -445,20 +356,15 @@
     (sp-flt spt-userdata 66560.0)
     (sp-func spt-func 'check-drop-level-training-spout-rain)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 760)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 760
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 4.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-    (sp-rnd-flt spt-y (meters 10.0) (meters 20.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+    (sp-rnd-flt spt-y (meters 10) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
     (sp-flt spt-r 50.0)
@@ -469,20 +375,15 @@
     (sp-int spt-timer 240)
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 757)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 757
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
     (sp-flt spt-r 50.0)
@@ -495,20 +396,15 @@
     (sp-flt spt-userdata 0.0)
     (sp-func spt-func 'check-drop-level-training-spout-rain)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 758)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 758
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 4.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
     (sp-flt spt-r 50.0)
@@ -519,20 +415,15 @@
     (sp-int spt-timer 240)
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 755)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 755
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-    (sp-rnd-flt spt-y (meters 10.0) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+    (sp-rnd-flt spt-y (meters 10) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
     (sp-flt spt-r 50.0)
@@ -545,20 +436,15 @@
     (sp-flt spt-userdata 0.0)
     (sp-func spt-func 'check-drop-level-training-spout-rain)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 756)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 756
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 4.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-    (sp-rnd-flt spt-y (meters 10.0) (meters 20.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+    (sp-rnd-flt spt-y (meters 10) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
     (sp-flt spt-r 50.0)
@@ -569,22 +455,15 @@
     (sp-int spt-timer 240)
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 150)
-  (new 'static 'sparticle-launch-group
-   :length #xac
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-training-warpgate"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 172
-    (sp-item 767 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 768 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 765)
+(defpartgroup group-training-warpgate
+  :id 150
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 767 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 768 :fade-after (meters 60) :falloff-to (meters 100) :binding 765)
     (sp-item 765 :flags (bit1 start-dead launch-asap))
     (sp-item 765 :flags (bit1 start-dead launch-asap))
     (sp-item 765 :flags (bit1 start-dead launch-asap))
@@ -721,7 +600,7 @@
     (sp-item 765 :flags (bit1 start-dead launch-asap))
     (sp-item 765 :flags (bit1 start-dead launch-asap))
     (sp-item 765 :flags (bit1 start-dead launch-asap))
-    (sp-item 769 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 766)
+    (sp-item 769 :fade-after (meters 60) :falloff-to (meters 100) :binding 766)
     (sp-item 766 :flags (bit1 start-dead launch-asap))
     (sp-item 766 :flags (bit1 start-dead launch-asap))
     (sp-item 766 :flags (bit1 start-dead launch-asap))
@@ -754,21 +633,16 @@
     (sp-item 766 :flags (bit1 start-dead launch-asap))
     (sp-item 766 :flags (bit1 start-dead launch-asap))
     (sp-item 766 :flags (bit1 start-dead launch-asap))
-    (sp-item 770 :fade-after (meters 100.0) :flags (is-3d))
+    (sp-item 770 :fade-after (meters 100) :flags (is-3d))
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 770)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 770
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-flt spt-x (meters 0.0))
-    (sp-flt spt-scale-x (meters 5.0))
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-scale-x (meters 5))
     (sp-flt spt-rot-x 16384.0)
     (sp-flt spt-rot-z (degrees 15.0))
     (sp-copy-from-other spt-scale-y -4)
@@ -778,19 +652,14 @@
     (sp-rnd-flt spt-a 0.0 64.0 1.0)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 769)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 769
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.25)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-g 128.0)
@@ -799,21 +668,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-flt spt-rotate-y (degrees -105.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 766)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 766
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.6666667))
-    (sp-flt spt-y (meters 4.0))
-    (sp-rnd-flt spt-z 22118.4 4096.0 1.0)
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-z (meters 5.4) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 0.0 32.0 1.0)
@@ -821,24 +685,19 @@
     (sp-rnd-flt spt-b 64.0 196.0 1.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-    (sp-flt spt-vel-x (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-x (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 0.16)
     (sp-flt spt-accel-x 1.2136296)
     (sp-flt spt-accel-z -0.75093335)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 767)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-rnd-flt spt-num 3.0 3.0 1.0)
+(defpart 767
+  :init-specs
+  ((sp-rnd-flt spt-num 3.0 3.0 1.0)
     (sp-flt spt-x (meters -0.5))
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
@@ -849,19 +708,14 @@
     (sp-int spt-timer 69)
     (sp-cpuinfo-flags aux-list)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 4) (meters 3) 1.0)
     (sp-flt spt-rotate-y (degrees -105.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 768)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 11
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 768
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
@@ -871,21 +725,16 @@
     (sp-int spt-timer 690)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-flt spt-rotate-y (degrees -105.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 765)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 765
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.6666667))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 9830.4)
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 2.4))
     (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -901,23 +750,16 @@
     (sp-flt spt-accel-x 4.247704)
     (sp-int spt-timer 690)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 151)
-  (new 'static 'sparticle-launch-group
-   :length 13
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-training-butterflies"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 13
-    (sp-item 773 :fade-after (meters 120.0) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
-    (sp-item 773 :fade-after (meters 120.0) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
-    (sp-item 773 :fade-after (meters 120.0) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
+(defpartgroup group-training-butterflies
+  :id 151
+  :bounds (static-bspherem 0 0 0 30)
+  :parts
+  ((sp-item 773 :fade-after (meters 120) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
+    (sp-item 773 :fade-after (meters 120) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
+    (sp-item 773 :fade-after (meters 120) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
     (sp-item 771 :flags (start-dead launch-asap) :binding 772)
     (sp-item 772 :flags (is-3d start-dead))
     (sp-item 771 :flags (start-dead launch-asap) :binding 772)
@@ -929,20 +771,15 @@
     (sp-item 771 :flags (start-dead launch-asap) :binding 772)
     (sp-item 772 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 122880.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 773)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 773
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 7.5) 1.0)
-    (sp-rnd-flt spt-y (meters 14.0) (meters 3.0) 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 7.5) 1.0)
+    (sp-rnd-flt spt-y (meters 14) (meters 3) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
@@ -953,45 +790,29 @@
     (sp-int spt-next-time 555)
     (sp-launcher-by-id spt-next-launcher 774)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 774)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-accel-y 0.0)
+(defpart 774
+  :init-specs
+  ((sp-flt spt-accel-y 0.0)
     (sp-int-plain-rnd spt-next-time 2700 1499 1)
     (sp-launcher-by-id spt-next-launcher 775)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 775)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-accel-y 1.3653333)
-    (sp-end)
-    )
-   )
+(defpart 775
+  :init-specs
+  ((sp-flt spt-accel-y 1.3653333))
   )
 
-(set!
-  (-> *part-id-table* 771)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 771
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 12288.0 4096.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 3) (meters 1) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1001,37 +822,27 @@
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 6000)
     (sp-cpuinfo-flags bit3 bit7)
     (sp-int-plain-rnd spt-next-time 150 449 1)
     (sp-launcher-by-id spt-next-launcher 776)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 776)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+(defpart 776
+  :init-specs
+  ((sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int-plain-rnd spt-next-time 150 449 1)
     (sp-launcher-by-id spt-next-launcher 776)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 772)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+(defpart 772
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
     (sp-func spt-birth-func 'birth-func-copy-rot-color)
     (sp-flt spt-num 2.0)
     (sp-flt spt-scale-x (meters 0.9))
@@ -1044,23 +855,16 @@
     (sp-flt spt-fade-a -8.0)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit9 bit12)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 152)
-  (new 'static 'sparticle-launch-group
-   :length 9
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-training-birds"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 9
-    (sp-item 779 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 777)
-    (sp-item 779 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 777)
-    (sp-item 779 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 777)
+(defpartgroup group-training-birds
+  :id 152
+  :bounds (static-bspherem 0 8 0 45)
+  :parts
+  ((sp-item 779 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 777)
+    (sp-item 779 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 777)
+    (sp-item 779 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 777)
     (sp-item 777 :flags (start-dead launch-asap) :binding 778)
     (sp-item 778 :flags (is-3d start-dead))
     (sp-item 777 :flags (start-dead launch-asap) :binding 778)
@@ -1068,40 +872,26 @@
     (sp-item 777 :flags (start-dead launch-asap) :binding 778)
     (sp-item 778 :flags (is-3d start-dead))
     )
-   :bounds
-   (new 'static 'sphere :y 32768.0 :w 184320.0)
-   )
   )
 
-(defun
-  tra-bird-bob-func
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
-  (set!
-   (-> arg2 y)
-   (+
-    (-> (the-as process-drawable (-> arg1 key proc)) root trans y)
-    (*
-     -2048.0
-     (sin (* 218.45334 (the float (mod (-> *display* base-frame-counter) 300))))
-     )
-    )
-   )
+(defun tra-bird-bob-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+  (set! (-> arg2 y) (+ (-> (the-as process-drawable (-> arg1 key proc)) root trans y)
+                       (* -2048.0 (sin (* 218.45334 (the float (mod (-> *display* base-frame-counter) 300)))))
+                       )
+        )
   0
   (none)
   )
 
-(set!
-  (-> *part-id-table* 779)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 779
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-func spt-birth-func 'birth-func-random-next-time)
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z -61440.0 122880.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters -15) (meters 30) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
@@ -1109,34 +899,24 @@
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-userdata 199.98)
     (sp-func spt-func 'tra-bird-bob-func)
-    (sp-end)
     )
-   )
   )
 
-(defun
-  tra-sparticle-seagull-moon
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
-  (set!
-   (-> arg2 vector 1 z)
-   (the float (sar (shl (the int (+ -16384.0 (-> arg1 omega))) 48) 48))
-   )
+(defun tra-sparticle-seagull-moon ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
+  (set! (-> arg2 vector 1 z) (the float (sar (shl (the int (+ -16384.0 (-> arg1 omega))) 48) 48)))
   0
   (none)
   )
 
-(set!
-  (-> *part-id-table* 777)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 777
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-func spt-birth-func 'birth-func-copy-omega-to-z)
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
-    (sp-flt spt-y (meters 0.0))
-    (sp-flt spt-z 122880.0)
-    (sp-flt spt-scale-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-z (meters 30))
+    (sp-flt spt-scale-x (meters 0))
     (sp-flt spt-rot-z (degrees 0.0))
     (sp-flt spt-r 255.0)
     (sp-flt spt-g 255.0)
@@ -1144,131 +924,85 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-flt spt-vel-x (meters 0.0044444446))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-scalevel-x (meters 0.04))
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit3 bit7)
     (sp-func spt-func 'tra-sparticle-seagull-moon)
     (sp-int spt-next-time 199)
     (sp-launcher-by-id spt-next-launcher 780)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 780)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-scale-x (meters 8.0))
+(defpart 780
+  :init-specs
+  ((sp-flt spt-scale-x (meters 8))
     (sp-flt spt-scalevel-x (meters -0.08))
     (sp-int spt-timer 600)
     (sp-int spt-next-time 100)
     (sp-launcher-by-id spt-next-launcher 781)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 781)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-scale-x (meters 0.0))
+(defpart 781
+  :init-specs
+  ((sp-flt spt-scale-x (meters 0))
     (sp-flt spt-scalevel-x (meters -0.04))
     (sp-int spt-timer 600)
     (sp-int spt-next-time 199)
     (sp-launcher-by-id spt-next-launcher 780)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 778)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 778
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-func spt-birth-func 'birth-func-copy2-rot-color)
     (sp-flt spt-num 2.0)
-    (sp-flt spt-scale-x (meters 4.0))
+    (sp-flt spt-scale-x (meters 4))
     (sp-flt spt-scale-y (meters 1.5))
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9 bit12)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 153)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-training-waterfall-21"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 782 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 783 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 784 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 785 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 786 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 787 :fade-after (meters 160.0) :falloff-to (meters 160.0))
+(defpartgroup group-training-waterfall-21
+  :id 153
+  :flags (always-draw)
+  :bounds (static-bspherem 0 16 0 32)
+  :parts
+  ((sp-item 782 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 783 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 784 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 785 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 786 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 787 :fade-after (meters 160) :falloff-to (meters 160))
     )
-   :bounds
-   (new 'static 'sphere :y 65536.0 :w 131072.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 789)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.10666667)
-    (sp-end)
-    )
-   )
+(defpart 789
+  :init-specs
+  ((sp-flt spt-fade-a -0.10666667))
   )
 
-(set!
-  (-> *part-id-table* 790)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.16)
-    (sp-end)
-    )
-   )
+(defpart 790
+  :init-specs
+  ((sp-flt spt-fade-a -0.16))
   )
 
-(set!
-  (-> *part-id-table* 791)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -2.6666667)
-    (sp-end)
-    )
-   )
+(defpart 791
+  :init-specs
+  ((sp-flt spt-fade-a -2.6666667))
   )
 
-(set!
-  (-> *part-id-table* 782)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 782
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-flt spt-num 0.9)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 1.0) 1.0)
-    (sp-flt spt-y (meters 47.0))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 1) 1.0)
+    (sp-flt spt-y (meters 47))
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -1288,21 +1022,16 @@
     (sp-launcher-by-id spt-next-launcher 791)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 783)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 783
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-flt spt-num 0.9)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 39.0) (meters 5.0) 1.0)
-    (sp-flt spt-z 0.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 39) (meters 5) 1.0)
+    (sp-flt spt-z (meters 0))
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -1322,28 +1051,23 @@
     (sp-launcher-by-id spt-next-launcher 791)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 784)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 784
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 3.0) 1.0)
-    (sp-rnd-flt spt-y (meters 24.0) (meters 6.0) 1.0)
-    (sp-flt spt-z 8192.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 3) 1.0)
+    (sp-rnd-flt spt-y (meters 24) (meters 6) 1.0)
+    (sp-flt spt-z (meters 2))
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 4.8) (meters 3.2) 1.0)
     (sp-flt spt-r 192.0)
     (sp-flt spt-g 192.0)
     (sp-flt spt-b 192.0)
     (sp-rnd-flt spt-a 32.0 16.0 1.0)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.026666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.026666667) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.0033333334) 1.0)
     (sp-rnd-flt spt-vel-z (meters -0.021666666) (meters 0.013333334) 1.0)
     (sp-flt spt-scalevel-x (meters 0.0073242188))
@@ -1355,21 +1079,16 @@
     (sp-launcher-by-id spt-next-launcher 791)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 785)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 785
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 1.0) 1.0)
-    (sp-flt spt-y (meters 47.0))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 1) 1.0)
+    (sp-flt spt-y (meters 47))
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1387,21 +1106,16 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 786)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 786
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.4 1.0)
-    (sp-rnd-flt spt-x (meters -7.0) (meters 3.5) 1.0)
-    (sp-flt spt-y (meters 47.0))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
+    (sp-rnd-flt spt-x (meters -7) (meters 3.5) 1.0)
+    (sp-flt spt-y (meters 47))
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -1422,22 +1136,17 @@
     (sp-int spt-next-time 666)
     (sp-launcher-by-id spt-next-launcher 791)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 787)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 787
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.133)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 6) 1.0)
     (sp-flt spt-y (meters -3.5))
-    (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+    (sp-flt spt-scale-x (meters 12))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1458,43 +1167,30 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 790)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 154)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-training-waterfall-20"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 792 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 793 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 794 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 795 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 796 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 797 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
+(defpartgroup group-training-waterfall-20
+  :id 154
+  :flags (always-draw)
+  :bounds (static-bspherem 0 12 0 12)
+  :parts
+  ((sp-item 792 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 793 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 794 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 795 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 796 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 797 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
     )
-   :bounds
-   (new 'static 'sphere :y 49152.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 792)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 792
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -6) (meters 1) 1.0)
     (sp-flt spt-y (meters 15.5))
-    (sp-rnd-flt spt-z -24576.0 24576.0 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 3.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -1514,21 +1210,16 @@
     (sp-launcher-by-id spt-next-launcher 791)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 793)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 793
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-flt spt-num 1.4)
-    (sp-rnd-flt spt-x (meters -4.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -4) (meters 1) 1.0)
     (sp-flt spt-y (meters 15.5))
-    (sp-rnd-flt spt-z -12288.0 40960.0 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 3.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -1548,21 +1239,16 @@
     (sp-launcher-by-id spt-next-launcher 791)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 190.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 794)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 794
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.4 1.0)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -6) (meters 1) 1.0)
     (sp-flt spt-y (meters 15.5))
-    (sp-rnd-flt spt-z -24576.0 24576.0 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
@@ -1583,21 +1269,16 @@
     (sp-int spt-next-time 360)
     (sp-launcher-by-id spt-next-launcher 791)
     (sp-flt spt-rotate-y (degrees 120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 795)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 795
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.4 1.0)
-    (sp-rnd-flt spt-x (meters -4.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -4) (meters 1) 1.0)
     (sp-flt spt-y (meters 15.5))
-    (sp-rnd-flt spt-z -12288.0 40960.0 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
@@ -1618,22 +1299,17 @@
     (sp-int spt-next-time 360)
     (sp-launcher-by-id spt-next-launcher 791)
     (sp-flt spt-rotate-y (degrees 190.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 796)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 796
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.133)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 6.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 6) 1.0)
     (sp-flt spt-y (meters -3.5))
-    (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+    (sp-flt spt-scale-x (meters 12))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1654,21 +1330,16 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 790)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 797)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 797
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 0.05)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 5.0) 1.0)
-    (sp-rnd-flt spt-z -32768.0 32768.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 5) 1.0)
+    (sp-rnd-flt spt-z (meters -8) (meters 8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 92.0)
     (sp-flt spt-g 92.0)
@@ -1682,9 +1353,7 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 789)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/village1/assistant.gc b/goal_src/levels/village1/assistant.gc
index fca908a8fc..c8761bb6c9 100644
--- a/goal_src/levels/village1/assistant.gc
+++ b/goal_src/levels/village1/assistant.gc
@@ -28,296 +28,153 @@
 
 (defmethod dummy-52 assistant ((obj assistant))
   (let ((v1-1 (-> obj draw shadow-ctrl)))
-   (when v1-1
-    (let ((f0-0 (-> obj root-override trans y)))
-     (let ((a0-2 v1-1))
-      (set! (-> a0-2 settings bot-plane w) (- (+ -4096.0 f0-0)))
+    (when v1-1
+      (let ((f0-0 (-> obj root-override trans y)))
+        (let ((a0-2 v1-1))
+          (set! (-> a0-2 settings bot-plane w) (- (+ -4096.0 f0-0)))
+          )
+        0
+        (let ((a0-4 v1-1))
+          (set! (-> a0-4 settings top-plane w) (- (+ 4096.0 f0-0)))
+          )
+        )
+      0
+      (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
       )
-     0
-     (let ((a0-4 v1-1))
-      (set! (-> a0-4 settings top-plane w) (- (+ 4096.0 f0-0)))
-      )
-     )
-    0
-    (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
     )
-   )
   (none)
   )
 
 (defmethod draw-npc-shadow assistant ((obj assistant))
   (-> obj draw shadow-ctrl)
   (cond
-   ((and
-     (-> obj draw shadow)
-     (zero? (-> obj draw cur-lod))
-     (logtest? (-> obj draw status) 8)
+    ((and (-> obj draw shadow) (zero? (-> obj draw cur-lod)) (logtest? (-> obj draw status) (draw-status drwf03)))
+     (let ((v1-9 (-> obj draw shadow-ctrl)))
+       (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
+       )
+     0
+     (dummy-14 (-> obj draw shadow-ctrl))
      )
-    (let ((v1-9 (-> obj draw shadow-ctrl)))
-     (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
-     )
-    0
-    (dummy-14 (-> obj draw shadow-ctrl))
+    (else
+      (let ((v1-14 (-> obj draw shadow-ctrl)))
+        (logior! (-> v1-14 settings flags) 32)
+        )
+      0
+      )
     )
-   (else
-    (let ((v1-14 (-> obj draw shadow-ctrl)))
-     (logior! (-> v1-14 settings flags) 32)
-     )
-    0
-    )
-   )
   (none)
   )
 
 (defmethod play-anim! assistant ((obj assistant) (arg0 symbol))
   (with-pp
-   (case (current-status (-> obj tasks)) 
-    (((task-status need-hint) (task-status need-introduction))
-      (case (current-task (-> obj tasks)) 
-       (((game-task jungle-eggtop))
-         (when arg0
-          (let* ((s5-1 (-> obj tasks))
-                 (s4-0 (method-of-object s5-1 save-reminder))
-                 (a1-3 (new 'stack-no-clear 'event-message-block))
-                 )
-           (set! (-> a1-3 from) pp)
-           (set! (-> a1-3 num-params) 2)
-           (set! (-> a1-3 message) 'query)
-           (set! (-> a1-3 param 0) (the-as uint 'pickup))
-           (set! (-> a1-3 param 1) (the-as uint 6))
-           (s4-0
-            s5-1
-            (the int (the-as float (send-event-function *target* a1-3)))
-            1
-            )
-           )
-          (close-status! (-> obj tasks) (task-status need-introduction))
-          )
-         (new 'static 'spool-anim
-          :name
-          "assistant-introduction-blue-eco-switch"
-          :index 10
-          :parts 11
-          :command-list
-          '(
-            (0
-              want-levels
-              village1
-              beach
+    (case (current-status (-> obj tasks))
+      (((task-status need-hint) (task-status need-introduction))
+       (case (current-task (-> obj tasks))
+         (((game-task jungle-eggtop))
+          (when arg0
+            (let* ((s5-1 (-> obj tasks))
+                   (s4-0 (method-of-object s5-1 save-reminder))
+                   (a1-3 (new 'stack-no-clear 'event-message-block))
+                   )
+              (set! (-> a1-3 from) pp)
+              (set! (-> a1-3 num-params) 2)
+              (set! (-> a1-3 message) 'query)
+              (set! (-> a1-3 param 0) (the-as uint 'pickup))
+              (set! (-> a1-3 param 1) (the-as uint 6))
+              (s4-0 s5-1 (the int (the-as float (send-event-function *target* a1-3))) 1)
+              )
+            (close-status! (-> obj tasks) (task-status need-introduction))
+            )
+          (new 'static 'spool-anim
+            :name
+            "assistant-introduction-blue-eco-switch"
+            :index 10
+            :parts 11
+            :command-list
+            '((0 want-levels village1 beach)
+              (128 joint "cameraB")
+              (312 joint "camera")
+              (492 joint "cameraB")
+              (537 joint "camera")
+              (734 display-level beach movie)
+              (734 want-force-vis beach #t)
+              (735 alive "ecovent-48")
+              (742 blackout 10)
+              (743 joint "cameraB")
+              (745 blackout 0)
+              (839 alive "ecovent-200")
+              (841 joint "camera")
+              (842 dead "ecovent-48")
+              (942 blackout 10)
+              (944 joint "cameraB")
+              (945 blackout 0)
+              (945 dead "ecovent-200")
+              (945 display-level beach #f)
+              (1049 blackout 10)
+              (1051 joint "camera")
+              (1052 blackout 0)
+              (1135 blackout 10)
+              (1137 joint "cameraB")
+              (1138 blackout 0)
+              (1216 joint "camera")
               )
-            ((the binteger 128)
-             joint
-             "cameraB"
-             )
-            ((the binteger 312)
-             joint
-             "camera"
-             )
-            ((the binteger 492)
-             joint
-             "cameraB"
-             )
-            ((the binteger 537)
-             joint
-             "camera"
-             )
-            ((the binteger 734)
-             display-level
-             beach
-             movie
-             )
-            ((the binteger 734)
-             want-force-vis
-             beach
-             #t
-             )
-            ((the binteger 735)
-             alive
-             "ecovent-48"
-             )
-            ((the binteger 742)
-             blackout
-             (the binteger 10)
-             )
-            ((the binteger 743)
-             joint
-             "cameraB"
-             )
-            ((the binteger 745)
-             blackout
-             0
-             )
-            ((the binteger 839)
-             alive
-             "ecovent-200"
-             )
-            ((the binteger 841)
-             joint
-             "camera"
-             )
-            ((the binteger 842)
-             dead
-             "ecovent-48"
-             )
-            ((the binteger 942)
-             blackout
-             (the binteger 10)
-             )
-            ((the binteger 944)
-             joint
-             "cameraB"
-             )
-            ((the binteger 945)
-             blackout
-             0
-             )
-            ((the binteger 945)
-             dead
-             "ecovent-200"
-             )
-            ((the binteger 945)
-             display-level
-             beach
-             #f
-             )
-            ((the binteger 1049)
-             blackout
-             (the binteger 10)
-             )
-            ((the binteger 1051)
-             joint
-             "camera"
-             )
-            ((the binteger 1052)
-             blackout
-             0
-             )
-            ((the binteger 1135)
-             blackout
-             (the binteger 10)
-             )
-            ((the binteger 1137)
-             joint
-             "cameraB"
-             )
-            ((the binteger 1138)
-             blackout
-             0
-             )
-            ((the binteger 1216) joint "camera")
             )
           )
-         )
-       (else
-        (if arg0
-         (close-status! (-> obj tasks) (task-status need-introduction))
-         )
-        (new 'static 'spool-anim
-         :name "assistant-introduction-race-bike"
-         :index 12
-         :parts 6
-         :command-list
-         '(
-           (0
-             want-levels
-             village1
-             beach
+         (else
+           (if arg0
+               (close-status! (-> obj tasks) (task-status need-introduction))
+               )
+           (new 'static 'spool-anim
+             :name "assistant-introduction-race-bike"
+             :index 12
+             :parts 6
+             :command-list
+             '((0 want-levels village1 beach) (129 joint "cameraB") (319 joint "camera") (505 joint "cameraB"))
              )
-           ((the binteger 129)
-            joint
-            "cameraB"
-            )
-           ((the binteger 319)
-            joint
-            "camera"
-            )
-           ((the binteger 505) joint "cameraB")
            )
          )
-        )
        )
-      )
-    (((task-status need-reminder) (task-status need-reminder-a))
-     (set! (-> obj skippable) #t)
-     (cond
-      ((= (current-task (-> obj tasks)) (game-task none))
-       (new 'static 'spool-anim
-        :name "assistant-reminder-1-generic"
-        :index 14
-        :parts 2
-        :command-list '()
-        )
-       )
-      ((closed?
-        (-> obj tasks)
-        (game-task jungle-eggtop)
-        (task-status need-resolution)
-        )
-       (new 'static 'spool-anim
-        :name "assistant-reminder-1-race-bike"
-        :index 13
-        :parts 3
-        :command-list '()
-        )
-       )
-      ((or
-        (closed?
-         (-> obj tasks)
-         (game-task misty-bike)
-         (task-status need-resolution)
-         )
-        (not
-         (closed?
-          (-> obj tasks)
-          (game-task misty-bike)
-          (task-status need-introduction)
+      (((task-status need-reminder) (task-status need-reminder-a))
+       (set! (-> obj skippable) #t)
+       (cond
+         ((= (current-task (-> obj tasks)) (game-task none))
+          (new 'static 'spool-anim :name "assistant-reminder-1-generic" :index 14 :parts 2 :command-list '())
           )
+         ((closed? (-> obj tasks) (game-task jungle-eggtop) (task-status need-resolution))
+          (new 'static 'spool-anim :name "assistant-reminder-1-race-bike" :index 13 :parts 3 :command-list '())
+          )
+         ((or (closed? (-> obj tasks) (game-task misty-bike) (task-status need-resolution))
+              (not (closed? (-> obj tasks) (game-task misty-bike) (task-status need-introduction)))
+              )
+          (new 'static 'spool-anim :name "assistant-reminder-1-blue-eco-switch" :index 11 :parts 3 :command-list '())
+          )
+         ((zero? (get-reminder (-> obj tasks) 2))
+          (if arg0
+              (save-reminder (-> obj tasks) 1 2)
+              )
+          (new 'static 'spool-anim :name "assistant-reminder-1-race-bike" :index 13 :parts 3 :command-list '())
+          )
+         (else
+           (if arg0
+               (save-reminder (-> obj tasks) 0 2)
+               )
+           (new 'static 'spool-anim :name "assistant-reminder-1-blue-eco-switch" :index 11 :parts 3 :command-list '())
+           )
          )
-        )
-       (new 'static 'spool-anim
-        :name "assistant-reminder-1-blue-eco-switch"
-        :index 11
-        :parts 3
-        :command-list '()
-        )
-       )
-      ((zero? (get-reminder (-> obj tasks) 2))
-       (if arg0
-        (save-reminder (-> obj tasks) 1 2)
-        )
-       (new 'static 'spool-anim
-        :name "assistant-reminder-1-race-bike"
-        :index 13
-        :parts 3
-        :command-list '()
-        )
        )
       (else
-       (if arg0
-        (save-reminder (-> obj tasks) 0 2)
+        (if arg0
+            (format
+              0
+              "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+              (-> obj name)
+              (task-status->string (current-status (-> obj tasks)))
+              )
+            )
+        (-> obj draw art-group data 3)
         )
-       (new 'static 'spool-anim
-        :name "assistant-reminder-1-blue-eco-switch"
-        :index 11
-        :parts 3
-        :command-list '()
-        )
-       )
       )
-     )
-    (else
-     (if arg0
-      (format
-       0
-       "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-       (-> obj name)
-       (task-status->string (current-status (-> obj tasks)))
-       )
-      )
-     (-> obj draw art-group data 3)
-     )
     )
-   )
   )
 
 (defmethod get-art-elem assistant ((obj assistant))
@@ -325,579 +182,326 @@
   )
 
 (defmethod TODO-RENAME-43 assistant ((obj assistant))
-  (let
-   ((s5-0
-     (TODO-RENAME-10
-      (-> obj ambient)
-      (new 'stack-no-clear 'vector)
-      9000
-      122880.0
-      obj
-      )
-     )
-    )
-   (when s5-0
-    (let* ((v1-2 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-3 (the-as number (logior #x3f800000 v1-2)))
-           (f0-2 (+ -1.0 (the-as float v1-3)))
+  (let ((s5-0 (TODO-RENAME-10 (-> obj ambient) (new 'stack-no-clear 'vector) 9000 122880.0 obj)))
+    (when s5-0
+      (let* ((v1-2 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-3 (the-as number (logior #x3f800000 v1-2)))
+             (f0-2 (+ -1.0 (the-as float v1-3)))
+             )
+        (cond
+          ((< 16384.0 (-> s5-0 y))
+           #f
            )
-     (cond
-      ((< 16384.0 (-> s5-0 y))
-       #f
-       )
-      ((< 0.8 f0-2)
-       (play-ambient
-        (-> obj ambient)
-        "ASSTLP01"
-        #f
-        (-> obj root-override trans)
+          ((< 0.8 f0-2)
+           (play-ambient (-> obj ambient) "ASSTLP01" #f (-> obj root-override trans))
+           )
+          ((< 0.6 f0-2)
+           (play-ambient (-> obj ambient) "ASSTLP04" #f (-> obj root-override trans))
+           )
+          ((< 0.4 f0-2)
+           (play-ambient (-> obj ambient) "ASSTLP05" #f (-> obj root-override trans))
+           )
+          ((< 0.2 f0-2)
+           (play-ambient (-> obj ambient) "ASSTLP02" #f (-> obj root-override trans))
+           )
+          (else
+            (play-ambient (-> obj ambient) "ASSTLP03" #f (-> obj root-override trans))
+            )
+          )
         )
-       )
-      ((< 0.6 f0-2)
-       (play-ambient
-        (-> obj ambient)
-        "ASSTLP04"
-        #f
-        (-> obj root-override trans)
-        )
-       )
-      ((< 0.4 f0-2)
-       (play-ambient
-        (-> obj ambient)
-        "ASSTLP05"
-        #f
-        (-> obj root-override trans)
-        )
-       )
-      ((< 0.2 f0-2)
-       (play-ambient
-        (-> obj ambient)
-        "ASSTLP02"
-        #f
-        (-> obj root-override trans)
-        )
-       )
-      (else
-       (play-ambient
-        (-> obj ambient)
-        "ASSTLP03"
-        #f
-        (-> obj root-override trans)
-        )
-       )
       )
-     )
     )
-   )
   )
 
 (defstate idle (assistant)
   :virtual #t
   :code
   (behavior ()
-   (if (!= (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
+    (if (!= (if (> (-> self skel active-channels) 0)
+                (-> self skel root-channel 0 frame-group)
+                )
+            (-> self draw art-group data 3)
             )
-        (-> self draw art-group data 3)
+        (ja-channel-push! 1 60)
         )
-    (ja-channel-push! 1 60)
-    )
-   (while #t
-    (TODO-RENAME-43 self)
-    (let ((v1-9 (-> self skel root-channel 0)))
-     (set!
-      (-> v1-9 frame-group)
-      (the-as art-joint-anim (-> self draw art-group data 3))
-      )
-     )
-    (let* ((v1-11 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-12 (the-as number (logior #x3f800000 v1-11)))
-           )
-     (countdown (gp-0 (+ (the int (+ -1.0 (the-as float v1-12))) 2))
-      (let ((a0-12 (-> self skel root-channel 0)))
-       (set! (-> a0-12 frame-group) (if (> (-> self skel active-channels) 0)
-                                     (-> self skel root-channel 0 frame-group)
-                                     )
+    (while #t
+      (TODO-RENAME-43 self)
+      (let ((v1-9 (-> self skel root-channel 0)))
+        (set! (-> v1-9 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
         )
-       (set!
-        (-> a0-12 param 0)
-        (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                           (-> self skel root-channel 0 frame-group)
-                           )
-                       data
-                       0
-                       length
+      (let* ((v1-11 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-12 (the-as number (logior #x3f800000 v1-11)))
+             )
+        (countdown (gp-0 (+ (the int (+ -1.0 (the-as float v1-12))) 2))
+          (let ((a0-12 (-> self skel root-channel 0)))
+            (set! (-> a0-12 frame-group) (if (> (-> self skel active-channels) 0)
+                                             (-> self skel root-channel 0 frame-group)
+                                             )
+                  )
+            (set! (-> a0-12 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                           (-> self skel root-channel 0 frame-group)
+                                                           )
+                                                       data
+                                                       0
+                                                       length
+                                                       )
+                                                   -1
+                                                   )
+                                          )
+                  )
+            (set! (-> a0-12 param 1) 1.0)
+            (set! (-> a0-12 frame-num) 0.0)
+            (joint-control-channel-group!
+              a0-12
+              (if (> (-> self skel active-channels) 0)
+                  (-> self skel root-channel 0 frame-group)
+                  )
+              num-func-seek!
+              )
+            )
+          (until (ja-done? 0)
+            (suspend)
+            (let ((a0-13 (-> self skel root-channel 0)))
+              (set! (-> a0-13 param 0) (the float (+ (-> a0-13 frame-group data 0 length) -1)))
+              (set! (-> a0-13 param 1) 1.0)
+              (joint-control-channel-group-eval! a0-13 (the-as art-joint-anim #f) num-func-seek!)
+              )
+            )
+          )
+        )
+      (let* ((v1-46 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-47 (the-as number (logior #x3f800000 v1-46)))
+             )
+        (cond
+          ((< (+ -1.0 (the-as float v1-47)) 0.66)
+           (let ((a0-17 (-> self skel root-channel 0)))
+             (set! (-> a0-17 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
+             (set! (-> a0-17 param 0)
+                   (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 8)) data 0 length) -1))
+                   )
+             (set! (-> a0-17 param 1) 1.0)
+             (set! (-> a0-17 frame-num) 0.0)
+             (joint-control-channel-group! a0-17 (the-as art-joint-anim (-> self draw art-group data 8)) num-func-seek!)
+             )
+           (until (ja-done? 0)
+             (suspend)
+             (let ((a0-18 (-> self skel root-channel 0)))
+               (set! (-> a0-18 param 0) (the float (+ (-> a0-18 frame-group data 0 length) -1)))
+               (set! (-> a0-18 param 1) 1.0)
+               (joint-control-channel-group-eval! a0-18 (the-as art-joint-anim #f) num-func-seek!)
+               )
+             )
+           (sound-play-by-name
+             (static-sound-name "welding-loop")
+             (-> self sound-id)
+             1024
+             0
+             0
+             1
+             (the-as symbol (target-pos 0))
+             )
+           (let ((v1-74 (-> self skel root-channel 0)))
+             (set! (-> v1-74 frame-group) (the-as art-joint-anim (-> self draw art-group data 9)))
+             )
+           (let* ((f30-0 4.0)
+                  (v1-76 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                  (v1-77 (the-as number (logior #x3f800000 v1-76)))
+                  )
+             (countdown (gp-2 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-77)))) 4))
+               (let ((a0-28 (-> self skel root-channel 0)))
+                 (set! (-> a0-28 frame-group) (if (> (-> self skel active-channels) 0)
+                                                  (-> self skel root-channel 0 frame-group)
+                                                  )
                        )
-                    -1
+                 (set! (-> a0-28 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                                (-> self skel root-channel 0 frame-group)
+                                                                )
+                                                            data
+                                                            0
+                                                            length
+                                                            )
+                                                        -1
+                                                        )
+                                               )
+                       )
+                 (set! (-> a0-28 param 1) 1.0)
+                 (set! (-> a0-28 frame-num) 0.0)
+                 (joint-control-channel-group!
+                   a0-28
+                   (if (> (-> self skel active-channels) 0)
+                       (-> self skel root-channel 0 frame-group)
+                       )
+                   num-func-seek!
+                   )
+                 )
+               (until (ja-done? 0)
+                 (spawn (-> self part) (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data 30)))
+                 (suspend)
+                 (let ((a0-31 (-> self skel root-channel 0)))
+                   (set! (-> a0-31 param 0) (the float (+ (-> a0-31 frame-group data 0 length) -1)))
+                   (set! (-> a0-31 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-31 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               (let ((a0-33 (-> self skel root-channel 0)))
+                 (set! (-> a0-33 frame-group) (if (> (-> self skel active-channels) 0)
+                                                  (-> self skel root-channel 0 frame-group)
+                                                  )
+                       )
+                 (set! (-> a0-33 param 0) 0.0)
+                 (set! (-> a0-33 param 1) 1.0)
+                 (set! (-> a0-33 frame-num) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                                  (-> self skel root-channel 0 frame-group)
+                                                                  )
+                                                              data
+                                                              0
+                                                              length
+                                                              )
+                                                          -1
+                                                          )
+                                                 )
+                       )
+                 (joint-control-channel-group!
+                   a0-33
+                   (if (> (-> self skel active-channels) 0)
+                       (-> self skel root-channel 0 frame-group)
+                       )
+                   num-func-seek!
+                   )
+                 )
+               (until (ja-done? 0)
+                 (spawn (-> self part) (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data 30)))
+                 (suspend)
+                 (let ((a0-36 (-> self skel root-channel 0)))
+                   (set! (-> a0-36 param 0) 0.0)
+                   (set! (-> a0-36 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-36 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               )
+             )
+           (sound-stop (-> self sound-id))
+           (let ((a0-39 (-> self skel root-channel 0)))
+             (set! (-> a0-39 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
+             (set! (-> a0-39 param 0) 0.0)
+             (set! (-> a0-39 param 1) 1.0)
+             (set! (-> a0-39 frame-num)
+                   (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 8)) data 0 length) -1))
+                   )
+             (joint-control-channel-group! a0-39 (the-as art-joint-anim (-> self draw art-group data 8)) num-func-seek!)
+             )
+           (until (ja-done? 0)
+             (suspend)
+             (let ((a0-40 (-> self skel root-channel 0)))
+               (set! (-> a0-40 param 0) 0.0)
+               (set! (-> a0-40 param 1) 1.0)
+               (joint-control-channel-group-eval! a0-40 (the-as art-joint-anim #f) num-func-seek!)
+               )
+             )
+           (let* ((v1-159 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                  (v1-160 (the-as number (logior #x3f800000 v1-159)))
+                  )
+             (when (< (+ -1.0 (the-as float v1-160)) 0.66)
+               (let ((a0-44 (-> self skel root-channel 0)))
+                 (set! (-> a0-44 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
+                 (set! (-> a0-44 param 0)
+                       (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 7)) data 0 length) -1))
+                       )
+                 (set! (-> a0-44 param 1) 1.0)
+                 (set! (-> a0-44 frame-num) 0.0)
+                 (joint-control-channel-group! a0-44 (the-as art-joint-anim (-> self draw art-group data 7)) num-func-seek!)
+                 )
+               (until (ja-done? 0)
+                 (suspend)
+                 (let ((a0-45 (-> self skel root-channel 0)))
+                   (set! (-> a0-45 param 0) (the float (+ (-> a0-45 frame-group data 0 length) -1)))
+                   (set! (-> a0-45 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-45 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               )
+             )
+           )
+          (else
+            (let ((a0-47 (-> self skel root-channel 0)))
+              (set! (-> a0-47 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
+              (set! (-> a0-47 param 0)
+                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
                     )
-         )
+              (set! (-> a0-47 param 1) 1.0)
+              (set! (-> a0-47 frame-num) 0.0)
+              (joint-control-channel-group! a0-47 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
+              )
+            (until (ja-done? 0)
+              (suspend)
+              (let ((a0-48 (-> self skel root-channel 0)))
+                (set! (-> a0-48 param 0) (the float (+ (-> a0-48 frame-group data 0 length) -1)))
+                (set! (-> a0-48 param 1) 1.0)
+                (joint-control-channel-group-eval! a0-48 (the-as art-joint-anim #f) num-func-seek!)
+                )
+              )
+            (let* ((v1-208 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                   (v1-209 (the-as number (logior #x3f800000 v1-208)))
+                   )
+              (countdown (gp-3 (+ (the int (+ -1.0 (the-as float v1-209))) 1))
+                (let ((a0-52 (-> self skel root-channel 0)))
+                  (set! (-> a0-52 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
+                  (set! (-> a0-52 param 0)
+                        (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) data 0 length) -1))
+                        )
+                  (set! (-> a0-52 param 1) 1.0)
+                  (set! (-> a0-52 frame-num) 0.0)
+                  (joint-control-channel-group! a0-52 (the-as art-joint-anim (-> self draw art-group data 5)) num-func-seek!)
+                  )
+                (until (ja-done? 0)
+                  (suspend)
+                  (let ((a0-53 (-> self skel root-channel 0)))
+                    (set! (-> a0-53 param 0) (the float (+ (-> a0-53 frame-group data 0 length) -1)))
+                    (set! (-> a0-53 param 1) 1.0)
+                    (joint-control-channel-group-eval! a0-53 (the-as art-joint-anim #f) num-func-seek!)
+                    )
+                  )
+                )
+              )
+            (let ((a0-55 (-> self skel root-channel 0)))
+              (set! (-> a0-55 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
+              (set! (-> a0-55 param 0)
+                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 6)) data 0 length) -1))
+                    )
+              (set! (-> a0-55 param 1) 1.0)
+              (set! (-> a0-55 frame-num) 0.0)
+              (joint-control-channel-group! a0-55 (the-as art-joint-anim (-> self draw art-group data 6)) num-func-seek!)
+              )
+            (until (ja-done? 0)
+              (suspend)
+              (let ((a0-56 (-> self skel root-channel 0)))
+                (set! (-> a0-56 param 0) (the float (+ (-> a0-56 frame-group data 0 length) -1)))
+                (set! (-> a0-56 param 1) 1.0)
+                (joint-control-channel-group-eval! a0-56 (the-as art-joint-anim #f) num-func-seek!)
+                )
+              )
+            )
+          )
         )
-       (set! (-> a0-12 param 1) 1.0)
-       (set! (-> a0-12 frame-num) 0.0)
-       (joint-control-channel-group!
-        a0-12
-        (if (> (-> self skel active-channels) 0)
-         (-> self skel root-channel 0 frame-group)
-         )
-        num-func-seek!
-        )
-       )
-      (until (ja-done? 0)
-       (suspend)
-       (let ((a0-13 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-13 param 0)
-         (the float (+ (-> a0-13 frame-group data 0 length) -1))
-         )
-        (set! (-> a0-13 param 1) 1.0)
-        (joint-control-channel-group-eval!
-         a0-13
-         (the-as art-joint-anim #f)
-         num-func-seek!
-         )
-        )
-       )
       )
-     )
-    (let* ((v1-46 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-47 (the-as number (logior #x3f800000 v1-46)))
-           )
-     (cond
-      ((< (+ -1.0 (the-as float v1-47)) 0.66)
-       (let ((a0-17 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-17 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 8))
-         )
-        (set!
-         (-> a0-17 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 8))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-17 param 1) 1.0)
-        (set! (-> a0-17 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-17
-         (the-as art-joint-anim (-> self draw art-group data 8))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-18 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-18 param 0)
-          (the float (+ (-> a0-18 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-18 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-18
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       (sound-play-by-name
-        (static-sound-name "welding-loop")
-        (-> self sound-id)
-        1024
-        0
-        0
-        1
-        (the-as symbol (target-pos 0))
-        )
-       (let ((v1-74 (-> self skel root-channel 0)))
-        (set!
-         (-> v1-74 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 9))
-         )
-        )
-       (let* ((f30-0 4.0)
-              (v1-76 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-77 (the-as number (logior #x3f800000 v1-76)))
-              )
-        (countdown
-         (gp-2 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-77)))) 4))
-         (let ((a0-28 (-> self skel root-channel 0)))
-          (set! (-> a0-28 frame-group) (if (> (-> self skel active-channels) 0)
-                                        (->
-                                         self
-                                         skel
-                                         root-channel
-                                         0
-                                         frame-group
-                                         )
-                                        )
-           )
-          (set!
-           (-> a0-28 param 0)
-           (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                              (-> self skel root-channel 0 frame-group)
-                              )
-                          data
-                          0
-                          length
-                          )
-                       -1
-                       )
-            )
-           )
-          (set! (-> a0-28 param 1) 1.0)
-          (set! (-> a0-28 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-28
-           (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
-            )
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (spawn
-           (-> self part)
-           (vector<-cspace!
-            (new 'stack-no-clear 'vector)
-            (-> self node-list data 30)
-            )
-           )
-          (suspend)
-          (let ((a0-31 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-31 param 0)
-            (the float (+ (-> a0-31 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-31 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-31
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         (let ((a0-33 (-> self skel root-channel 0)))
-          (set! (-> a0-33 frame-group) (if (> (-> self skel active-channels) 0)
-                                        (->
-                                         self
-                                         skel
-                                         root-channel
-                                         0
-                                         frame-group
-                                         )
-                                        )
-           )
-          (set! (-> a0-33 param 0) 0.0)
-          (set! (-> a0-33 param 1) 1.0)
-          (set!
-           (-> a0-33 frame-num)
-           (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                              (-> self skel root-channel 0 frame-group)
-                              )
-                          data
-                          0
-                          length
-                          )
-                       -1
-                       )
-            )
-           )
-          (joint-control-channel-group!
-           a0-33
-           (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
-            )
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (spawn
-           (-> self part)
-           (vector<-cspace!
-            (new 'stack-no-clear 'vector)
-            (-> self node-list data 30)
-            )
-           )
-          (suspend)
-          (let ((a0-36 (-> self skel root-channel 0)))
-           (set! (-> a0-36 param 0) 0.0)
-           (set! (-> a0-36 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-36
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         )
-        )
-       (sound-stop (-> self sound-id))
-       (let ((a0-39 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-39 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 8))
-         )
-        (set! (-> a0-39 param 0) 0.0)
-        (set! (-> a0-39 param 1) 1.0)
-        (set!
-         (-> a0-39 frame-num)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 8))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (joint-control-channel-group!
-         a0-39
-         (the-as art-joint-anim (-> self draw art-group data 8))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-40 (-> self skel root-channel 0)))
-         (set! (-> a0-40 param 0) 0.0)
-         (set! (-> a0-40 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-40
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       (let* ((v1-159 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-160 (the-as number (logior #x3f800000 v1-159)))
-              )
-        (when (< (+ -1.0 (the-as float v1-160)) 0.66)
-         (let ((a0-44 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-44 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 7))
-           )
-          (set!
-           (-> a0-44 param 0)
-           (the
-            float
-            (+
-             (->
-              (the-as art-joint-anim (-> self draw art-group data 7))
-              data
-              0
-              length
-              )
-             -1
-             )
-            )
-           )
-          (set! (-> a0-44 param 1) 1.0)
-          (set! (-> a0-44 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-44
-           (the-as art-joint-anim (-> self draw art-group data 7))
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (suspend)
-          (let ((a0-45 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-45 param 0)
-            (the float (+ (-> a0-45 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-45 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-45
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         )
-        )
-       )
-      (else
-       (let ((a0-47 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-47 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 4))
-         )
-        (set!
-         (-> a0-47 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 4))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-47 param 1) 1.0)
-        (set! (-> a0-47 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-47
-         (the-as art-joint-anim (-> self draw art-group data 4))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-48 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-48 param 0)
-          (the float (+ (-> a0-48 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-48 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-48
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       (let* ((v1-208 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-209 (the-as number (logior #x3f800000 v1-208)))
-              )
-        (countdown (gp-3 (+ (the int (+ -1.0 (the-as float v1-209))) 1))
-         (let ((a0-52 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-52 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 5))
-           )
-          (set!
-           (-> a0-52 param 0)
-           (the
-            float
-            (+
-             (->
-              (the-as art-joint-anim (-> self draw art-group data 5))
-              data
-              0
-              length
-              )
-             -1
-             )
-            )
-           )
-          (set! (-> a0-52 param 1) 1.0)
-          (set! (-> a0-52 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-52
-           (the-as art-joint-anim (-> self draw art-group data 5))
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (suspend)
-          (let ((a0-53 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-53 param 0)
-            (the float (+ (-> a0-53 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-53 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-53
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         )
-        )
-       (let ((a0-55 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-55 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 6))
-         )
-        (set!
-         (-> a0-55 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 6))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-55 param 1) 1.0)
-        (set! (-> a0-55 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-55
-         (the-as art-joint-anim (-> self draw art-group data 6))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-56 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-56 param 0)
-          (the float (+ (-> a0-56 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-56 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-56
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       )
-      )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 122)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-assistant-torch"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 365 :fade-after (meters 30.0) :falloff-to (meters 30.0))
-    (sp-item 366 :fade-after (meters 60.0) :falloff-to (meters 80.0))
+(defpartgroup group-assistant-torch
+  :id 122
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 365 :fade-after (meters 30) :falloff-to (meters 30))
+    (sp-item 366 :fade-after (meters 60) :falloff-to (meters 80))
     )
-   :bounds (new 'static 'sphere :w 61440.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 365)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 365
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 100.0 28.0 1.0)
@@ -907,17 +511,12 @@
     (sp-flt spt-fade-a -6.4)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 366)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 366
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -938,17 +537,12 @@
     (sp-func spt-func 'check-drop-level-assistant)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 45.0) (degrees 180.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 367)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 367
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 3.0 1.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -962,65 +556,50 @@
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(defun
-  check-drop-level-assistant
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-assistant ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-2 (the-as number (logior #x3f800000 v1-1)))
-           )
-     (if (< (+ -1.0 (the-as float v1-2)) 0.25)
-      (sound-play-by-name
-       (static-sound-name "water-drop")
-       (new-sound-id)
-       1024
-       0
-       0
-       1
-       #t
-       )
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-2 (the-as number (logior #x3f800000 v1-1)))
+             )
+        (if (< (+ -1.0 (the-as float v1-2)) 0.25)
+            (sound-play-by-name (static-sound-name "water-drop") (new-sound-id) 1024 0 0 1 #t)
+            )
+        )
+      (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 367)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        1.0
+        )
       )
-     )
-    (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 367)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     1.0
-     )
     )
-   )
   (none)
   )
 
 (defmethod init-from-entity! assistant ((obj assistant) (arg0 entity-actor))
   (dummy-40 obj arg0 *assistant-sg* 3 31 (new 'static 'vector :w 4096.0) 5)
   (set! (-> obj bounce-away) #f)
-  (set!
-   (-> obj part)
-   (create-launch-control (-> *part-group-id-table* 122) obj)
-   )
+  (set! (-> obj part) (create-launch-control (-> *part-group-id-table* 122) obj))
   (set! (-> obj tasks) (get-task-control (game-task jungle-eggtop)))
   (set! (-> obj sound-id) (new-sound-id))
   (set! (-> obj draw light-index) (the-as uint 1))
-  (case (get-task-status (game-task firecanyon-assistant)) 
-   (((task-status unknown))
+  (case (get-task-status (game-task firecanyon-assistant))
+    (((task-status unknown))
      (go (method-of-object obj idle))
      )
-   (else
-    (dummy-18 obj)
-    (deactivate obj)
+    (else
+      (dummy-18 obj)
+      (deactivate obj)
+      )
     )
-   )
   (none)
   )
 
diff --git a/goal_src/levels/village1/explorer.gc b/goal_src/levels/village1/explorer.gc
index 19b81fe98f..8a55e409a1 100644
--- a/goal_src/levels/village1/explorer.gc
+++ b/goal_src/levels/village1/explorer.gc
@@ -27,167 +27,119 @@
 
 (defmethod dummy-52 explorer ((obj explorer))
   (let ((v1-1 (-> obj draw shadow-ctrl)))
-   (when v1-1
-    (let ((f0-0 (-> obj root-override trans y)))
-     (let ((a0-2 v1-1))
-      (set! (-> a0-2 settings bot-plane w) (- (+ -4096.0 f0-0)))
+    (when v1-1
+      (let ((f0-0 (-> obj root-override trans y)))
+        (let ((a0-2 v1-1))
+          (set! (-> a0-2 settings bot-plane w) (- (+ -4096.0 f0-0)))
+          )
+        0
+        (let ((a0-4 v1-1))
+          (set! (-> a0-4 settings top-plane w) (- (+ 4096.0 f0-0)))
+          )
+        )
+      0
+      (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
       )
-     0
-     (let ((a0-4 v1-1))
-      (set! (-> a0-4 settings top-plane w) (- (+ 4096.0 f0-0)))
-      )
-     )
-    0
-    (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
     )
-   )
   (none)
   )
 
 (defmethod draw-npc-shadow explorer ((obj explorer))
   (-> obj draw shadow-ctrl)
   (cond
-   ((and
-     (-> obj draw shadow)
-     (zero? (-> obj draw cur-lod))
-     (logtest? (-> obj draw status) 8)
+    ((and (-> obj draw shadow) (zero? (-> obj draw cur-lod)) (logtest? (-> obj draw status) (draw-status drwf03)))
+     (let ((v1-9 (-> obj draw shadow-ctrl)))
+       (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
+       )
+     0
+     (dummy-14 (-> obj draw shadow-ctrl))
      )
-    (let ((v1-9 (-> obj draw shadow-ctrl)))
-     (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
-     )
-    0
-    (dummy-14 (-> obj draw shadow-ctrl))
+    (else
+      (let ((v1-14 (-> obj draw shadow-ctrl)))
+        (logior! (-> v1-14 settings flags) 32)
+        )
+      0
+      )
     )
-   (else
-    (let ((v1-14 (-> obj draw shadow-ctrl)))
-     (logior! (-> v1-14 settings flags) 32)
-     )
-    0
-    )
-   )
   (none)
   )
 
 (defmethod play-anim! explorer ((obj explorer) (arg0 symbol))
   (set! (-> obj talk-message) (the-as uint 260))
-  (case (current-status (-> obj tasks)) 
-   (((task-status need-hint) (task-status need-introduction))
+  (case (current-status (-> obj tasks))
+    (((task-status need-hint) (task-status need-introduction))
      (if arg0
-      (close-status! (-> obj tasks) (task-status need-introduction))
-      )
+         (close-status! (-> obj tasks) (task-status need-introduction))
+         )
      (new 'static 'spool-anim
-      :name "explorer-introduction"
-      :index 9
-      :parts 11
-      :command-list
-      '(
-        ((the binteger 418)
-          joint
-          "cameraB"
-          )
-        ((the binteger 695)
-         shadow
-         self
-         #f
-         )
-        ((the binteger 695)
-         joint
-         "camera"
-         )
-        ((the binteger 838) shadow self #t) ((the binteger 838) joint "cameraB")
-        )
-      )
-     )
-   (((task-status need-reminder))
-    (set! (-> obj skippable) #t)
-    (cond
-     ((zero? (get-reminder (-> obj tasks) 0))
-      (if arg0
-       (save-reminder (-> obj tasks) 1 0)
+       :name "explorer-introduction"
+       :index 9
+       :parts 11
+       :command-list
+       '((418 joint "cameraB") (695 shadow self #f) (695 joint "camera") (838 shadow self #t) (838 joint "cameraB"))
        )
-      (new 'static 'spool-anim
-       :name "explorer-reminder-1"
-       :index 10
+     )
+    (((task-status need-reminder))
+     (set! (-> obj skippable) #t)
+     (cond
+       ((zero? (get-reminder (-> obj tasks) 0))
+        (if arg0
+            (save-reminder (-> obj tasks) 1 0)
+            )
+        (new 'static 'spool-anim
+          :name "explorer-reminder-1"
+          :index 10
+          :parts 5
+          :command-list
+          '((0 send-event target draw #f)
+            (148 send-event target draw #t)
+            (148 joint "cameraB")
+            (390 send-event target draw #f)
+            (390 joint "camera")
+            (505 send-event target draw #t)
+            )
+          )
+        )
+       (else
+         (if arg0
+             (save-reminder (-> obj tasks) 0 0)
+             )
+         (new 'static 'spool-anim :name "explorer-reminder-2" :index 11 :parts 3 :command-list '())
+         )
+       )
+     )
+    (((task-status need-reward-speech))
+     (cond
+       (arg0
+         (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
+         (close-current! (-> obj tasks))
+         (send-event *target* 'get-pickup 5 (- (-> *GAME-bank* money-task-inc)))
+         )
+       (else
+         (set! (-> obj will-talk) #t)
+         (set! (-> obj talk-message) (the-as uint 282))
+         )
+       )
+     (new 'static 'spool-anim
+       :name "explorer-resolution"
+       :index 12
        :parts 5
        :command-list
-       '(
-         (0
-           send-event
-           target
-           draw
-           #f
-           )
-         ((the binteger 148)
-          send-event
-          target
-          draw
-          #t
-          )
-         ((the binteger 148)
-          joint
-          "cameraB"
-          )
-         ((the binteger 390)
-          send-event
-          target
-          draw
-          #f
-          )
-         ((the binteger 390)
-          joint
-          "camera"
-          )
-         ((the binteger 505) send-event target draw #t)
-         )
+       '((167 joint "cameraB") (310 joint "camera"))
        )
-      )
-     (else
+     )
+    (else
       (if arg0
-       (save-reminder (-> obj tasks) 0 0)
-       )
-      (new 'static 'spool-anim
-       :name "explorer-reminder-2"
-       :index 11
-       :parts 3
-       :command-list '()
-       )
+          (format
+            0
+            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+            (-> obj name)
+            (task-status->string (current-status (-> obj tasks)))
+            )
+          )
+      (-> obj draw art-group data 3)
       )
-     )
     )
-   (((task-status need-reward-speech))
-    (cond
-     (arg0
-      (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
-      (close-current! (-> obj tasks))
-      (send-event *target* 'get-pickup 5 (- (-> *GAME-bank* money-task-inc)))
-      )
-     (else
-      (set! (-> obj will-talk) #t)
-      (set! (-> obj talk-message) (the-as uint 282))
-      )
-     )
-    (new 'static 'spool-anim
-     :name "explorer-resolution"
-     :index 12
-     :parts 5
-     :command-list
-     '(
-       ((the binteger 167) joint "cameraB") ((the binteger 310) joint "camera")
-       )
-     )
-    )
-   (else
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
-      )
-     )
-    (-> obj draw art-group data 3)
-    )
-   )
   )
 
 (defmethod get-art-elem explorer ((obj explorer))
@@ -195,761 +147,410 @@
   )
 
 (defmethod TODO-RENAME-43 explorer ((obj explorer))
-  (when
-   (TODO-RENAME-10
-    (-> obj ambient)
-    (new 'stack-no-clear 'vector)
-    9000
-    122880.0
-    obj
-    )
-   (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-          (v1-4 (the-as number (logior #x3f800000 v1-3)))
-          (f0-2 (+ -1.0 (the-as float v1-4)))
+  (when (TODO-RENAME-10 (-> obj ambient) (new 'stack-no-clear 'vector) 9000 122880.0 obj)
+    (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+           (v1-4 (the-as number (logior #x3f800000 v1-3)))
+           (f0-2 (+ -1.0 (the-as float v1-4)))
+           )
+      (cond
+        ((< 0.85714287 f0-2)
+         (play-ambient (-> obj ambient) "EXP-AM05" #f (-> obj root-override trans))
+         )
+        ((< 0.71428573 f0-2)
+         (if (not (closed? (-> obj tasks) (game-task village1-uncle-money) (task-status need-reminder)))
+             (play-ambient (-> obj ambient) "EXP-LO02" #f (-> obj root-override trans))
+             )
+         )
+        ((< 0.5714286 f0-2)
+         (play-ambient (-> obj ambient) "EXP-AM04" #f (-> obj root-override trans))
+         )
+        ((< 0.42857143 f0-2)
+         (play-ambient (-> obj ambient) "EXP-AM03" #f (-> obj root-override trans))
+         )
+        ((< 0.2857143 f0-2)
+         (play-ambient (-> obj ambient) "EXP-AM02" #f (-> obj root-override trans))
+         )
+        ((< 0.14285715 f0-2)
+         (if (not (closed? (-> obj tasks) (game-task village1-uncle-money) (task-status need-reminder)))
+             (play-ambient (-> obj ambient) "EXP-AM01" #f (-> obj root-override trans))
+             )
+         )
+        (else
+          (play-ambient (-> obj ambient) "EXP-LO1A" #f (-> obj root-override trans))
           )
-    (cond
-     ((< 0.85714287 f0-2)
-      (play-ambient (-> obj ambient) "EXP-AM05" #f (-> obj root-override trans))
-      )
-     ((< 0.71428573 f0-2)
-      (if
-       (not
-        (closed?
-         (-> obj tasks)
-         (game-task village1-uncle-money)
-         (task-status need-reminder)
-         )
         )
-       (play-ambient
-        (-> obj ambient)
-        "EXP-LO02"
-        #f
-        (-> obj root-override trans)
-        )
-       )
       )
-     ((< 0.5714286 f0-2)
-      (play-ambient (-> obj ambient) "EXP-AM04" #f (-> obj root-override trans))
-      )
-     ((< 0.42857143 f0-2)
-      (play-ambient (-> obj ambient) "EXP-AM03" #f (-> obj root-override trans))
-      )
-     ((< 0.2857143 f0-2)
-      (play-ambient (-> obj ambient) "EXP-AM02" #f (-> obj root-override trans))
-      )
-     ((< 0.14285715 f0-2)
-      (if
-       (not
-        (closed?
-         (-> obj tasks)
-         (game-task village1-uncle-money)
-         (task-status need-reminder)
-         )
-        )
-       (play-ambient
-        (-> obj ambient)
-        "EXP-AM01"
-        #f
-        (-> obj root-override trans)
-        )
-       )
-      )
-     (else
-      (play-ambient (-> obj ambient) "EXP-LO1A" #f (-> obj root-override trans))
-      )
-     )
     )
-   )
   )
 
 (defmethod target-above-threshold? explorer ((obj explorer))
-  (the-as
-   symbol
-   (and
-    *target*
-    (< (-> (target-pos 0) x) -202752.0)
-    (< 98304.0 (-> (target-pos 0) z))
-    )
-   )
+  (the-as symbol (and *target* (< (-> (target-pos 0) x) -202752.0) (< 98304.0 (-> (target-pos 0) z))))
   )
 
 (defstate idle (explorer)
   :virtual #t
   :code
   (behavior ()
-   (if (!= (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
-            )
-        (-> self draw art-group data 3)
-        )
-    (ja-channel-push! 1 60)
-    )
-   (while #t
-    (TODO-RENAME-43 self)
-    (let ((v1-9 (-> self skel root-channel 0)))
-     (set!
-      (-> v1-9 frame-group)
-      (the-as art-joint-anim (-> self draw art-group data 3))
-      )
-     )
-    (let* ((f30-0 2.0)
-           (v1-11 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-12 (the-as number (logior #x3f800000 v1-11)))
-           )
-     (countdown (gp-0 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-12)))) 1))
-      (let ((a0-12 (-> self skel root-channel 0)))
-       (set!
-        (-> a0-12 frame-group)
-        (the-as art-joint-anim (-> self draw art-group data 3))
-        )
-       (set!
-        (-> a0-12 param 0)
-        (the
-         float
-         (+
-          (->
-           (the-as art-joint-anim (-> self draw art-group data 3))
-           data
-           0
-           length
-           )
-          -1
-          )
-         )
-        )
-       (set! (-> a0-12 param 1) 1.0)
-       (set! (-> a0-12 frame-num) 0.0)
-       (joint-control-channel-group!
-        a0-12
-        (the-as art-joint-anim (-> self draw art-group data 3))
-        num-func-seek!
-        )
-       )
-      (until (ja-done? 0)
-       (suspend)
-       (let ((a0-13 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-13 param 0)
-         (the float (+ (-> a0-13 frame-group data 0 length) -1))
-         )
-        (set! (-> a0-13 param 1) 1.0)
-        (joint-control-channel-group-eval!
-         a0-13
-         (the-as art-joint-anim #f)
-         num-func-seek!
-         )
-        )
-       )
-      )
-     )
-    (let* ((v1-40 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-41 (the-as number (logior #x3f800000 v1-40)))
-           )
-     (cond
-      ((< (+ -1.0 (the-as float v1-41)) 0.5)
-       (let ((a0-17 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-17 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 4))
-         )
-        (set!
-         (-> a0-17 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 4))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-17 param 1) 1.0)
-        (set! (-> a0-17 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-17
-         (the-as art-joint-anim (-> self draw art-group data 4))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-18 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-18 param 0)
-          (the float (+ (-> a0-18 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-18 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-18
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       (let ((gp-1 (-> *display* base-frame-counter)))
-        (while (let* ((s5-0 (-> *display* base-frame-counter))
-                      (f30-1 300.0)
-                      (f28-0 0.5)
-                      (f26-0 0.5)
-                      (v1-68
-                       (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
-                       )
-                      (v1-69 (the-as number (logior #x3f800000 v1-68)))
-                      )
-                (<
-                 (-
-                  s5-0
-                  (the
-                   int
-                   (* f30-1 (+ f28-0 (* f26-0 (+ -1.0 (the-as float v1-69)))))
-                   )
-                  )
-                 gp-1
-                 )
+    (if (!= (if (> (-> self skel active-channels) 0)
+                (-> self skel root-channel 0 frame-group)
                 )
-         (suspend)
-         )
+            (-> self draw art-group data 3)
+            )
+        (ja-channel-push! 1 60)
         )
-       (let* ((v1-75 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-76 (the-as number (logior #x3f800000 v1-75)))
-              )
-        (when (< (+ -1.0 (the-as float v1-76)) 0.75)
-         (let ((a0-24 (-> self skel root-channel 0)))
-          (set!
-           (-> a0-24 frame-group)
-           (the-as art-joint-anim (-> self draw art-group data 5))
-           )
-          (set!
-           (-> a0-24 param 0)
-           (the
-            float
-            (+
-             (->
-              (the-as art-joint-anim (-> self draw art-group data 5))
-              data
-              0
-              length
-              )
-             -1
+    (while #t
+      (TODO-RENAME-43 self)
+      (let ((v1-9 (-> self skel root-channel 0)))
+        (set! (-> v1-9 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+        )
+      (let* ((f30-0 2.0)
+             (v1-11 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-12 (the-as number (logior #x3f800000 v1-11)))
              )
-            )
-           )
-          (set! (-> a0-24 param 1) 1.0)
-          (set! (-> a0-24 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-24
-           (the-as art-joint-anim (-> self draw art-group data 5))
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (suspend)
-          (let ((a0-25 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-25 param 0)
-            (the float (+ (-> a0-25 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-25 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-25
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         (let ((gp-2 (-> *display* base-frame-counter)))
-          (while (let* ((s5-1 (-> *display* base-frame-counter))
-                        (f30-2 300.0)
-                        (f28-1 0.5)
-                        (f26-1 0.5)
-                        (v1-104
-                         (/
-                          (the-as int (rand-uint31-gen *random-generator*))
-                          256
-                          )
-                         )
-                        (v1-105 (the-as number (logior #x3f800000 v1-104)))
-                        )
-                  (<
-                   (-
-                    s5-1
-                    (the
-                     int
-                     (*
-                      f30-2
-                      (+ f28-1 (* f26-1 (+ -1.0 (the-as float v1-105))))
-                      )
-                     )
-                    )
-                   gp-2
-                   )
+        (countdown (gp-0 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-12)))) 1))
+          (let ((a0-12 (-> self skel root-channel 0)))
+            (set! (-> a0-12 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+            (set! (-> a0-12 param 0)
+                  (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
                   )
-           (suspend)
-           )
-          )
-         (let ((a0-29 (-> self skel root-channel 0)))
-          (set! (-> a0-29 frame-group) (if (> (-> self skel active-channels) 0)
-                                        (->
-                                         self
-                                         skel
-                                         root-channel
-                                         0
-                                         frame-group
-                                         )
-                                        )
-           )
-          (set! (-> a0-29 param 0) 0.0)
-          (set! (-> a0-29 param 1) 1.0)
-          (set!
-           (-> a0-29 frame-num)
-           (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                              (-> self skel root-channel 0 frame-group)
-                              )
-                          data
-                          0
-                          length
-                          )
-                       -1
-                       )
+            (set! (-> a0-12 param 1) 1.0)
+            (set! (-> a0-12 frame-num) 0.0)
+            (joint-control-channel-group! a0-12 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
             )
-           )
-          (joint-control-channel-group!
-           a0-29
-           (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
-            )
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (suspend)
-          (let ((a0-30 (-> self skel root-channel 0)))
-           (set! (-> a0-30 param 0) 0.0)
-           (set! (-> a0-30 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-30
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         (let*
-          ((v1-135 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-136 (the-as number (logior #x3f800000 v1-135)))
-           )
-          (when (< (+ -1.0 (the-as float v1-136)) 0.5)
-           (let ((a0-34 (-> self skel root-channel 0)))
-            (set!
-             (-> a0-34 frame-group)
-             (the-as art-joint-anim (-> self draw art-group data 5))
-             )
-            (set!
-             (-> a0-34 param 0)
-             (the
-              float
-              (+
-               (->
-                (the-as art-joint-anim (-> self draw art-group data 5))
-                data
-                0
-                length
-                )
-               -1
-               )
-              )
-             )
-            (set! (-> a0-34 param 1) 1.0)
-            (set! (-> a0-34 frame-num) 0.0)
-            (joint-control-channel-group!
-             a0-34
-             (the-as art-joint-anim (-> self draw art-group data 5))
-             num-func-seek!
-             )
-            )
-           (until (ja-done? 0)
+          (until (ja-done? 0)
             (suspend)
-            (let ((a0-35 (-> self skel root-channel 0)))
-             (set!
-              (-> a0-35 param 0)
-              (the float (+ (-> a0-35 frame-group data 0 length) -1))
+            (let ((a0-13 (-> self skel root-channel 0)))
+              (set! (-> a0-13 param 0) (the float (+ (-> a0-13 frame-group data 0 length) -1)))
+              (set! (-> a0-13 param 1) 1.0)
+              (joint-control-channel-group-eval! a0-13 (the-as art-joint-anim #f) num-func-seek!)
               )
-             (set! (-> a0-35 param 1) 1.0)
-             (joint-control-channel-group-eval!
-              a0-35
-              (the-as art-joint-anim #f)
-              num-func-seek!
-              )
-             )
             )
-           (let ((gp-3 (-> *display* base-frame-counter)))
-            (while (let* ((s5-2 (-> *display* base-frame-counter))
-                          (f30-3 300.0)
-                          (f28-2 0.5)
-                          (f26-2 0.5)
-                          (v1-164
-                           (/
-                            (the-as int (rand-uint31-gen *random-generator*))
-                            256
-                            )
-                           )
-                          (v1-165 (the-as number (logior #x3f800000 v1-164)))
-                          )
-                    (<
-                     (-
-                      s5-2
-                      (the
-                       int
-                       (*
-                        f30-3
-                        (+ f28-2 (* f26-2 (+ -1.0 (the-as float v1-165))))
-                        )
-                       )
-                      )
-                     gp-3
-                     )
-                    )
+          )
+        )
+      (let* ((v1-40 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-41 (the-as number (logior #x3f800000 v1-40)))
+             )
+        (cond
+          ((< (+ -1.0 (the-as float v1-41)) 0.5)
+           (let ((a0-17 (-> self skel root-channel 0)))
+             (set! (-> a0-17 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
+             (set! (-> a0-17 param 0)
+                   (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
+                   )
+             (set! (-> a0-17 param 1) 1.0)
+             (set! (-> a0-17 frame-num) 0.0)
+             (joint-control-channel-group! a0-17 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
+             )
+           (until (ja-done? 0)
              (suspend)
+             (let ((a0-18 (-> self skel root-channel 0)))
+               (set! (-> a0-18 param 0) (the float (+ (-> a0-18 frame-group data 0 length) -1)))
+               (set! (-> a0-18 param 1) 1.0)
+               (joint-control-channel-group-eval! a0-18 (the-as art-joint-anim #f) num-func-seek!)
+               )
              )
-            )
-           (let ((a0-39 (-> self skel root-channel 0)))
-            (set!
-             (-> a0-39 frame-group)
-             (if (> (-> self skel active-channels) 0)
-              (-> self skel root-channel 0 frame-group)
-              )
-             )
-            (set! (-> a0-39 param 0) 0.0)
-            (set! (-> a0-39 param 1) 1.0)
-            (set!
-             (-> a0-39 frame-num)
-             (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                                (-> self skel root-channel 0 frame-group)
-                                )
-                            data
-                            0
-                            length
-                            )
-                         -1
-                         )
-              )
-             )
-            (joint-control-channel-group!
-             a0-39
-             (if (> (-> self skel active-channels) 0)
-              (-> self skel root-channel 0 frame-group)
-              )
-             num-func-seek!
-             )
-            )
-           (until (ja-done? 0)
-            (suspend)
-            (let ((a0-40 (-> self skel root-channel 0)))
-             (set! (-> a0-40 param 0) 0.0)
-             (set! (-> a0-40 param 1) 1.0)
-             (joint-control-channel-group-eval!
-              a0-40
-              (the-as art-joint-anim #f)
-              num-func-seek!
-              )
-             )
-            )
-           )
-          )
-         )
-        )
-       (let ((a0-42 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-42 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 4))
-         )
-        (set! (-> a0-42 param 0) 0.0)
-        (set! (-> a0-42 param 1) 1.0)
-        (set!
-         (-> a0-42 frame-num)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 4))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (joint-control-channel-group!
-         a0-42
-         (the-as art-joint-anim (-> self draw art-group data 4))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-43 (-> self skel root-channel 0)))
-         (set! (-> a0-43 param 0) 0.0)
-         (set! (-> a0-43 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-43
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       )
-      (else
-       (let ((a0-45 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-45 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 6))
-         )
-        (set!
-         (-> a0-45 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 6))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-45 param 1) 1.0)
-        (set! (-> a0-45 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-45
-         (the-as art-joint-anim (-> self draw art-group data 6))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-46 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-46 param 0)
-          (the float (+ (-> a0-46 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-46 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-46
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       (let ((gp-4 (-> *display* base-frame-counter)))
-        (while (let* ((s5-3 (-> *display* base-frame-counter))
-                      (f30-4 300.0)
-                      (f28-3 0.5)
-                      (f26-3 0.5)
-                      (v1-237
-                       (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
-                       )
-                      (v1-238 (the-as number (logior #x3f800000 v1-237)))
+           (let ((gp-1 (-> *display* base-frame-counter)))
+             (while (let* ((s5-0 (-> *display* base-frame-counter))
+                           (f30-1 300.0)
+                           (f28-0 0.5)
+                           (f26-0 0.5)
+                           (v1-68 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                           (v1-69 (the-as number (logior #x3f800000 v1-68)))
+                           )
+                      (< (- s5-0 (the int (* f30-1 (+ f28-0 (* f26-0 (+ -1.0 (the-as float v1-69))))))) gp-1)
                       )
-                (<
-                 (-
-                  s5-3
-                  (the
-                   int
-                   (* f30-4 (+ f28-3 (* f26-3 (+ -1.0 (the-as float v1-238)))))
-                   )
+               (suspend)
+               )
+             )
+           (let* ((v1-75 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                  (v1-76 (the-as number (logior #x3f800000 v1-75)))
                   )
-                 gp-4
-                 )
-                )
-         (suspend)
-         )
-        )
-       (let ((a0-50 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-50 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 7))
-         )
-        (set!
-         (-> a0-50 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 7))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-50 param 1) 1.0)
-        (set! (-> a0-50 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-50
-         (the-as art-joint-anim (-> self draw art-group data 7))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-51 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-51 param 0)
-          (the float (+ (-> a0-51 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-51 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-51
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       (let ((gp-5 (-> *display* base-frame-counter)))
-        (while (let* ((s5-4 (-> *display* base-frame-counter))
-                      (f30-5 300.0)
-                      (f28-4 0.5)
-                      (f26-4 0.5)
-                      (v1-268
-                       (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
+             (when (< (+ -1.0 (the-as float v1-76)) 0.75)
+               (let ((a0-24 (-> self skel root-channel 0)))
+                 (set! (-> a0-24 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
+                 (set! (-> a0-24 param 0)
+                       (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) data 0 length) -1))
                        )
-                      (v1-269 (the-as number (logior #x3f800000 v1-268)))
-                      )
-                (<
-                 (-
-                  s5-4
-                  (the
-                   int
-                   (* f30-5 (+ f28-4 (* f26-4 (+ -1.0 (the-as float v1-269)))))
-                   )
-                  )
-                 gp-5
+                 (set! (-> a0-24 param 1) 1.0)
+                 (set! (-> a0-24 frame-num) 0.0)
+                 (joint-control-channel-group! a0-24 (the-as art-joint-anim (-> self draw art-group data 5)) num-func-seek!)
                  )
-                )
-         (suspend)
-         )
-        )
-       (let ((a0-55 (-> self skel root-channel 0)))
-        (set! (-> a0-55 frame-group) (if (> (-> self skel active-channels) 0)
-                                      (-> self skel root-channel 0 frame-group)
-                                      )
-         )
-        (set! (-> a0-55 param 0) 0.0)
-        (set! (-> a0-55 param 1) 1.0)
-        (set!
-         (-> a0-55 frame-num)
-         (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                            (-> self skel root-channel 0 frame-group)
-                            )
-                        data
-                        0
-                        length
-                        )
-                     -1
+               (until (ja-done? 0)
+                 (suspend)
+                 (let ((a0-25 (-> self skel root-channel 0)))
+                   (set! (-> a0-25 param 0) (the float (+ (-> a0-25 frame-group data 0 length) -1)))
+                   (set! (-> a0-25 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-25 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               (let ((gp-2 (-> *display* base-frame-counter)))
+                 (while (let* ((s5-1 (-> *display* base-frame-counter))
+                               (f30-2 300.0)
+                               (f28-1 0.5)
+                               (f26-1 0.5)
+                               (v1-104 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                               (v1-105 (the-as number (logior #x3f800000 v1-104)))
+                               )
+                          (< (- s5-1 (the int (* f30-2 (+ f28-1 (* f26-1 (+ -1.0 (the-as float v1-105))))))) gp-2)
+                          )
+                   (suspend)
+                   )
+                 )
+               (let ((a0-29 (-> self skel root-channel 0)))
+                 (set! (-> a0-29 frame-group) (if (> (-> self skel active-channels) 0)
+                                                  (-> self skel root-channel 0 frame-group)
+                                                  )
+                       )
+                 (set! (-> a0-29 param 0) 0.0)
+                 (set! (-> a0-29 param 1) 1.0)
+                 (set! (-> a0-29 frame-num) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                                  (-> self skel root-channel 0 frame-group)
+                                                                  )
+                                                              data
+                                                              0
+                                                              length
+                                                              )
+                                                          -1
+                                                          )
+                                                 )
+                       )
+                 (joint-control-channel-group!
+                   a0-29
+                   (if (> (-> self skel active-channels) 0)
+                       (-> self skel root-channel 0 frame-group)
+                       )
+                   num-func-seek!
+                   )
+                 )
+               (until (ja-done? 0)
+                 (suspend)
+                 (let ((a0-30 (-> self skel root-channel 0)))
+                   (set! (-> a0-30 param 0) 0.0)
+                   (set! (-> a0-30 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-30 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               (let* ((v1-135 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                      (v1-136 (the-as number (logior #x3f800000 v1-135)))
+                      )
+                 (when (< (+ -1.0 (the-as float v1-136)) 0.5)
+                   (let ((a0-34 (-> self skel root-channel 0)))
+                     (set! (-> a0-34 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
+                     (set! (-> a0-34 param 0)
+                           (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 5)) data 0 length) -1))
+                           )
+                     (set! (-> a0-34 param 1) 1.0)
+                     (set! (-> a0-34 frame-num) 0.0)
+                     (joint-control-channel-group! a0-34 (the-as art-joint-anim (-> self draw art-group data 5)) num-func-seek!)
                      )
-          )
-         )
-        (joint-control-channel-group!
-         a0-55
-         (if (> (-> self skel active-channels) 0)
-          (-> self skel root-channel 0 frame-group)
-          )
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-56 (-> self skel root-channel 0)))
-         (set! (-> a0-56 param 0) 0.0)
-         (set! (-> a0-56 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-56
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       (let ((gp-6 (-> *display* base-frame-counter)))
-        (while (let* ((s5-5 (-> *display* base-frame-counter))
-                      (f30-6 300.0)
-                      (f28-5 0.5)
-                      (f26-5 0.5)
-                      (v1-301
-                       (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
+                   (until (ja-done? 0)
+                     (suspend)
+                     (let ((a0-35 (-> self skel root-channel 0)))
+                       (set! (-> a0-35 param 0) (the float (+ (-> a0-35 frame-group data 0 length) -1)))
+                       (set! (-> a0-35 param 1) 1.0)
+                       (joint-control-channel-group-eval! a0-35 (the-as art-joint-anim #f) num-func-seek!)
                        )
-                      (v1-302 (the-as number (logior #x3f800000 v1-301)))
-                      )
-                (<
-                 (-
-                  s5-5
-                  (the
-                   int
-                   (* f30-6 (+ f28-5 (* f26-5 (+ -1.0 (the-as float v1-302)))))
+                     )
+                   (let ((gp-3 (-> *display* base-frame-counter)))
+                     (while (let* ((s5-2 (-> *display* base-frame-counter))
+                                   (f30-3 300.0)
+                                   (f28-2 0.5)
+                                   (f26-2 0.5)
+                                   (v1-164 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                                   (v1-165 (the-as number (logior #x3f800000 v1-164)))
+                                   )
+                              (< (- s5-2 (the int (* f30-3 (+ f28-2 (* f26-2 (+ -1.0 (the-as float v1-165))))))) gp-3)
+                              )
+                       (suspend)
+                       )
+                     )
+                   (let ((a0-39 (-> self skel root-channel 0)))
+                     (set! (-> a0-39 frame-group) (if (> (-> self skel active-channels) 0)
+                                                      (-> self skel root-channel 0 frame-group)
+                                                      )
+                           )
+                     (set! (-> a0-39 param 0) 0.0)
+                     (set! (-> a0-39 param 1) 1.0)
+                     (set! (-> a0-39 frame-num) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                                      (-> self skel root-channel 0 frame-group)
+                                                                      )
+                                                                  data
+                                                                  0
+                                                                  length
+                                                                  )
+                                                              -1
+                                                              )
+                                                     )
+                           )
+                     (joint-control-channel-group!
+                       a0-39
+                       (if (> (-> self skel active-channels) 0)
+                           (-> self skel root-channel 0 frame-group)
+                           )
+                       num-func-seek!
+                       )
+                     )
+                   (until (ja-done? 0)
+                     (suspend)
+                     (let ((a0-40 (-> self skel root-channel 0)))
+                       (set! (-> a0-40 param 0) 0.0)
+                       (set! (-> a0-40 param 1) 1.0)
+                       (joint-control-channel-group-eval! a0-40 (the-as art-joint-anim #f) num-func-seek!)
+                       )
+                     )
                    )
-                  )
-                 gp-6
                  )
-                )
-         (suspend)
-         )
-        )
-       (let ((a0-60 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-60 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 8))
-         )
-        (set!
-         (-> a0-60 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 8))
-            data
-            0
-            length
-            )
-           -1
+               )
+             )
+           (let ((a0-42 (-> self skel root-channel 0)))
+             (set! (-> a0-42 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
+             (set! (-> a0-42 param 0) 0.0)
+             (set! (-> a0-42 param 1) 1.0)
+             (set! (-> a0-42 frame-num)
+                   (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 4)) data 0 length) -1))
+                   )
+             (joint-control-channel-group! a0-42 (the-as art-joint-anim (-> self draw art-group data 4)) num-func-seek!)
+             )
+           (until (ja-done? 0)
+             (suspend)
+             (let ((a0-43 (-> self skel root-channel 0)))
+               (set! (-> a0-43 param 0) 0.0)
+               (set! (-> a0-43 param 1) 1.0)
+               (joint-control-channel-group-eval! a0-43 (the-as art-joint-anim #f) num-func-seek!)
+               )
+             )
            )
+          (else
+            (let ((a0-45 (-> self skel root-channel 0)))
+              (set! (-> a0-45 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
+              (set! (-> a0-45 param 0)
+                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 6)) data 0 length) -1))
+                    )
+              (set! (-> a0-45 param 1) 1.0)
+              (set! (-> a0-45 frame-num) 0.0)
+              (joint-control-channel-group! a0-45 (the-as art-joint-anim (-> self draw art-group data 6)) num-func-seek!)
+              )
+            (until (ja-done? 0)
+              (suspend)
+              (let ((a0-46 (-> self skel root-channel 0)))
+                (set! (-> a0-46 param 0) (the float (+ (-> a0-46 frame-group data 0 length) -1)))
+                (set! (-> a0-46 param 1) 1.0)
+                (joint-control-channel-group-eval! a0-46 (the-as art-joint-anim #f) num-func-seek!)
+                )
+              )
+            (let ((gp-4 (-> *display* base-frame-counter)))
+              (while (let* ((s5-3 (-> *display* base-frame-counter))
+                            (f30-4 300.0)
+                            (f28-3 0.5)
+                            (f26-3 0.5)
+                            (v1-237 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                            (v1-238 (the-as number (logior #x3f800000 v1-237)))
+                            )
+                       (< (- s5-3 (the int (* f30-4 (+ f28-3 (* f26-3 (+ -1.0 (the-as float v1-238))))))) gp-4)
+                       )
+                (suspend)
+                )
+              )
+            (let ((a0-50 (-> self skel root-channel 0)))
+              (set! (-> a0-50 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
+              (set! (-> a0-50 param 0)
+                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 7)) data 0 length) -1))
+                    )
+              (set! (-> a0-50 param 1) 1.0)
+              (set! (-> a0-50 frame-num) 0.0)
+              (joint-control-channel-group! a0-50 (the-as art-joint-anim (-> self draw art-group data 7)) num-func-seek!)
+              )
+            (until (ja-done? 0)
+              (suspend)
+              (let ((a0-51 (-> self skel root-channel 0)))
+                (set! (-> a0-51 param 0) (the float (+ (-> a0-51 frame-group data 0 length) -1)))
+                (set! (-> a0-51 param 1) 1.0)
+                (joint-control-channel-group-eval! a0-51 (the-as art-joint-anim #f) num-func-seek!)
+                )
+              )
+            (let ((gp-5 (-> *display* base-frame-counter)))
+              (while (let* ((s5-4 (-> *display* base-frame-counter))
+                            (f30-5 300.0)
+                            (f28-4 0.5)
+                            (f26-4 0.5)
+                            (v1-268 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                            (v1-269 (the-as number (logior #x3f800000 v1-268)))
+                            )
+                       (< (- s5-4 (the int (* f30-5 (+ f28-4 (* f26-4 (+ -1.0 (the-as float v1-269))))))) gp-5)
+                       )
+                (suspend)
+                )
+              )
+            (let ((a0-55 (-> self skel root-channel 0)))
+              (set! (-> a0-55 frame-group) (if (> (-> self skel active-channels) 0)
+                                               (-> self skel root-channel 0 frame-group)
+                                               )
+                    )
+              (set! (-> a0-55 param 0) 0.0)
+              (set! (-> a0-55 param 1) 1.0)
+              (set! (-> a0-55 frame-num) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                               (-> self skel root-channel 0 frame-group)
+                                                               )
+                                                           data
+                                                           0
+                                                           length
+                                                           )
+                                                       -1
+                                                       )
+                                              )
+                    )
+              (joint-control-channel-group!
+                a0-55
+                (if (> (-> self skel active-channels) 0)
+                    (-> self skel root-channel 0 frame-group)
+                    )
+                num-func-seek!
+                )
+              )
+            (until (ja-done? 0)
+              (suspend)
+              (let ((a0-56 (-> self skel root-channel 0)))
+                (set! (-> a0-56 param 0) 0.0)
+                (set! (-> a0-56 param 1) 1.0)
+                (joint-control-channel-group-eval! a0-56 (the-as art-joint-anim #f) num-func-seek!)
+                )
+              )
+            (let ((gp-6 (-> *display* base-frame-counter)))
+              (while (let* ((s5-5 (-> *display* base-frame-counter))
+                            (f30-6 300.0)
+                            (f28-5 0.5)
+                            (f26-5 0.5)
+                            (v1-301 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                            (v1-302 (the-as number (logior #x3f800000 v1-301)))
+                            )
+                       (< (- s5-5 (the int (* f30-6 (+ f28-5 (* f26-5 (+ -1.0 (the-as float v1-302))))))) gp-6)
+                       )
+                (suspend)
+                )
+              )
+            (let ((a0-60 (-> self skel root-channel 0)))
+              (set! (-> a0-60 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
+              (set! (-> a0-60 param 0)
+                    (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 8)) data 0 length) -1))
+                    )
+              (set! (-> a0-60 param 1) 1.0)
+              (set! (-> a0-60 frame-num) 0.0)
+              (joint-control-channel-group! a0-60 (the-as art-joint-anim (-> self draw art-group data 8)) num-func-seek!)
+              )
+            (until (ja-done? 0)
+              (suspend)
+              (let ((a0-61 (-> self skel root-channel 0)))
+                (set! (-> a0-61 param 0) (the float (+ (-> a0-61 frame-group data 0 length) -1)))
+                (set! (-> a0-61 param 1) 1.0)
+                (joint-control-channel-group-eval! a0-61 (the-as art-joint-anim #f) num-func-seek!)
+                )
+              )
+            )
           )
-         )
-        (set! (-> a0-60 param 1) 1.0)
-        (set! (-> a0-60 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-60
-         (the-as art-joint-anim (-> self draw art-group data 8))
-         num-func-seek!
-         )
         )
-       (until (ja-done? 0)
-        (suspend)
-        (let ((a0-61 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-61 param 0)
-          (the float (+ (-> a0-61 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-61 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-61
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       )
       )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
 (defmethod init-from-entity! explorer ((obj explorer) (arg0 entity-actor))
diff --git a/goal_src/levels/village1/fishermans-boat.gc b/goal_src/levels/village1/fishermans-boat.gc
index dfccdb88de..a1d684b9e2 100644
--- a/goal_src/levels/village1/fishermans-boat.gc
+++ b/goal_src/levels/village1/fishermans-boat.gc
@@ -660,33 +660,30 @@
   (none)
   )
 
-(set! (-> *part-id-table* 2896) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-flt spt-x (meters 10.0))
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-rnd-flt spt-scale-y (meters 1.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.008666666) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.008666666) 1.0)
-                                    (sp-flt spt-fade-a 0.7111111)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 90)
-                                    (sp-launcher-by-id spt-next-launcher 119)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2896
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
+    (sp-flt spt-num 0.06)
+    (sp-flt spt-x (meters 10))
+    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 3) 1.0)
+    (sp-flt spt-rot-y (degrees 0.0))
+    (sp-rnd-flt spt-scale-y (meters 1.5) (meters 3) 1.0)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.008666666) 1.0)
+    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.008666666) 1.0)
+    (sp-flt spt-fade-a 0.7111111)
+    (sp-flt spt-friction 0.94)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+    (sp-int spt-next-time 90)
+    (sp-launcher-by-id spt-next-launcher 119)
+    (sp-flt spt-rotate-y (degrees 0.0))
+    )
+  )
 
 (defbehavior fishermans-boat-wave fishermans-boat ((arg0 vector) (arg1 float) (arg2 float))
   (let ((gp-0 (new 'stack-no-clear 'vector)))
diff --git a/goal_src/levels/village1/sequence-a-village1.gc b/goal_src/levels/village1/sequence-a-village1.gc
index ef2beca825..8fbce775fd 100644
--- a/goal_src/levels/village1/sequence-a-village1.gc
+++ b/goal_src/levels/village1/sequence-a-village1.gc
@@ -9,242 +9,205 @@
 
 ;; DECOMP BEGINS
 
-(set! (-> *part-group-id-table* 686)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-sequenceAV-splash"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2854 :period 900 :length 600))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-sequenceAV-splash
+  :id 686
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2854 :period 900 :length 600))
+  )
 
-(set! (-> *part-id-table* 2854) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 128.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.125) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-rnd-flt spt-accel-y -2.7306666 -6.826667 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees -30.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 5000.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.3) (meters -0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2854
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 128.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.125) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 96.0 64.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-rnd-flt spt-accel-y -2.7306666 -6.826667 1.0)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees -30.0) (degrees 60.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 5000.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0.3) (meters -0.5) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 687) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x384
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-sequenceAV-spit"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2855))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-sequenceAV-spit
+  :id 687
+  :duration 5
+  :linger-duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2855))
+  )
 
-(set! (-> *part-id-table* 2855) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.025) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.00033333333))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.21333334)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 106.0) (degrees 2.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 2.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters -0.15) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2855
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+    (sp-flt spt-num 5.0)
+    (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.025) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 32.0 1.0)
+    (sp-rnd-flt spt-g 128.0 32.0 1.0)
+    (sp-rnd-flt spt-b 128.0 32.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.0033333334) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.00033333333))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.21333334)
+    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
+    (sp-flt spt-friction 0.95)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 106.0) (degrees 2.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 2.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters -0.15) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 688) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-sequenceAV-2d-intro-mist"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 2858 :period 300 :length 5 :binding 2856)
-                                         (sp-item 2856 :flags (start-dead launch-asap) :binding 2857)
-                                         (sp-item 2856 :flags (start-dead launch-asap) :binding 2857)
-                                         (sp-item 2857 :flags (start-dead))
-                                         (sp-item 2857 :flags (start-dead))
-                                         (sp-item 2857 :flags (start-dead))
-                                         (sp-item 2859)
-                                         (sp-item 2860)
-                                         )
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
+(defpartgroup group-sequenceAV-2d-intro-mist
+  :id 688
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2858 :period 300 :length 5 :binding 2856)
+    (sp-item 2856 :flags (start-dead launch-asap) :binding 2857)
+    (sp-item 2856 :flags (start-dead launch-asap) :binding 2857)
+    (sp-item 2857 :flags (start-dead))
+    (sp-item 2857 :flags (start-dead))
+    (sp-item 2857 :flags (start-dead))
+    (sp-item 2859)
+    (sp-item 2860)
+    )
+  )
 
-(set! (-> *part-id-table* 2858) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.5) (meters 5.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2858
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -2.5) (meters 5) 1.0)
+    (sp-rnd-flt spt-y (meters -1.5) (meters 3) 1.0)
+    (sp-flt spt-scale-x (meters 0.1))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit3)
+    (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2856) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
-                                    (sp-flt spt-scalevel-x (meters -0.0012121212))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2856
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 0.2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
+    (sp-flt spt-scalevel-x (meters -0.0012121212))
+    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit3 bit7)
+    )
+  )
 
-(set! (-> *part-id-table* 2857) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0010952381))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y 0.0 -0.13653333 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 198)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2857
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 32.0 96.0 1.0)
+    (sp-rnd-flt spt-g 0.0 32.0 1.0)
+    (sp-rnd-flt spt-b 64.0 32.0 1.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0010952381))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y 0.0 -0.13653333 1.0)
+    (sp-int-plain-rnd spt-timer 30 299 1)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-int spt-next-time 240)
+    (sp-launcher-by-id spt-next-launcher 198)
+    )
+  )
 
-(set! (-> *part-id-table* 2860) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-z -16000.0)
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit13 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2860
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-z (meters -3.90625))
+    (sp-flt spt-scale-x (meters 15))
+    (sp-flt spt-scale-y (meters 12))
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 0.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 128.0)
+    (sp-int spt-timer 5)
+    (sp-cpuinfo-flags bit2 bit13 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2859)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 21
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 0.3)
-          (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
-          (sp-rnd-flt spt-z 0.0 14000.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 6.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-rnd-flt spt-scale-y (meters 6.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-r 16.0 80.0 1.0)
-          (sp-rnd-flt spt-g 0.0 16.0 1.0)
-          (sp-rnd-flt spt-b 16.0 150.0 1.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.0016666667) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.075) (degrees 0.15) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.21333334)
-          (sp-int spt-timer 1500)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 150 149 1)
-          (sp-launcher-by-id spt-next-launcher 2861)
-          (sp-end)
-          )
-        )
-      )
+(defpart 2859
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 0.3)
+    (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+    (sp-rnd-flt spt-y (meters -3) (meters 6) 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 3.4179688) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 8) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 6) (meters 8) 1.0)
+    (sp-rnd-flt spt-r 16.0 80.0 1.0)
+    (sp-rnd-flt spt-g 0.0 16.0 1.0)
+    (sp-rnd-flt spt-b 16.0 150.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters -0.0016666667) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -0.075) (degrees 0.15) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 0.21333334)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 150 149 1)
+    (sp-launcher-by-id spt-next-launcher 2861)
+    )
+  )
 
-(set! (-> *part-id-table* 2861)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 300 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2862)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2861
+  :init-specs
+  ((sp-flt spt-fade-a 0.0)
+    (sp-int-plain-rnd spt-next-time 300 299 1)
+    (sp-launcher-by-id spt-next-launcher 2862)
+    )
+  )
 
-(set! (-> *part-id-table* 2862)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 2862
+  :init-specs
+  ((sp-flt spt-fade-a -0.21333334))
+  )
 
 (deftype sequenceA-village1 (process-taskable)
   ((boat handle  :offset-assert 384)
diff --git a/goal_src/levels/village1/village-obs-VI1.gc b/goal_src/levels/village1/village-obs-VI1.gc
index a594505a37..54ddc1d6e1 100644
--- a/goal_src/levels/village1/village-obs-VI1.gc
+++ b/goal_src/levels/village1/village-obs-VI1.gc
@@ -138,120 +138,108 @@
   :longest-edge (meters 0.01)
   )
 
-(set! (-> *part-id-table* 368) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 2.5)
-                                   (sp-flt spt-x (meters 0.8))
-                                   (sp-flt spt-scale-x (meters 1.7))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0020833334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.08888889)
-                                   (sp-flt spt-accel-y -0.13653333)
-                                   (sp-int spt-timer 720)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-int-flt spt-conerot-x (degrees 0.0) 3 16384.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 17.5) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 368
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 2.5)
+    (sp-flt spt-x (meters 0.8))
+    (sp-flt spt-scale-x (meters 1.7))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-rnd-flt spt-g 0.0 128.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 64.0)
+    (sp-flt spt-scalevel-x (meters -0.0020833334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.08888889)
+    (sp-flt spt-accel-y -0.13653333)
+    (sp-int spt-timer 720)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-int-flt spt-conerot-x (degrees 0.0) 3 16384.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 17.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 369) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-flt spt-x (meters 4.0))
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.01) (meters 0.02) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.050666668))
-                                   (sp-rnd-flt spt-vel-z (meters -0.01) (meters 0.02) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.35555556)
-                                   (sp-flt spt-fade-g -0.35555556)
-                                   (sp-flt spt-fade-a 0.35555556)
-                                   (sp-int spt-timer 165)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-int-flt spt-conerot-x (degrees -45.0) 3 16384.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 369
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-flt spt-x (meters 4))
+    (sp-flt spt-scale-x (meters 0.5))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-rnd-flt spt-g 0.0 128.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-x (meters -0.01) (meters 0.02) 1.0)
+    (sp-flt spt-vel-y (meters 0.050666668))
+    (sp-rnd-flt spt-vel-z (meters -0.01) (meters 0.02) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.35555556)
+    (sp-flt spt-fade-g -0.35555556)
+    (sp-flt spt-fade-a 0.35555556)
+    (sp-int spt-timer 165)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-int-flt spt-conerot-x (degrees -45.0) 3 16384.0)
+    (sp-flt spt-conerot-radius (meters 2))
+    )
+  )
 
-(set! (-> *part-id-table* 370) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 5.0)
-                                   (sp-flt spt-x (meters 4.0))
-                                   (sp-flt spt-scale-x (meters 1.7))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.07666667) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.006666667))
-                                   (sp-rnd-flt spt-vel-z (meters -0.05) (meters 0.1) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.008333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.17777778)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-int spt-timer 180)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-int-flt spt-conerot-x (degrees -45.0) 3 16384.0)
-                                   (sp-flt spt-conerot-radius (meters 10.6))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 370
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 5.0)
+    (sp-flt spt-x (meters 4))
+    (sp-flt spt-scale-x (meters 1.7))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-rnd-flt spt-g 0.0 128.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.07666667) 1.0)
+    (sp-flt spt-vel-y (meters -0.006666667))
+    (sp-rnd-flt spt-vel-z (meters -0.05) (meters 0.1) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.008333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.17777778)
+    (sp-flt spt-accel-y -4.096)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-int-flt spt-conerot-x (degrees -45.0) 3 16384.0)
+    (sp-flt spt-conerot-radius (meters 10.6))
+    )
+  )
 
-(set! (-> *part-id-table* 371) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 3.8)
-                                   (sp-flt spt-x (meters 5.5))
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 196.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0073333336))
-                                   (sp-flt spt-scalevel-x (meters -0.008333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.17777778)
-                                   (sp-flt spt-fade-a -1.0888889)
-                                   (sp-int spt-timer 165)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.3) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 371
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 3.8)
+    (sp-flt spt-x (meters 5.5))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 32.0)
+    (sp-rnd-flt spt-g 0.0 64.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 196.0)
+    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
+    (sp-flt spt-vel-y (meters 0.0073333336))
+    (sp-flt spt-scalevel-x (meters -0.008333334))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.17777778)
+    (sp-flt spt-fade-a -1.0888889)
+    (sp-int spt-timer 165)
+    (sp-cpuinfo-flags bit2 bit3)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.3) 1.0)
+    )
+  )
 
 (deftype windmill-sail (process-drawable)
   ((root-override trsq                             :offset        112)
@@ -294,33 +282,23 @@
   :longest-edge (meters 14.9)
   )
 
-(set! (-> *part-group-id-table* 123) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-win-wind-mill"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 368 :fade-after (meters 100.0))
-                                         (sp-item 369 :fade-after (meters 100.0))
-                                         (sp-item 370 :fade-after (meters 200.0))
-                                         (sp-item 371 :fade-after (meters 200.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 81920.0)
-                                       )
-      )
+(defpartgroup group-win-wind-mill
+  :id 123
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 368 :fade-after (meters 100))
+    (sp-item 369 :fade-after (meters 100))
+    (sp-item 370 :fade-after (meters 200))
+    (sp-item 371 :fade-after (meters 200))
+    )
+  )
 
-(set! (-> *part-group-id-table* 124)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-win-wind-mill-hires"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 368) (sp-item 369) (sp-item 370) (sp-item 371))
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
+(defpartgroup group-win-wind-mill-hires
+  :id 124
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 368) (sp-item 369) (sp-item 370) (sp-item 371))
+  )
 
 (defstate windmill-sail-idle (windmill-sail)
   :trans
diff --git a/goal_src/levels/village1/village1-part.gc b/goal_src/levels/village1/village1-part.gc
index 7e27ef6e82..06bf2f8434 100644
--- a/goal_src/levels/village1/village1-part.gc
+++ b/goal_src/levels/village1/village1-part.gc
@@ -16,18 +16,13 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 127)
-  (new 'static 'sparticle-launch-group
-   :length 13
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-butterflies"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 13
-    (sp-item 380 :fade-after (meters 120.0) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
-    (sp-item 380 :fade-after (meters 120.0) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
-    (sp-item 380 :fade-after (meters 120.0) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
+(defpartgroup group-village1-butterflies
+  :id 127
+  :bounds (static-bspherem 0 0 0 30)
+  :parts
+  ((sp-item 380 :fade-after (meters 120) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
+    (sp-item 380 :fade-after (meters 120) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
+    (sp-item 380 :fade-after (meters 120) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
     (sp-item 381 :flags (start-dead launch-asap) :binding 382)
     (sp-item 382 :flags (is-3d start-dead))
     (sp-item 381 :flags (start-dead launch-asap) :binding 382)
@@ -39,20 +34,15 @@
     (sp-item 381 :flags (start-dead launch-asap) :binding 382)
     (sp-item 382 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 122880.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 380)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 380
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 7.5) 1.0)
-    (sp-rnd-flt spt-y (meters 14.0) (meters 3.0) 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters 0) (meters 7.5) 1.0)
+    (sp-rnd-flt spt-y (meters 14) (meters 3) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
@@ -63,45 +53,29 @@
     (sp-int spt-next-time 555)
     (sp-launcher-by-id spt-next-launcher 383)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 383)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-accel-y 0.0)
+(defpart 383
+  :init-specs
+  ((sp-flt spt-accel-y 0.0)
     (sp-int-plain-rnd spt-next-time 2700 1499 1)
     (sp-launcher-by-id spt-next-launcher 384)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 384)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-accel-y 1.3653333)
-    (sp-end)
-    )
-   )
+(defpart 384
+  :init-specs
+  ((sp-flt spt-accel-y 1.3653333))
   )
 
-(set!
-  (-> *part-id-table* 381)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 381
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 12288.0 4096.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 3) (meters 1) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -111,37 +85,27 @@
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 6000)
     (sp-cpuinfo-flags bit3 bit7)
     (sp-int-plain-rnd spt-next-time 150 449 1)
     (sp-launcher-by-id spt-next-launcher 385)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 385)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+(defpart 385
+  :init-specs
+  ((sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int-plain-rnd spt-next-time 150 449 1)
     (sp-launcher-by-id spt-next-launcher 385)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 382)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+(defpart 382
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
     (sp-func spt-birth-func 'birth-func-copy-rot-color)
     (sp-flt spt-num 2.0)
     (sp-flt spt-scale-x (meters 0.9))
@@ -154,34 +118,22 @@
     (sp-flt spt-fade-a -8.0)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit9 bit12)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 128)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-moth"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 386 :fade-after (meters 120.0) :flags (bit1) :period 18030 :length 5 :hour-mask #b1111111110000000 :binding 387)
+(defpartgroup group-village1-moth
+  :id 128
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 386 :fade-after (meters 120) :flags (bit1) :period 18030 :length 5 :hour-mask #b1111111110000000 :binding 387)
     (sp-item 387 :flags (start-dead launch-asap) :binding 388)
     (sp-item 388 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 12288.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 386)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 10
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 386
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
@@ -190,20 +142,15 @@
     (sp-int spt-timer 18000)
     (sp-cpuinfo-flags bit3)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 387)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 387
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 6144.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 1.5))
     (sp-flt spt-scale-x (meters 0.1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -214,37 +161,27 @@
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 18000)
     (sp-cpuinfo-flags bit3 bit7)
     (sp-int-plain-rnd spt-next-time 150 449 1)
     (sp-launcher-by-id spt-next-launcher 389)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 389)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
+(defpart 389
+  :init-specs
+  ((sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
     (sp-int-plain-rnd spt-next-time 150 449 1)
     (sp-launcher-by-id spt-next-launcher 389)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 388)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+(defpart 388
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
     (sp-func spt-birth-func 'birth-func-copy-rot-color)
     (sp-flt spt-num 2.0)
     (sp-flt spt-scale-x (meters 0.4))
@@ -256,38 +193,25 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 129)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-hummingbird"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 390 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5 :hour-mask #b111111100000000000111111)
-    (sp-item 391 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5)
-    (sp-item 392 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5)
-    (sp-item 393 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5)
-    (sp-item 394 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5)
-    (sp-item 395 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5)
+(defpartgroup group-village1-hummingbird
+  :id 129
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 390 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5 :hour-mask #b111111100000000000111111)
+    (sp-item 391 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5)
+    (sp-item 392 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5)
+    (sp-item 393 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5)
+    (sp-item 394 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5)
+    (sp-item 395 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5)
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 390)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 390
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
@@ -303,31 +227,21 @@
     (sp-cpuinfo-flags bit2 bit9 bit12 left-multiply-quat)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 396)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 396)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+(defpart 396
+  :init-specs
+  ((sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
     (sp-rnd-int spt-a 1119879168 1 16.0)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 396)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 391)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 391
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
@@ -343,49 +257,34 @@
     (sp-cpuinfo-flags bit9 bit12 left-multiply-quat)
     (sp-int spt-next-time 825)
     (sp-launcher-by-id spt-next-launcher 397)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 397)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+(defpart 397
+  :init-specs
+  ((sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
     (sp-rnd-int spt-a 1119879168 1 16.0)
     (sp-flt spt-accel-x 2.7306666)
     (sp-flt spt-accel-y 1.3653333)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 398)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 398)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+(defpart 398
+  :init-specs
+  ((sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
     (sp-rnd-int spt-a 1119879168 1 16.0)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 398)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 392)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 392
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-flt spt-rot-z (degrees 60.0))
@@ -401,35 +300,25 @@
     (sp-cpuinfo-flags bit2 bit9 bit12)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 399)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 399)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-rot-x 24576.0)
+(defpart 399
+  :init-specs
+  ((sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
     (sp-rnd-int spt-a 1107296256 1 32.0)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 399)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 393)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 393
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-flt spt-rot-z (degrees 60.0))
@@ -445,17 +334,12 @@
     (sp-cpuinfo-flags bit9 bit12)
     (sp-int spt-next-time 825)
     (sp-launcher-by-id spt-next-launcher 400)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 400)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-flt spt-rot-x 24576.0)
+(defpart 400
+  :init-specs
+  ((sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
     (sp-rnd-int spt-a 1107296256 1 32.0)
@@ -463,35 +347,25 @@
     (sp-flt spt-accel-y 1.3653333)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 401)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 401)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-rot-x 24576.0)
+(defpart 401
+  :init-specs
+  ((sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
     (sp-rnd-int spt-a 1107296256 1 32.0)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 401)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 394)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 394
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 8192.0)
     (sp-flt spt-rot-y (degrees -90.0))
     (sp-flt spt-scale-y (meters 0.5))
@@ -506,35 +380,25 @@
     (sp-cpuinfo-flags bit2 bit9 bit12)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 402)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 402)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-rot-x 8192.0)
+(defpart 402
+  :init-specs
+  ((sp-flt spt-rot-x 8192.0)
     (sp-flt spt-rot-y (degrees -90.0))
     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
     (sp-rnd-int spt-a 1107296256 1 32.0)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 402)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 395)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 395
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 8192.0)
     (sp-flt spt-rot-y (degrees -90.0))
     (sp-flt spt-rot-z (degrees 60.0))
@@ -550,17 +414,12 @@
     (sp-cpuinfo-flags bit9 bit12)
     (sp-int spt-next-time 825)
     (sp-launcher-by-id spt-next-launcher 403)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 403)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-flt spt-rot-x 8192.0)
+(defpart 403
+  :init-specs
+  ((sp-flt spt-rot-x 8192.0)
     (sp-flt spt-rot-y (degrees -90.0))
     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
     (sp-rnd-int spt-a 1107296256 1 32.0)
@@ -568,35 +427,25 @@
     (sp-flt spt-accel-y 1.3653333)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 404)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 404)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-flt spt-rot-x 8192.0)
+(defpart 404
+  :init-specs
+  ((sp-flt spt-rot-x 8192.0)
     (sp-flt spt-rot-y (degrees -90.0))
     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
     (sp-rnd-int spt-a 1107296256 1 32.0)
     (sp-int spt-next-time 5)
     (sp-launcher-by-id spt-next-launcher 404)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 405)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 405
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.03)
-    (sp-flt spt-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
     (sp-flt spt-y (meters 2.3))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -616,20 +465,15 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.15) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.15) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 406)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 406
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -644,18 +488,13 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-int-flt spt-conerot-x (degrees -15.0) 4 1365.3334)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 407)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 407
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
     (sp-flt spt-y (meters 1.2))
     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
@@ -680,21 +519,16 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -80.0) 1 29127.111)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 0.2))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 408)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 408
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.16)
     (sp-rnd-flt spt-x (meters -0.22) (meters 0.44) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -901.12 1802.24 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -0.22) (meters 0.44) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.22) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -712,41 +546,26 @@
     (sp-flt spt-accel-y -0.04096)
     (sp-int spt-timer 675)
     (sp-cpuinfo-flags bit2)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 130)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-pot"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 405 :fade-after (meters 50.0) :falloff-to (meters 60.0))
-    (sp-item 406 :fade-after (meters 50.0) :falloff-to (meters 60.0))
-    (sp-item 407 :fade-after (meters 60.0) :falloff-to (meters 80.0))
-    (sp-item 409 :fade-after (meters 60.0) :falloff-to (meters 80.0))
+(defpartgroup group-village1-pot
+  :id 130
+  :bounds (static-bspherem 0 2.5 0 2.5)
+  :parts
+  ((sp-item 405 :fade-after (meters 50) :falloff-to (meters 60))
+    (sp-item 406 :fade-after (meters 50) :falloff-to (meters 60))
+    (sp-item 407 :fade-after (meters 60) :falloff-to (meters 80))
+    (sp-item 409 :fade-after (meters 60) :falloff-to (meters 80))
     )
-   :bounds
-   (new 'static 'sphere :y 10240.0 :w 10240.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 131)
-  (new 'static 'sparticle-launch-group
-   :length 68
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-mayor-fire"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 68
-    (sp-item 410 :fade-after (meters 50.0) :falloff-to (meters 80.0))
-    (sp-item 411 :fade-after (meters 40.0) :falloff-to (meters 40.0) :binding 2292)
+(defpartgroup group-village1-mayor-fire
+  :id 131
+  :bounds (static-bspherem 0 2.5 0 2.5)
+  :parts
+  ((sp-item 410 :fade-after (meters 50) :falloff-to (meters 80))
+    (sp-item 411 :fade-after (meters 40) :falloff-to (meters 40) :binding 2292)
     (sp-item 2292 :flags (bit1 start-dead launch-asap))
     (sp-item 2292 :flags (bit1 start-dead launch-asap))
     (sp-item 2292 :flags (bit1 start-dead launch-asap))
@@ -811,36 +630,26 @@
     (sp-item 2292 :flags (bit1 start-dead launch-asap))
     (sp-item 2292 :flags (bit1 start-dead launch-asap))
     (sp-item 2292 :flags (bit1 start-dead launch-asap))
-    (sp-item 412 :fade-after (meters 60.0) :falloff-to (meters 80.0))
-    (sp-item 413 :fade-after (meters 50.0) :falloff-to (meters 50.0))
+    (sp-item 412 :fade-after (meters 60) :falloff-to (meters 80))
+    (sp-item 413 :fade-after (meters 50) :falloff-to (meters 50))
     )
-   :bounds
-   (new 'static 'sphere :y 10240.0 :w 10240.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 411)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 411
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 1.0
-      :group #x1
-      :sound-name (static-sound-name "fire-pop")
-      :volume #x400
-      )
-     )
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 1.0
+                :group #x1
+                :sound-name (static-sound-name "fire-pop")
+                :volume #x400
+                )
+              )
     (sp-rnd-flt spt-x (meters -0.6) (meters 1.3) 1.0)
-    (sp-rnd-flt spt-y (meters 1.0) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -854,21 +663,16 @@
     (sp-cpuinfo-flags bit1 bit3)
     (sp-rnd-flt spt-conerot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2292)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2292
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 1024.0 4096.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.25) (meters 1) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -877,7 +681,7 @@
     (sp-rnd-flt spt-a 96.0 32.0 1.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.053333335) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
     (sp-flt spt-fade-r 0.0)
     (sp-flt spt-fade-g -0.7111111)
@@ -887,34 +691,21 @@
     (sp-cpuinfo-flags bit1 bit2 bit3 bit7)
     (sp-int spt-next-time 180)
     (sp-launcher-by-id spt-next-launcher 2293)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2293)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r -1.0666667)
-    (sp-flt spt-fade-g 1.0666667)
-    (sp-flt spt-fade-b 1.0666667)
-    (sp-end)
-    )
-   )
+(defpart 2293
+  :init-specs
+  ((sp-flt spt-fade-r -1.0666667) (sp-flt spt-fade-g 1.0666667) (sp-flt spt-fade-b 1.0666667))
   )
 
-(set!
-  (-> *part-id-table* 410)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 410
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 4.0 10.0 1.0)
-    (sp-rnd-flt spt-x (meters -1.2) (meters 2.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
+    (sp-rnd-flt spt-x (meters -1.2) (meters 2) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -929,22 +720,17 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 412)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 412
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.5)
     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -4096.0 6144.0 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -1) (meters 1.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -964,23 +750,18 @@
     (sp-flt spt-friction 0.99)
     (sp-int spt-timer 675)
     (sp-cpuinfo-flags bit2)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 413)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.4)
+(defpart 413
+  :init-specs
+  ((sp-flt spt-num 0.4)
     (sp-flt spt-x (meters 0.2))
     (sp-int spt-rot-x 8)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2662.4)
     (sp-flt spt-b 2867.2)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
     (sp-flt spt-friction 0.99)
     (sp-int spt-timer 300)
@@ -988,47 +769,34 @@
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 414)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 414)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -1.3653333)
-    (sp-end)
-    )
-   )
+(defpart 414
+  :init-specs
+  ((sp-flt spt-fade-b -1.3653333))
   )
 
-(set!
-  (-> *part-group-id-table* 132)
-  (new 'static 'sparticle-launch-group
-   :length 50
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-sagehut-seagulls"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 50
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-    (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
+(defpartgroup group-village1-sagehut-seagulls
+  :id 132
+  :bounds (static-bspherem 0 8 0 45)
+  :parts
+  ((sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
     (sp-item 416 :flags (start-dead launch-asap) :binding 417)
     (sp-item 417 :flags (is-3d start-dead))
     (sp-item 416 :flags (start-dead launch-asap) :binding 417)
@@ -1064,40 +832,26 @@
     (sp-item 416 :flags (start-dead launch-asap) :binding 417)
     (sp-item 417 :flags (is-3d start-dead))
     )
-   :bounds
-   (new 'static 'sphere :y 32768.0 :w 184320.0)
-   )
   )
 
-(defun
-  bird-bob-func
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
-  (set!
-   (-> arg2 y)
-   (+
-    (-> (the-as process-drawable (-> arg1 key proc)) root trans y)
-    (*
-     -2048.0
-     (sin (* 218.45334 (the float (mod (-> *display* base-frame-counter) 300))))
-     )
-    )
-   )
+(defun bird-bob-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+  (set! (-> arg2 y) (+ (-> (the-as process-drawable (-> arg1 key proc)) root trans y)
+                       (* -2048.0 (sin (* 218.45334 (the float (mod (-> *display* base-frame-counter) 300)))))
+                       )
+        )
   0
   (none)
   )
 
-(set!
-  (-> *part-id-table* 415)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 415
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-func spt-birth-func 'birth-func-random-next-time)
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z -61440.0 122880.0 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters -15) (meters 30) 1.0)
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 0.0)
@@ -1105,34 +859,24 @@
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-userdata 199.98)
     (sp-func spt-func 'bird-bob-func)
-    (sp-end)
     )
-   )
   )
 
-(defun
-  sparticle-seagull-moon
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
-  (set!
-   (-> arg2 vector 1 z)
-   (the float (sar (shl (the int (+ -16384.0 (-> arg1 omega))) 48) 48))
-   )
+(defun sparticle-seagull-moon ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
+  (set! (-> arg2 vector 1 z) (the float (sar (shl (the int (+ -16384.0 (-> arg1 omega))) 48) 48)))
   0
   (none)
   )
 
-(set!
-  (-> *part-id-table* 416)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 416
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-func spt-birth-func 'birth-func-copy-omega-to-z)
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
-    (sp-flt spt-y (meters 0.0))
-    (sp-flt spt-z 122880.0)
-    (sp-flt spt-scale-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-z (meters 30))
+    (sp-flt spt-scale-x (meters 0))
     (sp-flt spt-rot-z (degrees 0.0))
     (sp-flt spt-r 32.0)
     (sp-flt spt-g 32.0)
@@ -1140,89 +884,61 @@
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-flt spt-vel-x (meters 0.0044444446))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-scalevel-x (meters 0.04))
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit3 bit7)
     (sp-func spt-func 'sparticle-seagull-moon)
     (sp-int spt-next-time 199)
     (sp-launcher-by-id spt-next-launcher 418)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 418)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-scale-x (meters 8.0))
+(defpart 418
+  :init-specs
+  ((sp-flt spt-scale-x (meters 8))
     (sp-flt spt-scalevel-x (meters -0.08))
     (sp-int spt-timer 600)
     (sp-int spt-next-time 100)
     (sp-launcher-by-id spt-next-launcher 419)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 419)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-scale-x (meters 0.0))
+(defpart 419
+  :init-specs
+  ((sp-flt spt-scale-x (meters 0))
     (sp-flt spt-scalevel-x (meters -0.04))
     (sp-int spt-timer 600)
     (sp-int spt-next-time 199)
     (sp-launcher-by-id spt-next-launcher 418)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 417)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 417
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-func spt-birth-func 'birth-func-copy2-rot-color)
     (sp-flt spt-num 2.0)
-    (sp-flt spt-scale-x (meters 4.0))
+    (sp-flt spt-scale-x (meters 4))
     (sp-flt spt-scale-y (meters 1.5))
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9 bit12)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 133)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-butterfly-sitting"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 420 :fade-after (meters 60.0) :flags (is-3d bit1) :period 600 :length 5)
-    (sp-item 421 :fade-after (meters 60.0) :flags (is-3d bit1) :period 600 :length 5)
+(defpartgroup group-village1-butterfly-sitting
+  :id 133
+  :bounds (static-bspherem 0 0.2 0 0.5)
+  :parts
+  ((sp-item 420 :fade-after (meters 60) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 421 :fade-after (meters 60) :flags (is-3d bit1) :period 600 :length 5)
     )
-   :bounds
-   (new 'static 'sphere :y 819.2 :w 2048.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 420)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+(defpart 420
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters 0.05))
     (sp-flt spt-scale-x (meters 0.9))
@@ -1238,28 +954,17 @@
     (sp-cpuinfo-flags bit2 bit9 bit12 left-multiply-quat)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 422)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-rotvel-x (degrees -0.31666666))
-    (sp-end)
-    )
-   )
+(defpart 422
+  :init-specs
+  ((sp-flt spt-rotvel-x (degrees -0.31666666)))
   )
 
-(set!
-  (-> *part-id-table* 421)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+(defpart 421
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters 0.05))
     (sp-flt spt-scale-x (meters 0.9))
@@ -1275,51 +980,33 @@
     (sp-cpuinfo-flags bit2 bit9 bit12 left-multiply-quat)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 423)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 423)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-rotvel-x (degrees 0.31666666))
-    (sp-end)
-    )
-   )
+(defpart 423
+  :init-specs
+  ((sp-flt spt-rotvel-x (degrees 0.31666666)))
   )
 
-(set!
-  (-> *part-group-id-table* 134)
-  (new 'static 'sparticle-launch-group
-   :length 9
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-fountain"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 9
-    (sp-item 424 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 425 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 425 :fade-after (meters 150.0) :falloff-to (meters 150.0) :period 463 :length 139)
-    (sp-item 426 :fade-after (meters 90.0) :falloff-to (meters 90.0) :period 526 :length 186)
-    (sp-item 427 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 560 :length 212)
-    (sp-item 428 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 403 :length 296)
-    (sp-item 429 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-    (sp-item 430 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-    (sp-item 431 :fade-after (meters 40.0) :falloff-to (meters 40.0))
+(defpartgroup group-village1-fountain
+  :id 134
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 424 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 425 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 425 :fade-after (meters 150) :falloff-to (meters 150) :period 463 :length 139)
+    (sp-item 426 :fade-after (meters 90) :falloff-to (meters 90) :period 526 :length 186)
+    (sp-item 427 :fade-after (meters 100) :falloff-to (meters 100) :period 560 :length 212)
+    (sp-item 428 :fade-after (meters 100) :falloff-to (meters 100) :period 403 :length 296)
+    (sp-item 429 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 430 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 431 :fade-after (meters 40) :falloff-to (meters 40))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 431)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 431
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 1.0 4.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1335,26 +1022,21 @@
     (sp-cpuinfo-flags bit2 bit12)
     (sp-rnd-flt spt-conerot-x (degrees 15.0) (degrees 75.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 430)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 430
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.9)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 96.0 32.0 1.0)
     (sp-rnd-flt spt-g 112.0 64.0 1.0)
     (sp-rnd-flt spt-b 128.0 128.0 1.0)
     (sp-flt spt-a 0.0)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.0013333333) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.0013333333) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.013333334) 1.0)
     (sp-flt spt-fade-a 1.0666667)
     (sp-flt spt-accel-y -4.096)
@@ -1366,30 +1048,19 @@
     (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 432)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.07111111)
-    (sp-end)
-    )
-   )
+(defpart 432
+  :init-specs
+  ((sp-flt spt-fade-a -0.07111111))
   )
 
-(set!
-  (-> *part-id-table* 426)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 426
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 2.0 4.0 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 96.0 32.0 1.0)
@@ -1410,19 +1081,14 @@
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 428)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 428
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 2.0 4.0 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 96.0 32.0 1.0)
@@ -1443,19 +1109,14 @@
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 427)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 427
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 2.0 4.0 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 96.0 32.0 1.0)
@@ -1476,19 +1137,14 @@
     (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 425)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 425
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 3.0 4.0 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 96.0 32.0 1.0)
@@ -1509,19 +1165,14 @@
     (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 429)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 429
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 3.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 96.0 32.0 1.0)
@@ -1542,17 +1193,12 @@
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-radius (meters 0.3) (meters 0.3) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 424)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 424
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 1.0 7.0 1.0)
     (sp-rnd-flt spt-y (meters -0.4) (meters 0.4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.15) 1.0)
@@ -1561,7 +1207,7 @@
     (sp-rnd-flt spt-g 112.0 64.0 1.0)
     (sp-rnd-flt spt-b 128.0 128.0 1.0)
     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.0013333333) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.0013333333) 1.0)
     (sp-flt spt-vel-y (meters 0.04))
     (sp-flt spt-accel-y -4.096)
     (sp-int spt-timer 390)
@@ -1569,28 +1215,17 @@
     (sp-int spt-next-time 195)
     (sp-launcher-by-id spt-next-launcher 433)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 433)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-scalevel-y (meters 0.0023076923))
-    (sp-end)
-    )
-   )
+(defpart 433
+  :init-specs
+  ((sp-flt spt-scalevel-y (meters 0.0023076923)))
   )
 
-(set!
-  (-> *part-id-table* 434)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 434
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1605,20 +1240,15 @@
     (sp-cpuinfo-flags bit2 bit12)
     (sp-rnd-flt spt-conerot-x (degrees 5.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 435)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 435
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters 0.02))
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 96.0 16.0 1.0)
     (sp-rnd-flt spt-g 112.0 16.0 1.0)
@@ -1630,64 +1260,53 @@
     (sp-int spt-timer 90)
     (sp-cpuinfo-flags bit2 bit3 bit12)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(defun
-  check-drop-level-village1-fountain-nosplash
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-village1-fountain-nosplash ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (set! (-> gp-0 x) (-> arg2 x))
-    (set! (-> gp-0 y) (-> arg1 user-float))
-    (set! (-> gp-0 z) (-> arg2 z))
-    (set! (-> gp-0 w) 1.0)
-    gp-0
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (set! (-> gp-0 x) (-> arg2 x))
+      (set! (-> gp-0 y) (-> arg1 user-float))
+      (set! (-> gp-0 z) (-> arg2 z))
+      (set! (-> gp-0 w) 1.0)
+      gp-0
+      )
     )
-   )
   )
 
-(defun
-  check-drop-level-village1-fountain
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-village1-fountain ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 434)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     (the-as float 1.0)
-     )
-    (sp-launch-particles-var
-     *sp-particle-system-3d*
-     (-> *part-id-table* 435)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     (the-as float 1.0)
-     )
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 434)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        (the-as float 1.0)
+        )
+      (sp-launch-particles-var
+        *sp-particle-system-3d*
+        (-> *part-id-table* 435)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        (the-as float 1.0)
+        )
+      )
     )
-   )
   (none)
   )
 
-(set!
-  (-> *part-group-id-table* 135)
-  (new 'static 'sparticle-launch-group
-   :length 66
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-bird-lady-birds"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 66
-    (sp-item 436 :fade-after (meters 40.0) :period 900 :length 5 :binding 437)
+(defpartgroup group-village1-bird-lady-birds
+  :id 135
+  :bounds (static-bspherem 0 0 6 18)
+  :parts
+  ((sp-item 436 :fade-after (meters 40) :period 900 :length 5 :binding 437)
     (sp-item 437 :flags (bit1 start-dead launch-asap) :binding 438)
     (sp-item 438 :flags (is-3d bit1 start-dead) :binding 439)
     (sp-item 439 :flags (is-3d bit1 start-dead) :binding 440)
@@ -1696,7 +1315,7 @@
     (sp-item 438 :flags (is-3d bit1 start-dead) :binding 439)
     (sp-item 439 :flags (is-3d bit1 start-dead) :binding 440)
     (sp-item 440 :flags (is-3d bit1 start-dead))
-    (sp-item 441 :fade-after (meters 40.0) :period 600 :length 5 :binding 442)
+    (sp-item 441 :fade-after (meters 40) :period 600 :length 5 :binding 442)
     (sp-item 442 :flags (bit1 start-dead launch-asap) :binding 443)
     (sp-item 443 :flags (is-3d bit1 start-dead) :binding 444)
     (sp-item 444 :flags (is-3d bit1 start-dead) :binding 445)
@@ -1705,7 +1324,7 @@
     (sp-item 443 :flags (is-3d bit1 start-dead) :binding 444)
     (sp-item 444 :flags (is-3d bit1 start-dead) :binding 445)
     (sp-item 445 :flags (is-3d bit1 start-dead))
-    (sp-item 446 :fade-after (meters 40.0) :period 900 :length 5 :binding 447)
+    (sp-item 446 :fade-after (meters 40) :period 900 :length 5 :binding 447)
     (sp-item 447 :flags (bit1 start-dead launch-asap) :binding 448)
     (sp-item 448 :flags (is-3d bit1 start-dead) :binding 449)
     (sp-item 449 :flags (is-3d bit1 start-dead) :binding 450)
@@ -1714,37 +1333,37 @@
     (sp-item 448 :flags (is-3d bit1 start-dead) :binding 449)
     (sp-item 449 :flags (is-3d bit1 start-dead) :binding 450)
     (sp-item 450 :flags (is-3d bit1 start-dead))
-    (sp-item 451 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-    (sp-item 452 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-    (sp-item 453 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-    (sp-item 454 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-    (sp-item 455 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-    (sp-item 456 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-    (sp-item 457 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-    (sp-item 458 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-    (sp-item 459 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-    (sp-item 460 :fade-after (meters 40.0) :period 900 :length 5 :binding 461)
+    (sp-item 451 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 452 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 453 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 454 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 455 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 456 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 457 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 458 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 459 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 460 :fade-after (meters 40) :period 900 :length 5 :binding 461)
     (sp-item 461 :flags (is-3d bit1 start-dead) :binding 462)
     (sp-item 462 :flags (is-3d bit1 start-dead) :binding 463)
     (sp-item 463 :flags (is-3d bit1 start-dead))
     (sp-item 461 :flags (is-3d bit1 start-dead) :binding 462)
     (sp-item 462 :flags (is-3d bit1 start-dead) :binding 463)
     (sp-item 463 :flags (is-3d bit1 start-dead))
-    (sp-item 464 :fade-after (meters 40.0) :period 900 :length 5 :binding 465)
+    (sp-item 464 :fade-after (meters 40) :period 900 :length 5 :binding 465)
     (sp-item 465 :flags (is-3d bit1 start-dead) :binding 466)
     (sp-item 466 :flags (is-3d bit1 start-dead) :binding 467)
     (sp-item 467 :flags (is-3d bit1 start-dead))
     (sp-item 465 :flags (is-3d bit1 start-dead) :binding 466)
     (sp-item 466 :flags (is-3d bit1 start-dead) :binding 467)
     (sp-item 467 :flags (is-3d bit1 start-dead))
-    (sp-item 468 :fade-after (meters 40.0) :period 900 :length 5 :binding 469)
+    (sp-item 468 :fade-after (meters 40) :period 900 :length 5 :binding 469)
     (sp-item 469 :flags (is-3d bit1 start-dead) :binding 470)
     (sp-item 470 :flags (is-3d bit1 start-dead) :binding 471)
     (sp-item 471 :flags (is-3d bit1 start-dead))
     (sp-item 469 :flags (is-3d bit1 start-dead) :binding 470)
     (sp-item 470 :flags (is-3d bit1 start-dead) :binding 471)
     (sp-item 471 :flags (is-3d bit1 start-dead))
-    (sp-item 472 :fade-after (meters 40.0) :period 900 :length 5 :binding 473)
+    (sp-item 472 :fade-after (meters 40) :period 900 :length 5 :binding 473)
     (sp-item 473 :flags (bit1 start-dead launch-asap) :binding 474)
     (sp-item 474 :flags (is-3d bit1 start-dead) :binding 475)
     (sp-item 475 :flags (is-3d bit1 start-dead) :binding 476)
@@ -1754,63 +1373,47 @@
     (sp-item 475 :flags (is-3d bit1 start-dead) :binding 476)
     (sp-item 476 :flags (is-3d bit1 start-dead))
     )
-   :bounds
-   (new 'static 'sphere :z 24576.0 :w 73728.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 472)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 472
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters 0.8))
     (sp-flt spt-y (meters 0.8))
-    (sp-flt spt-z 62668.8)
+    (sp-flt spt-z (meters 15.3))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 473)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 473
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 2.0))
+    (sp-flt spt-x (meters 2))
     (sp-flt spt-y (meters 1.0666667))
-    (sp-flt spt-z 1024.0)
+    (sp-flt spt-z (meters 0.25))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-flt spt-a 128.0)
     (sp-flt spt-omega 0.0)
     (sp-flt spt-vel-x (meters 0.017777778))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit3 bit7)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 474)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 474
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
@@ -1822,19 +1425,14 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 475)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 475
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 30.0))
     (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
@@ -1845,19 +1443,14 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 476)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 476
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 30.0))
     (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
@@ -1868,21 +1461,16 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 464)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 464
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters 5.9))
     (sp-flt spt-y (meters 2.4))
-    (sp-flt spt-z -20480.0)
+    (sp-flt spt-z (meters -5))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1893,17 +1481,12 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 450)
     (sp-launcher-by-id spt-next-launcher 477)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 465)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 465
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
@@ -1914,19 +1497,14 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 466)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 466
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
@@ -1937,19 +1515,14 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 467)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 467
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
@@ -1960,21 +1533,16 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 468)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 468
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -8.0))
+    (sp-flt spt-x (meters -8))
     (sp-flt spt-y (meters 3.7))
-    (sp-flt spt-z 9011.2)
+    (sp-flt spt-z (meters 2.2))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1985,17 +1553,12 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 450)
     (sp-launcher-by-id spt-next-launcher 477)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 469)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 469
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
@@ -2006,19 +1569,14 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 470)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 470
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
@@ -2029,19 +1587,14 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 471)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 471
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
@@ -2052,21 +1605,16 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 460)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 460
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 1.0))
+    (sp-flt spt-x (meters 1))
     (sp-flt spt-y (meters 0.4))
-    (sp-flt spt-z 61440.0)
+    (sp-flt spt-z (meters 15))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2077,28 +1625,17 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-int spt-next-time 450)
     (sp-launcher-by-id spt-next-launcher 477)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 477)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-accel-y 0.53248)
-    (sp-end)
-    )
-   )
+(defpart 477
+  :init-specs
+  ((sp-flt spt-accel-y 0.53248))
   )
 
-(set!
-  (-> *part-id-table* 461)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 461
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
@@ -2109,19 +1646,14 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 462)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 462
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
@@ -2132,19 +1664,14 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 463)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 463
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
@@ -2155,21 +1682,16 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 457)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 457
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -6.0))
+    (sp-flt spt-x (meters -6))
     (sp-flt spt-y (meters 1.9))
-    (sp-flt spt-z 12902.4)
+    (sp-flt spt-z (meters 3.15))
     (sp-flt spt-scale-x (meters 0.6))
     (sp-flt spt-rot-x 16384.0)
     (sp-flt spt-rot-y (degrees 270.0))
@@ -2181,26 +1703,21 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 458)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+(defpart 458
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -6.0))
+    (sp-flt spt-x (meters -6))
     (sp-flt spt-y (meters 1.9))
-    (sp-flt spt-z 12902.4)
+    (sp-flt spt-z (meters 3.15))
     (sp-flt spt-scale-x (meters 0.4))
     (sp-flt spt-rot-x -10922.667)
     (sp-flt spt-rot-y (degrees 150.0))
     (sp-flt spt-rot-z (degrees -60.0))
-    (sp-flt spt-scale-y (meters 1.0))
+    (sp-flt spt-scale-y (meters 1))
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-b 128.0)
@@ -2210,26 +1727,21 @@
     (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 459)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+(defpart 459
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -6.0))
+    (sp-flt spt-x (meters -6))
     (sp-flt spt-y (meters 1.9))
-    (sp-flt spt-z 12902.4)
+    (sp-flt spt-z (meters 3.15))
     (sp-flt spt-scale-x (meters 0.4))
     (sp-flt spt-rot-x 43690.668)
     (sp-flt spt-rot-y (degrees 30.0))
     (sp-flt spt-rot-z (degrees 60.0))
-    (sp-flt spt-scale-y (meters 1.0))
+    (sp-flt spt-scale-y (meters 1))
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-b 128.0)
@@ -2239,21 +1751,16 @@
     (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 423)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 454)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 454
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -5.5))
     (sp-flt spt-y (meters 4.5))
-    (sp-flt spt-z -10240.0)
+    (sp-flt spt-z (meters -2.5))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
     (sp-flt spt-rot-y (degrees 210.0))
@@ -2265,26 +1772,21 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 455)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+(defpart 455
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -5.5))
     (sp-flt spt-y (meters 4.5))
-    (sp-flt spt-z -10240.0)
+    (sp-flt spt-z (meters -2.5))
     (sp-flt spt-scale-x (meters 0.3))
     (sp-flt spt-rot-x -10922.667)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-flt spt-rot-z (degrees -60.0))
-    (sp-flt spt-scale-y (meters 1.0))
+    (sp-flt spt-scale-y (meters 1))
     (sp-flt spt-r 196.0)
     (sp-flt spt-g 196.0)
     (sp-flt spt-b 196.0)
@@ -2294,26 +1796,21 @@
     (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 456)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+(defpart 456
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -5.5))
     (sp-flt spt-y (meters 4.5))
-    (sp-flt spt-z -10240.0)
+    (sp-flt spt-z (meters -2.5))
     (sp-flt spt-scale-x (meters 0.3))
     (sp-flt spt-rot-x 43690.668)
     (sp-flt spt-rot-y (degrees -30.0))
     (sp-flt spt-rot-z (degrees 60.0))
-    (sp-flt spt-scale-y (meters 1.0))
+    (sp-flt spt-scale-y (meters 1))
     (sp-flt spt-r 196.0)
     (sp-flt spt-g 196.0)
     (sp-flt spt-b 196.0)
@@ -2323,21 +1820,16 @@
     (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 423)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 451)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 451
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 2.0))
-    (sp-flt spt-y (meters 5.0))
-    (sp-flt spt-z -16384.0)
+    (sp-flt spt-x (meters 2))
+    (sp-flt spt-y (meters 5))
+    (sp-flt spt-z (meters -4))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
     (sp-flt spt-rot-y (degrees 180.0))
@@ -2349,26 +1841,21 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 452)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+(defpart 452
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 2.0))
-    (sp-flt spt-y (meters 5.0))
-    (sp-flt spt-z -16384.0)
+    (sp-flt spt-x (meters 2))
+    (sp-flt spt-y (meters 5))
+    (sp-flt spt-z (meters -4))
     (sp-flt spt-scale-x (meters 0.3))
     (sp-flt spt-rot-x -10922.667)
     (sp-flt spt-rot-y (degrees 60.0))
     (sp-flt spt-rot-z (degrees -60.0))
-    (sp-flt spt-scale-y (meters 1.0))
+    (sp-flt spt-scale-y (meters 1))
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-b 255.0)
@@ -2378,37 +1865,26 @@
     (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 422)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 478)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-rotvel-x (degrees -0.31666666))
-    (sp-end)
-    )
-   )
+(defpart 478
+  :init-specs
+  ((sp-flt spt-rotvel-x (degrees -0.31666666)))
   )
 
-(set!
-  (-> *part-id-table* 453)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+(defpart 453
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 2.0))
-    (sp-flt spt-y (meters 5.0))
-    (sp-flt spt-z -16384.0)
+    (sp-flt spt-x (meters 2))
+    (sp-flt spt-y (meters 5))
+    (sp-flt spt-z (meters -4))
     (sp-flt spt-scale-x (meters 0.3))
     (sp-flt spt-rot-x 43690.668)
     (sp-flt spt-rot-y (degrees -60.0))
     (sp-flt spt-rot-z (degrees 60.0))
-    (sp-flt spt-scale-y (meters 1.0))
+    (sp-flt spt-scale-y (meters 1))
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-b 255.0)
@@ -2418,74 +1894,53 @@
     (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 423)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 479)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-rotvel-x (degrees 0.31666666))
-    (sp-end)
-    )
-   )
+(defpart 479
+  :init-specs
+  ((sp-flt spt-rotvel-x (degrees 0.31666666)))
   )
 
-(set!
-  (-> *part-id-table* 446)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 446
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -6.4))
     (sp-flt spt-y (meters 4.8))
-    (sp-flt spt-z 3072.0)
+    (sp-flt spt-z (meters 0.75))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 447)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 447
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.7111111))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 2048.0)
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 0.5))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-flt spt-a 128.0)
     (sp-flt spt-omega 0.0)
     (sp-flt spt-vel-x (meters 0.017777778))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit3 bit7)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 448)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 448
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
@@ -2497,19 +1952,14 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 449)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 449
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 30.0))
     (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
@@ -2520,19 +1970,14 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 450)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 450
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 30.0))
     (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
@@ -2543,63 +1988,48 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 441)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 441
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.1))
     (sp-flt spt-y (meters 3.7))
-    (sp-flt spt-z -7372.8)
+    (sp-flt spt-z (meters -1.8))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 442)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 442
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
     (sp-flt spt-y (meters -1.8666667))
-    (sp-flt spt-z 2048.0)
+    (sp-flt spt-z (meters 0.5))
     (sp-flt spt-scale-x (meters 0.175))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-flt spt-a 128.0)
     (sp-flt spt-omega 20571.021)
     (sp-flt spt-vel-x (meters 0.026666667))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 443)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 443
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
@@ -2611,19 +2041,14 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 444)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 444
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees -90.0))
     (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
@@ -2634,19 +2059,14 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 445)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 445
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees -90.0))
     (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
@@ -2657,63 +2077,48 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 436)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 436
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -2.3))
     (sp-flt spt-y (meters 4.6))
-    (sp-flt spt-z -7782.4)
+    (sp-flt spt-z (meters -1.9))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 437)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 437
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
     (sp-flt spt-y (meters 1.4222223))
-    (sp-flt spt-z 2048.0)
+    (sp-flt spt-z (meters 0.5))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-flt spt-a 128.0)
     (sp-flt spt-omega 4551.1113)
     (sp-flt spt-vel-x (meters 0.017777778))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit3 bit7)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 438)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+(defpart 438
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.5))
     (sp-flt spt-rot-x 16384.0)
@@ -2724,19 +2129,14 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 439)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 439
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
@@ -2747,19 +2147,14 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 440)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+(defpart 440
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-flt spt-rot-x 24576.0)
     (sp-flt spt-rot-y (degrees 90.0))
     (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
@@ -2770,9 +2165,7 @@
     (sp-rnd-int spt-a 1115684864 1 64.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/village1/village1-part2.gc b/goal_src/levels/village1/village1-part2.gc
index c0b776c321..62d41f2b83 100644
--- a/goal_src/levels/village1/village1-part2.gc
+++ b/goal_src/levels/village1/village1-part2.gc
@@ -7,1173 +7,1141 @@
 
 ;; DECOMP BEGINS
 
-(set!
-  (-> *part-group-id-table* 136)
-  (new 'static 'sparticle-launch-group
-   :length #x16d
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-sagehut-rings"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 365
-    (sp-item 480 :fade-after (meters 60.0) :flags (is-3d))
-    (sp-item 481 :fade-after (meters 60.0) :flags (is-3d))
-    (sp-item 482 :fade-after (meters 50.0) :binding 483)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 484 :fade-after (meters 50.0) :binding 485)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 486 :fade-after (meters 50.0) :binding 487)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
+(defpartgroup group-village1-sagehut-rings
+  :id 136
+  :bounds (static-bspherem 7 4 -4.5 12)
+  :parts
+  ((sp-item 480 :fade-after (meters 60) :flags (is-3d))
+    (sp-item 481 :fade-after (meters 60) :flags (is-3d))
+    (sp-item 482 :fade-after (meters 50) :binding 483)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 484 :fade-after (meters 50) :binding 485)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 486 :fade-after (meters 50) :binding 487)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
     )
-   :bounds
-   (new 'static 'sphere :x 28672.0 :y 16384.0 :z -18432.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 137)
-  (new 'static 'sparticle-launch-group
-   :length #x16b
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-sagehut-rings-2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 363
-    (sp-item 488 :fade-after (meters 50.0) :binding 489)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 490 :fade-after (meters 50.0) :binding 491)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 492 :fade-after (meters 50.0) :binding 493)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
+(defpartgroup group-village1-sagehut-rings-2
+  :id 137
+  :bounds (static-bspherem 7 4 -4.5 12)
+  :parts
+  ((sp-item 488 :fade-after (meters 50) :binding 489)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 490 :fade-after (meters 50) :binding 491)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 492 :fade-after (meters 50) :binding 493)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
     )
-   :bounds
-   (new 'static 'sphere :x 28672.0 :y 16384.0 :z -18432.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 138)
-  (new 'static 'sparticle-launch-group
-   :length #x16b
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-sagehut-rings-3"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 363
-    (sp-item 494 :fade-after (meters 50.0) :binding 495)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 496 :fade-after (meters 50.0) :binding 497)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 498 :fade-after (meters 50.0) :binding 499)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-    (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
+(defpartgroup group-village1-sagehut-rings-3
+  :id 138
+  :bounds (static-bspherem 7 4 -4.5 12)
+  :parts
+  ((sp-item 494 :fade-after (meters 50) :binding 495)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 496 :fade-after (meters 50) :binding 497)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 498 :fade-after (meters 50) :binding 499)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
     )
-   :bounds
-   (new 'static 'sphere :x 28672.0 :y 16384.0 :z -18432.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 482)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 482
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.25 0.1 1.0)
     (sp-flt spt-x (meters -0.049))
     (sp-flt spt-y (meters 2.368))
-    (sp-flt spt-z 9887.744)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-z (meters 2.414))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 0.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 483)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 483
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters 1.3333334))
     (sp-flt spt-y (meters 0.44444445))
-    (sp-flt spt-z 5324.8)
+    (sp-flt spt-z (meters 1.3))
     (sp-flt spt-scale-x (meters 1.56))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1182,26 +1150,21 @@
     (sp-rnd-flt spt-a 6.0 16.0 1.0)
     (sp-flt spt-omega -2730.6667)
     (sp-flt spt-vel-x (meters 0.013333334))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 480)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 480
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.5 1.0)
     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
     (sp-flt spt-y (meters -0.55))
-    (sp-flt spt-z 327.68)
+    (sp-flt spt-z (meters 0.08))
     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.25) 1.0)
     (sp-flt spt-rot-x 14654.578)
     (sp-flt spt-rot-y (degrees 15.5))
@@ -1219,20 +1182,15 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
     (sp-flt spt-rotate-y (degrees 15.5))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 481)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 481
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-z -1064.96)
-    (sp-flt spt-scale-x (meters 6.0))
+    (sp-flt spt-z (meters -0.26))
+    (sp-flt spt-scale-x (meters 6))
     (sp-flt spt-rot-x 14654.578)
     (sp-flt spt-rot-y (degrees 15.5))
     (sp-copy-from-other spt-scale-y -4)
@@ -1242,42 +1200,32 @@
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 18.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 484)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 484
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.25 0.1 1.0)
     (sp-flt spt-x (meters -0.094))
     (sp-flt spt-y (meters 3.068))
-    (sp-flt spt-z 9887.744)
+    (sp-flt spt-z (meters 2.414))
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 0.0)
     (sp-flt spt-a 0.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 485)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 485
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.5)
     (sp-flt spt-x (meters -1.3333334))
     (sp-flt spt-y (meters 0.6666667))
-    (sp-flt spt-z 5324.8)
+    (sp-flt spt-z (meters 1.3))
     (sp-flt spt-scale-x (meters 1.56))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1286,47 +1234,37 @@
     (sp-rnd-flt spt-a 6.0 16.0 1.0)
     (sp-flt spt-omega 1820.4445)
     (sp-flt spt-vel-x (meters -0.013333334))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 486)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 486
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.25 0.1 1.0)
     (sp-flt spt-x (meters -0.425))
     (sp-flt spt-y (meters 3.792))
-    (sp-flt spt-z 9793.536)
+    (sp-flt spt-z (meters 2.391))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 0.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 487)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 487
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.8888889))
     (sp-flt spt-y (meters 1.3333334))
-    (sp-flt spt-z 4505.6)
+    (sp-flt spt-z (meters 1.1))
     (sp-flt spt-scale-x (meters 1.56))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1335,47 +1273,37 @@
     (sp-rnd-flt spt-a 6.0 16.0 1.0)
     (sp-flt spt-omega 0.0)
     (sp-flt spt-vel-x (meters 0.013333334))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 488)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 488
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.25 0.1 1.0)
     (sp-flt spt-x (meters 2.893))
     (sp-flt spt-y (meters 3.56))
-    (sp-flt spt-z 12525.568)
+    (sp-flt spt-z (meters 3.058))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 0.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 489)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 489
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters 2.6666667))
     (sp-flt spt-y (meters -1.3333334))
-    (sp-flt spt-z 3072.0)
+    (sp-flt spt-z (meters 0.75))
     (sp-flt spt-scale-x (meters 1.56))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1384,47 +1312,37 @@
     (sp-rnd-flt spt-a 6.0 12.0 1.0)
     (sp-flt spt-omega 0.0)
     (sp-flt spt-vel-x (meters 0.013333334))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 490)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 490
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.25 0.1 1.0)
     (sp-flt spt-x (meters 2.482))
     (sp-flt spt-y (meters 4.296))
-    (sp-flt spt-z 12525.568)
+    (sp-flt spt-z (meters 3.058))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 0.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 491)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 491
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters 2.6666667))
     (sp-flt spt-y (meters -0.44444445))
-    (sp-flt spt-z 4096.0)
+    (sp-flt spt-z (meters 1))
     (sp-flt spt-scale-x (meters 1.56))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1433,47 +1351,37 @@
     (sp-rnd-flt spt-a 6.0 12.0 1.0)
     (sp-flt spt-omega 0.0)
     (sp-flt spt-vel-x (meters -0.013333334))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 492)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 492
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.25 0.1 1.0)
     (sp-flt spt-x (meters 2.538))
     (sp-flt spt-y (meters 4.979))
-    (sp-flt spt-z 12525.568)
+    (sp-flt spt-z (meters 3.058))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 0.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 493)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 493
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
+    (sp-flt spt-x (meters 0))
     (sp-flt spt-y (meters 0.22222222))
-    (sp-flt spt-z 3686.4)
+    (sp-flt spt-z (meters 0.9))
     (sp-flt spt-scale-x (meters 1.56))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1482,47 +1390,37 @@
     (sp-rnd-flt spt-a 6.0 12.0 1.0)
     (sp-flt spt-omega 0.0)
     (sp-flt spt-vel-x (meters 0.013333334))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 494)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 494
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.25 0.1 1.0)
     (sp-flt spt-x (meters 11.611))
     (sp-flt spt-y (meters 2.762))
-    (sp-flt spt-z -37777.406)
+    (sp-flt spt-z (meters -9.223))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 0.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 495)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 495
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.6666667))
     (sp-flt spt-y (meters -1.1111112))
-    (sp-flt spt-z 8192.0)
+    (sp-flt spt-z (meters 2))
     (sp-flt spt-scale-x (meters 2.75))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1531,47 +1429,37 @@
     (sp-rnd-flt spt-a 12.0 24.0 1.0)
     (sp-flt spt-omega 0.0)
     (sp-flt spt-vel-x (meters -0.013333334))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 496)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 496
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.25 0.1 1.0)
     (sp-flt spt-x (meters 11.543))
     (sp-flt spt-y (meters 2.356))
-    (sp-flt spt-z -50311.168)
+    (sp-flt spt-z (meters -12.283))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 0.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 497)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 497
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters 4.888889))
     (sp-flt spt-y (meters 0.9777778))
-    (sp-flt spt-z 7577.6)
+    (sp-flt spt-z (meters 1.85))
     (sp-flt spt-scale-x (meters 2.5))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1580,47 +1468,37 @@
     (sp-rnd-flt spt-a 12.0 24.0 1.0)
     (sp-flt spt-omega 0.0)
     (sp-flt spt-vel-x (meters 0.013333334))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 498)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 498
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.25 0.1 1.0)
     (sp-flt spt-x (meters 11.588))
     (sp-flt spt-y (meters 6.887))
-    (sp-flt spt-z -44371.97)
+    (sp-flt spt-z (meters -10.833))
     (sp-flt spt-scale-x (meters 0.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-b 128.0)
     (sp-flt spt-a 0.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 499)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 499
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.35555556))
     (sp-flt spt-y (meters -1.3333334))
-    (sp-flt spt-z 7168.0)
+    (sp-flt spt-z (meters 1.75))
     (sp-flt spt-scale-x (meters 2.25))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1629,64 +1507,47 @@
     (sp-rnd-flt spt-a 10.0 20.0 1.0)
     (sp-flt spt-omega 0.0)
     (sp-flt spt-vel-x (meters 0.013333334))
-    (sp-flt spt-vel-y (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-int spt-timer 1200)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 139)
-  (new 'static 'sparticle-launch-group
-   :length 14
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-sagehut-drips"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 14
-    (sp-item 500 :fade-after (meters 40.0) :period 673 :length 5)
-    (sp-item 500 :fade-after (meters 50.0) :period 1036 :length 5)
-    (sp-item 500 :fade-after (meters 60.0) :period 1572 :length 5)
-    (sp-item 500 :fade-after (meters 40.0) :period 2158 :length 5)
-    (sp-item 500 :fade-after (meters 50.0) :period 2933 :length 5)
-    (sp-item 500 :fade-after (meters 60.0) :period 4829 :length 5)
-    (sp-item 500 :fade-after (meters 40.0) :period 6350 :length 5)
-    (sp-item 501 :fade-after (meters 40.0) :period 859 :length 5)
-    (sp-item 501 :fade-after (meters 50.0) :period 1009 :length 5)
-    (sp-item 501 :fade-after (meters 60.0) :period 1372 :length 5)
-    (sp-item 501 :fade-after (meters 40.0) :period 2107 :length 5)
-    (sp-item 501 :fade-after (meters 50.0) :period 2690 :length 5)
-    (sp-item 501 :fade-after (meters 60.0) :period 4129 :length 5)
-    (sp-item 501 :fade-after (meters 40.0) :period 7249 :length 5)
+(defpartgroup group-village1-sagehut-drips
+  :id 139
+  :bounds (static-bspherem 7 4 -4.5 12)
+  :parts
+  ((sp-item 500 :fade-after (meters 40) :period 673 :length 5)
+    (sp-item 500 :fade-after (meters 50) :period 1036 :length 5)
+    (sp-item 500 :fade-after (meters 60) :period 1572 :length 5)
+    (sp-item 500 :fade-after (meters 40) :period 2158 :length 5)
+    (sp-item 500 :fade-after (meters 50) :period 2933 :length 5)
+    (sp-item 500 :fade-after (meters 60) :period 4829 :length 5)
+    (sp-item 500 :fade-after (meters 40) :period 6350 :length 5)
+    (sp-item 501 :fade-after (meters 40) :period 859 :length 5)
+    (sp-item 501 :fade-after (meters 50) :period 1009 :length 5)
+    (sp-item 501 :fade-after (meters 60) :period 1372 :length 5)
+    (sp-item 501 :fade-after (meters 40) :period 2107 :length 5)
+    (sp-item 501 :fade-after (meters 50) :period 2690 :length 5)
+    (sp-item 501 :fade-after (meters 60) :period 4129 :length 5)
+    (sp-item 501 :fade-after (meters 40) :period 7249 :length 5)
     )
-   :bounds
-   (new 'static 'sphere :x 28672.0 :y 16384.0 :z -18432.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 502)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 502
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-rnd-flt spt-num 2.0 6.0 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 1.0
-      :group #x1
-      :sound-name (static-sound-name "drip-on-wood")
-      :volume #x200
-      )
-     )
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 1.0
+                :group #x1
+                :sound-name (static-sound-name "drip-on-wood")
+                :volume #x200
+                )
+              )
     (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-g 96.0 128.0 1.0)
@@ -1699,20 +1560,15 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-conerot-x (degrees 5.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 503)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 503
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters 0.02))
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-g 96.0 128.0 1.0)
     (sp-rnd-flt spt-b 0.0 64.0 1.0)
@@ -1723,21 +1579,16 @@
     (sp-int spt-timer 90)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 500)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 500
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.9))
     (sp-flt spt-y (meters 8.825))
-    (sp-flt spt-z -10240.0)
+    (sp-flt spt-z (meters -2.5))
     (sp-flt spt-scale-x (meters 0.18))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-g 96.0 128.0 1.0)
@@ -1754,34 +1605,21 @@
     (sp-func spt-func 'check-drop-level-sagehut)
     (sp-int-plain-rnd spt-next-time 600 299 1)
     (sp-launcher-by-id spt-next-launcher 504)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 504)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-scalevel-y (meters 0.00033333333))
-    (sp-flt spt-accel-x 0.13653333)
-    (sp-flt spt-accel-y -2.048)
-    (sp-end)
-    )
-   )
+(defpart 504
+  :init-specs
+  ((sp-flt spt-scalevel-y (meters 0.00033333333)) (sp-flt spt-accel-x 0.13653333) (sp-flt spt-accel-y -2.048))
   )
 
-(set!
-  (-> *part-id-table* 501)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+(defpart 501
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -3.25))
     (sp-flt spt-y (meters 5.55))
-    (sp-flt spt-z 12288.0)
+    (sp-flt spt-z (meters 3))
     (sp-flt spt-scale-x (meters 0.18))
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-g 96.0 128.0 1.0)
@@ -1796,76 +1634,53 @@
     (sp-func spt-func 'check-drop-level-sagehut)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 505)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 505)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-accel-y -3.1402667)
-    (sp-end)
-    )
-   )
+(defpart 505
+  :init-specs
+  ((sp-flt spt-accel-y -3.1402667))
   )
 
-(defun
-  check-drop-level-sagehut
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-sagehut ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-2 (the-as number (logior #x3f800000 v1-1)))
-           )
-     (if (< (+ -1.0 (the-as float v1-2)) 0.25)
-      (sound-play-by-name
-       (static-sound-name "water-drop")
-       (new-sound-id)
-       1024
-       0
-       0
-       1
-       #t
-       )
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-2 (the-as number (logior #x3f800000 v1-1)))
+             )
+        (if (< (+ -1.0 (the-as float v1-2)) 0.25)
+            (sound-play-by-name (static-sound-name "water-drop") (new-sound-id) 1024 0 0 1 #t)
+            )
+        )
+      (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 502)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        (the-as float 1.0)
+        )
+      (sp-launch-particles-var
+        *sp-particle-system-3d*
+        (-> *part-id-table* 503)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        (the-as float 1.0)
+        )
       )
-     )
-    (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 502)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     (the-as float 1.0)
-     )
-    (sp-launch-particles-var
-     *sp-particle-system-3d*
-     (-> *part-id-table* 503)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     (the-as float 1.0)
-     )
     )
-   )
   (none)
   )
 
-(set!
-  (-> *part-group-id-table* 140)
-  (new 'static 'sparticle-launch-group
-   :length #xac
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-sagehut-warpgate"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 172
-    (sp-item 1970 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1971 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1968)
+(defpartgroup group-village1-sagehut-warpgate
+  :id 140
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1970 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1971 :fade-after (meters 60) :falloff-to (meters 100) :binding 1968)
     (sp-item 1968 :flags (bit1 start-dead launch-asap))
     (sp-item 1968 :flags (bit1 start-dead launch-asap))
     (sp-item 1968 :flags (bit1 start-dead launch-asap))
@@ -2002,7 +1817,7 @@
     (sp-item 1968 :flags (bit1 start-dead launch-asap))
     (sp-item 1968 :flags (bit1 start-dead launch-asap))
     (sp-item 1968 :flags (bit1 start-dead launch-asap))
-    (sp-item 1972 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1969)
+    (sp-item 1972 :fade-after (meters 60) :falloff-to (meters 100) :binding 1969)
     (sp-item 1969 :flags (bit1 start-dead launch-asap))
     (sp-item 1969 :flags (bit1 start-dead launch-asap))
     (sp-item 1969 :flags (bit1 start-dead launch-asap))
@@ -2035,21 +1850,16 @@
     (sp-item 1969 :flags (bit1 start-dead launch-asap))
     (sp-item 1969 :flags (bit1 start-dead launch-asap))
     (sp-item 1969 :flags (bit1 start-dead launch-asap))
-    (sp-item 1973 :fade-after (meters 100.0) :flags (is-3d))
+    (sp-item 1973 :fade-after (meters 100) :flags (is-3d))
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1973)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+(defpart 1973
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-flt spt-x (meters 0.0))
-    (sp-flt spt-scale-x (meters 5.0))
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-scale-x (meters 5))
     (sp-flt spt-rot-x 16384.0)
     (sp-flt spt-rot-z (degrees 105.0))
     (sp-copy-from-other spt-scale-y -4)
@@ -2059,19 +1869,14 @@
     (sp-rnd-flt spt-a 0.0 64.0 1.0)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1972)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1972
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.25)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-g 128.0)
@@ -2080,21 +1885,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-flt spt-rotate-y (degrees -35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1969)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1969
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters 2.4444444))
-    (sp-flt spt-y (meters 4.0))
-    (sp-rnd-flt spt-z 22118.4 4096.0 1.0)
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-z (meters 5.4) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 0.0 32.0 1.0)
@@ -2102,24 +1902,19 @@
     (sp-rnd-flt spt-b 64.0 196.0 1.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-    (sp-flt spt-vel-x (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-x (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 0.16)
     (sp-flt spt-accel-x 1.2136296)
     (sp-flt spt-accel-z -0.75093335)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1970)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-rnd-flt spt-num 3.0 3.0 1.0)
+(defpart 1970
+  :init-specs
+  ((sp-rnd-flt spt-num 3.0 3.0 1.0)
     (sp-flt spt-x (meters -0.5))
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
@@ -2130,19 +1925,14 @@
     (sp-int spt-timer 69)
     (sp-cpuinfo-flags aux-list)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 4) (meters 3) 1.0)
     (sp-flt spt-rotate-y (degrees -35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1971)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 11
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1971
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
@@ -2152,21 +1942,16 @@
     (sp-int spt-timer 690)
     (sp-cpuinfo-flags bit3 bit14)
     (sp-flt spt-rotate-y (degrees -35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1968)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1968
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters 2.4444444))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 9830.4)
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 2.4))
     (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2182,36 +1967,24 @@
     (sp-flt spt-accel-x 4.247704)
     (sp-int spt-timer 690)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 141)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-village1-misty-fog"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1 (sp-item 511))
-   :bounds
-   (new 'static 'sphere :y 40960.0 :w 1064960.0)
-   )
+(defpartgroup group-village1-misty-fog
+  :id 141
+  :flags (always-draw)
+  :bounds (static-bspherem 0 10 0 260)
+  :parts
+  ((sp-item 511))
   )
 
-(set!
-  (-> *part-id-table* 511)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 511
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-flt spt-num 0.04)
-    (sp-flt spt-y (meters 45.0))
-    (sp-rnd-flt spt-scale-x (meters 300.0) (meters 100.0) 1.0)
-    (sp-flt spt-scale-y (meters 100.0))
+    (sp-flt spt-y (meters 45))
+    (sp-rnd-flt spt-scale-x (meters 300) (meters 100) 1.0)
+    (sp-flt spt-scale-y (meters 100))
     (sp-flt spt-r 128.0)
     (sp-flt spt-g 128.0)
     (sp-flt spt-b 128.0)
@@ -2225,71 +1998,44 @@
     (sp-launcher-by-id spt-next-launcher 512)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 200.00002) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 250.0) (meters 50.0) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 250) (meters 50) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 512)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int-plain-rnd spt-next-time 450 149 1)
-    (sp-launcher-by-id spt-next-launcher 513)
-    (sp-end)
-    )
-   )
+(defpart 512
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int-plain-rnd spt-next-time 450 149 1) (sp-launcher-by-id spt-next-launcher 513))
   )
 
-(set!
-  (-> *part-id-table* 513)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.10666667)
-    (sp-end)
-    )
-   )
+(defpart 513
+  :init-specs
+  ((sp-flt spt-fade-a -0.10666667))
   )
 
-(set!
-  (-> *part-group-id-table* 684)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-village1-training-spouts"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 2844 :period 4500 :length 1200)
+(defpartgroup group-village1-training-spouts
+  :id 684
+  :flags (always-draw)
+  :bounds (static-bspherem 0 10 0 12)
+  :parts
+  ((sp-item 2844 :period 4500 :length 1200)
     (sp-item 2845 :period 4500 :length 1200 :offset 4050)
     (sp-item 2846 :period 4500 :length 1200 :offset 1500)
     (sp-item 2847 :period 4500 :length 1200 :offset 1050)
     (sp-item 2848 :period 4500 :length 1200 :offset 3000)
     (sp-item 2849 :period 4500 :length 1200 :offset 2550)
     )
-   :bounds
-   (new 'static 'sphere :y 40960.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2848)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 2848
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-flt spt-x (meters 60.0))
-    (sp-flt spt-y (meters -8.0))
-    (sp-flt spt-z -634880.0)
-    (sp-flt spt-scale-x (meters 8.0))
+    (sp-flt spt-x (meters 60))
+    (sp-flt spt-y (meters -8))
+    (sp-flt spt-z (meters -155))
+    (sp-flt spt-scale-x (meters 8))
     (sp-flt spt-rot-z (degrees 180.0))
-    (sp-flt spt-scale-y (meters 64.0))
+    (sp-flt spt-scale-y (meters 64))
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
     (sp-rnd-flt spt-g 200.0 55.0 1.0)
     (sp-rnd-flt spt-b 200.0 55.0 1.0)
@@ -2304,22 +2050,17 @@
     (sp-launcher-by-id spt-next-launcher 2850)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2849)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 2849
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-flt spt-num 0.25)
-    (sp-flt spt-x (meters 60.0))
-    (sp-rnd-flt spt-y (meters 95.0) (meters 20.0) 1.0)
-    (sp-flt spt-z -634880.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-flt spt-x (meters 60))
+    (sp-rnd-flt spt-y (meters 95) (meters 20) 1.0)
+    (sp-flt spt-z (meters -155))
+    (sp-flt spt-scale-x (meters 12))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
@@ -2340,24 +2081,19 @@
     (sp-launcher-by-id spt-next-launcher 2851)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2846)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 2846
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-flt spt-x (meters 0.0))
-    (sp-flt spt-y (meters -8.0))
-    (sp-flt spt-z 0.0)
-    (sp-flt spt-scale-x (meters 8.0))
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters -8))
+    (sp-flt spt-z (meters 0))
+    (sp-flt spt-scale-x (meters 8))
     (sp-flt spt-rot-z (degrees 180.0))
-    (sp-flt spt-scale-y (meters 64.0))
+    (sp-flt spt-scale-y (meters 64))
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
     (sp-rnd-flt spt-g 200.0 55.0 1.0)
     (sp-rnd-flt spt-b 200.0 55.0 1.0)
@@ -2372,22 +2108,17 @@
     (sp-launcher-by-id spt-next-launcher 2850)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2847)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 2847
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-flt spt-num 0.25)
-    (sp-flt spt-x (meters 0.0))
-    (sp-rnd-flt spt-y (meters 95.0) (meters 20.0) 1.0)
-    (sp-flt spt-z 0.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-flt spt-x (meters 0))
+    (sp-rnd-flt spt-y (meters 95) (meters 20) 1.0)
+    (sp-flt spt-z (meters 0))
+    (sp-flt spt-scale-x (meters 12))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
@@ -2408,24 +2139,19 @@
     (sp-launcher-by-id spt-next-launcher 2851)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2844)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 2844
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.06)
-    (sp-flt spt-x (meters -100.0))
-    (sp-flt spt-y (meters -8.0))
-    (sp-flt spt-z 0.0)
-    (sp-flt spt-scale-x (meters 8.0))
+    (sp-flt spt-x (meters -100))
+    (sp-flt spt-y (meters -8))
+    (sp-flt spt-z (meters 0))
+    (sp-flt spt-scale-x (meters 8))
     (sp-flt spt-rot-z (degrees 180.0))
-    (sp-flt spt-scale-y (meters 64.0))
+    (sp-flt spt-scale-y (meters 64))
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
     (sp-rnd-flt spt-g 200.0 55.0 1.0)
     (sp-rnd-flt spt-b 200.0 55.0 1.0)
@@ -2440,34 +2166,22 @@
     (sp-launcher-by-id spt-next-launcher 2850)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2850)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-scalevel-x (meters 0.06666667))
-    (sp-flt spt-fade-a -1.0666667)
-    (sp-end)
-    )
-   )
+(defpart 2850
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.06666667)) (sp-flt spt-fade-a -1.0666667))
   )
 
-(set!
-  (-> *part-id-table* 2845)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 2845
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-flt spt-num 0.25)
-    (sp-flt spt-x (meters -100.0))
-    (sp-rnd-flt spt-y (meters 95.0) (meters 20.0) 1.0)
-    (sp-flt spt-z 0.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-flt spt-x (meters -100))
+    (sp-rnd-flt spt-y (meters 95) (meters 20) 1.0)
+    (sp-flt spt-z (meters 0))
+    (sp-flt spt-scale-x (meters 12))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
@@ -2488,70 +2202,47 @@
     (sp-launcher-by-id spt-next-launcher 2851)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2851)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.03678161)
-    (sp-end)
-    )
-   )
+(defpart 2851
+  :init-specs
+  ((sp-flt spt-fade-a -0.03678161))
   )
 
-(set!
-  (-> *part-group-id-table* 142)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village1-trans-pad"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 514 :fade-after (meters 160.0))
-    (sp-item 515 :fade-after (meters 160.0))
-    (sp-item 516 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (is-3d))
+(defpartgroup group-village1-trans-pad
+  :id 142
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 514 :fade-after (meters 160))
+    (sp-item 515 :fade-after (meters 160))
+    (sp-item 516 :fade-after (meters 60) :falloff-to (meters 60) :flags (is-3d))
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 514)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 514
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-flt spt-y (meters 5.0))
-    (sp-rnd-flt spt-scale-x (meters 10.0) (meters 1.0) 1.0)
-    (sp-flt spt-scale-y (meters 10.0))
+    (sp-flt spt-y (meters 5))
+    (sp-rnd-flt spt-scale-x (meters 10) (meters 1) 1.0)
+    (sp-flt spt-scale-y (meters 10))
     (sp-flt spt-r 40.0)
     (sp-rnd-flt spt-g 60.0 60.0 1.0)
     (sp-flt spt-b 128.0)
     (sp-rnd-flt spt-a 32.0 32.0 1.0)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 515)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 515
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-flt spt-y (meters 3.0))
-    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 1.0) 1.0)
-    (sp-flt spt-scale-y (meters 10.0))
+    (sp-flt spt-y (meters 3))
+    (sp-rnd-flt spt-scale-x (meters 5) (meters 1) 1.0)
+    (sp-flt spt-scale-y (meters 10))
     (sp-flt spt-r 40.0)
     (sp-rnd-flt spt-g 60.0 60.0 1.0)
     (sp-flt spt-b 128.0)
@@ -2559,20 +2250,15 @@
     (sp-flt spt-fade-a -8.533334)
     (sp-int spt-timer 10)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 516)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 516
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
-    (sp-flt spt-scale-x (meters 0.0))
+    (sp-flt spt-scale-x (meters 0))
     (sp-rnd-flt spt-rot-x 0.0 2730.6667 1.0)
     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2580,7 +2266,7 @@
     (sp-rnd-flt spt-g 0.0 127.0 1.0)
     (sp-flt spt-b 127.0)
     (sp-flt spt-a 127.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-flt spt-scalevel-x (meters 0.013333334))
     (sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
     (sp-copy-from-other spt-scalevel-y -4)
@@ -2588,9 +2274,7 @@
     (sp-flt spt-accel-y -0.6144)
     (sp-int spt-timer 270)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/village2/assistant-village2.gc b/goal_src/levels/village2/assistant-village2.gc
index cb0aa06034..4dd61534f9 100644
--- a/goal_src/levels/village2/assistant-village2.gc
+++ b/goal_src/levels/village2/assistant-village2.gc
@@ -827,90 +827,76 @@
     )
   )
 
-(set! (-> *part-group-id-table* 288) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-assistant-bluehut-torch"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1322 :fade-after (meters 30.0) :falloff-to (meters 30.0))
-                                         (sp-item 1323 :fade-after (meters 60.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 61440.0)
-                                       )
-      )
+(defpartgroup group-assistant-bluehut-torch
+  :id 288
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 1322 :fade-after (meters 30) :falloff-to (meters 30))
+    (sp-item 1323 :fade-after (meters 60) :falloff-to (meters 80))
+    )
+  )
 
-(set! (-> *part-id-table* 1322) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 80.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -6.4)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1322
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-rnd-flt spt-num 0.1 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 100.0 28.0 1.0)
+    (sp-flt spt-g 100.0)
+    (sp-flt spt-b 80.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-fade-a -6.4)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 1323) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00016666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.2)
-                                    (sp-flt spt-fade-b -0.2)
-                                    (sp-flt spt-accel-y -8.192)
-                                    (sp-flt spt-friction 0.93)
-                                    (sp-int spt-timer 1200)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 140288.0)
-                                    (sp-func spt-func 'check-drop-level-assistant-bluehut)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 45.0) (degrees 180.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1323
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 0.1 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00016666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.2)
+    (sp-flt spt-fade-b -0.2)
+    (sp-flt spt-accel-y -8.192)
+    (sp-flt spt-friction 0.93)
+    (sp-int spt-timer 1200)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-userdata 140288.0)
+    (sp-func spt-func 'check-drop-level-assistant-bluehut)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 45.0) (degrees 180.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 1324) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 3.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1324
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 3.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-flt spt-g 96.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0033333334) 1.0)
+    (sp-flt spt-fade-a -0.85333335)
+    (sp-flt spt-accel-y -0.68266666)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 30.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (defun check-drop-level-assistant-bluehut ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
@@ -950,552 +936,477 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 658)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-levitator-blue-beam"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 2673 :fade-after (meters 120.0) :falloff-to (meters 140.0) :binding 2670)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2672 :flags (bit1 start-dead))
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2672 :flags (bit1 start-dead))
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2672 :flags (bit1 start-dead))
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2672 :flags (bit1 start-dead))
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2672 :flags (bit1 start-dead))
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2674 :falloff-to (meters 400.0))
-          (sp-item 2675)
-          (sp-item 2676 :falloff-to (meters 300.0))
-          (sp-item 2693 :falloff-to (meters 400.0))
-          (sp-item 2694 :falloff-to (meters 400.0))
-          )
-        :bounds
-        (new 'static 'sphere :x -81920.0 :y 32768.0 :w 327680.0)
-        )
-      )
+(defpartgroup group-levitator-blue-beam
+  :id 658
+  :flags (use-local-clock)
+  :bounds (static-bspherem -20 8 0 80)
+  :parts
+  ((sp-item 2673 :fade-after (meters 120) :falloff-to (meters 140) :binding 2670)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2672 :flags (bit1 start-dead))
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2672 :flags (bit1 start-dead))
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2672 :flags (bit1 start-dead))
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2672 :flags (bit1 start-dead))
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2672 :flags (bit1 start-dead))
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2674 :falloff-to (meters 400))
+    (sp-item 2675)
+    (sp-item 2676 :falloff-to (meters 300))
+    (sp-item 2693 :falloff-to (meters 400))
+    (sp-item 2694 :falloff-to (meters 400))
+    )
+  )
 
-(set! (-> *part-id-table* 2694) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2694
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+    (sp-rnd-flt spt-num 0.2 2.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees -1440.0) (degrees 2880.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.4)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 146)
+    )
+  )
 
-(set! (-> *part-id-table* 2693) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2693
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 0.2 2.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees -1440.0) (degrees 2880.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.4)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 146)
+    )
+  )
 
-(set! (-> *part-id-table* 2673) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.025 0.025 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.053333335))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2673
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 0.025 0.025 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-vel-y (meters 0.053333335))
+    (sp-flt spt-scalevel-x (meters -0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-flt spt-conerot-x (degrees 102.0))
+    (sp-flt spt-conerot-y (degrees -90.0))
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2670) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 4096.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2670
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 1) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+    (sp-flt spt-vel-z (meters 0))
+    (sp-flt spt-accel-z 0.0)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2671) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2671
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 0.2 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.4)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 146)
+    )
+  )
 
-(set! (-> *part-id-table* 2672) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2672
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+    (sp-rnd-flt spt-num 0.2 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.4)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 146)
+    )
+  )
 
-(set! (-> *part-id-table* 2674) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-r 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 16.0 48.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.32))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters -1.5) (meters 1.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2674
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 2.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
+    (sp-rnd-flt spt-r 16.0 48.0 1.0)
+    (sp-rnd-flt spt-g 16.0 48.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-vel-y (meters 0.32))
+    (sp-flt spt-scalevel-x (meters 0.005))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-flt spt-conerot-x (degrees 102.0))
+    (sp-flt spt-conerot-y (degrees -90.0))
+    (sp-rnd-flt spt-conerot-radius (meters -1.5) (meters 1.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2676) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.10666667))
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2676
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-flt spt-g 0.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-vel-y (meters 0.10666667))
+    (sp-flt spt-scalevel-x (meters 0.0016666667))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 450)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-flt spt-conerot-x (degrees 102.0))
+    (sp-flt spt-conerot-y (degrees -90.0))
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2675) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2675
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 64.0 64.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -5.12)
+    (sp-int spt-timer 20)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-group-id-table* 659) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-levitator-blue-beam-impact"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2695)
-                                         (sp-item 2696 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         (sp-item 2677)
-                                         )
-                                       :bounds (new 'static 'sphere :w 139264.0)
-                                       )
-      )
+(defpartgroup group-levitator-blue-beam-impact
+  :id 659
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 34)
+  :parts
+  ((sp-item 2695) (sp-item 2696 :fade-after (meters 200) :falloff-to (meters 200)) (sp-item 2677))
+  )
 
-(set! (-> *part-id-table* 2696) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 2.0 6.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.26666668)
-                                    (sp-flt spt-fade-g -1.0666667)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int-plain-rnd spt-timer 60 59 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 30.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters -0.5) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2696
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 2.0 6.0 1.0)
+    (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 0.0 32.0 1.0)
+    (sp-rnd-flt spt-g 64.0 64.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.005))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.26666668)
+    (sp-flt spt-fade-g -1.0666667)
+    (sp-flt spt-fade-b 0.0)
+    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
+    (sp-flt spt-friction 0.95)
+    (sp-int-plain-rnd spt-timer 60 59 1)
+    (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 30.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters -0.5) (meters 0.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2695) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 180.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2695
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 180.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -5.12)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2677) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 180.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 16.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2677
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 6) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 180.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 16.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -5.12)
+    (sp-int spt-timer 10)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+    )
+  )
 
-(set! (-> *part-group-id-table* 660)
-      (new 'static 'sparticle-launch-group
-        :length 38
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-levitator-on-big"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 38
-          (sp-item 2751 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 2750)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2678)
-          )
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-levitator-on-big
+  :id 660
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2751 :fade-after (meters 100) :falloff-to (meters 100) :binding 2750)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2678)
+    )
+  )
 
-(set! (-> *part-id-table* 2678)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-z -4.096 8.192 1.0)
-                                                     (sp-flt spt-scale-x (meters 9.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -3.2)
-                                                     (sp-int spt-timer 40)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2678
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+    (sp-flt spt-scale-x (meters 9))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 0.0 128.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-fade-a -3.2)
+    (sp-int spt-timer 40)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
-(set! (-> *part-id-table* 2751) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2751
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-rnd-flt spt-a 32.0 32.0 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2750) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-z 12288.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2750
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 3))
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 0.0 128.0 1.0)
+    (sp-rnd-flt spt-b 128.0 128.0 1.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+    (sp-flt spt-vel-z (meters 0))
+    (sp-flt spt-accel-z 0.0)
+    (sp-int spt-timer 900)
+    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2797) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 0.4 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2797
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+    (sp-rnd-flt spt-num 0.2 0.4 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.4)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 146)
+    )
+  )
 
-(set! (-> *part-id-table* 2798) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 0.4 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2798
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+    (sp-rnd-flt spt-num 0.2 0.4 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+    (sp-int spt-rot-x 4)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 128.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -1.4)
+    (sp-int spt-timer 90)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int spt-next-time 10)
+    (sp-launcher-by-id spt-next-launcher 146)
+    )
+  )
 
-(set! (-> *part-group-id-table* 661) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-levitator-on-small"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2679))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-levitator-on-small
+  :id 661
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2679))
+  )
 
-(set! (-> *part-id-table* 2679)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-z -4.096 8.192 1.0)
-                                                     (sp-flt spt-scale-x (meters 6.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -3.2)
-                                                     (sp-int spt-timer 40)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2679
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
+    (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+    (sp-flt spt-scale-x (meters 6))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 0.0)
+    (sp-rnd-flt spt-g 0.0 128.0 1.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-flt spt-vel-y (meters 0))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-fade-a -3.2)
+    (sp-int spt-timer 40)
+    (sp-cpuinfo-flags bit2 bit3)
+    )
+  )
 
 (defbehavior assistant-levitator-blue-glow assistant-levitator ()
   (let ((gp-0 (new 'stack-no-clear 'vector)))
diff --git a/goal_src/levels/village2/flutflut-bluehut.gc b/goal_src/levels/village2/flutflut-bluehut.gc
index 38aeaabb48..d6ce846c50 100644
--- a/goal_src/levels/village2/flutflut-bluehut.gc
+++ b/goal_src/levels/village2/flutflut-bluehut.gc
@@ -27,13 +27,13 @@
 (defmethod play-anim! flutflut-bluehut ((obj flutflut-bluehut) (arg0 symbol))
   (current-status (-> obj tasks))
   (if arg0
-   (format
-    0
-    "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-    (-> obj name)
-    (task-status->string (current-status (-> obj tasks)))
-    )
-   )
+      (format
+        0
+        "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+        (-> obj name)
+        (task-status->string (current-status (-> obj tasks)))
+        )
+      )
   (the-as basic (get-art-elem obj))
   )
 
@@ -42,297 +42,202 @@
   )
 
 (defmethod should-display? flutflut-bluehut ((obj flutflut-bluehut))
-  (and
-   (closed?
-    (-> obj tasks)
-    (game-task village2-levitator)
-    (task-status need-introduction)
-    )
-   (task-closed? (game-task beach-flutflut) (task-status need-resolution))
-   )
+  (and (closed? (-> obj tasks) (game-task village2-levitator) (task-status need-introduction))
+       (task-closed? (game-task beach-flutflut) (task-status need-resolution))
+       )
   )
 
 (defstate idle (flutflut-bluehut)
   :virtual #t
   :trans
   (behavior ()
-   (set! (-> self will-talk) #f)
-   ((-> (method-of-type process-taskable idle) trans))
-   (none)
-   )
+    (set! (-> self will-talk) #f)
+    ((-> (method-of-type process-taskable idle) trans))
+    (none)
+    )
   :code
   (behavior ()
-   (if (!= (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
+    (if (!= (if (> (-> self skel active-channels) 0)
+                (-> self skel root-channel 0 frame-group)
+                )
+            (get-art-elem self)
             )
-        (get-art-elem self)
+        (ja-channel-push! 1 15)
         )
-    (ja-channel-push! 1 15)
-    )
-   (while #t
-    (let ((v1-6 (-> self skel root-channel 0)))
-     (set!
-      (-> v1-6 frame-group)
-      (the-as art-joint-anim (-> self draw art-group data 2))
-      )
-     )
-    (let* ((f30-0 2.0)
-           (v1-8 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-9 (the-as number (logior #x3f800000 v1-8)))
-           )
-     (countdown (gp-0 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-9)))) 1))
-      (let ((a0-12 (-> self skel root-channel 0)))
-       (set! (-> a0-12 frame-group) (if (> (-> self skel active-channels) 0)
-                                     (-> self skel root-channel 0 frame-group)
-                                     )
+    (while #t
+      (let ((v1-6 (-> self skel root-channel 0)))
+        (set! (-> v1-6 frame-group) (the-as art-joint-anim (-> self draw art-group data 2)))
         )
-       (set!
-        (-> a0-12 param 0)
-        (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                           (-> self skel root-channel 0 frame-group)
-                           )
-                       data
-                       0
-                       length
-                       )
-                    -1
-                    )
-         )
+      (let* ((f30-0 2.0)
+             (v1-8 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-9 (the-as number (logior #x3f800000 v1-8)))
+             )
+        (countdown (gp-0 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-9)))) 1))
+          (let ((a0-12 (-> self skel root-channel 0)))
+            (set! (-> a0-12 frame-group) (if (> (-> self skel active-channels) 0)
+                                             (-> self skel root-channel 0 frame-group)
+                                             )
+                  )
+            (set! (-> a0-12 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                           (-> self skel root-channel 0 frame-group)
+                                                           )
+                                                       data
+                                                       0
+                                                       length
+                                                       )
+                                                   -1
+                                                   )
+                                          )
+                  )
+            (set! (-> a0-12 param 1) 1.0)
+            (set! (-> a0-12 frame-num) 0.0)
+            (joint-control-channel-group!
+              a0-12
+              (if (> (-> self skel active-channels) 0)
+                  (-> self skel root-channel 0 frame-group)
+                  )
+              num-func-seek!
+              )
+            )
+          (until (ja-done? 0)
+            (suspend)
+            (let ((a0-13 (-> self skel root-channel 0)))
+              (set! (-> a0-13 param 0) (the float (+ (-> a0-13 frame-group data 0 length) -1)))
+              (set! (-> a0-13 param 1) 1.0)
+              (joint-control-channel-group-eval! a0-13 (the-as art-joint-anim #f) num-func-seek!)
+              )
+            )
+          (let ((s5-0 (-> *display* base-frame-counter)))
+            (while (< (+ (-> *display* base-frame-counter) -150) s5-0)
+              (suspend)
+              )
+            )
+          (let ((a0-15 (-> self skel root-channel 0)))
+            (set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
+                                             (-> self skel root-channel 0 frame-group)
+                                             )
+                  )
+            (set! (-> a0-15 param 0) 0.0)
+            (set! (-> a0-15 param 1) 1.0)
+            (set! (-> a0-15 frame-num) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                             (-> self skel root-channel 0 frame-group)
+                                                             )
+                                                         data
+                                                         0
+                                                         length
+                                                         )
+                                                     -1
+                                                     )
+                                            )
+                  )
+            (joint-control-channel-group!
+              a0-15
+              (if (> (-> self skel active-channels) 0)
+                  (-> self skel root-channel 0 frame-group)
+                  )
+              num-func-seek!
+              )
+            )
+          (until (ja-done? 0)
+            (suspend)
+            (let ((a0-16 (-> self skel root-channel 0)))
+              (set! (-> a0-16 param 0) 0.0)
+              (set! (-> a0-16 param 1) 1.0)
+              (joint-control-channel-group-eval! a0-16 (the-as art-joint-anim #f) num-func-seek!)
+              )
+            )
+          (let ((s5-1 (-> *display* base-frame-counter)))
+            (while (< (+ (-> *display* base-frame-counter) -150) s5-1)
+              (suspend)
+              )
+            )
+          )
         )
-       (set! (-> a0-12 param 1) 1.0)
-       (set! (-> a0-12 frame-num) 0.0)
-       (joint-control-channel-group!
-        a0-12
-        (if (> (-> self skel active-channels) 0)
-         (-> self skel root-channel 0 frame-group)
-         )
-        num-func-seek!
+      (let ((a0-18 (-> self skel root-channel 0)))
+        (set! (-> a0-18 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+        (set! (-> a0-18 param 0)
+              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
+              )
+        (set! (-> a0-18 param 1) 1.0)
+        (set! (-> a0-18 frame-num) 0.0)
+        (joint-control-channel-group! a0-18 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
         )
-       )
       (until (ja-done? 0)
-       (suspend)
-       (let ((a0-13 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-13 param 0)
-         (the float (+ (-> a0-13 frame-group data 0 length) -1))
-         )
-        (set! (-> a0-13 param 1) 1.0)
-        (joint-control-channel-group-eval!
-         a0-13
-         (the-as art-joint-anim #f)
-         num-func-seek!
-         )
-        )
-       )
-      (let ((s5-0 (-> *display* base-frame-counter)))
-       (while (< (+ (-> *display* base-frame-counter) -150) s5-0)
         (suspend)
+        (let ((a0-19 (-> self skel root-channel 0)))
+          (set! (-> a0-19 param 0) (the float (+ (-> a0-19 frame-group data 0 length) -1)))
+          (set! (-> a0-19 param 1) 1.0)
+          (joint-control-channel-group-eval! a0-19 (the-as art-joint-anim #f) num-func-seek!)
+          )
         )
-       )
-      (let ((a0-15 (-> self skel root-channel 0)))
-       (set! (-> a0-15 frame-group) (if (> (-> self skel active-channels) 0)
-                                     (-> self skel root-channel 0 frame-group)
-                                     )
+      (let ((v1-100 (-> self skel root-channel 0)))
+        (set! (-> v1-100 frame-group) (the-as art-joint-anim (-> self draw art-group data 4)))
         )
-       (set! (-> a0-15 param 0) 0.0)
-       (set! (-> a0-15 param 1) 1.0)
-       (set!
-        (-> a0-15 frame-num)
-        (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                           (-> self skel root-channel 0 frame-group)
-                           )
-                       data
-                       0
-                       length
-                       )
-                    -1
-                    )
-         )
+      (let* ((f30-1 2.0)
+             (v1-102 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-103 (the-as number (logior #x3f800000 v1-102)))
+             )
+        (countdown (gp-1 (+ (the int (* f30-1 (+ -1.0 (the-as float v1-103)))) 6))
+          (let ((a0-26 (-> self skel root-channel 0)))
+            (set! (-> a0-26 frame-group) (if (> (-> self skel active-channels) 0)
+                                             (-> self skel root-channel 0 frame-group)
+                                             )
+                  )
+            (set! (-> a0-26 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                           (-> self skel root-channel 0 frame-group)
+                                                           )
+                                                       data
+                                                       0
+                                                       length
+                                                       )
+                                                   -1
+                                                   )
+                                          )
+                  )
+            (set! (-> a0-26 param 1) 1.0)
+            (set! (-> a0-26 frame-num) 0.0)
+            (joint-control-channel-group!
+              a0-26
+              (if (> (-> self skel active-channels) 0)
+                  (-> self skel root-channel 0 frame-group)
+                  )
+              num-func-seek!
+              )
+            )
+          (until (ja-done? 0)
+            (suspend)
+            (let ((a0-27 (-> self skel root-channel 0)))
+              (set! (-> a0-27 param 0) (the float (+ (-> a0-27 frame-group data 0 length) -1)))
+              (set! (-> a0-27 param 1) 1.0)
+              (joint-control-channel-group-eval! a0-27 (the-as art-joint-anim #f) num-func-seek!)
+              )
+            )
+          )
         )
-       (joint-control-channel-group!
-        a0-15
-        (if (> (-> self skel active-channels) 0)
-         (-> self skel root-channel 0 frame-group)
-         )
-        num-func-seek!
+      (let ((a0-29 (-> self skel root-channel 0)))
+        (set! (-> a0-29 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+        (set! (-> a0-29 param 0) 0.0)
+        (set! (-> a0-29 param 1) 1.0)
+        (set! (-> a0-29 frame-num)
+              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
+              )
+        (joint-control-channel-group! a0-29 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
         )
-       )
       (until (ja-done? 0)
-       (suspend)
-       (let ((a0-16 (-> self skel root-channel 0)))
-        (set! (-> a0-16 param 0) 0.0)
-        (set! (-> a0-16 param 1) 1.0)
-        (joint-control-channel-group-eval!
-         a0-16
-         (the-as art-joint-anim #f)
-         num-func-seek!
-         )
-        )
-       )
-      (let ((s5-1 (-> *display* base-frame-counter)))
-       (while (< (+ (-> *display* base-frame-counter) -150) s5-1)
         (suspend)
+        (let ((a0-30 (-> self skel root-channel 0)))
+          (set! (-> a0-30 param 0) 0.0)
+          (set! (-> a0-30 param 1) 1.0)
+          (joint-control-channel-group-eval! a0-30 (the-as art-joint-anim #f) num-func-seek!)
+          )
         )
-       )
       )
-     )
-    (let ((a0-18 (-> self skel root-channel 0)))
-     (set!
-      (-> a0-18 frame-group)
-      (the-as art-joint-anim (-> self draw art-group data 3))
-      )
-     (set!
-      (-> a0-18 param 0)
-      (the
-       float
-       (+
-        (->
-         (the-as art-joint-anim (-> self draw art-group data 3))
-         data
-         0
-         length
-         )
-        -1
-        )
-       )
-      )
-     (set! (-> a0-18 param 1) 1.0)
-     (set! (-> a0-18 frame-num) 0.0)
-     (joint-control-channel-group!
-      a0-18
-      (the-as art-joint-anim (-> self draw art-group data 3))
-      num-func-seek!
-      )
-     )
-    (until (ja-done? 0)
-     (suspend)
-     (let ((a0-19 (-> self skel root-channel 0)))
-      (set!
-       (-> a0-19 param 0)
-       (the float (+ (-> a0-19 frame-group data 0 length) -1))
-       )
-      (set! (-> a0-19 param 1) 1.0)
-      (joint-control-channel-group-eval!
-       a0-19
-       (the-as art-joint-anim #f)
-       num-func-seek!
-       )
-      )
-     )
-    (let ((v1-100 (-> self skel root-channel 0)))
-     (set!
-      (-> v1-100 frame-group)
-      (the-as art-joint-anim (-> self draw art-group data 4))
-      )
-     )
-    (let* ((f30-1 2.0)
-           (v1-102 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-103 (the-as number (logior #x3f800000 v1-102)))
-           )
-     (countdown (gp-1 (+ (the int (* f30-1 (+ -1.0 (the-as float v1-103)))) 6))
-      (let ((a0-26 (-> self skel root-channel 0)))
-       (set! (-> a0-26 frame-group) (if (> (-> self skel active-channels) 0)
-                                     (-> self skel root-channel 0 frame-group)
-                                     )
-        )
-       (set!
-        (-> a0-26 param 0)
-        (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                           (-> self skel root-channel 0 frame-group)
-                           )
-                       data
-                       0
-                       length
-                       )
-                    -1
-                    )
-         )
-        )
-       (set! (-> a0-26 param 1) 1.0)
-       (set! (-> a0-26 frame-num) 0.0)
-       (joint-control-channel-group!
-        a0-26
-        (if (> (-> self skel active-channels) 0)
-         (-> self skel root-channel 0 frame-group)
-         )
-        num-func-seek!
-        )
-       )
-      (until (ja-done? 0)
-       (suspend)
-       (let ((a0-27 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-27 param 0)
-         (the float (+ (-> a0-27 frame-group data 0 length) -1))
-         )
-        (set! (-> a0-27 param 1) 1.0)
-        (joint-control-channel-group-eval!
-         a0-27
-         (the-as art-joint-anim #f)
-         num-func-seek!
-         )
-        )
-       )
-      )
-     )
-    (let ((a0-29 (-> self skel root-channel 0)))
-     (set!
-      (-> a0-29 frame-group)
-      (the-as art-joint-anim (-> self draw art-group data 3))
-      )
-     (set! (-> a0-29 param 0) 0.0)
-     (set! (-> a0-29 param 1) 1.0)
-     (set!
-      (-> a0-29 frame-num)
-      (the
-       float
-       (+
-        (->
-         (the-as art-joint-anim (-> self draw art-group data 3))
-         data
-         0
-         length
-         )
-        -1
-        )
-       )
-      )
-     (joint-control-channel-group!
-      a0-29
-      (the-as art-joint-anim (-> self draw art-group data 3))
-      num-func-seek!
-      )
-     )
-    (until (ja-done? 0)
-     (suspend)
-     (let ((a0-30 (-> self skel root-channel 0)))
-      (set! (-> a0-30 param 0) 0.0)
-      (set! (-> a0-30 param 1) 1.0)
-      (joint-control-channel-group-eval!
-       a0-30
-       (the-as art-joint-anim #f)
-       num-func-seek!
-       )
-      )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
-(defmethod
-  init-from-entity!
-  flutflut-bluehut
-  ((obj flutflut-bluehut) (arg0 entity-actor))
-  (dummy-40
-   obj
-   arg0
-   *flutflut-bluehut-sg*
-   3
-   0
-   (new 'static 'vector :w 4096.0)
-   27
-   )
+(defmethod init-from-entity! flutflut-bluehut ((obj flutflut-bluehut) (arg0 entity-actor))
+  (dummy-40 obj arg0 *flutflut-bluehut-sg* 3 0 (new 'static 'vector :w 4096.0) 27)
   (set! (-> obj tasks) (get-task-control (game-task village2-levitator)))
   (set! (-> obj draw light-index) (the-as uint 1))
   (dummy-42 obj)
diff --git a/goal_src/levels/village2/gambler.gc b/goal_src/levels/village2/gambler.gc
index 274f4d5ce6..9dfa0436cf 100644
--- a/goal_src/levels/village2/gambler.gc
+++ b/goal_src/levels/village2/gambler.gc
@@ -27,194 +27,99 @@
 
 (defmethod play-anim! gambler ((obj gambler) (arg0 symbol))
   (set! (-> obj talk-message) (the-as uint 260))
-  (case (current-status (-> obj tasks)) 
-   (((task-status need-hint) (task-status need-introduction))
+  (case (current-status (-> obj tasks))
+    (((task-status need-hint) (task-status need-introduction))
      (when arg0
-      (close-status! (-> obj tasks) (task-status need-introduction))
-      (close-specific-task!
-       (game-task village2-gambler-money)
-       (task-status need-introduction)
+       (close-status! (-> obj tasks) (task-status need-introduction))
+       (close-specific-task! (game-task village2-gambler-money) (task-status need-introduction))
        )
-      )
      (new 'static 'spool-anim
-      :name "gambler-introduction-1"
-      :index 11
-      :parts 9
-      :command-list
-      '(
-        (0
-          want-levels
-          village2
-          rolling
-          )
-        (0
-         display-level
-         rolling
-         #f
+       :name "gambler-introduction-1"
+       :index 11
+       :parts 9
+       :command-list
+       '((0 want-levels village2 rolling)
+         (0 display-level rolling #f)
+         (29 joint "cameraB")
+         (103 joint "camera")
+         (231 joint "cameraB")
+         (730 display-level rolling display)
+         (730 want-force-vis rolling #t)
+         (732 alive "gorge-pusher-5")
+         (732 alive "gorge-pusher-6")
+         (732 alive "gorge-start-1")
+         (732 joint "camera")
+         (945 joint "cameraB")
+         (950 dead "gorge-pusher-5")
+         (950 dead "gorge-pusher-6")
+         (950 dead "gorge-start-1")
+         (950 display-level rolling #f)
+         (950 want-force-vis rolling #f)
          )
-        ((the binteger 29)
-         joint
-         "cameraB"
-         )
-        ((the binteger 103)
-         joint
-         "camera"
-         )
-        ((the binteger 231)
-         joint
-         "cameraB"
-         )
-        ((the binteger 730)
-         display-level
-         rolling
-         display
-         )
-        ((the binteger 730)
-         want-force-vis
-         rolling
-         #t
-         )
-        ((the binteger 732)
-         alive
-         "gorge-pusher-5"
-         )
-        ((the binteger 732)
-         alive
-         "gorge-pusher-6"
-         )
-        ((the binteger 732)
-         alive
-         "gorge-start-1"
-         )
-        ((the binteger 732)
-         joint
-         "camera"
-         )
-        ((the binteger 945)
-         joint
-         "cameraB"
-         )
-        ((the binteger 950)
-         dead
-         "gorge-pusher-5"
-         )
-        ((the binteger 950)
-         dead
-         "gorge-pusher-6"
-         )
-        ((the binteger 950)
-         dead
-         "gorge-start-1"
-         )
-        ((the binteger 950)
-         display-level
-         rolling
-         #f
-         )
-        ((the binteger 950) want-force-vis rolling #f)
-        )
-      )
+       )
      )
-   (((task-status need-reminder))
-    (set! (-> obj skippable) #t)
-    (cond
-     ((closed?
-       (-> obj tasks)
-       (game-task rolling-race)
-       (task-status need-reward-speech)
-       )
-      (new 'static 'spool-anim
-       :name "gambler-reminder-money"
-       :index 13
-       :parts 2
-       :command-list '()
-       )
-      )
-     ((closed?
-       (-> obj tasks)
-       (game-task village2-gambler-money)
-       (task-status need-reward-speech)
-       )
-      (new 'static 'spool-anim
-       :name "gambler-reminder-race"
-       :index 12
-       :parts 2
-       :command-list '()
-       )
-      )
-     ((zero? (get-reminder (-> obj tasks) 5))
-      (if arg0
-       (save-reminder (-> obj tasks) 1 5)
-       )
-      (new 'static 'spool-anim
-       :name "gambler-reminder-race"
-       :index 12
-       :parts 2
-       :command-list '()
-       )
-      )
-     (else
-      (if arg0
-       (save-reminder (-> obj tasks) 0 5)
-       )
-      (new 'static 'spool-anim
-       :name "gambler-reminder-money"
-       :index 13
-       :parts 2
-       :command-list '()
-       )
-      )
-     )
-    )
-   (((task-status need-reward-speech))
-    (if (not arg0)
-     (set! (-> obj will-talk) #t)
-     )
-    (case (current-task (-> obj tasks)) 
-     (((game-task rolling-race))
-       (when arg0
-        (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
-        (close-current! (-> obj tasks))
+    (((task-status need-reminder))
+     (set! (-> obj skippable) #t)
+     (cond
+       ((closed? (-> obj tasks) (game-task rolling-race) (task-status need-reward-speech))
+        (new 'static 'spool-anim :name "gambler-reminder-money" :index 13 :parts 2 :command-list '())
         )
-       (new 'static 'spool-anim
-        :name "gambler-resolution-race"
-        :index 14
-        :parts 3
-        :command-list '()
+       ((closed? (-> obj tasks) (game-task village2-gambler-money) (task-status need-reward-speech))
+        (new 'static 'spool-anim :name "gambler-reminder-race" :index 12 :parts 2 :command-list '())
         )
-       )
-     (else
-      (cond
-       (arg0
-        (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
-        (close-current! (-> obj tasks))
-        (send-event *target* 'get-pickup 5 (- (-> *GAME-bank* money-task-inc)))
+       ((zero? (get-reminder (-> obj tasks) 5))
+        (if arg0
+            (save-reminder (-> obj tasks) 1 5)
+            )
+        (new 'static 'spool-anim :name "gambler-reminder-race" :index 12 :parts 2 :command-list '())
         )
        (else
-        (set! (-> obj talk-message) (the-as uint 282))
+         (if arg0
+             (save-reminder (-> obj tasks) 0 5)
+             )
+         (new 'static 'spool-anim :name "gambler-reminder-money" :index 13 :parts 2 :command-list '())
+         )
+       )
+     )
+    (((task-status need-reward-speech))
+     (if (not arg0)
+         (set! (-> obj will-talk) #t)
+         )
+     (case (current-task (-> obj tasks))
+       (((game-task rolling-race))
+        (when arg0
+          (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
+          (close-current! (-> obj tasks))
+          )
+        (new 'static 'spool-anim :name "gambler-resolution-race" :index 14 :parts 3 :command-list '())
         )
+       (else
+         (cond
+           (arg0
+             (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
+             (close-current! (-> obj tasks))
+             (send-event *target* 'get-pickup 5 (- (-> *GAME-bank* money-task-inc)))
+             )
+           (else
+             (set! (-> obj talk-message) (the-as uint 282))
+             )
+           )
+         (new 'static 'spool-anim :name "gambler-resolution-money" :index 15 :parts 2 :command-list '())
+         )
        )
-      (new 'static 'spool-anim
-       :name "gambler-resolution-money"
-       :index 15
-       :parts 2
-       :command-list '()
-       )
-      )
      )
-    )
-   (else
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
+    (else
+      (if arg0
+          (format
+            0
+            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+            (-> obj name)
+            (task-status->string (current-status (-> obj tasks)))
+            )
+          )
+      (-> obj draw art-group data 7)
       )
-     )
-    (-> obj draw art-group data 7)
     )
-   )
   )
 
 (defmethod get-art-elem gambler ((obj gambler))
@@ -222,194 +127,148 @@
   )
 
 (defmethod TODO-RENAME-43 gambler ((obj gambler))
-  (when
-   (TODO-RENAME-10
-    (-> obj ambient)
-    (new 'stack-no-clear 'vector)
-    9000
-    61440.0
-    obj
-    )
-   (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-          (v1-4 (the-as number (logior #x3f800000 v1-3)))
-          (f0-2 (+ -1.0 (the-as float v1-4)))
+  (when (TODO-RENAME-10 (-> obj ambient) (new 'stack-no-clear 'vector) 9000 61440.0 obj)
+    (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+           (v1-4 (the-as number (logior #x3f800000 v1-3)))
+           (f0-2 (+ -1.0 (the-as float v1-4)))
+           )
+      (cond
+        ((< 0.9230769 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM01" #f (-> obj root-override trans))
+         )
+        ((< 0.84615386 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM02" #f (-> obj root-override trans))
+         )
+        ((< 0.7692308 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM03" #f (-> obj root-override trans))
+         )
+        ((< 0.6923077 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM04" #f (-> obj root-override trans))
+         )
+        ((< 0.61538464 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM05" #f (-> obj root-override trans))
+         )
+        ((< 0.53846157 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM06" #f (-> obj root-override trans))
+         )
+        ((< 0.46153846 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM07" #f (-> obj root-override trans))
+         )
+        ((< 0.3846154 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM08" #f (-> obj root-override trans))
+         )
+        ((< 0.30769232 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM09" #f (-> obj root-override trans))
+         )
+        ((< 0.23076923 f0-2)
+         (if (not (task-closed? (game-task ogre-boss) (task-status need-reminder)))
+             (play-ambient (-> obj ambient) "GAM-AM10" #f (-> obj root-override trans))
+             )
+         )
+        ((< 0.15384616 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM11" #f (-> obj root-override trans))
+         )
+        ((< 0.07692308 f0-2)
+         (play-ambient (-> obj ambient) "GAM-AM12" #f (-> obj root-override trans))
+         )
+        (else
+          (play-ambient (-> obj ambient) "GAM-AM13" #f (-> obj root-override trans))
           )
-    (cond
-     ((< 0.9230769 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM01" #f (-> obj root-override trans))
-      )
-     ((< 0.84615386 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM02" #f (-> obj root-override trans))
-      )
-     ((< 0.7692308 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM03" #f (-> obj root-override trans))
-      )
-     ((< 0.6923077 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM04" #f (-> obj root-override trans))
-      )
-     ((< 0.61538464 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM05" #f (-> obj root-override trans))
-      )
-     ((< 0.53846157 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM06" #f (-> obj root-override trans))
-      )
-     ((< 0.46153846 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM07" #f (-> obj root-override trans))
-      )
-     ((< 0.3846154 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM08" #f (-> obj root-override trans))
-      )
-     ((< 0.30769232 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM09" #f (-> obj root-override trans))
-      )
-     ((< 0.23076923 f0-2)
-      (if (not (task-closed? (game-task ogre-boss) (task-status need-reminder)))
-       (play-ambient
-        (-> obj ambient)
-        "GAM-AM10"
-        #f
-        (-> obj root-override trans)
         )
-       )
       )
-     ((< 0.15384616 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM11" #f (-> obj root-override trans))
-      )
-     ((< 0.07692308 f0-2)
-      (play-ambient (-> obj ambient) "GAM-AM12" #f (-> obj root-override trans))
-      )
-     (else
-      (play-ambient (-> obj ambient) "GAM-AM13" #f (-> obj root-override trans))
-      )
-     )
     )
-   )
   )
 
 (defstate idle (gambler)
   :virtual #t
   :code
   (behavior ()
-   (when (!= (if (> (-> self skel active-channels) 0)
+    (when (!= (if (> (-> self skel active-channels) 0)
+                  (-> self skel root-channel 0 frame-group)
+                  )
+              (-> self draw art-group data 7)
+              )
+      (ja-channel-push! 1 60)
+      (let ((v1-6 (-> self skel root-channel 0)))
+        (set! (-> v1-6 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
+        )
+      )
+    (while #t
+      (let ((a0-9 (-> self skel root-channel 0)))
+        (set! (-> a0-9 frame-group) (if (> (-> self skel active-channels) 0)
+                                        (-> self skel root-channel 0 frame-group)
+                                        )
+              )
+        (set! (-> a0-9 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                      (-> self skel root-channel 0 frame-group)
+                                                      )
+                                                  data
+                                                  0
+                                                  length
+                                                  )
+                                              -1
+                                              )
+                                     )
+              )
+        (set! (-> a0-9 param 1) 1.0)
+        (set! (-> a0-9 frame-num) 0.0)
+        (joint-control-channel-group!
+          a0-9
+          (if (> (-> self skel active-channels) 0)
               (-> self skel root-channel 0 frame-group)
               )
-          (-> self draw art-group data 7)
+          num-func-seek!
           )
-    (ja-channel-push! 1 60)
-    (let ((v1-6 (-> self skel root-channel 0)))
-     (set!
-      (-> v1-6 frame-group)
-      (the-as art-joint-anim (-> self draw art-group data 7))
-      )
-     )
-    )
-   (while #t
-    (let ((a0-9 (-> self skel root-channel 0)))
-     (set! (-> a0-9 frame-group) (if (> (-> self skel active-channels) 0)
-                                  (-> self skel root-channel 0 frame-group)
-                                  )
-      )
-     (set!
-      (-> a0-9 param 0)
-      (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                         (-> self skel root-channel 0 frame-group)
-                         )
-                     data
-                     0
-                     length
-                     )
-                  -1
-                  )
-       )
-      )
-     (set! (-> a0-9 param 1) 1.0)
-     (set! (-> a0-9 frame-num) 0.0)
-     (joint-control-channel-group! a0-9 (if (> (-> self skel active-channels) 0)
-                                         (->
-                                          self
-                                          skel
-                                          root-channel
-                                          0
-                                          frame-group
-                                          )
-                                         )
-      num-func-seek!
-      )
-     )
-    (until (ja-done? 0)
-     (suspend)
-     (let ((a0-10 (-> self skel root-channel 0)))
-      (set!
-       (-> a0-10 param 0)
-       (the float (+ (-> a0-10 frame-group data 0 length) -1))
-       )
-      (set! (-> a0-10 param 1) 1.0)
-      (joint-control-channel-group-eval!
-       a0-10
-       (the-as art-joint-anim #f)
-       num-func-seek!
-       )
-      )
-     )
-    (TODO-RENAME-43 self)
-    (let* ((v1-38 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-39 (the-as number (logior #x3f800000 v1-38)))
-           (f0-9 (+ -1.0 (the-as float v1-39)))
+        )
+      (until (ja-done? 0)
+        (suspend)
+        (let ((a0-10 (-> self skel root-channel 0)))
+          (set! (-> a0-10 param 0) (the float (+ (-> a0-10 frame-group data 0 length) -1)))
+          (set! (-> a0-10 param 1) 1.0)
+          (joint-control-channel-group-eval! a0-10 (the-as art-joint-anim #f) num-func-seek!)
+          )
+        )
+      (TODO-RENAME-43 self)
+      (let* ((v1-38 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-39 (the-as number (logior #x3f800000 v1-38)))
+             (f0-9 (+ -1.0 (the-as float v1-39)))
+             )
+        (cond
+          ((< f0-9 0.16666667)
+           (let ((a0-15 (-> self skel root-channel 0)))
+             (set! (-> a0-15 frame-group) (the-as art-joint-anim (-> self draw art-group data 5)))
+             )
            )
-     (cond
-      ((< f0-9 0.16666667)
-       (let ((a0-15 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-15 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 5))
-         )
+          ((< f0-9 0.33333334)
+           (let ((a0-16 (-> self skel root-channel 0)))
+             (set! (-> a0-16 frame-group) (the-as art-joint-anim (-> self draw art-group data 6)))
+             )
+           )
+          ((< f0-9 0.5)
+           (let ((a0-17 (-> self skel root-channel 0)))
+             (set! (-> a0-17 frame-group) (the-as art-joint-anim (-> self draw art-group data 7)))
+             )
+           )
+          ((< f0-9 0.6666667)
+           (let ((a0-18 (-> self skel root-channel 0)))
+             (set! (-> a0-18 frame-group) (the-as art-joint-anim (-> self draw art-group data 8)))
+             )
+           )
+          ((< f0-9 0.8333333)
+           (let ((a0-19 (-> self skel root-channel 0)))
+             (set! (-> a0-19 frame-group) (the-as art-joint-anim (-> self draw art-group data 9)))
+             )
+           )
+          (else
+            (let ((a0-20 (-> self skel root-channel 0)))
+              (set! (-> a0-20 frame-group) (the-as art-joint-anim (-> self draw art-group data 10)))
+              )
+            )
+          )
         )
-       )
-      ((< f0-9 0.33333334)
-       (let ((a0-16 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-16 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 6))
-         )
-        )
-       )
-      ((< f0-9 0.5)
-       (let ((a0-17 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-17 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 7))
-         )
-        )
-       )
-      ((< f0-9 0.6666667)
-       (let ((a0-18 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-18 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 8))
-         )
-        )
-       )
-      ((< f0-9 0.8333333)
-       (let ((a0-19 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-19 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 9))
-         )
-        )
-       )
-      (else
-       (let ((a0-20 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-20 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 10))
-         )
-        )
-       )
       )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
 (defmethod init-from-entity! gambler ((obj gambler) (arg0 entity-actor))
diff --git a/goal_src/levels/village2/geologist.gc b/goal_src/levels/village2/geologist.gc
index d948a41e4a..944fb2cfc7 100644
--- a/goal_src/levels/village2/geologist.gc
+++ b/goal_src/levels/village2/geologist.gc
@@ -27,158 +27,91 @@
 
 (defmethod play-anim! geologist ((obj geologist) (arg0 symbol))
   (set! (-> obj talk-message) (the-as uint 260))
-  (case (current-status (-> obj tasks)) 
-   (((task-status need-hint) (task-status need-introduction))
+  (case (current-status (-> obj tasks))
+    (((task-status need-hint) (task-status need-introduction))
      (when arg0
-      (close-status! (-> obj tasks) (task-status need-introduction))
-      (close-specific-task!
-       (game-task village2-geologist-money)
-       (task-status need-introduction)
+       (close-status! (-> obj tasks) (task-status need-introduction))
+       (close-specific-task! (game-task village2-geologist-money) (task-status need-introduction))
        )
-      )
      (new 'static 'spool-anim
-      :name "geologist-introduction"
-      :index 6
-      :parts 13
-      :command-list
-      '(
-        (0
-          want-levels
-          village2
-          rolling
-          )
-        ((the binteger 199)
-         joint
-         "cameraB"
+       :name "geologist-introduction"
+       :index 6
+       :parts 13
+       :command-list
+       '((0 want-levels village2 rolling)
+         (199 joint "cameraB")
+         (325 joint "camera")
+         (520 alive "racer-2")
+         (544 joint "cameraB")
+         (546 dead "racer-2")
+         (809 joint "camera")
+         (1031 joint "cameraB")
+         (1229 joint "camera")
          )
-        ((the binteger 325)
-         joint
-         "camera"
-         )
-        ((the binteger 520)
-         alive
-         "racer-2"
-         )
-        ((the binteger 544)
-         joint
-         "cameraB"
-         )
-        ((the binteger 546)
-         dead
-         "racer-2"
-         )
-        ((the binteger 809)
-         joint
-         "camera"
-         )
-        ((the binteger 1031)
-         joint
-         "cameraB"
-         )
-        ((the binteger 1229) joint "camera")
-        )
-      )
+       )
      )
-   (((task-status need-reminder))
-    (set! (-> obj skippable) #t)
-    (cond
-     ((closed?
-       (-> obj tasks)
-       (game-task rolling-moles)
-       (task-status need-reward-speech)
-       )
-      (new 'static 'spool-anim
-       :name "geologist-reminder-money"
-       :index 8
-       :parts 2
-       :command-list '()
-       )
-      )
-     ((closed?
-       (-> obj tasks)
-       (game-task village2-geologist-money)
-       (task-status need-reward-speech)
-       )
-      (new 'static 'spool-anim
-       :name "geologist-reminder-moles"
-       :index 7
-       :parts 3
-       :command-list '()
-       )
-      )
-     ((zero? (get-reminder (-> obj tasks) 0))
-      (if arg0
-       (save-reminder (-> obj tasks) 1 0)
-       )
-      (new 'static 'spool-anim
-       :name "geologist-reminder-moles"
-       :index 7
-       :parts 3
-       :command-list '()
-       )
-      )
-     (else
-      (if arg0
-       (save-reminder (-> obj tasks) 0 0)
-       )
-      (new 'static 'spool-anim
-       :name "geologist-reminder-money"
-       :index 8
-       :parts 2
-       :command-list '()
-       )
-      )
-     )
-    )
-   (((task-status need-reward-speech))
-    (if (not arg0)
-     (set! (-> obj will-talk) #t)
-     )
-    (case (current-task (-> obj tasks)) 
-     (((game-task rolling-moles))
-       (when arg0
-        (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
-        (close-current! (-> obj tasks))
+    (((task-status need-reminder))
+     (set! (-> obj skippable) #t)
+     (cond
+       ((closed? (-> obj tasks) (game-task rolling-moles) (task-status need-reward-speech))
+        (new 'static 'spool-anim :name "geologist-reminder-money" :index 8 :parts 2 :command-list '())
         )
-       (new 'static 'spool-anim
-        :name "geologist-resolution-moles"
-        :index 9
-        :parts 3
-        :command-list '()
+       ((closed? (-> obj tasks) (game-task village2-geologist-money) (task-status need-reward-speech))
+        (new 'static 'spool-anim :name "geologist-reminder-moles" :index 7 :parts 3 :command-list '())
         )
-       )
-     (else
-      (cond
-       (arg0
-        (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
-        (close-current! (-> obj tasks))
-        (send-event *target* 'get-pickup 5 (- (-> *GAME-bank* money-task-inc)))
+       ((zero? (get-reminder (-> obj tasks) 0))
+        (if arg0
+            (save-reminder (-> obj tasks) 1 0)
+            )
+        (new 'static 'spool-anim :name "geologist-reminder-moles" :index 7 :parts 3 :command-list '())
         )
        (else
-        (set! (-> obj talk-message) (the-as uint 282))
+         (if arg0
+             (save-reminder (-> obj tasks) 0 0)
+             )
+         (new 'static 'spool-anim :name "geologist-reminder-money" :index 8 :parts 2 :command-list '())
+         )
+       )
+     )
+    (((task-status need-reward-speech))
+     (if (not arg0)
+         (set! (-> obj will-talk) #t)
+         )
+     (case (current-task (-> obj tasks))
+       (((game-task rolling-moles))
+        (when arg0
+          (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
+          (close-current! (-> obj tasks))
+          )
+        (new 'static 'spool-anim :name "geologist-resolution-moles" :index 9 :parts 3 :command-list '())
         )
+       (else
+         (cond
+           (arg0
+             (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
+             (close-current! (-> obj tasks))
+             (send-event *target* 'get-pickup 5 (- (-> *GAME-bank* money-task-inc)))
+             )
+           (else
+             (set! (-> obj talk-message) (the-as uint 282))
+             )
+           )
+         (new 'static 'spool-anim :name "geologist-resolution-money" :index 10 :parts 2 :command-list '())
+         )
        )
-      (new 'static 'spool-anim
-       :name "geologist-resolution-money"
-       :index 10
-       :parts 2
-       :command-list '()
-       )
-      )
      )
-    )
-   (else
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
+    (else
+      (if arg0
+          (format
+            0
+            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+            (-> obj name)
+            (task-status->string (current-status (-> obj tasks)))
+            )
+          )
+      (-> obj draw art-group data 5)
       )
-     )
-    (-> obj draw art-group data 5)
     )
-   )
   )
 
 (defmethod get-art-elem geologist ((obj geologist))
@@ -186,96 +119,51 @@
   )
 
 (defmethod TODO-RENAME-43 geologist ((obj geologist))
-  (when
-   (TODO-RENAME-10
-    (-> obj ambient)
-    (new 'stack-no-clear 'vector)
-    9000
-    122880.0
-    obj
-    )
-   (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-          (v1-4 (the-as number (logior #x3f800000 v1-3)))
-          (f0-2 (+ -1.0 (the-as float v1-4)))
+  (when (TODO-RENAME-10 (-> obj ambient) (new 'stack-no-clear 'vector) 9000 122880.0 obj)
+    (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+           (v1-4 (the-as number (logior #x3f800000 v1-3)))
+           (f0-2 (+ -1.0 (the-as float v1-4)))
+           )
+      (cond
+        ((< 0.8888889 f0-2)
+         (play-ambient (-> obj ambient) "GEO-AM01" #f (-> obj root-override trans))
+         )
+        ((< 0.7777778 f0-2)
+         (if (not (closed? (-> obj tasks) (game-task rolling-moles) (task-status need-reminder)))
+             (play-ambient (-> obj ambient) "GEO-AM02" #f (-> obj root-override trans))
+             )
+         )
+        ((< 0.6666667 f0-2)
+         (play-ambient (-> obj ambient) "GEO-AM03" #f (-> obj root-override trans))
+         )
+        ((< 0.5555556 f0-2)
+         (if (closed? (-> obj tasks) (game-task village2-geologist-money) (task-status need-introduction))
+             (play-ambient (-> obj ambient) "GEO-AM04" #f (-> obj root-override trans))
+             )
+         )
+        ((< 0.44444445 f0-2)
+         (play-ambient (-> obj ambient) "GEO-AM05" #f (-> obj root-override trans))
+         )
+        ((< 0.33333334 f0-2)
+         (play-ambient (-> obj ambient) "GEO-AM06" #f (-> obj root-override trans))
+         )
+        ((< 0.22222222 f0-2)
+         (if (not (closed? (-> obj tasks) (game-task rolling-moles) (task-status need-reminder)))
+             (play-ambient (-> obj ambient) "GEO-AM07" #f (-> obj root-override trans))
+             )
+         )
+        ((< 0.11111111 f0-2)
+         (play-ambient (-> obj ambient) "GEO-LO02" #f (-> obj root-override trans))
+         )
+        ((closed? (-> obj tasks) (game-task village2-geologist-money) (task-status need-resolution))
+         (play-ambient (-> obj ambient) "GEO-AM08" #f (-> obj root-override trans))
+         )
+        (else
+          (play-ambient (-> obj ambient) "GEO-LO01" #f (-> obj root-override trans))
           )
-    (cond
-     ((< 0.8888889 f0-2)
-      (play-ambient (-> obj ambient) "GEO-AM01" #f (-> obj root-override trans))
-      )
-     ((< 0.7777778 f0-2)
-      (if
-       (not
-        (closed?
-         (-> obj tasks)
-         (game-task rolling-moles)
-         (task-status need-reminder)
-         )
         )
-       (play-ambient
-        (-> obj ambient)
-        "GEO-AM02"
-        #f
-        (-> obj root-override trans)
-        )
-       )
       )
-     ((< 0.6666667 f0-2)
-      (play-ambient (-> obj ambient) "GEO-AM03" #f (-> obj root-override trans))
-      )
-     ((< 0.5555556 f0-2)
-      (if
-       (closed?
-        (-> obj tasks)
-        (game-task village2-geologist-money)
-        (task-status need-introduction)
-        )
-       (play-ambient
-        (-> obj ambient)
-        "GEO-AM04"
-        #f
-        (-> obj root-override trans)
-        )
-       )
-      )
-     ((< 0.44444445 f0-2)
-      (play-ambient (-> obj ambient) "GEO-AM05" #f (-> obj root-override trans))
-      )
-     ((< 0.33333334 f0-2)
-      (play-ambient (-> obj ambient) "GEO-AM06" #f (-> obj root-override trans))
-      )
-     ((< 0.22222222 f0-2)
-      (if
-       (not
-        (closed?
-         (-> obj tasks)
-         (game-task rolling-moles)
-         (task-status need-reminder)
-         )
-        )
-       (play-ambient
-        (-> obj ambient)
-        "GEO-AM07"
-        #f
-        (-> obj root-override trans)
-        )
-       )
-      )
-     ((< 0.11111111 f0-2)
-      (play-ambient (-> obj ambient) "GEO-LO02" #f (-> obj root-override trans))
-      )
-     ((closed?
-       (-> obj tasks)
-       (game-task village2-geologist-money)
-       (task-status need-resolution)
-       )
-      (play-ambient (-> obj ambient) "GEO-AM08" #f (-> obj root-override trans))
-      )
-     (else
-      (play-ambient (-> obj ambient) "GEO-LO01" #f (-> obj root-override trans))
-      )
-     )
     )
-   )
   )
 
 (defmethod init-from-entity! geologist ((obj geologist) (arg0 entity-actor))
diff --git a/goal_src/levels/village2/sage-bluehut.gc b/goal_src/levels/village2/sage-bluehut.gc
index a09367a859..99b6e5e7c3 100644
--- a/goal_src/levels/village2/sage-bluehut.gc
+++ b/goal_src/levels/village2/sage-bluehut.gc
@@ -42,532 +42,375 @@
 
 (defmethod play-anim! sage-bluehut ((obj sage-bluehut) (arg0 symbol))
   (with-pp
-   (set! (-> obj talk-message) (the-as uint 291))
-   (case (current-status (-> obj tasks)) 
-    (((task-status need-hint) (task-status need-introduction))
-      (if (not arg0)
-       (set! (-> obj will-talk) #t)
-       )
-      (case (current-task (-> obj tasks)) 
-       (((game-task rolling-plants))
-         (when arg0
-          (let* ((s5-1 (-> obj tasks))
-                 (s4-0 (method-of-object s5-1 save-reminder))
-                 (a1-3 (new 'stack-no-clear 'event-message-block))
-                 )
-           (set! (-> a1-3 from) pp)
-           (set! (-> a1-3 num-params) 2)
-           (set! (-> a1-3 message) 'query)
-           (set! (-> a1-3 param 0) (the-as uint 'pickup))
-           (set! (-> a1-3 param 1) (the-as uint 6))
-           (s4-0
-            s5-1
-            (the int (the-as float (send-event-function *target* a1-3)))
-            1
-            )
+    (set! (-> obj talk-message) (the-as uint 291))
+    (case (current-status (-> obj tasks))
+      (((task-status need-hint) (task-status need-introduction))
+       (if (not arg0)
+           (set! (-> obj will-talk) #t)
            )
-          (close-status! (-> obj tasks) (task-status need-introduction))
-          (let ((s5-2 (-> obj assistant extra process)))
-           (if (and s5-2 (should-display? (the-as assistant-bluehut s5-2)))
-            (send-event s5-2 'clone (process->handle obj))
-            )
-           )
-          (set! (-> obj draw bounds w) 40960.0)
-          )
-         (new 'static 'spool-anim
-          :name
-          "sage-bluehut-introduction-crop-dusting"
-          :index 8
-          :parts 12
-          :command-list
-          '(
-            ((the binteger 678)
-              joint
-              "cameraB"
+       (case (current-task (-> obj tasks))
+         (((game-task rolling-plants))
+          (when arg0
+            (let* ((s5-1 (-> obj tasks))
+                   (s4-0 (method-of-object s5-1 save-reminder))
+                   (a1-3 (new 'stack-no-clear 'event-message-block))
+                   )
+              (set! (-> a1-3 from) pp)
+              (set! (-> a1-3 num-params) 2)
+              (set! (-> a1-3 message) 'query)
+              (set! (-> a1-3 param 0) (the-as uint 'pickup))
+              (set! (-> a1-3 param 1) (the-as uint 6))
+              (s4-0 s5-1 (the int (the-as float (send-event-function *target* a1-3))) 1)
               )
-            ((the binteger 1166)
-             joint
-             "camera"
+            (close-status! (-> obj tasks) (task-status need-introduction))
+            (let ((s5-2 (-> obj assistant extra process)))
+              (if (and s5-2 (should-display? (the-as assistant-bluehut s5-2)))
+                  (send-event s5-2 'clone (process->handle obj))
+                  )
+              )
+            (set! (-> obj draw bounds w) 40960.0)
+            )
+          (new 'static 'spool-anim
+            :name
+            "sage-bluehut-introduction-crop-dusting"
+            :index 8
+            :parts 12
+            :command-list
+            '((678 joint "cameraB") (1166 joint "camera") (1258 joint "cameraB"))
+            )
+          )
+         (else
+           (when arg0
+             (close-status! (-> obj tasks) (task-status need-introduction))
+             (close-specific-task! (game-task swamp-tether-1) (task-status need-introduction))
+             (close-specific-task! (game-task swamp-tether-2) (task-status need-introduction))
+             (close-specific-task! (game-task swamp-tether-3) (task-status need-introduction))
+             (close-specific-task! (game-task swamp-tether-4) (task-status need-introduction))
              )
-            ((the binteger 1258) joint "cameraB")
-            )
-          )
-         )
-       (else
-        (when arg0
-         (close-status! (-> obj tasks) (task-status need-introduction))
-         (close-specific-task!
-          (game-task swamp-tether-1)
-          (task-status need-introduction)
-          )
-         (close-specific-task!
-          (game-task swamp-tether-2)
-          (task-status need-introduction)
-          )
-         (close-specific-task!
-          (game-task swamp-tether-3)
-          (task-status need-introduction)
-          )
-         (close-specific-task!
-          (game-task swamp-tether-4)
-          (task-status need-introduction)
-          )
-         )
-        (new 'static 'spool-anim
-         :name "sage-bluehut-introduction-prec-arm"
-         :index 6
-         :parts 8
-         :command-list
-         '(
-           ((the binteger 141)
-             joint
-             "cameraB"
+           (new 'static 'spool-anim
+             :name "sage-bluehut-introduction-prec-arm"
+             :index 6
+             :parts 8
+             :command-list
+             '((141 joint "cameraB")
+               (214 joint "camera")
+               (308 joint "cameraB")
+               (686 joint "camera")
+               (786 joint "cameraB")
+               (843 joint "camera")
+               )
              )
-           ((the binteger 214)
-            joint
-            "camera"
-            )
-           ((the binteger 308)
-            joint
-            "cameraB"
-            )
-           ((the binteger 686)
-            joint
-            "camera"
-            )
-           ((the binteger 786)
-            joint
-            "cameraB"
-            )
-           ((the binteger 843) joint "camera")
            )
          )
-        )
        )
-      )
-    (((task-status need-reminder))
-     (set! (-> obj skippable) #t)
-     (if arg0
-      (set! (-> obj reminder-played) #t)
-      )
-     (cond
-      ((zero? (get-reminder (-> obj tasks) 0))
-       (new 'static 'spool-anim
-        :name "sage-bluehut-reminder-1-crop-dusting"
-        :index 9
-        :parts 3
-        :command-list '()
-        )
+      (((task-status need-reminder))
+       (set! (-> obj skippable) #t)
+       (if arg0
+           (set! (-> obj reminder-played) #t)
+           )
+       (cond
+         ((zero? (get-reminder (-> obj tasks) 0))
+          (new 'static 'spool-anim :name "sage-bluehut-reminder-1-crop-dusting" :index 9 :parts 3 :command-list '())
+          )
+         (else
+           (if arg0
+               (set! (-> obj draw bounds w) 40960.0)
+               )
+           (new 'static 'spool-anim
+             :name "sage-bluehut-reminder-1-prec-arm"
+             :index 7
+             :parts 4
+             :command-list
+             '((90 joint "cameraB") (259 joint "camera") (352 joint "cameraB"))
+             )
+           )
+         )
        )
       (else
-       (if arg0
-        (set! (-> obj draw bounds w) 40960.0)
-        )
-       (new 'static 'spool-anim
-        :name "sage-bluehut-reminder-1-prec-arm"
-        :index 7
-        :parts 4
-        :command-list
-        '(
-          ((the binteger 90)
-            joint
-            "cameraB"
+        (if arg0
+            (format
+              0
+              "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+              (-> obj name)
+              (task-status->string (current-status (-> obj tasks)))
+              )
             )
-          ((the binteger 259)
-           joint
-           "camera"
-           )
-          ((the binteger 352) joint "cameraB")
-          )
+        (get-art-elem obj)
         )
-       )
       )
-     )
-    (else
-     (if arg0
-      (format
-       0
-       "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-       (-> obj name)
-       (task-status->string (current-status (-> obj tasks)))
-       )
-      )
-     (get-art-elem obj)
-     )
     )
-   )
   )
 
 (defmethod dummy-45 sage-bluehut ((obj sage-bluehut))
   (cond
-   ((= (current-status (-> obj tasks)) (task-status unknown))
-    )
-   ((= (current-status (-> obj tasks)) (task-status invalid))
-    )
-   ((and
-     (closed?
-      (-> obj tasks)
-      (game-task rolling-plants)
-      (task-status need-reminder)
+    ((= (current-status (-> obj tasks)) (task-status unknown))
+     )
+    ((= (current-status (-> obj tasks)) (task-status invalid))
+     )
+    ((and (closed? (-> obj tasks) (game-task rolling-plants) (task-status need-reminder))
+          (= (get-reminder (-> obj tasks) 0) 0)
+          )
+     #t
+     )
+    ((and (closed? (-> obj tasks) (game-task swamp-arm) (task-status need-reminder))
+          (= (get-reminder (-> obj tasks) 0) 1)
+          )
+     #t
+     )
+    ((and (-> obj reminder-played) (< 81920.0 (vector-vector-distance (-> obj root-override trans) (camera-pos))))
+     #t
+     )
+    (else
       )
-     (= (get-reminder (-> obj tasks) 0) 0)
-     )
-    #t
     )
-   ((and
-     (closed? (-> obj tasks) (game-task swamp-arm) (task-status need-reminder))
-     (= (get-reminder (-> obj tasks) 0) 1)
-     )
-    #t
-    )
-   ((and
-     (-> obj reminder-played)
-     (<
-      81920.0
-      (vector-vector-distance (-> obj root-override trans) (camera-pos))
-      )
-     )
-    #t
-    )
-   (else
-    )
-   )
   (none)
   )
 
 (defmethod get-art-elem sage-bluehut ((obj sage-bluehut))
   (cond
-   ((and
-     (= (current-task (-> obj tasks)) (game-task rolling-plants))
-     (or
-      (= (current-status (-> obj tasks)) (task-status need-hint))
-      (= (current-status (-> obj tasks)) (task-status need-introduction))
-      )
+    ((and (= (current-task (-> obj tasks)) (game-task rolling-plants))
+          (or (= (current-status (-> obj tasks)) (task-status need-hint))
+              (= (current-status (-> obj tasks)) (task-status need-introduction))
+              )
+          )
+     (save-reminder (-> obj tasks) 0 0)
      )
-    (save-reminder (-> obj tasks) 0 0)
-    )
-   ((and
-     (= (current-task (-> obj tasks)) (game-task swamp-arm))
-     (or
-      (= (current-status (-> obj tasks)) (task-status need-hint))
-      (= (current-status (-> obj tasks)) (task-status need-introduction))
-      )
+    ((and (= (current-task (-> obj tasks)) (game-task swamp-arm))
+          (or (= (current-status (-> obj tasks)) (task-status need-hint))
+              (= (current-status (-> obj tasks)) (task-status need-introduction))
+              )
+          )
+     (save-reminder (-> obj tasks) 1 0)
      )
-    (save-reminder (-> obj tasks) 1 0)
-    )
-   ((dummy-45 obj)
-    (set! (-> obj reminder-played) #f)
-    (cond
-     ((closed?
-       (-> obj tasks)
-       (game-task rolling-plants)
-       (task-status need-reminder)
-       )
-      (save-reminder (-> obj tasks) 1 0)
-      )
-     ((or
-       (closed?
-        (-> obj tasks)
-        (game-task swamp-arm)
-        (task-status need-reminder)
+    ((dummy-45 obj)
+     (set! (-> obj reminder-played) #f)
+     (cond
+       ((closed? (-> obj tasks) (game-task rolling-plants) (task-status need-reminder))
+        (save-reminder (-> obj tasks) 1 0)
         )
-       (not
-        (closed?
-         (-> obj tasks)
-         (game-task swamp-arm)
-         (task-status need-introduction)
+       ((or (closed? (-> obj tasks) (game-task swamp-arm) (task-status need-reminder))
+            (not (closed? (-> obj tasks) (game-task swamp-arm) (task-status need-introduction)))
+            )
+        (save-reminder (-> obj tasks) 0 0)
+        )
+       ((zero? (get-reminder (-> obj tasks) 0))
+        (save-reminder (-> obj tasks) 1 0)
+        )
+       (else
+         (save-reminder (-> obj tasks) 0 0)
          )
-        )
        )
-      (save-reminder (-> obj tasks) 0 0)
-      )
-     ((zero? (get-reminder (-> obj tasks) 0))
-      (save-reminder (-> obj tasks) 1 0)
-      )
-     (else
-      (save-reminder (-> obj tasks) 0 0)
-      )
      )
     )
-   )
   (if (zero? (get-reminder (-> obj tasks) 0))
-   (-> obj draw art-group data 4)
-   (-> obj draw art-group data 5)
-   )
+      (-> obj draw art-group data 4)
+      (-> obj draw art-group data 5)
+      )
   )
 
 (defstate play-anim (sage-bluehut)
   :virtual #t
   :exit
   (behavior ()
-   (send-event (-> self assistant extra process) 'end-mode)
-   (set! (-> self draw bounds w) 10240.0)
-   ((-> (method-of-type process-taskable play-anim) exit))
-   (none)
-   )
+    (send-event (-> self assistant extra process) 'end-mode)
+    (set! (-> self draw bounds w) 10240.0)
+    ((-> (method-of-type process-taskable play-anim) exit))
+    (none)
+    )
   )
 
 (defmethod should-display? sage-bluehut ((obj sage-bluehut))
-  (and
-   (task-closed? (game-task village2-levitator) (task-status need-introduction))
-   (not (sages-kidnapped?))
-   )
+  (and (task-closed? (game-task village2-levitator) (task-status need-introduction)) (not (sages-kidnapped?)))
   )
 
 (defmethod play-reminder sage-bluehut ((obj sage-bluehut))
   (the-as
-   symbol
-   (and
-    (-> obj will-talk)
-    *target*
-    (< -6365184.0 (-> (target-pos 0) z))
-    (< (-> (target-pos 0) x) 1612800.0)
+    symbol
+    (and (-> obj will-talk) *target* (< -6365184.0 (-> (target-pos 0) z)) (< (-> (target-pos 0) x) 1612800.0))
     )
-   )
   )
 
 (defmethod target-above-threshold? sage-bluehut ((obj sage-bluehut))
   (local-vars (v0-1 symbol))
   (if (not (play-reminder obj))
-   (return #f)
-   )
+      (return #f)
+      )
   (let ((gp-1 (-> obj assistant extra process)))
-   (if (not gp-1)
-    (return #t)
+    (if (not gp-1)
+        (return #t)
+        )
+    (target-above-threshold? (the-as assistant-bluehut gp-1))
+    (return (not (-> (the-as assistant-bluehut gp-1) im-talking)))
     )
-   (target-above-threshold? (the-as assistant-bluehut gp-1))
-   (return (not (-> (the-as assistant-bluehut gp-1) im-talking)))
-   )
   v0-1
   )
 
 (defmethod TODO-RENAME-43 sage-bluehut ((obj sage-bluehut))
-  (when
-   (TODO-RENAME-10
-    (-> obj ambient)
-    (new 'stack-no-clear 'vector)
-    9000
-    122880.0
-    obj
+  (when (TODO-RENAME-10 (-> obj ambient) (new 'stack-no-clear 'vector) 9000 122880.0 obj)
+    (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+           (v1-4 (the-as number (logior #x3f800000 v1-3)))
+           (f0-2 (+ -1.0 (the-as float v1-4)))
+           )
+      (cond
+        ((< 0.8 f0-2)
+         (play-ambient (-> obj ambient) "SAGELP20" #f (-> obj root-override trans))
+         )
+        ((< 0.6 f0-2)
+         (play-ambient (-> obj ambient) "SAGELP21" #f (-> obj root-override trans))
+         )
+        ((< 0.4 f0-2)
+         (play-ambient (-> obj ambient) "SAGELP22" #f (-> obj root-override trans))
+         )
+        ((< 0.2 f0-2)
+         (play-ambient (-> obj ambient) "SAGELP23" #f (-> obj root-override trans))
+         )
+        ((nonzero? (get-task-status (game-task citadel-sage-blue)))
+         (play-ambient (-> obj ambient) "SAGELP24" #f (-> obj root-override trans))
+         )
+        )
+      )
     )
-   (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-          (v1-4 (the-as number (logior #x3f800000 v1-3)))
-          (f0-2 (+ -1.0 (the-as float v1-4)))
-          )
-    (cond
-     ((< 0.8 f0-2)
-      (play-ambient (-> obj ambient) "SAGELP20" #f (-> obj root-override trans))
-      )
-     ((< 0.6 f0-2)
-      (play-ambient (-> obj ambient) "SAGELP21" #f (-> obj root-override trans))
-      )
-     ((< 0.4 f0-2)
-      (play-ambient (-> obj ambient) "SAGELP22" #f (-> obj root-override trans))
-      )
-     ((< 0.2 f0-2)
-      (play-ambient (-> obj ambient) "SAGELP23" #f (-> obj root-override trans))
-      )
-     ((nonzero? (get-task-status (game-task citadel-sage-blue)))
-      (play-ambient (-> obj ambient) "SAGELP24" #f (-> obj root-override trans))
-      )
-     )
-    )
-   )
   )
 
 (defstate idle (sage-bluehut)
   :virtual #t
   :code
   (behavior ()
-   (while #t
-    (let ((gp-0 (get-art-elem self)))
-     (cond
-      ((= gp-0 (-> self draw art-group data 4))
-       (if (!= (if (> (-> self skel active-channels) 0)
-                (-> self skel root-channel 0 frame-group)
-                )
-            gp-0
-            )
-        (ja-channel-push! 1 60)
-        )
-       (set!
-        (-> self skel root-channel 0 frame-group)
-        (the-as art-joint-anim gp-0)
-        )
-       (let* ((f30-0 3.0)
-              (v1-15 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-              (v1-16 (the-as number (logior #x3f800000 v1-15)))
-              )
-        (countdown
-         (gp-1 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-16)))) 5))
-         (TODO-RENAME-43 self)
-         (let ((a0-5 (-> self skel root-channel 0)))
-          (set! (-> a0-5 frame-group) (if (> (-> self skel active-channels) 0)
-                                       (-> self skel root-channel 0 frame-group)
-                                       )
-           )
-          (set!
-           (-> a0-5 param 0)
-           (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                              (-> self skel root-channel 0 frame-group)
-                              )
-                          data
-                          0
-                          length
-                          )
-                       -1
+    (while #t
+      (let ((gp-0 (get-art-elem self)))
+        (cond
+          ((= gp-0 (-> self draw art-group data 4))
+           (if (!= (if (> (-> self skel active-channels) 0)
+                       (-> self skel root-channel 0 frame-group)
                        )
-            )
-           )
-          (set! (-> a0-5 param 1) 1.0)
-          (set! (-> a0-5 frame-num) 0.0)
-          (joint-control-channel-group!
-           a0-5
-           (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
-            )
-           num-func-seek!
-           )
-          )
-         (until (ja-done? 0)
-          (if (dummy-45 self)
-           (go-virtual idle)
-           )
-          (suspend)
-          (let ((a0-7 (-> self skel root-channel 0)))
-           (set!
-            (-> a0-7 param 0)
-            (the float (+ (-> a0-7 frame-group data 0 length) -1))
-            )
-           (set! (-> a0-7 param 1) 1.0)
-           (joint-control-channel-group-eval!
-            a0-7
-            (the-as art-joint-anim #f)
-            num-func-seek!
-            )
-           )
-          )
-         )
-        )
-       (ja-channel-push! 1 60)
-       (let ((a0-10 (-> self skel root-channel 0)))
-        (set!
-         (-> a0-10 frame-group)
-         (the-as art-joint-anim (-> self draw art-group data 3))
-         )
-        (set!
-         (-> a0-10 param 0)
-         (the
-          float
-          (+
-           (->
-            (the-as art-joint-anim (-> self draw art-group data 3))
-            data
-            0
-            length
-            )
-           -1
-           )
-          )
-         )
-        (set! (-> a0-10 param 1) 1.0)
-        (set! (-> a0-10 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-10
-         (the-as art-joint-anim (-> self draw art-group data 3))
-         num-func-seek!
-         )
-        )
-       (until (ja-done? 0)
-        (if (dummy-45 self)
-         (go-virtual idle)
-         )
-        (suspend)
-        (let ((a0-12 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-12 param 0)
-          (the float (+ (-> a0-12 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-12 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-12
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       )
-      (else
-       (TODO-RENAME-43 self)
-       (if (!= (if (> (-> self skel active-channels) 0)
-                (-> self skel root-channel 0 frame-group)
-                )
-            gp-0
-            )
-        (ja-channel-push! 1 60)
-        )
-       (set!
-        (-> self skel root-channel 0 frame-group)
-        (the-as art-joint-anim gp-0)
-        )
-       (let ((a0-16 (-> self skel root-channel 0)))
-        (set! (-> a0-16 frame-group) (if (> (-> self skel active-channels) 0)
-                                      (-> self skel root-channel 0 frame-group)
-                                      )
-         )
-        (set!
-         (-> a0-16 param 0)
-         (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                            (-> self skel root-channel 0 frame-group)
-                            )
-                        data
-                        0
-                        length
-                        )
-                     -1
+                   gp-0
+                   )
+               (ja-channel-push! 1 60)
+               )
+           (set! (-> self skel root-channel 0 frame-group) (the-as art-joint-anim gp-0))
+           (let* ((f30-0 3.0)
+                  (v1-15 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                  (v1-16 (the-as number (logior #x3f800000 v1-15)))
+                  )
+             (countdown (gp-1 (+ (the int (* f30-0 (+ -1.0 (the-as float v1-16)))) 5))
+               (TODO-RENAME-43 self)
+               (let ((a0-5 (-> self skel root-channel 0)))
+                 (set! (-> a0-5 frame-group) (if (> (-> self skel active-channels) 0)
+                                                 (-> self skel root-channel 0 frame-group)
+                                                 )
+                       )
+                 (set! (-> a0-5 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                               (-> self skel root-channel 0 frame-group)
+                                                               )
+                                                           data
+                                                           0
+                                                           length
+                                                           )
+                                                       -1
+                                                       )
+                                              )
+                       )
+                 (set! (-> a0-5 param 1) 1.0)
+                 (set! (-> a0-5 frame-num) 0.0)
+                 (joint-control-channel-group!
+                   a0-5
+                   (if (> (-> self skel active-channels) 0)
+                       (-> self skel root-channel 0 frame-group)
+                       )
+                   num-func-seek!
+                   )
+                 )
+               (until (ja-done? 0)
+                 (if (dummy-45 self)
+                     (go-virtual idle)
                      )
+                 (suspend)
+                 (let ((a0-7 (-> self skel root-channel 0)))
+                   (set! (-> a0-7 param 0) (the float (+ (-> a0-7 frame-group data 0 length) -1)))
+                   (set! (-> a0-7 param 1) 1.0)
+                   (joint-control-channel-group-eval! a0-7 (the-as art-joint-anim #f) num-func-seek!)
+                   )
+                 )
+               )
+             )
+           (ja-channel-push! 1 60)
+           (let ((a0-10 (-> self skel root-channel 0)))
+             (set! (-> a0-10 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+             (set! (-> a0-10 param 0)
+                   (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
+                   )
+             (set! (-> a0-10 param 1) 1.0)
+             (set! (-> a0-10 frame-num) 0.0)
+             (joint-control-channel-group! a0-10 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
+             )
+           (until (ja-done? 0)
+             (if (dummy-45 self)
+                 (go-virtual idle)
+                 )
+             (suspend)
+             (let ((a0-12 (-> self skel root-channel 0)))
+               (set! (-> a0-12 param 0) (the float (+ (-> a0-12 frame-group data 0 length) -1)))
+               (set! (-> a0-12 param 1) 1.0)
+               (joint-control-channel-group-eval! a0-12 (the-as art-joint-anim #f) num-func-seek!)
+               )
+             )
+           )
+          (else
+            (TODO-RENAME-43 self)
+            (if (!= (if (> (-> self skel active-channels) 0)
+                        (-> self skel root-channel 0 frame-group)
+                        )
+                    gp-0
+                    )
+                (ja-channel-push! 1 60)
+                )
+            (set! (-> self skel root-channel 0 frame-group) (the-as art-joint-anim gp-0))
+            (let ((a0-16 (-> self skel root-channel 0)))
+              (set! (-> a0-16 frame-group) (if (> (-> self skel active-channels) 0)
+                                               (-> self skel root-channel 0 frame-group)
+                                               )
+                    )
+              (set! (-> a0-16 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                             (-> self skel root-channel 0 frame-group)
+                                                             )
+                                                         data
+                                                         0
+                                                         length
+                                                         )
+                                                     -1
+                                                     )
+                                            )
+                    )
+              (set! (-> a0-16 param 1) 1.0)
+              (set! (-> a0-16 frame-num) 0.0)
+              (joint-control-channel-group!
+                a0-16
+                (if (> (-> self skel active-channels) 0)
+                    (-> self skel root-channel 0 frame-group)
+                    )
+                num-func-seek!
+                )
+              )
+            (until (ja-done? 0)
+              (if (dummy-45 self)
+                  (go-virtual idle)
+                  )
+              (suspend)
+              (let ((a0-18 (-> self skel root-channel 0)))
+                (set! (-> a0-18 param 0) (the float (+ (-> a0-18 frame-group data 0 length) -1)))
+                (set! (-> a0-18 param 1) 1.0)
+                (joint-control-channel-group-eval! a0-18 (the-as art-joint-anim #f) num-func-seek!)
+                )
+              )
+            )
           )
-         )
-        (set! (-> a0-16 param 1) 1.0)
-        (set! (-> a0-16 frame-num) 0.0)
-        (joint-control-channel-group!
-         a0-16
-         (if (> (-> self skel active-channels) 0)
-          (-> self skel root-channel 0 frame-group)
-          )
-         num-func-seek!
-         )
         )
-       (until (ja-done? 0)
-        (if (dummy-45 self)
-         (go-virtual idle)
-         )
-        (suspend)
-        (let ((a0-18 (-> self skel root-channel 0)))
-         (set!
-          (-> a0-18 param 0)
-          (the float (+ (-> a0-18 frame-group data 0 length) -1))
-          )
-         (set! (-> a0-18 param 1) 1.0)
-         (joint-control-channel-group-eval!
-          a0-18
-          (the-as art-joint-anim #f)
-          num-func-seek!
-          )
-         )
-        )
-       )
       )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
-(defmethod
-  init-from-entity!
-  sage-bluehut
-  ((obj sage-bluehut) (arg0 entity-actor))
+(defmethod init-from-entity! sage-bluehut ((obj sage-bluehut) (arg0 entity-actor))
   (dummy-40 obj arg0 *sage-bluehut-sg* 3 40 (new 'static 'vector :w 4505.6) 5)
   (set! (-> obj tasks) (get-task-control (game-task rolling-plants)))
   (set! (-> obj reminder-played) #f)
diff --git a/goal_src/levels/village2/swamp-blimp.gc b/goal_src/levels/village2/swamp-blimp.gc
index 95326bfb46..d1d87a009f 100644
--- a/goal_src/levels/village2/swamp-blimp.gc
+++ b/goal_src/levels/village2/swamp-blimp.gc
@@ -59,209 +59,171 @@
   :longest-edge (meters 40)
   )
 
-(set! (-> *part-group-id-table* 285) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #x96
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-tetherrock-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2065 :period 600 :length 5)
-                                         (sp-item 2066 :period 600 :length 40)
-                                         (sp-item 2067 :period 600 :length 20)
-                                         (sp-item 2068 :period 600 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 65536.0)
-                                       )
-      )
+(defpartgroup group-tetherrock-explode
+  :id 285
+  :duration 150
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 2065 :period 600 :length 5)
+    (sp-item 2066 :period 600 :length 40)
+    (sp-item 2067 :period 600 :length 20)
+    (sp-item 2068 :period 600 :length 20)
+    )
+  )
 
-(set! (-> *part-id-table* 2066) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.33) (meters 0.66) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2069)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2066
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 6.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.33) (meters 0.66) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 192.0 64.0 1.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.0033333334))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 30 29 1)
+    (sp-launcher-by-id spt-next-launcher 2069)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2069)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2069
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
+  )
 
-(set! (-> *part-id-table* 2068) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 16.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2068
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 3.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-flt spt-scale-y (meters 16))
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 196.0)
+    (sp-flt spt-b 0.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 1.04))
+    (sp-flt spt-fade-a -1.6)
+    (sp-int spt-timer 60)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2065) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 32.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2065
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-scale-x (meters 32))
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 192.0 32.0 1.0)
+    (sp-flt spt-b 0.0)
+    (sp-flt spt-a 128.0)
+    (sp-flt spt-fade-a -2.3272727)
+    (sp-int spt-timer 54)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2067) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int spt-next-time 42)
-                                    (sp-launcher-by-id spt-next-launcher 2070)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2067
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-rnd-flt spt-g 192.0 64.0 1.0)
+    (sp-flt spt-b 128.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.026666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.42666668)
+    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 510)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int spt-next-time 42)
+    (sp-launcher-by-id spt-next-launcher 2070)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2070)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r -0.53333336)
-                                                     (sp-flt spt-fade-g -0.53333336)
-                                                     (sp-flt spt-fade-b -1.0583333)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2070
+  :init-specs
+  ((sp-flt spt-fade-r -0.53333336) (sp-flt spt-fade-g -0.53333336) (sp-flt spt-fade-b -1.0583333))
+  )
 
-(set! (-> *part-id-table* 2017) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.2)
-                                    (sp-flt spt-y (meters 0.1))
-                                    (sp-flt spt-scale-x (meters 3.0))
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.01) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit4 bit14)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 109)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2017
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 0.2)
+    (sp-flt spt-y (meters 0.1))
+    (sp-flt spt-scale-x (meters 3))
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 64.0)
+    (sp-flt spt-g 64.0)
+    (sp-flt spt-b 64.0)
+    (sp-flt spt-a 64.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.01) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-int spt-timer 600)
+    (sp-cpuinfo-flags bit2 bit4 bit14)
+    (sp-int spt-next-time 150)
+    (sp-launcher-by-id spt-next-launcher 109)
+    )
+  )
 
-(set! (-> *part-group-id-table* 287)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-tether-rock-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1321 :period 15 :length 5))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-swamp-tether-rock-hit
+  :id 287
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1321 :period 15 :length 5))
+  )
 
-(set! (-> *part-id-table* 1321) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1321
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+    (sp-rnd-flt spt-num 1.0 1.0 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 70.0 16.0 1.0)
+    (sp-rnd-flt spt-g 70.0 16.0 1.0)
+    (sp-flt spt-b 70.0)
+    (sp-flt spt-a 128.0)
+    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-flt spt-accel-y -10.922667)
+    (sp-flt spt-friction 0.99)
+    (sp-int spt-timer 150)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-userdata 0.0)
+    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (deftype swamp-blimp-bank (basic)
   ((arm-index                 int32  :offset-assert   4)
diff --git a/goal_src/levels/village2/village2-obs.gc b/goal_src/levels/village2/village2-obs.gc
index d04f0d0569..edd146d08a 100644
--- a/goal_src/levels/village2/village2-obs.gc
+++ b/goal_src/levels/village2/village2-obs.gc
@@ -467,85 +467,70 @@
   (none)
   )
 
-(set! (-> *part-group-id-table* 563) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-allpontoons-trail"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2841 :flags (is-3d) :period 900 :length 5)
-                                         (sp-item 2842 :flags (is-3d) :period 900 :length 5)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-allpontoons-trail
+  :id 563
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2841 :flags (is-3d) :period 900 :length 5) (sp-item 2842 :flags (is-3d) :period 900 :length 5))
+  )
 
-(set! (-> *part-id-table* 2841) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 9.0) 1.0)
-                                    (sp-flt spt-y (meters 0.1))
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.001) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2843)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2841
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 9) 1.0)
+    (sp-flt spt-y (meters 0.1))
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.001) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 3.2)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int-plain-rnd spt-next-time 10 29 1)
+    (sp-launcher-by-id spt-next-launcher 2843)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2843)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.094814815) (sp-end))
-        )
-      )
+(defpart 2843
+  :init-specs
+  ((sp-flt spt-fade-a -0.094814815))
+  )
 
-(set! (-> *part-id-table* 2842) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 8.0) (meters 8.0) 1.0)
-                                    (sp-flt spt-y (meters 0.1))
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.001) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2843)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2842
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters 8) (meters 8) 1.0)
+    (sp-flt spt-y (meters 0.1))
+    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 2) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.001) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 3.2)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    (sp-int-plain-rnd spt-next-time 10 29 1)
+    (sp-launcher-by-id spt-next-launcher 2843)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
 (deftype allpontoons (process-drawable)
   ((task uint8  :offset-assert 176)
@@ -1233,225 +1218,192 @@
   :longest-edge (meters 0)
   )
 
-(set! (-> *part-group-id-table* 564) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ogreboulder-trail"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2319 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         (sp-item 2320 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-ogreboulder-trail
+  :id 564
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2319 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 2320 :fade-after (meters 200) :falloff-to (meters 200))
+    )
+  )
 
-(set! (-> *part-id-table* 2320) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-flt spt-b 32.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.04))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.21333334)
-                                    (sp-flt spt-fade-g -0.10666667)
-                                    (sp-flt spt-fade-b 0.10666667)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2320
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 32.0)
+    (sp-rnd-flt spt-a 48.0 48.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.04))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-r -0.21333334)
+    (sp-flt spt-fade-g -0.10666667)
+    (sp-flt spt-fade-b 0.10666667)
+    (sp-flt spt-fade-a -0.32)
+    (sp-flt spt-accel-y -0.027306668)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    )
+  )
 
-(set! (-> *part-id-table* 2319) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-flt spt-b 32.0)
-                                    (sp-rnd-flt spt-a 80.0 80.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.04))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.53333336)
-                                    (sp-flt spt-fade-b -0.17777778)
-                                    (sp-flt spt-fade-a -1.0666667)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 180)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2319
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 0.5)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 128.0)
+    (sp-flt spt-g 96.0)
+    (sp-flt spt-b 32.0)
+    (sp-rnd-flt spt-a 80.0 80.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.04))
+    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.53333336)
+    (sp-flt spt-fade-b -0.17777778)
+    (sp-flt spt-fade-a -1.0666667)
+    (sp-flt spt-accel-y -0.027306668)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-group-id-table* 551)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-ogreboulder-hit-wall"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2287 :period 900 :length 40))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-ogreboulder-hit-wall
+  :id 551
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2287 :period 900 :length 40))
+  )
 
-(set! (-> *part-id-table* 2287) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 10.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.4))
-                                    (sp-flt spt-fade-a -3.2)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2287
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-flt spt-num 12.0)
+    (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 10) (meters 6) 1.0)
+    (sp-rnd-flt spt-r 196.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-scalevel-y (meters 1.4))
+    (sp-flt spt-fade-a -3.2)
+    (sp-int spt-timer 30)
+    (sp-cpuinfo-flags bit2 bit3 bit14)
+    )
+  )
 
-(set! (-> *part-group-id-table* 552) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ogreboulder-splash"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2288 :period 900 :length 20)
-                                         (sp-item 2321 :flags (is-3d) :period 900 :length 10)
-                                         (sp-item 2322 :flags (is-3d) :period 900 :length 10)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-ogreboulder-splash
+  :id 552
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2288 :period 900 :length 20)
+    (sp-item 2321 :flags (is-3d) :period 900 :length 10)
+    (sp-item 2322 :flags (is-3d) :period 900 :length 10)
+    )
+  )
 
-(set! (-> *part-id-table* 2321) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 9.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 16.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2323)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2321
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 9) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 16) (meters 8) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.026666667) (meters 0.026666667) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 3.2)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 10 29 1)
+    (sp-launcher-by-id spt-next-launcher 2323)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2323)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.094814815) (sp-end))
-        )
-      )
+(defpart 2323
+  :init-specs
+  ((sp-flt spt-fade-a -0.094814815))
+  )
 
-(set! (-> *part-id-table* 2322) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 8.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.5) (meters 3.5) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2323)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2322
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+    (sp-flt spt-num 8.0)
+    (sp-rnd-flt spt-x (meters 8) (meters 8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4.5) (meters 3.5) 1.0)
+    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 64.0 1.0)
+    (sp-rnd-flt spt-g 128.0 64.0 1.0)
+    (sp-rnd-flt spt-b 128.0 64.0 1.0)
+    (sp-flt spt-a 0.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a 3.2)
+    (sp-int spt-timer 1500)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-int-plain-rnd spt-next-time 10 29 1)
+    (sp-launcher-by-id spt-next-launcher 2323)
+    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )
 
-(set! (-> *part-id-table* 2288) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 50.0)
-                                    (sp-rnd-flt spt-g 80.0 64.0 1.0)
-                                    (sp-flt spt-b 200.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.16)
-                                    (sp-rnd-flt spt-accel-y 2.048 2.048 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int spt-timer 660)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 90.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 8.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2288
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 16.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 12) (meters 6) 1.0)
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 50.0)
+    (sp-rnd-flt spt-g 80.0 64.0 1.0)
+    (sp-flt spt-b 200.0)
+    (sp-rnd-flt spt-a 48.0 48.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
+    (sp-flt spt-scalevel-x (meters 0.026666667))
+    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.16)
+    (sp-rnd-flt spt-accel-y 2.048 2.048 1.0)
+    (sp-flt spt-friction 0.85)
+    (sp-int spt-timer 660)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 90.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 8) 1.0)
+    )
+  )
 
 (defbehavior ogreboss-village2-trans ogreboss-village2 ()
   (when (= (get-task-status (game-task village2-levitator)) (task-status invalid))
diff --git a/goal_src/levels/village2/village2-part.gc b/goal_src/levels/village2/village2-part.gc
index e3b95592a3..8a5e30e16b 100644
--- a/goal_src/levels/village2/village2-part.gc
+++ b/goal_src/levels/village2/village2-part.gc
@@ -16,29 +16,19 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 264)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-moth"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 1129 :fade-after (meters 120.0) :flags (bit1) :period 18030 :length 5 :binding 1127)
+(defpartgroup group-village2-moth
+  :id 264
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 1129 :fade-after (meters 120) :flags (bit1) :period 18030 :length 5 :binding 1127)
     (sp-item 1127 :flags (start-dead launch-asap) :binding 1128)
     (sp-item 1128 :flags (is-3d start-dead))
     )
-   :bounds (new 'static 'sphere :w 12288.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1129)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 10
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1129
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
@@ -47,20 +37,15 @@
     (sp-int spt-timer 18000)
     (sp-cpuinfo-flags bit3)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1127)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1127
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-flt spt-z 6144.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-flt spt-z (meters 1.5))
     (sp-flt spt-scale-x (meters 0.1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -71,37 +56,27 @@
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 18000)
     (sp-cpuinfo-flags bit3 bit7)
     (sp-int-plain-rnd spt-next-time 150 449 1)
     (sp-launcher-by-id spt-next-launcher 1130)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1130)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
+(defpart 1130
+  :init-specs
+  ((sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
     (sp-int-plain-rnd spt-next-time 150 449 1)
     (sp-launcher-by-id spt-next-launcher 1130)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1128)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+(defpart 1128
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
     (sp-func spt-birth-func 'birth-func-copy-rot-color)
     (sp-flt spt-num 2.0)
     (sp-flt spt-scale-x (meters 0.4))
@@ -113,21 +88,14 @@
     (sp-flt spt-a 128.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 265)
-  (new 'static 'sparticle-launch-group
-   :length 9
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-tableflys"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 9
-    (sp-item 1133 :flags (launch-asap) :binding 1131)
+(defpartgroup group-village2-tableflys
+  :id 265
+  :bounds (static-bspherem 0 3 0 10)
+  :parts
+  ((sp-item 1133 :flags (launch-asap) :binding 1131)
     (sp-item 1134 :flags (launch-asap) :binding 1131)
     (sp-item 1135 :flags (launch-asap) :binding 1131)
     (sp-item 1131 :flags (start-dead launch-asap) :binding 1132)
@@ -137,21 +105,15 @@
     (sp-item 1132 :flags (is-3d start-dead))
     (sp-item 1132 :flags (is-3d start-dead))
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 40960.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1133)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1133
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
-    (sp-flt spt-y (meters 2.0))
-    (sp-flt spt-z 20480.0)
+    (sp-flt spt-x (meters 0))
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-z (meters 5))
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-a 128.0)
@@ -159,34 +121,21 @@
     (sp-cpuinfo-flags bit3)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1136)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1136)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-int spt-timer 300)
-    (sp-int spt-next-time 150)
-    (sp-launcher-by-id spt-next-launcher 1136)
-    (sp-end)
-    )
-   )
+(defpart 1136
+  :init-specs
+  ((sp-int spt-timer 300) (sp-int spt-next-time 150) (sp-launcher-by-id spt-next-launcher 1136))
   )
 
-(set!
-  (-> *part-id-table* 1134)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1134
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 4.0))
-    (sp-flt spt-y (meters 2.0))
-    (sp-flt spt-z -8192.0)
+    (sp-flt spt-x (meters 4))
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-z (meters -2))
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-a 128.0)
@@ -194,21 +143,16 @@
     (sp-cpuinfo-flags bit3)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1136)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1135)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1135
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -4.0))
-    (sp-flt spt-y (meters 2.0))
-    (sp-flt spt-z -8192.0)
+    (sp-flt spt-x (meters -4))
+    (sp-flt spt-y (meters 2))
+    (sp-flt spt-z (meters -2))
     (sp-flt spt-scale-x (meters 0.01))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-a 128.0)
@@ -216,42 +160,32 @@
     (sp-cpuinfo-flags bit3)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1136)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1131)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1131
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-int spt-num 1065353216 1 2.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 4096.0 4096.0 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 1) (meters 1) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-int spt-timer 300)
     (sp-cpuinfo-flags bit7)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1136)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1132)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+(defpart 1132
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
     (sp-func spt-birth-func 'birth-func-copy-rot-color)
     (sp-flt spt-num 3.0)
     (sp-flt spt-scale-x (meters 0.15))
@@ -263,154 +197,97 @@
     (sp-rnd-flt spt-a 64.0 64.0 1.0)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit9 bit12)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 266)
-  (new 'static 'sparticle-launch-group
-   :length 8
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-flamepot"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 8
-    (sp-item 1137 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1138 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 492 :length 60)
-    (sp-item 1139 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1140 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 369 :length 219)
-    (sp-item 1141 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 690 :length 90)
-    (sp-item 1142 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 918 :length 669)
-    (sp-item 1143 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 750 :length 30)
-    (sp-item 1144 :fade-after (meters 50.0) :falloff-to (meters 60.0))
+(defpartgroup group-village2-flamepot
+  :id 266
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 1137 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1138 :fade-after (meters 40) :falloff-to (meters 40) :period 492 :length 60)
+    (sp-item 1139 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1140 :fade-after (meters 40) :falloff-to (meters 40) :period 369 :length 219)
+    (sp-item 1141 :fade-after (meters 40) :falloff-to (meters 40) :period 690 :length 90)
+    (sp-item 1142 :fade-after (meters 40) :falloff-to (meters 40) :period 918 :length 669)
+    (sp-item 1143 :fade-after (meters 40) :falloff-to (meters 40) :period 750 :length 30)
+    (sp-item 1144 :fade-after (meters 50) :falloff-to (meters 60))
     )
-   :bounds
-   (new 'static 'sphere :y 20480.0 :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 267)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-flamepot-half"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 1145 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1146 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1147 :fade-after (meters 50.0) :falloff-to (meters 60.0))
+(defpartgroup group-village2-flamepot-half
+  :id 267
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 1145 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1146 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1147 :fade-after (meters 50) :falloff-to (meters 60))
     )
-   :bounds
-   (new 'static 'sphere :y 20480.0 :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 268)
-  (new 'static 'sparticle-launch-group
-   :length 8
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-flamepot-alt1"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 8
-    (sp-item 1137 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1138 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 378 :length 60)
-    (sp-item 1139 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1140 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 435 :length 219)
-    (sp-item 1141 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 528 :length 90)
-    (sp-item 1142 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 1077 :length 669)
-    (sp-item 1143 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 612 :length 30)
-    (sp-item 1144 :fade-after (meters 50.0) :falloff-to (meters 60.0))
+(defpartgroup group-village2-flamepot-alt1
+  :id 268
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 1137 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1138 :fade-after (meters 40) :falloff-to (meters 40) :period 378 :length 60)
+    (sp-item 1139 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1140 :fade-after (meters 40) :falloff-to (meters 40) :period 435 :length 219)
+    (sp-item 1141 :fade-after (meters 40) :falloff-to (meters 40) :period 528 :length 90)
+    (sp-item 1142 :fade-after (meters 40) :falloff-to (meters 40) :period 1077 :length 669)
+    (sp-item 1143 :fade-after (meters 40) :falloff-to (meters 40) :period 612 :length 30)
+    (sp-item 1144 :fade-after (meters 50) :falloff-to (meters 60))
     )
-   :bounds
-   (new 'static 'sphere :y 20480.0 :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 269)
-  (new 'static 'sparticle-launch-group
-   :length 8
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-flamepot-alt2"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 8
-    (sp-item 1137 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1138 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 609 :length 60)
-    (sp-item 1139 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1140 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 288 :length 219)
-    (sp-item 1141 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 645 :length 90)
-    (sp-item 1142 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 771 :length 669)
-    (sp-item 1143 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 857 :length 30)
-    (sp-item 1144 :fade-after (meters 50.0) :falloff-to (meters 60.0))
+(defpartgroup group-village2-flamepot-alt2
+  :id 269
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 1137 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1138 :fade-after (meters 40) :falloff-to (meters 40) :period 609 :length 60)
+    (sp-item 1139 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1140 :fade-after (meters 40) :falloff-to (meters 40) :period 288 :length 219)
+    (sp-item 1141 :fade-after (meters 40) :falloff-to (meters 40) :period 645 :length 90)
+    (sp-item 1142 :fade-after (meters 40) :falloff-to (meters 40) :period 771 :length 669)
+    (sp-item 1143 :fade-after (meters 40) :falloff-to (meters 40) :period 857 :length 30)
+    (sp-item 1144 :fade-after (meters 50) :falloff-to (meters 60))
     )
-   :bounds
-   (new 'static 'sphere :y 20480.0 :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 270)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-flamepot-off"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1
-    (sp-item 1148 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    )
-   :bounds
-   (new 'static 'sphere :y 20480.0 :w 24576.0)
-   )
+(defpartgroup group-village2-flamepot-off
+  :id 270
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 1148 :fade-after (meters 100) :falloff-to (meters 100)))
   )
 
-(set!
-  (-> *part-id-table* 1144)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-flt spt-num 0.4)
-    (sp-flt spt-x (meters 1.0))
+(defpart 1144
+  :init-specs
+  ((sp-flt spt-num 0.4)
+    (sp-flt spt-x (meters 1))
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
     (sp-flt spt-g 2949.12)
     (sp-flt spt-b 3276.8)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-flt spt-vel-y (meters 0.026666667))
     (sp-int spt-timer 180)
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 1149)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1149)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -5.4613333)
-    (sp-end)
-    )
-   )
+(defpart 1149
+  :init-specs
+  ((sp-flt spt-fade-b -5.4613333))
   )
 
-(set!
-  (-> *part-id-table* 1147)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 13
-    (sp-flt spt-num 0.15)
+(defpart 1147
+  :init-specs
+  ((sp-flt spt-num 0.15)
     (sp-flt spt-x (meters 0.4))
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
@@ -422,33 +299,22 @@
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 1150)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1150)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -3.4133334)
-    (sp-end)
-    )
-   )
+(defpart 1150
+  :init-specs
+  ((sp-flt spt-fade-b -3.4133334))
   )
 
-(set!
-  (-> *part-id-table* 1137)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1137
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.4 1.0)
     (sp-rnd-flt spt-x (meters -0.25) (meters 0.75) 1.0)
     (sp-flt spt-y (meters -0.25))
-    (sp-rnd-flt spt-z -1024.0 3072.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.75) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -465,22 +331,17 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1145)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1145
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.35 0.25 1.0)
     (sp-rnd-flt spt-x (meters -0.1) (meters 0.1) 1.0)
     (sp-flt spt-y (meters -0.25))
-    (sp-rnd-flt spt-z -409.6 409.6 1.0)
+    (sp-rnd-flt spt-z (meters -0.1) (meters 0.1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -498,23 +359,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1138)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1138
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1060320051 1 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
     (sp-flt spt-y (meters -0.25))
-    (sp-rnd-flt spt-z 0.0 2048.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
+    (sp-rnd-flt spt-z (meters 0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -531,23 +387,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1139)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1139
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.15 0.2 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters -0.25))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -566,23 +417,18 @@
     (sp-launcher-by-id spt-next-launcher 1151)
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1146)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1146
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.06 0.06 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters -0.25))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -601,23 +447,18 @@
     (sp-launcher-by-id spt-next-launcher 1151)
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1148)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1148
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.08 0.1 1.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
     (sp-flt spt-y (meters -0.25))
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -636,49 +477,32 @@
     (sp-launcher-by-id spt-next-launcher 1151)
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1151)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-g 0.53333336)
+(defpart 1151
+  :init-specs
+  ((sp-flt spt-fade-g 0.53333336)
     (sp-flt spt-fade-b 1.0666667)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 1152)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1152)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-end)
-    )
-   )
+(defpart 1152
+  :init-specs
+  ((sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
   )
 
-(set!
-  (-> *part-id-table* 1140)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1140
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.4 0.55 1.0)
     (sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
     (sp-flt spt-y (meters -0.25))
-    (sp-rnd-flt spt-z -2457.6 4915.2 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
+    (sp-rnd-flt spt-z (meters -0.6) (meters 1.2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -695,23 +519,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees -15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1141)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1141
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1031127695 1 0.9)
     (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
     (sp-flt spt-y (meters 0.75))
-    (sp-rnd-flt spt-z -2457.6 2048.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
+    (sp-rnd-flt spt-z (meters -0.6) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -728,23 +547,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees -15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1142)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1142
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.6 0.9 1.0)
     (sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
     (sp-flt spt-y (meters -0.25))
-    (sp-rnd-flt spt-z -2457.6 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
+    (sp-rnd-flt spt-z (meters -0.6) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -761,23 +575,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 0.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1143)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1143
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1060320051 1 1.5)
     (sp-rnd-flt spt-x (meters -0.25) (meters 0.75) 1.0)
     (sp-flt spt-y (meters 0.75))
-    (sp-rnd-flt spt-z -2048.0 2048.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -794,71 +603,51 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 0.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 634)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-fireboulder-off"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1169 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-    (sp-item 1170 :fade-after (meters 80.0) :falloff-to (meters 100.0))
+(defpartgroup group-village2-fireboulder-off
+  :id 634
+  :bounds (static-bspherem 0 4 0 10.5)
+  :parts
+  ((sp-item 1169 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1170 :fade-after (meters 80) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 43008.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 271)
-  (new 'static 'sparticle-launch-group
-   :length 18
-   :duration #x4650
-   :linger-duration #x5dc
-   :name "group-village2-fireboulder"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 18
-    (sp-item 1153 :fade-after (meters 200.0) :falloff-to (meters 240.0))
-    (sp-item 1154 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 300 :length 60)
-    (sp-item 1155 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-    (sp-item 1156 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-    (sp-item 1157 :fade-after (meters 200.0) :falloff-to (meters 240.0))
-    (sp-item 1158 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 600 :length 90)
-    (sp-item 1159 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-    (sp-item 1160 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-    (sp-item 1161 :fade-after (meters 200.0) :falloff-to (meters 240.0))
-    (sp-item 1162 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 30)
-    (sp-item 1163 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-    (sp-item 1164 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-    (sp-item 1165 :fade-after (meters 200.0) :falloff-to (meters 240.0))
-    (sp-item 1166 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 240 :length 75)
-    (sp-item 1167 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-    (sp-item 1168 :fade-after (meters 200.0) :falloff-to (meters 240.0))
-    (sp-item 1169 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-    (sp-item 1170 :fade-after (meters 80.0) :falloff-to (meters 100.0))
+(defpartgroup group-village2-fireboulder
+  :id 271
+  :duration 18000
+  :bounds (static-bspherem 0 4 0 10.5)
+  :parts
+  ((sp-item 1153 :fade-after (meters 200) :falloff-to (meters 240))
+    (sp-item 1154 :fade-after (meters 100) :falloff-to (meters 120) :period 300 :length 60)
+    (sp-item 1155 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1156 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 1157 :fade-after (meters 200) :falloff-to (meters 240))
+    (sp-item 1158 :fade-after (meters 100) :falloff-to (meters 120) :period 600 :length 90)
+    (sp-item 1159 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1160 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 1161 :fade-after (meters 200) :falloff-to (meters 240))
+    (sp-item 1162 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 30)
+    (sp-item 1163 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1164 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 1165 :fade-after (meters 200) :falloff-to (meters 240))
+    (sp-item 1166 :fade-after (meters 100) :falloff-to (meters 120) :period 240 :length 75)
+    (sp-item 1167 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1168 :fade-after (meters 200) :falloff-to (meters 240))
+    (sp-item 1169 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1170 :fade-after (meters 80) :falloff-to (meters 100))
     )
-   :bounds
-   (new 'static 'sphere :y 16384.0 :w 43008.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1156)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters 1.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 6.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z 2048.0 10240.0 1.0)
+(defpart 1156
+  :init-specs
+  ((sp-flt spt-num 0.15)
+    (sp-rnd-flt spt-x (meters 1.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 6) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 2.5) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 6144.0)
@@ -870,31 +659,20 @@
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 1171)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1171)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b 13.653334)
-    (sp-end)
-    )
-   )
+(defpart 1171
+  :init-specs
+  ((sp-flt spt-fade-b 13.653334))
   )
 
-(set!
-  (-> *part-id-table* 1160)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-flt spt-num 0.15)
+(defpart 1160
+  :init-specs
+  ((sp-flt spt-num 0.15)
     (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-y (meters 5.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -4096.0 4096.0 1.0)
+    (sp-rnd-flt spt-y (meters 5.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 1) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 6144.0)
@@ -906,20 +684,15 @@
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 1171)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1164)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-flt spt-num 0.15)
+(defpart 1164
+  :init-specs
+  ((sp-flt spt-num 0.15)
     (sp-flt spt-x (meters 2.7))
-    (sp-rnd-flt spt-y (meters 4.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -12288.0 8192.0 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 2) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 6144.0)
@@ -931,22 +704,17 @@
     (sp-cpuinfo-flags aux-list)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 1171)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1153)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1153
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.7 1.2 1.0)
-    (sp-rnd-flt spt-x (meters 1.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 5.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z 2048.0 10240.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters 1.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -962,23 +730,18 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1154)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1154
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1058642330 1 1.7)
     (sp-rnd-flt spt-x (meters 1.5) (meters 0.7) 1.0)
-    (sp-rnd-flt spt-y (meters 6.0) (meters 0.6) 1.0)
-    (sp-rnd-flt spt-z 2048.0 7372.8 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 6) (meters 0.6) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 1.8) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -994,23 +757,18 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1155)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1155
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.05 0.2 1.0)
-    (sp-rnd-flt spt-x (meters 1.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 6.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z 2048.0 10240.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters 1.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 6) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 2.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1029,49 +787,32 @@
     (sp-launcher-by-id spt-next-launcher 1172)
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1172)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-g 0.53333336)
+(defpart 1172
+  :init-specs
+  ((sp-flt spt-fade-g 0.53333336)
     (sp-flt spt-fade-b 1.0666667)
     (sp-int spt-next-time 120)
     (sp-launcher-by-id spt-next-launcher 1173)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1173)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-end)
-    )
-   )
+(defpart 1173
+  :init-specs
+  ((sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
   )
 
-(set!
-  (-> *part-id-table* 1157)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1157
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.65 1.2 1.0)
     (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-y (meters 4.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -4096.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 4.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1088,23 +829,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1158)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1158
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1056964608 1 1.2)
     (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-y (meters 4.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -4096.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 4.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1121,23 +857,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1159)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1159
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.08 0.25 1.0)
     (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-y (meters 5.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -4096.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 5.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1157,23 +888,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 5.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1161)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1161
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.7 1.5 1.0)
     (sp-flt spt-x (meters 2.7))
-    (sp-rnd-flt spt-y (meters 3.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -12288.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 3) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1190,23 +916,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees -15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1162)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1162
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1058642330 1 1.4)
     (sp-flt spt-x (meters 2.7))
-    (sp-rnd-flt spt-y (meters 3.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -12288.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 3) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1223,23 +944,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees -15.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1163)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1163
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.08 0.25 1.0)
     (sp-flt spt-x (meters 2.7))
-    (sp-rnd-flt spt-y (meters 4.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -12288.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1259,23 +975,18 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees -5.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1165)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1165
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.65 1.5 1.0)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -12288.0 6144.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -3) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1291,24 +1002,19 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1166)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1166
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-int spt-num 1059481190 1 1.5)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -12288.0 6144.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -3) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1324,24 +1030,19 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1167)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1167
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.08 0.25 1.0)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 5.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -12288.0 6144.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -3) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1360,24 +1061,19 @@
     (sp-launcher-by-id spt-next-launcher 1172)
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1168)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1168
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.1 0.4 1.0)
-    (sp-rnd-flt spt-x (meters 1.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters 1.5) (meters 1) 1.0)
     (sp-flt spt-y (meters -0.5))
-    (sp-rnd-flt spt-z 2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1394,21 +1090,16 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees -45.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     (sp-rnd-int-flt spt-rotate-y (degrees 0.0) 2 -18568.533)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1169)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1169
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.15 0.15 1.0)
-    (sp-flt spt-y (meters 4.0))
+    (sp-flt spt-y (meters 4))
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1431,48 +1122,29 @@
     (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 4.5))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1174)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-vel-y (meters 0.013333334))
+(defpart 1174
+  :init-specs
+  ((sp-flt spt-vel-y (meters 0.013333334))
     (sp-flt spt-fade-a 0.0)
     (sp-flt spt-accel-y -0.00040000002)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1175)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1175)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-flt spt-fade-a -0.10666667)
-    (sp-end)
-    )
-   )
+(defpart 1175
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.10666667))
   )
 
-(set!
-  (-> *part-id-table* 1170)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1170
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.15 0.3 1.0)
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1493,33 +1165,20 @@
     (sp-launcher-by-id spt-next-launcher 1176)
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-flt spt-conerot-radius (meters 2.0))
-    (sp-end)
+    (sp-flt spt-conerot-radius (meters 2))
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1176)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 600)
-    (sp-launcher-by-id spt-next-launcher 1177)
-    (sp-end)
-    )
-   )
+(defpart 1176
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 600) (sp-launcher-by-id spt-next-launcher 1177))
   )
 
-(set!
-  (-> *part-id-table* 1177)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-flt spt-vel-x (meters 0.0))
+(defpart 1177
+  :init-specs
+  ((sp-flt spt-vel-x (meters 0))
     (sp-flt spt-vel-y (meters 0.011666667))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-scalevel-x (meters 0.0016666667))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r -0.10666667)
@@ -1528,47 +1187,34 @@
     (sp-flt spt-fade-a -0.053333335)
     (sp-flt spt-accel-y 0.13653333)
     (sp-int spt-timer 600)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 272)
-  (new 'static 'sparticle-launch-group
-   :length 10
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-window-flames-45"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 10
-    (sp-item 1178 :fade-after (meters 300.0))
-    (sp-item 1179 :fade-after (meters 300.0))
-    (sp-item 1179 :fade-after (meters 180.0))
-    (sp-item 1180 :fade-after (meters 200.0) :period 2160 :length 5)
-    (sp-item 1180 :fade-after (meters 200.0) :period 669 :length 5)
-    (sp-item 1180 :fade-after (meters 200.0) :period 4279 :length 5)
-    (sp-item 1180 :fade-after (meters 200.0) :period 1238 :length 5)
-    (sp-item 1181 :fade-after (meters 300.0))
-    (sp-item 1182 :fade-after (meters 300.0))
-    (sp-item 1182 :fade-after (meters 180.0))
+(defpartgroup group-village2-window-flames-45
+  :id 272
+  :bounds (static-bspherem 8 -8 0 36)
+  :parts
+  ((sp-item 1178 :fade-after (meters 300))
+    (sp-item 1179 :fade-after (meters 300))
+    (sp-item 1179 :fade-after (meters 180))
+    (sp-item 1180 :fade-after (meters 200) :period 2160 :length 5)
+    (sp-item 1180 :fade-after (meters 200) :period 669 :length 5)
+    (sp-item 1180 :fade-after (meters 200) :period 4279 :length 5)
+    (sp-item 1180 :fade-after (meters 200) :period 1238 :length 5)
+    (sp-item 1181 :fade-after (meters 300))
+    (sp-item 1182 :fade-after (meters 300))
+    (sp-item 1182 :fade-after (meters 180))
     )
-   :bounds
-   (new 'static 'sphere :x 32768.0 :y -32768.0 :w 147456.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1178)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1178
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.015 0.035 1.0)
-    (sp-rnd-flt spt-x (meters 4.0) (meters 12.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 8.0) 1.0)
-    (sp-flt spt-z 32768.0)
-    (sp-rnd-int-flt spt-scale-x (meters 4.0) 1 40960.0)
+    (sp-rnd-flt spt-x (meters 4) (meters 12) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 8) 1.0)
+    (sp-flt spt-z (meters 8))
+    (sp-rnd-int-flt spt-scale-x (meters 4) 1 40960.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 32.0)
@@ -1585,46 +1231,30 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1183)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1183)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
+(defpart 1183
+  :init-specs
+  ((sp-flt spt-fade-a 0.0)
     (sp-int-plain-rnd spt-next-time 300 299 1)
     (sp-launcher-by-id spt-next-launcher 1184)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1184)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.08)
-    (sp-end)
-    )
-   )
+(defpart 1184
+  :init-specs
+  ((sp-flt spt-fade-a -0.08))
   )
 
-(set!
-  (-> *part-id-table* 1179)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1179
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.4 1.0)
-    (sp-rnd-flt spt-x (meters 10.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 6.0) 1.0)
-    (sp-rnd-int spt-z 1189085184 1 8192.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 5.0) 1.0)
+    (sp-rnd-flt spt-x (meters 10) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 6) 1.0)
+    (sp-rnd-int-flt spt-z (meters 7) 1 8192.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1641,32 +1271,21 @@
     (sp-int spt-next-time 30)
     (sp-launcher-by-id spt-next-launcher 1185)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1185)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.85333335)
-    (sp-end)
-    )
-   )
+(defpart 1185
+  :init-specs
+  ((sp-flt spt-fade-a -0.85333335))
   )
 
-(set!
-  (-> *part-id-table* 1180)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1180
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.8 0.4 1.0)
-    (sp-rnd-flt spt-x (meters 10.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters 6.0))
-    (sp-rnd-int spt-z 1189085184 1 8192.0)
+    (sp-rnd-flt spt-x (meters 10) (meters 4) 1.0)
+    (sp-flt spt-y (meters 6))
+    (sp-rnd-int-flt spt-z (meters 7) 1 8192.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1682,22 +1301,17 @@
     (sp-int spt-timer 840)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1181)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1181
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.015 0.03 1.0)
-    (sp-rnd-flt spt-x (meters -6.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 8.0) (meters 8.0) 1.0)
-    (sp-rnd-flt spt-z -24576.0 24576.0 1.0)
-    (sp-rnd-int-flt spt-scale-x (meters 4.0) 1 40960.0)
+    (sp-rnd-flt spt-x (meters -6) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 8) (meters 8) 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 6) 1.0)
+    (sp-rnd-int-flt spt-scale-x (meters 4) 1 40960.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 32.0)
@@ -1714,22 +1328,17 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1183)
     (sp-flt spt-rotate-y (degrees 15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1182)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1182
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-    (sp-rnd-flt spt-x (meters 2.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 6.0) 1.0)
-    (sp-rnd-int spt-z -956301312 1 8192.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 2) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 6) 1.0)
+    (sp-rnd-int-flt spt-z (meters -8) 1 8192.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1746,47 +1355,34 @@
     (sp-int spt-next-time 30)
     (sp-launcher-by-id spt-next-launcher 1185)
     (sp-flt spt-rotate-y (degrees 5.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 273)
-  (new 'static 'sparticle-launch-group
-   :length 10
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-window-flames-41"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 10
-    (sp-item 1186 :fade-after (meters 300.0))
-    (sp-item 1187 :fade-after (meters 300.0))
-    (sp-item 1187 :fade-after (meters 180.0))
-    (sp-item 1188 :fade-after (meters 200.0) :period 2160 :length 5)
-    (sp-item 1188 :fade-after (meters 200.0) :period 669 :length 5)
-    (sp-item 1188 :fade-after (meters 200.0) :period 4279 :length 5)
-    (sp-item 1188 :fade-after (meters 200.0) :period 1238 :length 5)
-    (sp-item 1189 :fade-after (meters 300.0))
-    (sp-item 1190 :fade-after (meters 300.0))
-    (sp-item 1190 :fade-after (meters 180.0))
+(defpartgroup group-village2-window-flames-41
+  :id 273
+  :bounds (static-bspherem 8 -8 0 36)
+  :parts
+  ((sp-item 1186 :fade-after (meters 300))
+    (sp-item 1187 :fade-after (meters 300))
+    (sp-item 1187 :fade-after (meters 180))
+    (sp-item 1188 :fade-after (meters 200) :period 2160 :length 5)
+    (sp-item 1188 :fade-after (meters 200) :period 669 :length 5)
+    (sp-item 1188 :fade-after (meters 200) :period 4279 :length 5)
+    (sp-item 1188 :fade-after (meters 200) :period 1238 :length 5)
+    (sp-item 1189 :fade-after (meters 300))
+    (sp-item 1190 :fade-after (meters 300))
+    (sp-item 1190 :fade-after (meters 180))
     )
-   :bounds
-   (new 'static 'sphere :x 32768.0 :y -32768.0 :w 147456.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1186)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1186
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.015 0.03 1.0)
-    (sp-rnd-flt spt-x (meters 6.0) (meters 12.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 8.0) 1.0)
-    (sp-flt spt-z 32768.0)
-    (sp-rnd-int-flt spt-scale-x (meters 4.0) 1 40960.0)
+    (sp-rnd-flt spt-x (meters 6) (meters 12) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 8) 1.0)
+    (sp-flt spt-z (meters 8))
+    (sp-rnd-int-flt spt-scale-x (meters 4) 1 40960.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 32.0)
@@ -1803,22 +1399,17 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1183)
     (sp-flt spt-rotate-y (degrees 82.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1187)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1187
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.4 1.0)
-    (sp-rnd-flt spt-x (meters 10.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 6.0) 1.0)
-    (sp-rnd-int spt-z 1189085184 1 8192.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 5.0) 1.0)
+    (sp-rnd-flt spt-x (meters 10) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 6) 1.0)
+    (sp-rnd-int-flt spt-z (meters 7) 1 8192.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1835,21 +1426,16 @@
     (sp-int spt-next-time 30)
     (sp-launcher-by-id spt-next-launcher 1185)
     (sp-flt spt-rotate-y (degrees 82.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1188)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1188
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.8 0.4 1.0)
-    (sp-rnd-flt spt-x (meters 10.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters 6.0))
-    (sp-rnd-int spt-z 1189085184 1 8192.0)
+    (sp-rnd-flt spt-x (meters 10) (meters 4) 1.0)
+    (sp-flt spt-y (meters 6))
+    (sp-rnd-int-flt spt-z (meters 7) 1 8192.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1865,22 +1451,17 @@
     (sp-int spt-timer 810)
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-flt spt-rotate-y (degrees 82.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1189)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1189
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.015 0.03 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 8.0) (meters 8.0) 1.0)
-    (sp-rnd-flt spt-z -24576.0 24576.0 1.0)
-    (sp-rnd-int-flt spt-scale-x (meters 4.0) 1 40960.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 8) (meters 8) 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 6) 1.0)
+    (sp-rnd-int-flt spt-scale-x (meters 4) 1 40960.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 32.0)
@@ -1897,22 +1478,17 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1183)
     (sp-flt spt-rotate-y (degrees 112.00001))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1190)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1190
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-    (sp-rnd-flt spt-x (meters 6.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 6.0) 1.0)
-    (sp-rnd-int spt-z -956301312 1 8192.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 6) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 6) 1.0)
+    (sp-rnd-int-flt spt-z (meters -8) 1 8192.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -1929,40 +1505,27 @@
     (sp-int spt-next-time 30)
     (sp-launcher-by-id spt-next-launcher 1185)
     (sp-flt spt-rotate-y (degrees 106.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 274)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-big-boulder"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 1191 :fade-after (meters 300.0))
-    (sp-item 1192 :fade-after (meters 300.0))
-    (sp-item 1192 :fade-after (meters 180.0))
+(defpartgroup group-village2-big-boulder
+  :id 274
+  :bounds (static-bspherem 8 -8 0 36)
+  :parts
+  ((sp-item 1191 :fade-after (meters 300))
+    (sp-item 1192 :fade-after (meters 300))
+    (sp-item 1192 :fade-after (meters 180))
     )
-   :bounds
-   (new 'static 'sphere :x 32768.0 :y -32768.0 :w 147456.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1191)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1191
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.015 0.03 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters 8.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-    (sp-rnd-int-flt spt-scale-x (meters 8.0) 1 40960.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 8) (meters 4) 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+    (sp-rnd-int-flt spt-scale-x (meters 8) 1 40960.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 32.0)
@@ -1979,21 +1542,16 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1183)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1192)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1192
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.4 0.4 1.0)
-    (sp-flt spt-x (meters 2.0))
-    (sp-flt spt-y (meters 4.0))
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 5.0) 1.0)
+    (sp-flt spt-x (meters 2))
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -2013,42 +1571,30 @@
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 4.5))
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 275)
-  (new 'static 'sparticle-launch-group
-   :length 6
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-sages-controlpanel"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 6
-    (sp-item 1193 :fade-after (meters 30.0) :period 736 :length 10)
-    (sp-item 1193 :fade-after (meters 30.0) :period 1696 :length 10)
-    (sp-item 1193 :fade-after (meters 30.0) :period 5079 :length 10)
-    (sp-item 1194 :fade-after (meters 30.0) :period 5079 :length 10)
-    (sp-item 1194 :fade-after (meters 30.0) :period 2163 :length 10)
-    (sp-item 1195 :fade-after (meters 40.0) :falloff-to (meters 50.0))
+(defpartgroup group-village2-sages-controlpanel
+  :id 275
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1193 :fade-after (meters 30) :period 736 :length 10)
+    (sp-item 1193 :fade-after (meters 30) :period 1696 :length 10)
+    (sp-item 1193 :fade-after (meters 30) :period 5079 :length 10)
+    (sp-item 1194 :fade-after (meters 30) :period 5079 :length 10)
+    (sp-item 1194 :fade-after (meters 30) :period 2163 :length 10)
+    (sp-item 1195 :fade-after (meters 40) :falloff-to (meters 50))
     )
-   :bounds (new 'static 'sphere :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1195)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1195
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.2 0.4 1.0)
     (sp-flt spt-x (meters 0.9))
     (sp-flt spt-y (meters 0.25))
-    (sp-flt spt-z -4915.2)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-flt spt-z (meters -1.2))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 64.0)
@@ -2066,48 +1612,29 @@
     (sp-launcher-by-id spt-next-launcher 1196)
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1196)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r -0.053333335)
+(defpart 1196
+  :init-specs
+  ((sp-flt spt-fade-r -0.053333335)
     (sp-flt spt-fade-g -0.053333335)
     (sp-flt spt-fade-b -0.053333335)
     (sp-flt spt-fade-a -0.10666667)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1193)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1193
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 4.0 16.0 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 0.1
-      :group #x1
-      :sound-name (static-sound-name "spark")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
       )
-     )
     (sp-flt spt-x (meters 0.9))
     (sp-flt spt-y (meters 0.05))
-    (sp-flt spt-z -3686.4)
+    (sp-flt spt-z (meters -0.9))
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -2126,33 +1653,19 @@
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -45.0) (degrees 180.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1194)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1194
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 4.0 16.0 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 0.1
-      :group #x1
-      :sound-name (static-sound-name "spark")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
       )
-     )
     (sp-flt spt-x (meters -1.2))
     (sp-flt spt-y (meters -0.5))
-    (sp-flt spt-z 4915.2)
+    (sp-flt spt-z (meters 1.2))
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -2171,49 +1684,37 @@
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -45.0) (degrees 180.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 276)
-  (new 'static 'sparticle-launch-group
-   :length 14
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-sages-machine"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 14
-    (sp-item 1199 :fade-after (meters 40.0) :period 768 :length 10 :binding 1197)
-    (sp-item 1199 :fade-after (meters 40.0) :period 1096 :length 10 :binding 1198)
-    (sp-item 1199 :fade-after (meters 40.0) :period 2137 :length 10 :binding 1197)
-    (sp-item 1197 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 1197 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 1198 :fade-after (meters 40.0) :flags (start-dead))
-    (sp-item 1200 :fade-after (meters 40.0) :period 300 :length 5)
-    (sp-item 1200 :fade-after (meters 40.0) :period 470 :length 5)
-    (sp-item 1200 :fade-after (meters 40.0) :period 613 :length 5)
-    (sp-item 1200 :fade-after (meters 40.0) :period 1336 :length 5)
-    (sp-item 1201 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-    (sp-item 1202 :fade-after (meters 40.0))
-    (sp-item 1203 :fade-after (meters 40.0) :falloff-to (meters 50.0))
-    (sp-item 1204 :fade-after (meters 40.0) :falloff-to (meters 50.0))
+(defpartgroup group-village2-sages-machine
+  :id 276
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1199 :fade-after (meters 40) :period 768 :length 10 :binding 1197)
+    (sp-item 1199 :fade-after (meters 40) :period 1096 :length 10 :binding 1198)
+    (sp-item 1199 :fade-after (meters 40) :period 2137 :length 10 :binding 1197)
+    (sp-item 1197 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 1197 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 1198 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 1200 :fade-after (meters 40) :period 300 :length 5)
+    (sp-item 1200 :fade-after (meters 40) :period 470 :length 5)
+    (sp-item 1200 :fade-after (meters 40) :period 613 :length 5)
+    (sp-item 1200 :fade-after (meters 40) :period 1336 :length 5)
+    (sp-item 1201 :fade-after (meters 40) :falloff-to (meters 40))
+    (sp-item 1202 :fade-after (meters 40))
+    (sp-item 1203 :fade-after (meters 40) :falloff-to (meters 50))
+    (sp-item 1204 :fade-after (meters 40) :falloff-to (meters 50))
     )
-   :bounds (new 'static 'sphere :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1201)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1201
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.5 1.0 1.0)
     (sp-flt spt-x (meters -0.75))
     (sp-flt spt-y (meters -0.8))
-    (sp-flt spt-z 10649.6)
+    (sp-flt spt-z (meters 2.6))
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 32.0 32.0 1.0)
@@ -2229,22 +1730,17 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -120.0) (degrees 210.0) 1.0)
     (sp-flt spt-conerot-radius (meters 0.3))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1202)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1202
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -0.75))
     (sp-flt spt-y (meters -0.8))
-    (sp-flt spt-z 10649.6)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.4) 1.0)
+    (sp-flt spt-z (meters 2.6))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2.4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 32.0 64.0 1.0)
     (sp-rnd-flt spt-g 32.0 64.0 1.0)
@@ -2254,22 +1750,17 @@
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-int spt-timer 5)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1200)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+(defpart 1200
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
     (sp-rnd-flt spt-num 1.0 0.5 1.0)
     (sp-flt spt-x (meters -0.7))
     (sp-flt spt-y (meters -0.7))
-    (sp-flt spt-z 10649.6)
-    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 3.0) 1.0)
+    (sp-flt spt-z (meters 2.6))
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 3) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 60.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.4) 1.0)
@@ -2282,37 +1773,27 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 1205)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1205)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-r 64.0)
+(defpart 1205
+  :init-specs
+  ((sp-flt spt-r 64.0)
     (sp-flt spt-g 64.0)
     (sp-flt spt-fade-r -1.0666667)
     (sp-flt spt-fade-g -1.0666667)
     (sp-flt spt-fade-a -2.1333334)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1203)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1203
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.2 0.4 1.0)
     (sp-flt spt-x (meters -1.25))
-    (sp-flt spt-y (meters 0.0))
-    (sp-flt spt-z 0.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-flt spt-z (meters 0))
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 64.0 32.0 1.0)
@@ -2330,37 +1811,27 @@
     (sp-launcher-by-id spt-next-launcher 1206)
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1206)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-fade-r -0.053333335)
+(defpart 1206
+  :init-specs
+  ((sp-flt spt-fade-r -0.053333335)
     (sp-flt spt-fade-g -0.053333335)
     (sp-flt spt-fade-b -0.053333335)
     (sp-flt spt-fade-a -0.10666667)
     (sp-flt spt-friction 0.95)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1204)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1204
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.2 0.8 1.0)
     (sp-flt spt-x (meters -0.7))
     (sp-flt spt-y (meters -0.7))
-    (sp-flt spt-z 10649.6)
+    (sp-flt spt-z (meters 2.6))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2381,20 +1852,15 @@
     (sp-cpuinfo-flags bit2)
     (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-flt spt-conerot-radius (meters 0.0))
-    (sp-end)
+    (sp-flt spt-conerot-radius (meters 0))
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1199)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1199
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 64.0)
     (sp-flt spt-g 64.0)
@@ -2406,30 +1872,16 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -60.0) (degrees 120.0) 1.0)
     (sp-flt spt-conerot-radius (meters 1.1))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1197)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1197
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 2.0 8.0 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 0.1
-      :group #x1
-      :sound-name (static-sound-name "spark")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
       )
-     )
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -2448,30 +1900,16 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 180.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1198)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1198
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 2.0 6.0 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 0.1
-      :group #x1
-      :sound-name (static-sound-name "spark")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
       )
-     )
     (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -2491,17 +1929,12 @@
     (sp-func spt-func 'check-drop-level-sagehut2)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 180.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1207)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1207
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.0 3.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2515,57 +1948,41 @@
     (sp-cpuinfo-flags bit2 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(defun
-  check-drop-level-sagehut2
-  ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
+(defun check-drop-level-sagehut2 ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
   (when (< (-> arg2 y) (-> arg1 user-float))
-   (let ((gp-0 (new 'stack-no-clear 'vector)))
-    (sp-kill-particle arg0 arg1)
-    (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-           (v1-2 (the-as number (logior #x3f800000 v1-1)))
-           )
-     (if (< (+ -1.0 (the-as float v1-2)) 0.25)
-      (sound-play-by-name
-       (static-sound-name "water-drop")
-       (new-sound-id)
-       1024
-       0
-       0
-       1
-       #t
-       )
+    (let ((gp-0 (new 'stack-no-clear 'vector)))
+      (sp-kill-particle arg0 arg1)
+      (let* ((v1-1 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+             (v1-2 (the-as number (logior #x3f800000 v1-1)))
+             )
+        (if (< (+ -1.0 (the-as float v1-2)) 0.25)
+            (sound-play-by-name (static-sound-name "water-drop") (new-sound-id) 1024 0 0 1 #t)
+            )
+        )
+      (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
+      (sp-launch-particles-var
+        *sp-particle-system-2d*
+        (-> *part-id-table* 1207)
+        gp-0
+        (the-as sparticle-launch-state #f)
+        (the-as sparticle-launch-control #f)
+        (the-as float 1.0)
+        )
       )
-     )
-    (set-vector! gp-0 (-> arg2 x) (-> arg1 user-float) (-> arg2 z) 1.0)
-    (sp-launch-particles-var
-     *sp-particle-system-2d*
-     (-> *part-id-table* 1207)
-     gp-0
-     (the-as sparticle-launch-state #f)
-     (the-as sparticle-launch-control #f)
-     (the-as float 1.0)
-     )
     )
-   )
   (none)
   )
 
-(set!
-  (-> *part-group-id-table* 678)
-  (new 'static 'sparticle-launch-group
-   :length 43
-   :duration #x384
-   :linger-duration #x5dc
-   :flags (sp-group-flag use-local-clock)
-   :name "group-village2-fireboulder-hover"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 43
-    (sp-item 2792 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 2791)
+(defpartgroup group-village2-fireboulder-hover
+  :id 678
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 2792 :fade-after (meters 100) :falloff-to (meters 100) :binding 2791)
     (sp-item 2791 :flags (bit1 start-dead launch-asap))
     (sp-item 2791 :flags (bit1 start-dead launch-asap))
     (sp-item 2791 :flags (bit1 start-dead launch-asap))
@@ -2605,20 +2022,15 @@
     (sp-item 2791 :flags (bit1 start-dead launch-asap))
     (sp-item 2791 :flags (bit1 start-dead launch-asap))
     (sp-item 2793)
-    (sp-item 2794 :falloff-to (meters 400.0))
-    (sp-item 2795 :falloff-to (meters 400.0))
-    (sp-item 2796 :falloff-to (meters 400.0))
+    (sp-item 2794 :falloff-to (meters 400))
+    (sp-item 2795 :falloff-to (meters 400))
+    (sp-item 2796 :falloff-to (meters 400))
     )
-   :bounds (new 'static 'sphere :w 65536.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2795)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+(defpart 2795
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
     (sp-rnd-flt spt-num 0.2 2.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 12.5) (meters 3.5) 1.0)
     (sp-int spt-rot-x 4)
@@ -2633,17 +2045,12 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2794)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+(defpart 2794
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
     (sp-rnd-flt spt-num 0.2 2.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 12.5) (meters 3.5) 1.0)
     (sp-int spt-rot-x 4)
@@ -2658,46 +2065,36 @@
     (sp-cpuinfo-flags bit2 bit3 bit14)
     (sp-int spt-next-time 10)
     (sp-launcher-by-id spt-next-launcher 146)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2793)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2793
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-    (sp-rnd-flt spt-z -4.096 8.192 1.0)
-    (sp-flt spt-scale-x (meters 14.0))
+    (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+    (sp-flt spt-scale-x (meters 14))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
     (sp-rnd-flt spt-g 0.0 128.0 1.0)
     (sp-flt spt-b 255.0)
     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
     (sp-flt spt-fade-a -3.2)
     (sp-int spt-timer 40)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2792)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2792
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
     (sp-rnd-flt spt-b 128.0 128.0 1.0)
@@ -2706,21 +2103,16 @@
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit3 bit14)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2791)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2791
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 16384.0 4096.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 4) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 0.0)
@@ -2729,14 +2121,12 @@
     (sp-flt spt-a 128.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-accel-z 0.0)
     (sp-int spt-timer 900)
     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/village2/village2-part2.gc b/goal_src/levels/village2/village2-part2.gc
index c446419ed3..693b6d74d4 100644
--- a/goal_src/levels/village2/village2-part2.gc
+++ b/goal_src/levels/village2/village2-part2.gc
@@ -7,121 +7,92 @@
 
 ;; DECOMP BEGINS
 
-(set!
-  (-> *part-id-table* 1208)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.10666667)
-    (sp-end)
-    )
-   )
+(defpart 1208
+  :init-specs
+  ((sp-flt spt-fade-a -0.10666667))
   )
 
-(set!
-  (-> *part-id-table* 1209)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.16)
-    (sp-end)
-    )
-   )
+(defpart 1209
+  :init-specs
+  ((sp-flt spt-fade-a -0.16))
   )
 
-(set!
-  (-> *part-id-table* 1210)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -2.6666667)
-    (sp-end)
-    )
-   )
+(defpart 1210
+  :init-specs
+  ((sp-flt spt-fade-a -2.6666667))
   )
 
-(set!
-  (-> *part-group-id-table* 277)
-  (new 'static 'sparticle-launch-group
-   :length 56
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-village2-waterfall-29"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 56
-    (sp-item 1211)
-    (sp-item 1211 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1211 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1212 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1213 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+(defpartgroup group-village2-waterfall-29
+  :id 277
+  :flags (always-draw)
+  :bounds (static-bspherem 0 22 0 35)
+  :parts
+  ((sp-item 1211)
+    (sp-item 1211 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1211 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1212 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1213 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1214)
-    (sp-item 1214 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1214 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1215 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1216 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 1214 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1214 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1215 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1216 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1217)
-    (sp-item 1217 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1217 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1218 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1219 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 1217 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1217 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1218 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1219 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1220)
-    (sp-item 1220 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1220 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1221 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1222 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 1220 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1220 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1221 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1222 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1223)
-    (sp-item 1223 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1223 :fade-after (meters 200.0) :falloff-to (meters 200.0))
+    (sp-item 1223 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1223 :fade-after (meters 200) :falloff-to (meters 200))
     (sp-item 1224)
-    (sp-item 1224 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1224 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1225 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1226 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1227 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 1224 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1224 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1225 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1226 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1227 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1228)
-    (sp-item 1228 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1228 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1229 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
+    (sp-item 1228 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1228 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1229 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
     (sp-item 1230)
-    (sp-item 1230 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1230 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1231 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
+    (sp-item 1230 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1230 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1231 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
     (sp-item 1232)
-    (sp-item 1232 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1232 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1233 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
+    (sp-item 1232 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1232 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1233 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
     (sp-item 1234)
-    (sp-item 1234 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1234 :fade-after (meters 200.0) :falloff-to (meters 200.0))
+    (sp-item 1234 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1234 :fade-after (meters 200) :falloff-to (meters 200))
     (sp-item 1235)
-    (sp-item 1235 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1235 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1236 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1237 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1238 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1239 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 1235 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1235 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1236 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1237 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1238 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1239 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1240)
-    (sp-item 1240 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1240 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1241 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1242 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 1240 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1240 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1241 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1242 :fade-after (meters 120) :falloff-to (meters 120))
     )
-   :bounds
-   (new 'static 'sphere :y 90112.0 :w 143360.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1211)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1211
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-    (sp-flt spt-x (meters -7.0))
+    (sp-flt spt-x (meters -7))
     (sp-rnd-flt spt-y (meters 41.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -30720.0 12288.0 1.0)
+    (sp-rnd-flt spt-z (meters -7.5) (meters 3) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -140,21 +111,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1214)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1214
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-    (sp-flt spt-x (meters -12.0))
+    (sp-flt spt-x (meters -12))
     (sp-rnd-flt spt-y (meters 42.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -14336.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -3.5) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -173,21 +139,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1217)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1217
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.5 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 24.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z 2048.0 16384.0 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 24) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -206,21 +167,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees -110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1220)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1220
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.5 0.8 1.0)
-    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
     (sp-rnd-flt spt-y (meters 27.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -40960.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -237,21 +193,16 @@
     (sp-int spt-next-time 195)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1223)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1223
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 4) 1.0)
     (sp-rnd-flt spt-y (meters 28.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -40960.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -268,21 +219,16 @@
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1224)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1224
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
-    (sp-rnd-flt spt-x (meters 6.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 26.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -38912.0 8192.0 1.0)
+    (sp-rnd-flt spt-x (meters 6) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 26) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -9.5) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -301,21 +247,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1212)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1212
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -7.0))
+    (sp-flt spt-x (meters -7))
     (sp-rnd-flt spt-y (meters 41.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -30720.0 12288.0 1.0)
+    (sp-rnd-flt spt-z (meters -7.5) (meters 3) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -334,21 +275,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1215)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1215
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters -12.0))
+    (sp-flt spt-x (meters -12))
     (sp-rnd-flt spt-y (meters 42.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -14336.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -3.5) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -367,21 +303,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1218)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1218
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
     (sp-rnd-flt spt-y (meters 23.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z 2048.0 16384.0 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -400,21 +331,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1221)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1221
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 2.0)
-    (sp-rnd-flt spt-x (meters -4.0) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters -4) (meters 10) 1.0)
     (sp-rnd-flt spt-y (meters 27.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -40960.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -432,21 +358,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1225)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1225
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 6.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 26.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -38912.0 8192.0 1.0)
+    (sp-rnd-flt spt-x (meters 6) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 26) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -9.5) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -465,21 +386,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1213)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1213
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-    (sp-flt spt-x (meters -7.0))
+    (sp-flt spt-x (meters -7))
     (sp-rnd-flt spt-y (meters 41.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -30720.0 12288.0 1.0)
+    (sp-rnd-flt spt-z (meters -7.5) (meters 3) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -499,21 +415,16 @@
     (sp-int spt-next-time 405)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees -30.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1216)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1216
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-    (sp-flt spt-x (meters -12.0))
+    (sp-flt spt-x (meters -12))
     (sp-rnd-flt spt-y (meters 42.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -14336.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -3.5) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -533,21 +444,16 @@
     (sp-int spt-next-time 405)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1219)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1219
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
     (sp-rnd-flt spt-y (meters 23.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z 2048.0 16384.0 1.0)
+    (sp-rnd-flt spt-z (meters 0.5) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -567,21 +473,16 @@
     (sp-int spt-next-time 405)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees -110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1222)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1222
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
+    (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
     (sp-rnd-flt spt-y (meters 27.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -40960.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -600,21 +501,16 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1227)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1227
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 4) 1.0)
     (sp-rnd-flt spt-y (meters 28.5) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -40960.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -633,21 +529,16 @@
     (sp-int spt-next-time 240)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1226)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1226
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-    (sp-rnd-flt spt-x (meters 6.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 26.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -38912.0 8192.0 1.0)
+    (sp-rnd-flt spt-x (meters 6) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 26) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -9.5) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -667,21 +558,16 @@
     (sp-int spt-next-time 435)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1228)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 1228
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-    (sp-rnd-flt spt-x (meters 2.0) (meters 7.0) 1.0)
+    (sp-rnd-flt spt-x (meters 2) (meters 7) 1.0)
     (sp-flt spt-y (meters 12.5))
-    (sp-rnd-flt spt-z 61440.0 40960.0 1.0)
+    (sp-rnd-flt spt-z (meters 15) (meters 10) 1.0)
     (sp-flt spt-scale-x (meters 12.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -701,22 +587,17 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 1209)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1229)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 1229
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 0.05)
-    (sp-rnd-flt spt-x (meters 3.0) (meters 5.0) 1.0)
-    (sp-flt spt-y (meters 7.0))
-    (sp-rnd-flt spt-z 65536.0 49152.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 3) (meters 5) 1.0)
+    (sp-flt spt-y (meters 7))
+    (sp-rnd-flt spt-z (meters 16) (meters 12) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 92.0)
     (sp-flt spt-g 92.0)
@@ -730,21 +611,16 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1208)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1230)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 1230
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-rnd-flt spt-num 0.035 0.03 1.0)
-    (sp-rnd-flt spt-x (meters 3.5) (meters 5.0) 1.0)
+    (sp-rnd-flt spt-x (meters 3.5) (meters 5) 1.0)
     (sp-flt spt-y (meters 12.5))
-    (sp-rnd-flt spt-z 6144.0 20480.0 1.0)
+    (sp-rnd-flt spt-z (meters 1.5) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 12.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -764,22 +640,17 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 1209)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1231)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 1231
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 0.025)
-    (sp-rnd-flt spt-x (meters 3.0) (meters 2.0) 1.0)
-    (sp-flt spt-y (meters 8.0))
-    (sp-rnd-flt spt-z 12288.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 3) (meters 2) 1.0)
+    (sp-flt spt-y (meters 8))
+    (sp-rnd-flt spt-z (meters 3) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 92.0)
     (sp-flt spt-g 92.0)
@@ -793,21 +664,16 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1208)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1232)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 1232
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-rnd-flt spt-num 0.035 0.03 1.0)
-    (sp-rnd-flt spt-x (meters -7.5) (meters 5.0) 1.0)
+    (sp-rnd-flt spt-x (meters -7.5) (meters 5) 1.0)
     (sp-flt spt-y (meters 12.5))
-    (sp-rnd-flt spt-z -67584.0 20480.0 1.0)
+    (sp-rnd-flt spt-z (meters -16.5) (meters 5) 1.0)
     (sp-flt spt-scale-x (meters 12.5))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -827,22 +693,17 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 1209)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1233)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 1233
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 0.025)
-    (sp-rnd-flt spt-x (meters -6.5) (meters 3.0) 1.0)
-    (sp-flt spt-y (meters 8.0))
-    (sp-rnd-flt spt-z -63488.0 12288.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -6.5) (meters 3) 1.0)
+    (sp-flt spt-y (meters 8))
+    (sp-rnd-flt spt-z (meters -15.5) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 92.0)
     (sp-flt spt-g 92.0)
@@ -856,21 +717,16 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1208)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1234)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1234
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
-    (sp-flt spt-x (meters -6.0))
-    (sp-rnd-flt spt-y (meters 43.0) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z 43008.0 18432.0 1.0)
+    (sp-flt spt-x (meters -6))
+    (sp-rnd-flt spt-y (meters 43) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters 10.5) (meters 4.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -878,7 +734,7 @@
     (sp-flt spt-b 192.0)
     (sp-rnd-flt spt-a 32.0 16.0 1.0)
     (sp-flt spt-vel-x (meters 0.05))
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
     (sp-flt spt-scalevel-x (meters 0.0073242188))
     (sp-flt spt-scalevel-y (meters 0.029296875))
     (sp-flt spt-accel-x -2.7978141)
@@ -889,21 +745,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1235)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1235
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.03 1.0 1.0)
-    (sp-flt spt-x (meters -6.0))
-    (sp-rnd-flt spt-y (meters 43.0) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z 61440.0 12288.0 1.0)
+    (sp-flt spt-x (meters -6))
+    (sp-rnd-flt spt-y (meters 43) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters 15) (meters 3) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -911,7 +762,7 @@
     (sp-flt spt-b 192.0)
     (sp-rnd-flt spt-a 32.0 16.0 1.0)
     (sp-flt spt-vel-x (meters 0.05))
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
     (sp-flt spt-scalevel-x (meters 0.0073242188))
     (sp-flt spt-scalevel-y (meters 0.029296875))
     (sp-flt spt-accel-x -2.7978141)
@@ -922,21 +773,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1236)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1236
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.3)
-    (sp-flt spt-x (meters -6.0))
-    (sp-rnd-flt spt-y (meters 43.0) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z 43008.0 10240.0 1.0)
+    (sp-flt spt-x (meters -6))
+    (sp-rnd-flt spt-y (meters 43) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters 10.5) (meters 2.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 192.0)
@@ -955,21 +801,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1237)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1237
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.7)
-    (sp-flt spt-x (meters -6.0))
-    (sp-rnd-flt spt-y (meters 43.0) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z 53248.0 20480.0 1.0)
+    (sp-flt spt-x (meters -6))
+    (sp-rnd-flt spt-y (meters 43) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters 13) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -988,21 +829,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1238)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1238
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 0.1 1.0)
-    (sp-flt spt-x (meters -6.0))
+    (sp-flt spt-x (meters -6))
     (sp-rnd-flt spt-y (meters 42.5) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z 57344.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters 14) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1023,21 +859,16 @@
     (sp-int spt-next-time 540)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1239)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1239
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 0.06 1.0)
-    (sp-flt spt-x (meters -6.0))
+    (sp-flt spt-x (meters -6))
     (sp-rnd-flt spt-y (meters 42.5) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z 40960.0 16384.0 1.0)
+    (sp-rnd-flt spt-z (meters 10) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1057,23 +888,18 @@
     (sp-int spt-next-time 390)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1240)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1240
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.2 1.0 1.0)
-    (sp-flt spt-x (meters 0.0))
-    (sp-rnd-flt spt-y (meters 28.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z 40960.0 14336.0 1.0)
+    (sp-flt spt-x (meters 0))
+    (sp-rnd-flt spt-y (meters 28) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters 10) (meters 3.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 1.4) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 1.4) 1.0)
     (sp-flt spt-r 192.0)
     (sp-flt spt-g 192.0)
     (sp-flt spt-b 192.0)
@@ -1092,21 +918,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1241)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1241
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-flt spt-x (meters 0.0))
-    (sp-rnd-flt spt-y (meters 28.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z 40960.0 14336.0 1.0)
+    (sp-flt spt-x (meters 0))
+    (sp-rnd-flt spt-y (meters 28) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters 10) (meters 3.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1126,22 +947,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1242)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1242
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 0.3 1.0)
-    (sp-flt spt-x (meters 0.0))
-    (sp-rnd-flt spt-y (meters 28.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z 40960.0 14336.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2.0) 1.0)
+    (sp-flt spt-x (meters 0))
+    (sp-rnd-flt spt-y (meters 28) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters 10) (meters 3.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 192.0)
@@ -1162,46 +978,33 @@
     (sp-int spt-next-time 360)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 278)
-  (new 'static 'sparticle-launch-group
-   :length 9
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-village2-waterfall-30"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 9
-    (sp-item 1243)
-    (sp-item 1243 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 1243 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-    (sp-item 1244 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1245 :fade-after (meters 160.0) :falloff-to (meters 160.0))
+(defpartgroup group-village2-waterfall-30
+  :id 278
+  :flags (always-draw)
+  :bounds (static-bspherem 0 22 0 35)
+  :parts
+  ((sp-item 1243)
+    (sp-item 1243 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1243 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1244 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1245 :fade-after (meters 160) :falloff-to (meters 160))
     (sp-item 1246)
-    (sp-item 1246 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 1246 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-    (sp-item 1247 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
+    (sp-item 1246 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1246 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1247 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
     )
-   :bounds
-   (new 'static 'sphere :y 90112.0 :w 143360.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1243)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1243
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 4) 1.0)
     (sp-flt spt-y (meters 49.5))
-    (sp-rnd-flt spt-z -14336.0 28672.0 1.0)
+    (sp-rnd-flt spt-z (meters -3.5) (meters 7) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -1221,21 +1024,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1244)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1244
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.5)
-    (sp-rnd-flt spt-x (meters -8.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -8) (meters 4) 1.0)
     (sp-flt spt-y (meters 49.5))
-    (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
+    (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1254,21 +1052,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1245)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1245
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -7.0) (meters 3.5) 1.0)
+    (sp-rnd-flt spt-x (meters -7) (meters 3.5) 1.0)
     (sp-flt spt-y (meters 49.5))
-    (sp-rnd-flt spt-z -16384.0 32768.0 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 8) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -1289,22 +1082,17 @@
     (sp-int spt-next-time 666)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1246)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 1246
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters 3.0) (meters 6.0) 1.0)
-    (sp-flt spt-y (meters 6.0))
-    (sp-rnd-flt spt-z -24576.0 49152.0 1.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-rnd-flt spt-x (meters 3) (meters 6) 1.0)
+    (sp-flt spt-y (meters 6))
+    (sp-rnd-flt spt-z (meters -6) (meters 12) 1.0)
+    (sp-flt spt-scale-x (meters 12))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-rnd-flt spt-g 150.0 42.0 1.0)
@@ -1323,22 +1111,17 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 1209)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1247)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 1247
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 0.05)
-    (sp-rnd-flt spt-x (meters 5.0) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters 5) (meters 10) 1.0)
     (sp-flt spt-y (meters 2.5))
-    (sp-rnd-flt spt-z -32768.0 65536.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -8) (meters 16) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 92.0)
     (sp-flt spt-g 92.0)
@@ -1352,71 +1135,51 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1208)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 279)
-  (new 'static 'sparticle-launch-group
-   :length 1
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-village2-waterfall-31"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 1 (sp-item 2324))
-   :bounds
-   (new 'static 'sphere :y 90112.0 :w 143360.0)
-   )
+(defpartgroup group-village2-waterfall-31
+  :id 279
+  :flags (always-draw)
+  :bounds (static-bspherem 0 22 0 35)
+  :parts
+  ((sp-item 2324))
   )
 
-(set!
-  (-> *part-group-id-table* 280)
-  (new 'static 'sparticle-launch-group
-   :length 19
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-village2-waterfall-32"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 19
-    (sp-item 1253)
-    (sp-item 1253 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 1253 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-    (sp-item 1254 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1255 :fade-after (meters 160.0) :falloff-to (meters 160.0))
+(defpartgroup group-village2-waterfall-32
+  :id 280
+  :flags (always-draw)
+  :bounds (static-bspherem 0 22 0 35)
+  :parts
+  ((sp-item 1253)
+    (sp-item 1253 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1253 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1254 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1255 :fade-after (meters 160) :falloff-to (meters 160))
     (sp-item 1256)
-    (sp-item 1256 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 1256 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-    (sp-item 1257 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
+    (sp-item 1256 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1256 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1257 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
     (sp-item 1258)
-    (sp-item 1258 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 1258 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-    (sp-item 1259 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1260 :fade-after (meters 160.0) :falloff-to (meters 160.0))
+    (sp-item 1258 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1258 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1259 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1260 :fade-after (meters 160) :falloff-to (meters 160))
     (sp-item 1261)
-    (sp-item 1261 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-    (sp-item 1261 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-    (sp-item 1262 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1263 :fade-after (meters 160.0) :falloff-to (meters 160.0))
+    (sp-item 1261 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1261 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1262 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1263 :fade-after (meters 160) :falloff-to (meters 160))
     )
-   :bounds
-   (new 'static 'sphere :y 90112.0 :w 143360.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1253)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1253
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.266 0.333 1.0)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
     (sp-flt spt-y (meters 50.5))
-    (sp-rnd-flt spt-z -55296.0 4096.0 1.0)
+    (sp-rnd-flt spt-z (meters -13.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -1435,17 +1198,12 @@
     (sp-launcher-by-id spt-next-launcher 1264)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1264)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 9
-    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 1.0) 1.0)
+(defpart 1264
+  :init-specs
+  ((sp-rnd-flt spt-scale-y (meters 1) (meters 1) 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.013333334) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.013333334) 1.0)
     (sp-rnd-flt spt-vel-z (meters 0.04) (meters 0.013333334) 1.0)
@@ -1453,21 +1211,16 @@
     (sp-flt spt-accel-z -3.212549)
     (sp-int spt-next-time 255)
     (sp-launcher-by-id spt-next-launcher 1210)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1254)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1254
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
     (sp-flt spt-y (meters 50.5))
-    (sp-rnd-flt spt-z -55296.0 4096.0 1.0)
+    (sp-rnd-flt spt-z (meters -13.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1488,37 +1241,27 @@
     (sp-launcher-by-id spt-next-launcher 1265)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1265)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 7
-    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+(defpart 1265
+  :init-specs
+  ((sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.013333334) 1.0)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.013333334) 1.0)
     (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.026666667) 1.0)
     (sp-flt spt-accel-x -1.3003175)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1255)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1255
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.2 1.0)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
     (sp-flt spt-y (meters 50.5))
-    (sp-rnd-flt spt-z -55296.0 4096.0 1.0)
+    (sp-rnd-flt spt-z (meters -13.5) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1538,17 +1281,12 @@
     (sp-int spt-next-time 420)
     (sp-launcher-by-id spt-next-launcher 1266)
     (sp-flt spt-rotate-y (degrees -15.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1266)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 10
-    (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.013333334) 1.0)
+(defpart 1266
+  :init-specs
+  ((sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.013333334) 1.0)
     (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.013333334) 1.0)
     (sp-rnd-flt spt-vel-z (meters 0.04) (meters 0.006666667) 1.0)
     (sp-flt spt-scalevel-x (meters 0.009765625))
@@ -1557,22 +1295,17 @@
     (sp-flt spt-accel-z -2.696955)
     (sp-int spt-next-time 405)
     (sp-launcher-by-id spt-next-launcher 1210)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1256)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 1256
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 12.0) 1.0)
-    (sp-flt spt-y (meters 6.0))
-    (sp-rnd-flt spt-z -77824.0 65536.0 1.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-rnd-flt spt-x (meters -3) (meters 12) 1.0)
+    (sp-flt spt-y (meters 6))
+    (sp-rnd-flt spt-z (meters -19) (meters 16) 1.0)
+    (sp-flt spt-scale-x (meters 12))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-rnd-flt spt-g 150.0 42.0 1.0)
@@ -1591,22 +1324,17 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 1209)
     (sp-flt spt-rotate-y (degrees -45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1257)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 1257
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 0.05)
-    (sp-rnd-flt spt-x (meters -3.0) (meters 12.0) 1.0)
+    (sp-rnd-flt spt-x (meters -3) (meters 12) 1.0)
     (sp-flt spt-y (meters 2.5))
-    (sp-rnd-flt spt-z -69632.0 49152.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-z (meters -17) (meters 12) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 92.0)
     (sp-flt spt-g 92.0)
@@ -1620,21 +1348,16 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1208)
     (sp-flt spt-rotate-y (degrees -90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1258)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1258
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.033 1.2 1.0)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
     (sp-flt spt-y (meters 50.5))
-    (sp-rnd-flt spt-z -8192.0 12288.0 1.0)
+    (sp-rnd-flt spt-z (meters -2) (meters 3) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -1653,21 +1376,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees -25.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1259)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1259
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
     (sp-flt spt-y (meters 50.5))
-    (sp-rnd-flt spt-z -12288.0 20480.0 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1686,21 +1404,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees -25.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1260)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1260
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.2 1.0)
-    (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
     (sp-flt spt-y (meters 50.5))
-    (sp-rnd-flt spt-z -12288.0 20480.0 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1720,23 +1433,18 @@
     (sp-int spt-next-time 495)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees -25.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1261)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1261
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.33 1.2 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 23.5) (meters 6.0) 1.0)
-    (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 23.5) (meters 6) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 1.4) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 1.4) 1.0)
     (sp-flt spt-r 192.0)
     (sp-flt spt-g 192.0)
     (sp-flt spt-b 192.0)
@@ -1753,21 +1461,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1262)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1262
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 25.5) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 25.5) (meters 4) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1786,22 +1489,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-rnd-flt spt-rotate-y (degrees -45.0) (degrees 90.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1263)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1263
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.5 0.5 1.0)
-    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-y (meters 22.5) (meters 7.0) 1.0)
-    (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
+    (sp-rnd-flt spt-y (meters 22.5) (meters 7) 1.0)
+    (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 192.0)
@@ -1820,56 +1518,43 @@
     (sp-int spt-next-time 495)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 281)
-  (new 'static 'sparticle-launch-group
-   :length 19
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-village2-waterfall-33"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 19
-    (sp-item 1267)
-    (sp-item 1267 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1267 :fade-after (meters 200.0) :falloff-to (meters 200.0))
+(defpartgroup group-village2-waterfall-33
+  :id 281
+  :flags (always-draw)
+  :bounds (static-bspherem 0 22 0 35)
+  :parts
+  ((sp-item 1267)
+    (sp-item 1267 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1267 :fade-after (meters 200) :falloff-to (meters 200))
     (sp-item 1268)
-    (sp-item 1268 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1268 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1269 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1270 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1271 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1272 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 1268 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1268 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1269 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1270 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1271 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1272 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1273)
-    (sp-item 1273 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1273 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1274 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1275 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 1273 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1273 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1274 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1275 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1276)
-    (sp-item 1276 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1276 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1277 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
+    (sp-item 1276 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1276 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1277 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
     )
-   :bounds
-   (new 'static 'sphere :y 90112.0 :w 143360.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1267)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1267
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.4 1.0 1.0)
     (sp-flt spt-x (meters -7.5))
-    (sp-rnd-flt spt-y (meters 48.0) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -16384.0 16384.0 1.0)
+    (sp-rnd-flt spt-y (meters 48) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -1877,7 +1562,7 @@
     (sp-flt spt-b 192.0)
     (sp-rnd-flt spt-a 32.0 16.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.01) 1.0)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
     (sp-flt spt-scalevel-x (meters 0.0073242188))
     (sp-flt spt-scalevel-y (meters 0.029296875))
     (sp-flt spt-accel-x -2.7978141)
@@ -1888,21 +1573,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1268)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1268
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.03 1.0 1.0)
     (sp-flt spt-x (meters -7.5))
-    (sp-rnd-flt spt-y (meters 48.0) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -24576.0 8192.0 1.0)
+    (sp-rnd-flt spt-y (meters 48) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
     (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
     (sp-flt spt-r 192.0)
@@ -1910,7 +1590,7 @@
     (sp-flt spt-b 192.0)
     (sp-rnd-flt spt-a 32.0 16.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.01) 1.0)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0033333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
     (sp-flt spt-scalevel-x (meters 0.0073242188))
     (sp-flt spt-scalevel-y (meters 0.029296875))
     (sp-flt spt-accel-x -2.7978141)
@@ -1921,21 +1601,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1269)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1269
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.3)
     (sp-flt spt-x (meters -7.5))
-    (sp-rnd-flt spt-y (meters 48.0) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -16384.0 16384.0 1.0)
+    (sp-rnd-flt spt-y (meters 48) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 192.0)
@@ -1954,21 +1629,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1270)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1270
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.7)
     (sp-flt spt-x (meters -7.5))
-    (sp-rnd-flt spt-y (meters 48.0) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -24576.0 8192.0 1.0)
+    (sp-rnd-flt spt-y (meters 48) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1987,21 +1657,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1271)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1271
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 0.1 1.0)
-    (sp-flt spt-x (meters -7.0))
+    (sp-flt spt-x (meters -7))
     (sp-rnd-flt spt-y (meters 47.5) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -24576.0 8192.0 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 2) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2022,21 +1687,16 @@
     (sp-int spt-next-time 630)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1272)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1272
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 0.06 1.0)
-    (sp-flt spt-x (meters -7.0))
+    (sp-flt spt-x (meters -7))
     (sp-rnd-flt spt-y (meters 47.5) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -16384.0 16384.0 1.0)
+    (sp-rnd-flt spt-z (meters -4) (meters 4) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2056,23 +1716,18 @@
     (sp-int spt-next-time 390)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1273)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1273
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.2 1.0 1.0)
     (sp-flt spt-x (meters -1.5))
-    (sp-rnd-flt spt-y (meters 33.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -24576.0 18432.0 1.0)
+    (sp-rnd-flt spt-y (meters 33) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 4.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
-    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 1.4) 1.0)
+    (sp-rnd-flt spt-scale-y (meters 1) (meters 1.4) 1.0)
     (sp-flt spt-r 192.0)
     (sp-flt spt-g 192.0)
     (sp-flt spt-b 192.0)
@@ -2091,21 +1746,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1274)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1274
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-x (meters -1.5))
-    (sp-rnd-flt spt-y (meters 33.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -24576.0 18432.0 1.0)
+    (sp-rnd-flt spt-y (meters 33) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 4.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2125,22 +1775,17 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1275)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1275
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
     (sp-flt spt-x (meters -1.5))
-    (sp-rnd-flt spt-y (meters 33.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -24576.0 18432.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-y (meters 33) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -6) (meters 4.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 192.0)
@@ -2161,22 +1806,17 @@
     (sp-int spt-next-time 540)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1276)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 1276
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-flt spt-num 0.15)
-    (sp-rnd-flt spt-x (meters 2.5) (meters 12.0) 1.0)
-    (sp-flt spt-y (meters 7.0))
-    (sp-rnd-flt spt-z -45056.0 69632.0 1.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-rnd-flt spt-x (meters 2.5) (meters 12) 1.0)
+    (sp-flt spt-y (meters 7))
+    (sp-rnd-flt spt-z (meters -11) (meters 17) 1.0)
+    (sp-flt spt-scale-x (meters 12))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-rnd-flt spt-g 150.0 42.0 1.0)
@@ -2195,22 +1835,17 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 1209)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1277)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 1277
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 0.05)
-    (sp-rnd-flt spt-x (meters 3.5) (meters 10.0) 1.0)
+    (sp-rnd-flt spt-x (meters 3.5) (meters 10) 1.0)
     (sp-flt spt-y (meters 2.5))
-    (sp-rnd-flt spt-z -40960.0 61440.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 15) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 92.0)
     (sp-flt spt-g 92.0)
@@ -2224,95 +1859,82 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1208)
     (sp-flt spt-rotate-y (degrees 90.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 282)
-  (new 'static 'sparticle-launch-group
-   :length 58
-   :duration #xbb8
-   :linger-duration #x5dc
-   :flags (sp-group-flag always-draw)
-   :name "group-village2-waterfall-34"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 58
-    (sp-item 1278)
-    (sp-item 1278 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1278 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1279 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1280 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+(defpartgroup group-village2-waterfall-34
+  :id 282
+  :flags (always-draw)
+  :bounds (static-bspherem -15 17 -10 40)
+  :parts
+  ((sp-item 1278)
+    (sp-item 1278 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1278 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1279 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1280 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1281)
-    (sp-item 1281 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1281 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1282 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1283 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 1281 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1281 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1282 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1283 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1284)
-    (sp-item 1284 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1284 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1285 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1286 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+    (sp-item 1284 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1284 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1285 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1286 :fade-after (meters 120) :falloff-to (meters 120))
     (sp-item 1287)
-    (sp-item 1287 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1287 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1288 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1289 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+    (sp-item 1287 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1287 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1288 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1289 :fade-after (meters 150) :falloff-to (meters 150))
     (sp-item 1290)
-    (sp-item 1290 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1290 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1291 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1292 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+    (sp-item 1290 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1290 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1291 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1292 :fade-after (meters 150) :falloff-to (meters 150))
     (sp-item 1293)
-    (sp-item 1293 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1293 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1294 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1295 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+    (sp-item 1293 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1293 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1294 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1295 :fade-after (meters 150) :falloff-to (meters 150))
     (sp-item 1296)
-    (sp-item 1296 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1296 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1297 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1298 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1300 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-    (sp-item 1301 :fade-after (meters 150.0) :falloff-to (meters 150.0))
+    (sp-item 1296 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1296 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1297 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1298 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1300 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1301 :fade-after (meters 150) :falloff-to (meters 150))
     (sp-item 1302)
-    (sp-item 1302 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1302 :fade-after (meters 200.0) :falloff-to (meters 200.0))
+    (sp-item 1302 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1302 :fade-after (meters 200) :falloff-to (meters 200))
     (sp-item 1303)
-    (sp-item 1303 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1303 :fade-after (meters 200.0) :falloff-to (meters 200.0))
+    (sp-item 1303 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1303 :fade-after (meters 200) :falloff-to (meters 200))
     (sp-item 1304)
-    (sp-item 1304 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-    (sp-item 1304 :fade-after (meters 200.0) :falloff-to (meters 200.0))
+    (sp-item 1304 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1304 :fade-after (meters 200) :falloff-to (meters 200))
     (sp-item 1305)
-    (sp-item 1305 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1305 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1306 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
+    (sp-item 1305 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1305 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1306 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
     (sp-item 1307)
-    (sp-item 1307 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1307 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1308 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
+    (sp-item 1307 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1307 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1308 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
     (sp-item 1309)
-    (sp-item 1309 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1309 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-    (sp-item 1310 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
+    (sp-item 1309 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1309 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1310 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
     )
-   :bounds
-   (new 'static 'sphere :x -61440.0 :y 69632.0 :z -40960.0 :w 163840.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1278)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1278
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 4) 1.0)
     (sp-flt spt-y (meters 43.5))
-    (sp-rnd-flt spt-z 6144.0 10240.0 1.0)
+    (sp-rnd-flt spt-z (meters 1.5) (meters 2.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -2332,21 +1954,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1281)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1281
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.15 0.075 1.0)
-    (sp-rnd-flt spt-x (meters -18.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -18) (meters 4) 1.0)
     (sp-flt spt-y (meters 42.5))
-    (sp-rnd-flt spt-z 32768.0 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters 8) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -2366,21 +1983,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 140.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1284)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1284
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.15 0.075 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 4) 1.0)
     (sp-flt spt-y (meters 43.5))
-    (sp-rnd-flt spt-z -49152.0 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters -12) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -2400,21 +2012,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1279)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1279
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 4) 1.0)
     (sp-flt spt-y (meters 43.5))
-    (sp-rnd-flt spt-z 6144.0 10240.0 1.0)
+    (sp-rnd-flt spt-z (meters 1.5) (meters 2.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2433,21 +2040,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1282)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1282
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.375)
-    (sp-rnd-flt spt-x (meters -18.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -18) (meters 4) 1.0)
     (sp-flt spt-y (meters 43.5))
-    (sp-rnd-flt spt-z 32768.0 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters 8) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2466,21 +2068,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 140.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1285)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1285
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.375)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 4) 1.0)
     (sp-flt spt-y (meters 43.5))
-    (sp-rnd-flt spt-z -49152.0 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters -12) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2499,21 +2096,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1280)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1280
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.375 0.3 1.0)
-    (sp-rnd-flt spt-x (meters -15.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -15) (meters 4) 1.0)
     (sp-flt spt-y (meters 43.5))
-    (sp-rnd-flt spt-z 6144.0 10240.0 1.0)
+    (sp-rnd-flt spt-z (meters 1.5) (meters 2.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -2534,21 +2126,16 @@
     (sp-int spt-next-time 630)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 120.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1283)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1283
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.225 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -18.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -18) (meters 4) 1.0)
     (sp-flt spt-y (meters 43.5))
-    (sp-rnd-flt spt-z 32768.0 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters 8) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -2569,21 +2156,16 @@
     (sp-int spt-next-time 630)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 140.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1286)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1286
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.225 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -20.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -20) (meters 4) 1.0)
     (sp-flt spt-y (meters 43.5))
-    (sp-rnd-flt spt-z -49152.0 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters -12) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -2604,21 +2186,16 @@
     (sp-int spt-next-time 630)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 110.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1287)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1287
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.3 0.6 1.0)
-    (sp-rnd-flt spt-x (meters 26.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 26) (meters 4) 1.0)
     (sp-flt spt-y (meters 4.5))
-    (sp-rnd-flt spt-z 63488.0 22528.0 1.0)
+    (sp-rnd-flt spt-z (meters 15.5) (meters 5.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -2626,7 +2203,7 @@
     (sp-flt spt-b 192.0)
     (sp-rnd-flt spt-a 24.0 16.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.06666667) (meters 0.016666668) 1.0)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.013333334) 1.0)
     (sp-rnd-flt spt-vel-z (meters -0.01) (meters 0.02) 1.0)
     (sp-flt spt-scalevel-x (meters 0.0073242188))
     (sp-flt spt-scalevel-y (meters 0.029296875))
@@ -2638,21 +2215,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 190.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1290)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1290
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.15 0.3 1.0)
-    (sp-rnd-flt spt-x (meters 33.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters -1.0))
-    (sp-rnd-flt spt-z 63488.0 26624.0 1.0)
+    (sp-rnd-flt spt-x (meters 33) (meters 4) 1.0)
+    (sp-flt spt-y (meters -1))
+    (sp-rnd-flt spt-z (meters 15.5) (meters 6.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -2672,21 +2244,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 190.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1288)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1288
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-x (meters 26.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 26) (meters 4) 1.0)
     (sp-flt spt-y (meters 4.5))
-    (sp-rnd-flt spt-z 63488.0 22528.0 1.0)
+    (sp-rnd-flt spt-z (meters 15.5) (meters 5.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2705,21 +2272,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 190.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1291)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1291
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-x (meters 33.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters -1.0))
-    (sp-rnd-flt spt-z 59392.0 34816.0 1.0)
+    (sp-rnd-flt spt-x (meters 33) (meters 4) 1.0)
+    (sp-flt spt-y (meters -1))
+    (sp-rnd-flt spt-z (meters 14.5) (meters 8.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2738,21 +2300,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 190.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1289)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1289
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.375 0.3 1.0)
-    (sp-rnd-flt spt-x (meters 26.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 26) (meters 4) 1.0)
     (sp-flt spt-y (meters 4.5))
-    (sp-rnd-flt spt-z 59392.0 22528.0 1.0)
+    (sp-rnd-flt spt-z (meters 14.5) (meters 5.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -2773,21 +2330,16 @@
     (sp-int spt-next-time 345)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 190.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1292)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1292
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.375 0.3 1.0)
-    (sp-rnd-flt spt-x (meters 33.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters -1.0))
-    (sp-rnd-flt spt-z 59392.0 34816.0 1.0)
+    (sp-rnd-flt spt-x (meters 33) (meters 4) 1.0)
+    (sp-flt spt-y (meters -1))
+    (sp-rnd-flt spt-z (meters 14.5) (meters 8.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -2808,21 +2360,16 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 190.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1293)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1293
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.3 0.6 1.0)
-    (sp-rnd-flt spt-x (meters 24.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 24) (meters 4) 1.0)
     (sp-flt spt-y (meters 4.5))
-    (sp-rnd-flt spt-z -116736.0 22528.0 1.0)
+    (sp-rnd-flt spt-z (meters -28.5) (meters 5.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -2842,21 +2389,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 60.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1294)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1294
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-x (meters 24.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 24) (meters 4) 1.0)
     (sp-flt spt-y (meters 4.5))
-    (sp-rnd-flt spt-z -116736.0 22528.0 1.0)
+    (sp-rnd-flt spt-z (meters -28.5) (meters 5.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2875,21 +2417,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 60.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1295)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1295
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.375 0.3 1.0)
-    (sp-rnd-flt spt-x (meters 24.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters 24) (meters 4) 1.0)
     (sp-flt spt-y (meters 4.5))
-    (sp-rnd-flt spt-z -116736.0 22528.0 1.0)
+    (sp-rnd-flt spt-z (meters -28.5) (meters 5.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -2910,21 +2447,16 @@
     (sp-int spt-next-time 345)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 60.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1296)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1296
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.45 0.75 1.0)
-    (sp-rnd-flt spt-x (meters 38.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -43008.0 26624.0 1.0)
+    (sp-rnd-flt spt-x (meters 38) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -10.5) (meters 6.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -2944,21 +2476,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
     (sp-flt spt-rotate-y (degrees 130.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1297)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1297
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.75)
-    (sp-rnd-flt spt-x (meters 38.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -43008.0 26624.0 1.0)
+    (sp-rnd-flt spt-x (meters 38) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -10.5) (meters 6.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -2977,21 +2504,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 130.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1300)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1300
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 0.325)
-    (sp-rnd-flt spt-x (meters 45.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -43008.0 26624.0 1.0)
+    (sp-rnd-flt spt-x (meters 45) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -10.5) (meters 6.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -3010,21 +2532,16 @@
     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
     (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 130.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1298)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1298
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.375 0.3 1.0)
-    (sp-rnd-flt spt-x (meters 38.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters 4.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -40960.0 30720.0 1.0)
+    (sp-rnd-flt spt-x (meters 38) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters 4) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 7.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -3045,21 +2562,16 @@
     (sp-int spt-next-time 345)
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-flt spt-rotate-y (degrees 130.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1301)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1301
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.15 0.225 1.0)
-    (sp-rnd-flt spt-x (meters 45.0) (meters 4.0) 1.0)
-    (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-    (sp-rnd-flt spt-z -43008.0 26624.0 1.0)
+    (sp-rnd-flt spt-x (meters 45) (meters 4) 1.0)
+    (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+    (sp-rnd-flt spt-z (meters -10.5) (meters 6.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
@@ -3078,21 +2590,16 @@
     (sp-int spt-timer 210)
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-flt spt-rotate-y (degrees 130.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1302)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1302
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.15 0.45 1.0)
-    (sp-flt spt-x (meters -30.0))
-    (sp-rnd-flt spt-y (meters 3.5) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-z -75776.0 2048.0 1.0)
+    (sp-flt spt-x (meters -30))
+    (sp-rnd-flt spt-y (meters 3.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -18.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -3101,7 +2608,7 @@
     (sp-rnd-flt spt-a 24.0 16.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.033333335) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-scalevel-x (meters 0.0073242188))
     (sp-flt spt-scalevel-y (meters 0.029296875))
     (sp-flt spt-accel-x -1.6786886)
@@ -3112,21 +2619,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-int-flt spt-launchrot-y (degrees 100.00001) 1 25486.223)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1303)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1303
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.15 0.4 1.0)
-    (sp-flt spt-x (meters -24.0))
-    (sp-rnd-flt spt-y (meters 3.5) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-z -104448.0 2048.0 1.0)
+    (sp-flt spt-x (meters -24))
+    (sp-rnd-flt spt-y (meters 3.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -25.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -3135,7 +2637,7 @@
     (sp-rnd-flt spt-a 24.0 16.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.033333335) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-scalevel-x (meters 0.0073242188))
     (sp-flt spt-scalevel-y (meters 0.029296875))
     (sp-flt spt-accel-x -1.6786886)
@@ -3146,21 +2648,16 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-y (degrees 160.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1304)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+(defpart 1304
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
     (sp-rnd-flt spt-num 0.15 0.4 1.0)
-    (sp-flt spt-x (meters -26.0))
-    (sp-rnd-flt spt-y (meters 3.5) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-z -47104.0 2048.0 1.0)
+    (sp-flt spt-x (meters -26))
+    (sp-rnd-flt spt-y (meters 3.5) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -11.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
     (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
     (sp-flt spt-r 192.0)
@@ -3169,7 +2666,7 @@
     (sp-rnd-flt spt-a 24.0 16.0 1.0)
     (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.033333335) 1.0)
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-scalevel-x (meters 0.0073242188))
     (sp-flt spt-scalevel-y (meters 0.029296875))
     (sp-flt spt-accel-x -1.6786886)
@@ -3180,22 +2677,17 @@
     (sp-launcher-by-id spt-next-launcher 1210)
     (sp-rnd-flt spt-launchrot-y (degrees 140.0) (degrees 40.0) 1.0)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1305)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 1305
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-rnd-flt spt-num 0.0375 0.0375 1.0)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -192512.0 16384.0 1.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-rnd-flt spt-x (meters -9) (meters 4) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -47) (meters 4) 1.0)
+    (sp-flt spt-scale-x (meters 12))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-rnd-flt spt-g 150.0 42.0 1.0)
@@ -3214,22 +2706,17 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 1209)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1307)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 1307
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-rnd-flt spt-num 0.075 0.015 1.0)
-    (sp-rnd-flt spt-x (meters -45.0) (meters 12.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -135168.0 20480.0 1.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-rnd-flt spt-x (meters -45) (meters 12) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -33) (meters 5) 1.0)
+    (sp-flt spt-scale-x (meters 12))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-rnd-flt spt-g 150.0 42.0 1.0)
@@ -3248,22 +2735,17 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 1209)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1309)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+(defpart 1309
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
     (sp-rnd-flt spt-num 0.075 0.015 1.0)
-    (sp-rnd-flt spt-x (meters -49.0) (meters 6.0) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-rnd-flt spt-z -61440.0 24576.0 1.0)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-rnd-flt spt-x (meters -49) (meters 6) 1.0)
+    (sp-flt spt-y (meters -2))
+    (sp-rnd-flt spt-z (meters -15) (meters 6) 1.0)
+    (sp-flt spt-scale-x (meters 12))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
     (sp-rnd-flt spt-g 150.0 42.0 1.0)
@@ -3282,22 +2764,17 @@
     (sp-int-plain-rnd spt-next-time 45 29 1)
     (sp-launcher-by-id spt-next-launcher 1209)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1306)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 1306
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 0.00625)
-    (sp-rnd-flt spt-x (meters -9.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -192512.0 16384.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -9) (meters 4) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -47) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 92.0)
     (sp-flt spt-g 92.0)
@@ -3311,22 +2788,17 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1208)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1308)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 1308
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 0.0375)
-    (sp-rnd-flt spt-x (meters -44.0) (meters 10.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -131072.0 12288.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -44) (meters 10) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -32) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 92.0)
     (sp-flt spt-g 92.0)
@@ -3340,22 +2812,17 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1208)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1310)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+(defpart 1310
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
     (sp-flt spt-num 0.00625)
-    (sp-rnd-flt spt-x (meters -45.0) (meters 4.0) 1.0)
-    (sp-flt spt-y (meters -6.0))
-    (sp-rnd-flt spt-z -57344.0 16384.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-x (meters -45) (meters 4) 1.0)
+    (sp-flt spt-y (meters -6))
+    (sp-rnd-flt spt-z (meters -14) (meters 4) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 92.0)
     (sp-flt spt-g 92.0)
@@ -3369,22 +2836,15 @@
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1208)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 283)
-  (new 'static 'sparticle-launch-group
-   :length #xaf
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-sagehut-warpgate"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 175
-    (sp-item 1313 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1314 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1311)
+(defpartgroup group-village2-sagehut-warpgate
+  :id 283
+  :bounds (static-bspherem 7 4 -4.5 12)
+  :parts
+  ((sp-item 1313 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1314 :fade-after (meters 60) :falloff-to (meters 100) :binding 1311)
     (sp-item 1311 :flags (bit1 start-dead launch-asap))
     (sp-item 1311 :flags (bit1 start-dead launch-asap))
     (sp-item 1311 :flags (bit1 start-dead launch-asap))
@@ -3521,7 +2981,7 @@
     (sp-item 1311 :flags (bit1 start-dead launch-asap))
     (sp-item 1311 :flags (bit1 start-dead launch-asap))
     (sp-item 1311 :flags (bit1 start-dead launch-asap))
-    (sp-item 1315 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1312)
+    (sp-item 1315 :fade-after (meters 60) :falloff-to (meters 100) :binding 1312)
     (sp-item 1312 :flags (bit1 start-dead launch-asap))
     (sp-item 1312 :flags (bit1 start-dead launch-asap))
     (sp-item 1312 :flags (bit1 start-dead launch-asap))
@@ -3559,19 +3019,13 @@
     (sp-item 1312 :flags (bit1 start-dead launch-asap))
     (sp-item 1312 :flags (bit1 start-dead launch-asap))
     )
-   :bounds
-   (new 'static 'sphere :x 28672.0 :y 16384.0 :z -18432.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1315)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1315
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.25)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-g 128.0)
@@ -3580,21 +3034,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1312)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1312
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 1.0 0.2 1.0)
     (sp-flt spt-x (meters 4.4444447))
-    (sp-flt spt-y (meters 4.0))
-    (sp-rnd-flt spt-z 22118.4 4096.0 1.0)
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-z (meters 5.4) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 0.0 32.0 1.0)
@@ -3602,24 +3051,19 @@
     (sp-rnd-flt spt-b 64.0 196.0 1.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-    (sp-flt spt-vel-x (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-x (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 0.16)
     (sp-flt spt-accel-x 1.2136296)
     (sp-flt spt-accel-z -0.75093335)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1313)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-rnd-flt spt-num 3.0 3.0 1.0)
+(defpart 1313
+  :init-specs
+  ((sp-rnd-flt spt-num 3.0 3.0 1.0)
     (sp-flt spt-x (meters -0.5))
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
@@ -3630,19 +3074,14 @@
     (sp-int spt-timer 69)
     (sp-cpuinfo-flags aux-list)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 4) (meters 3) 1.0)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1314)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 10
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1314
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.2 1.0 1.0)
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
@@ -3651,21 +3090,16 @@
     (sp-int spt-timer 690)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1311)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1311
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 0.4 1.0)
     (sp-flt spt-x (meters 4.4444447))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 8601.6)
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 2.1))
     (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -3681,41 +3115,28 @@
     (sp-flt spt-accel-x 4.247704)
     (sp-int spt-timer 690)
     (sp-cpuinfo-flags bit2 bit3 bit7)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 284)
-  (new 'static 'sparticle-launch-group
-   :length 4
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village2-tree-fire"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 4
-    (sp-item 1316 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1317 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1318 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-    (sp-item 1319 :fade-after (meters 120.0) :falloff-to (meters 120.0))
+(defpartgroup group-village2-tree-fire
+  :id 284
+  :bounds (static-bspherem 0 10 0 12)
+  :parts
+  ((sp-item 1316 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1317 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1318 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1319 :fade-after (meters 120) :falloff-to (meters 120))
     )
-   :bounds
-   (new 'static 'sphere :y 40960.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1316)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 27
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1316
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
     (sp-rnd-flt spt-x (meters 2.2) (meters 0.5) 1.0)
     (sp-flt spt-y (meters -0.9))
-    (sp-rnd-flt spt-z -3686.4 2048.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-z (meters -0.9) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -3734,35 +3155,24 @@
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-z (degrees 0.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1320)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.53333336)
-    (sp-end)
-    )
-   )
+(defpart 1320
+  :init-specs
+  ((sp-flt spt-fade-a -0.53333336))
   )
 
-(set!
-  (-> *part-id-table* 1317)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1317
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.1 1.0 1.0)
     (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
     (sp-rnd-flt spt-y (meters -0.2) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -11878.4 2048.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-z (meters -2.9) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 128.0 128.0 1.0)
@@ -3780,23 +3190,18 @@
     (sp-launcher-by-id spt-next-launcher 1320)
     (sp-flt spt-conerot-x (degrees 45.0))
     (sp-flt spt-conerot-y (degrees 240.0))
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1318)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1318
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.2 0.2 1.0)
     (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
     (sp-rnd-flt spt-y (meters -0.2) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -11878.4 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters -2.9) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -3819,21 +3224,16 @@
     (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 4.5))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1319)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1319
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 0.2 0.2 1.0)
     (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
     (sp-rnd-flt spt-y (meters -0.2) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -11878.4 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters -2.9) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -3856,9 +3256,7 @@
     (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-conerot-radius (meters 4.5))
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/village3/assistant-village3.gc b/goal_src/levels/village3/assistant-village3.gc
index 39e027a517..0ed25e95e8 100644
--- a/goal_src/levels/village3/assistant-village3.gc
+++ b/goal_src/levels/village3/assistant-village3.gc
@@ -27,70 +27,58 @@
 
 (defmethod dummy-52 assistant-villagec ((obj assistant-villagec))
   (let ((v1-1 (-> obj draw shadow-ctrl)))
-   (when v1-1
-    (let ((f0-0 (-> obj root-override trans y)))
-     (let ((a0-2 v1-1))
-      (set! (-> a0-2 settings bot-plane w) (- (+ -2048.0 f0-0)))
+    (when v1-1
+      (let ((f0-0 (-> obj root-override trans y)))
+        (let ((a0-2 v1-1))
+          (set! (-> a0-2 settings bot-plane w) (- (+ -2048.0 f0-0)))
+          )
+        0
+        (set! (-> v1-1 settings top-plane w) (- (+ 1024.0 f0-0)))
+        )
+      0
       )
-     0
-     (set! (-> v1-1 settings top-plane w) (- (+ 1024.0 f0-0)))
-     )
-    0
     )
-   )
   (none)
   )
 
 (defmethod draw-npc-shadow assistant-villagec ((obj assistant-villagec))
   (-> obj draw shadow-ctrl)
   (cond
-   ((and
-     (-> obj draw shadow)
-     (zero? (-> obj draw cur-lod))
-     (logtest? (-> obj draw status) 8)
+    ((and (-> obj draw shadow) (zero? (-> obj draw cur-lod)) (logtest? (-> obj draw status) (draw-status drwf03)))
+     (let ((v1-9 (-> obj draw shadow-ctrl)))
+       (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
+       )
+     0
+     (dummy-14 (-> obj draw shadow-ctrl))
      )
-    (let ((v1-9 (-> obj draw shadow-ctrl)))
-     (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
-     )
-    0
-    (dummy-14 (-> obj draw shadow-ctrl))
+    (else
+      (let ((v1-14 (-> obj draw shadow-ctrl)))
+        (logior! (-> v1-14 settings flags) 32)
+        )
+      0
+      )
     )
-   (else
-    (let ((v1-14 (-> obj draw shadow-ctrl)))
-     (logior! (-> v1-14 settings flags) 32)
-     )
-    0
-    )
-   )
   (none)
   )
 
 (defmethod play-anim! assistant-villagec ((obj assistant-villagec) (arg0 symbol))
   (set! (-> obj talk-message) (the-as uint 292))
   (cond
-   ((=
-     (get-task-status (game-task finalboss-movies))
-     (task-status need-introduction)
+    ((= (get-task-status (game-task finalboss-movies)) (task-status need-introduction))
+     (if arg0
+         (format
+           0
+           "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+           (-> obj name)
+           (task-status->string (current-status (-> obj tasks)))
+           )
+         )
+     (get-art-elem obj)
      )
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
+    (else
+      (new 'static 'spool-anim :name "assistant-village3-reminder" :index 4 :parts 3 :command-list '())
       )
-     )
-    (get-art-elem obj)
     )
-   (else
-    (new 'static 'spool-anim
-     :name "assistant-village3-reminder"
-     :index 4
-     :parts 3
-     :command-list '()
-     )
-    )
-   )
   )
 
 (defmethod get-art-elem assistant-villagec ((obj assistant-villagec))
@@ -98,10 +86,7 @@
   )
 
 (defmethod should-display? assistant-villagec ((obj assistant-villagec))
-  (and
-   (task-closed? (game-task village3-button) (task-status need-introduction))
-   (not (sages-kidnapped?))
-   )
+  (and (task-closed? (game-task village3-button) (task-status need-introduction)) (not (sages-kidnapped?)))
   )
 
 (defmethod target-above-threshold? assistant-villagec ((obj assistant-villagec))
@@ -109,244 +94,137 @@
   )
 
 (defmethod TODO-RENAME-43 assistant-villagec ((obj assistant-villagec))
-  (when
-   (TODO-RENAME-10
-    (-> obj ambient)
-    (new 'stack-no-clear 'vector)
-    9000
-    122880.0
-    obj
+  (when (TODO-RENAME-10 (-> obj ambient) (new 'stack-no-clear 'vector) 9000 122880.0 obj)
+    (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+           (v1-4 (the-as number (logior #x3f800000 v1-3)))
+           (f0-2 (+ -1.0 (the-as float v1-4)))
+           )
+      (cond
+        ((< 0.85714287 f0-2)
+         (play-ambient (-> obj ambient) "ASSTLP31" #f (-> obj root-override trans))
+         )
+        ((< 0.71428573 f0-2)
+         (play-ambient (-> obj ambient) "ASSTLP32" #f (-> obj root-override trans))
+         )
+        ((< 0.5714286 f0-2)
+         (play-ambient (-> obj ambient) "ASSTLP33" #f (-> obj root-override trans))
+         )
+        ((< 0.42857143 f0-2)
+         (let ((v1-16 (get-task-status (game-task lavatube-end))))
+           (if (not (or (= v1-16 (task-status need-reward-speech)) (= v1-16 (task-status invalid))))
+               (play-ambient (-> obj ambient) "ASSTLP34" #f (-> obj root-override trans))
+               )
+           )
+         )
+        ((< 0.2857143 f0-2)
+         (let ((v1-21 (get-task-status (game-task lavatube-end))))
+           (if (not (or (= v1-21 (task-status need-reward-speech)) (= v1-21 (task-status invalid))))
+               (play-ambient (-> obj ambient) "ASSTLP35" #f (-> obj root-override trans))
+               )
+           )
+         )
+        ((< 0.14285715 f0-2)
+         (let ((v1-26 (get-task-status (game-task lavatube-end))))
+           (if (not (or (= v1-26 (task-status need-reward-speech)) (= v1-26 (task-status invalid))))
+               (play-ambient (-> obj ambient) "ASSTLP36" #f (-> obj root-override trans))
+               )
+           )
+         )
+        ((nonzero? (get-task-status (game-task citadel-sage-green)))
+         (play-ambient (-> obj ambient) "ASSTLP37" #f (-> obj root-override trans))
+         )
+        )
+      )
     )
-   (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-          (v1-4 (the-as number (logior #x3f800000 v1-3)))
-          (f0-2 (+ -1.0 (the-as float v1-4)))
-          )
-    (cond
-     ((< 0.85714287 f0-2)
-      (play-ambient (-> obj ambient) "ASSTLP31" #f (-> obj root-override trans))
-      )
-     ((< 0.71428573 f0-2)
-      (play-ambient (-> obj ambient) "ASSTLP32" #f (-> obj root-override trans))
-      )
-     ((< 0.5714286 f0-2)
-      (play-ambient (-> obj ambient) "ASSTLP33" #f (-> obj root-override trans))
-      )
-     ((< 0.42857143 f0-2)
-      (let ((v1-16 (get-task-status (game-task lavatube-end))))
-       (if
-        (not
-         (or
-          (= v1-16 (task-status need-reward-speech))
-          (= v1-16 (task-status invalid))
-          )
-         )
-        (play-ambient
-         (-> obj ambient)
-         "ASSTLP34"
-         #f
-         (-> obj root-override trans)
-         )
-        )
-       )
-      )
-     ((< 0.2857143 f0-2)
-      (let ((v1-21 (get-task-status (game-task lavatube-end))))
-       (if
-        (not
-         (or
-          (= v1-21 (task-status need-reward-speech))
-          (= v1-21 (task-status invalid))
-          )
-         )
-        (play-ambient
-         (-> obj ambient)
-         "ASSTLP35"
-         #f
-         (-> obj root-override trans)
-         )
-        )
-       )
-      )
-     ((< 0.14285715 f0-2)
-      (let ((v1-26 (get-task-status (game-task lavatube-end))))
-       (if
-        (not
-         (or
-          (= v1-26 (task-status need-reward-speech))
-          (= v1-26 (task-status invalid))
-          )
-         )
-        (play-ambient
-         (-> obj ambient)
-         "ASSTLP36"
-         #f
-         (-> obj root-override trans)
-         )
-        )
-       )
-      )
-     ((nonzero? (get-task-status (game-task citadel-sage-green)))
-      (play-ambient (-> obj ambient) "ASSTLP37" #f (-> obj root-override trans))
-      )
-     )
-    )
-   )
   )
 
 (defstate idle (assistant-villagec)
   :virtual #t
   :code
   (behavior ()
-   (if (!= (if (> (-> self skel active-channels) 0)
-            (-> self skel root-channel 0 frame-group)
+    (if (!= (if (> (-> self skel active-channels) 0)
+                (-> self skel root-channel 0 frame-group)
+                )
+            (get-art-elem self)
             )
-        (get-art-elem self)
+        (ja-channel-push! 1 15)
         )
-    (ja-channel-push! 1 15)
-    )
-   (while #t
-    (TODO-RENAME-43 self)
-    (let ((a0-8 (-> self skel root-channel 0)))
-     (set!
-      (-> a0-8 frame-group)
-      (the-as art-joint-anim (-> self draw art-group data 3))
-      )
-     (set!
-      (-> a0-8 param 0)
-      (the
-       float
-       (+
-        (->
-         (the-as art-joint-anim (-> self draw art-group data 3))
-         data
-         0
-         length
-         )
-        -1
+    (while #t
+      (TODO-RENAME-43 self)
+      (let ((a0-8 (-> self skel root-channel 0)))
+        (set! (-> a0-8 frame-group) (the-as art-joint-anim (-> self draw art-group data 3)))
+        (set! (-> a0-8 param 0)
+              (the float (+ (-> (the-as art-joint-anim (-> self draw art-group data 3)) data 0 length) -1))
+              )
+        (set! (-> a0-8 param 1) 1.0)
+        (set! (-> a0-8 frame-num) 0.0)
+        (joint-control-channel-group! a0-8 (the-as art-joint-anim (-> self draw art-group data 3)) num-func-seek!)
         )
-       )
-      )
-     (set! (-> a0-8 param 1) 1.0)
-     (set! (-> a0-8 frame-num) 0.0)
-     (joint-control-channel-group!
-      a0-8
-      (the-as art-joint-anim (-> self draw art-group data 3))
-      num-func-seek!
-      )
-     )
-    (until (ja-done? 0)
-     (suspend)
-     (let ((a0-9 (-> self skel root-channel 0)))
-      (set!
-       (-> a0-9 param 0)
-       (the float (+ (-> a0-9 frame-group data 0 length) -1))
-       )
-      (set! (-> a0-9 param 1) 1.0)
-      (joint-control-channel-group-eval!
-       a0-9
-       (the-as art-joint-anim #f)
-       num-func-seek!
-       )
-      )
-     )
-    (let ((gp-0 (-> *display* base-frame-counter)))
-     (while (let* ((s5-0 (-> *display* base-frame-counter))
-                   (f30-0 300.0)
-                   (f28-0 0.16)
-                   (f26-0 0.17000002)
-                   (v1-31
-                    (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
-                    )
-                   (v1-32 (the-as number (logior #x3f800000 v1-31)))
-                   )
-             (<
-              (-
-               s5-0
-               (the
-                int
-                (* f30-0 (+ f28-0 (* f26-0 (+ -1.0 (the-as float v1-32)))))
-                )
-               )
-              gp-0
+      (until (ja-done? 0)
+        (suspend)
+        (let ((a0-9 (-> self skel root-channel 0)))
+          (set! (-> a0-9 param 0) (the float (+ (-> a0-9 frame-group data 0 length) -1)))
+          (set! (-> a0-9 param 1) 1.0)
+          (joint-control-channel-group-eval! a0-9 (the-as art-joint-anim #f) num-func-seek!)
+          )
+        )
+      (let ((gp-0 (-> *display* base-frame-counter)))
+        (while (let* ((s5-0 (-> *display* base-frame-counter))
+                      (f30-0 300.0)
+                      (f28-0 0.16)
+                      (f26-0 0.17000002)
+                      (v1-31 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                      (v1-32 (the-as number (logior #x3f800000 v1-31)))
+                      )
+                 (< (- s5-0 (the int (* f30-0 (+ f28-0 (* f26-0 (+ -1.0 (the-as float v1-32))))))) gp-0)
+                 )
+          (suspend)
+          )
+        )
+      (let ((gp-1 (-> self skel root-channel 0)))
+        (set! (-> gp-1 frame-group) (if (> (-> self skel active-channels) 0)
+                                        (-> self skel root-channel 0 frame-group)
+                                        )
               )
-             )
-      (suspend)
-      )
-     )
-    (let ((gp-1 (-> self skel root-channel 0)))
-     (set! (-> gp-1 frame-group) (if (> (-> self skel active-channels) 0)
-                                  (-> self skel root-channel 0 frame-group)
-                                  )
-      )
-     (set! (-> gp-1 param 0) (ja-aframe 0.0 0))
-     (set! (-> gp-1 param 1) 1.0)
-     (set! (-> gp-1 frame-num) (ja-aframe 16.0 0))
-     (joint-control-channel-group! gp-1 (if (> (-> self skel active-channels) 0)
-                                         (->
-                                          self
-                                          skel
-                                          root-channel
-                                          0
-                                          frame-group
-                                          )
-                                         )
-      num-func-seek!
-      )
-     )
-    (until (ja-done? 0)
-     (suspend)
-     (let ((gp-2 (-> self skel root-channel 0)))
-      (set! (-> gp-2 param 0) (ja-aframe 0.0 0))
-      (set! (-> gp-2 param 1) 1.0)
-      (joint-control-channel-group-eval!
-       gp-2
-       (the-as art-joint-anim #f)
-       num-func-seek!
-       )
-      )
-     )
-    (let ((gp-3 (-> *display* base-frame-counter)))
-     (while (let* ((s5-1 (-> *display* base-frame-counter))
-                   (f30-1 300.0)
-                   (f28-1 0.16)
-                   (f26-1 0.17000002)
-                   (v1-56
-                    (/ (the-as int (rand-uint31-gen *random-generator*)) 256)
-                    )
-                   (v1-57 (the-as number (logior #x3f800000 v1-56)))
-                   )
-             (<
-              (-
-               s5-1
-               (the
-                int
-                (* f30-1 (+ f28-1 (* f26-1 (+ -1.0 (the-as float v1-57)))))
-                )
-               )
-              gp-3
+        (set! (-> gp-1 param 0) (ja-aframe 0.0 0))
+        (set! (-> gp-1 param 1) 1.0)
+        (set! (-> gp-1 frame-num) (ja-aframe 16.0 0))
+        (joint-control-channel-group!
+          gp-1
+          (if (> (-> self skel active-channels) 0)
+              (-> self skel root-channel 0 frame-group)
               )
-             )
-      (suspend)
+          num-func-seek!
+          )
+        )
+      (until (ja-done? 0)
+        (suspend)
+        (let ((gp-2 (-> self skel root-channel 0)))
+          (set! (-> gp-2 param 0) (ja-aframe 0.0 0))
+          (set! (-> gp-2 param 1) 1.0)
+          (joint-control-channel-group-eval! gp-2 (the-as art-joint-anim #f) num-func-seek!)
+          )
+        )
+      (let ((gp-3 (-> *display* base-frame-counter)))
+        (while (let* ((s5-1 (-> *display* base-frame-counter))
+                      (f30-1 300.0)
+                      (f28-1 0.16)
+                      (f26-1 0.17000002)
+                      (v1-56 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+                      (v1-57 (the-as number (logior #x3f800000 v1-56)))
+                      )
+                 (< (- s5-1 (the int (* f30-1 (+ f28-1 (* f26-1 (+ -1.0 (the-as float v1-57))))))) gp-3)
+                 )
+          (suspend)
+          )
+        )
       )
-     )
+    (none)
     )
-   (none)
-   )
   )
 
-(defmethod
-  init-from-entity!
-  assistant-villagec
-  ((obj assistant-villagec) (arg0 entity-actor))
-  (dummy-40
-   obj
-   arg0
-   *assistant-village3-sg*
-   3
-   31
-   (new 'static 'vector :w 4096.0)
-   5
-   )
+(defmethod init-from-entity! assistant-villagec ((obj assistant-villagec) (arg0 entity-actor))
+  (dummy-40 obj arg0 *assistant-village3-sg* 3 31 (new 'static 'vector :w 4096.0) 5)
   (set! (-> obj tasks) (get-task-control (game-task assistant-village3)))
   (dummy-42 obj)
   (none)
diff --git a/goal_src/levels/village3/miners.gc b/goal_src/levels/village3/miners.gc
index c69de29b38..94e30616e3 100644
--- a/goal_src/levels/village3/miners.gc
+++ b/goal_src/levels/village3/miners.gc
@@ -11,29 +11,25 @@
 
 (defbehavior miners-anim-loop minershort ()
   (when (!= (if (> (-> self skel active-channels) 0)
-             (-> self skel root-channel 0 frame-group)
-             )
-         (get-art-elem self)
-         )
-   (ja-channel-push! 1 60)
-   (let ((gp-0 (-> self skel root-channel 0)))
-    (set! (-> gp-0 frame-group) (the-as art-joint-anim (get-art-elem self)))
+                (-> self skel root-channel 0 frame-group)
+                )
+            (get-art-elem self)
+            )
+    (ja-channel-push! 1 60)
+    (let ((gp-0 (-> self skel root-channel 0)))
+      (set! (-> gp-0 frame-group) (the-as art-joint-anim (get-art-elem self)))
+      )
     )
-   )
   (while #t
-   (suspend)
-   (let ((a0-8 (-> self skel root-channel 0)))
-    (set! (-> a0-8 param 0) 2.0)
-    (joint-control-channel-group-eval!
-     a0-8
-     (the-as art-joint-anim #f)
-     num-func-loop!
-     )
+    (suspend)
+    (let ((a0-8 (-> self skel root-channel 0)))
+      (set! (-> a0-8 param 0) 2.0)
+      (joint-control-channel-group-eval! a0-8 (the-as art-joint-anim #f) num-func-loop!)
+      )
+    (if (= (-> self next-state name) 'idle)
+        (TODO-RENAME-43 self)
+        )
     )
-   (if (= (-> self next-state name) 'idle)
-    (TODO-RENAME-43 self)
-    )
-   )
   (the-as none 0)
   (none)
   )
@@ -58,44 +54,40 @@
 
 (defmethod dummy-52 minertall ((obj minertall))
   (let ((v1-1 (-> obj draw shadow-ctrl)))
-   (when v1-1
-    (let ((f0-0 (-> obj root-override trans y)))
-     (let ((a0-2 v1-1))
-      (set! (-> a0-2 settings bot-plane w) (- (+ -4096.0 f0-0)))
+    (when v1-1
+      (let ((f0-0 (-> obj root-override trans y)))
+        (let ((a0-2 v1-1))
+          (set! (-> a0-2 settings bot-plane w) (- (+ -4096.0 f0-0)))
+          )
+        0
+        (let ((a0-4 v1-1))
+          (set! (-> a0-4 settings top-plane w) (- (+ 4096.0 f0-0)))
+          )
+        )
+      0
+      (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
       )
-     0
-     (let ((a0-4 v1-1))
-      (set! (-> a0-4 settings top-plane w) (- (+ 4096.0 f0-0)))
-      )
-     )
-    0
-    (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
     )
-   )
   (none)
   )
 
 (defmethod draw-npc-shadow minertall ((obj minertall))
   (-> obj draw shadow-ctrl)
   (cond
-   ((and
-     (-> obj draw shadow)
-     (zero? (-> obj draw cur-lod))
-     (logtest? (-> obj draw status) 8)
+    ((and (-> obj draw shadow) (zero? (-> obj draw cur-lod)) (logtest? (-> obj draw status) (draw-status drwf03)))
+     (let ((v1-9 (-> obj draw shadow-ctrl)))
+       (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
+       )
+     0
+     (dummy-14 (-> obj draw shadow-ctrl))
      )
-    (let ((v1-9 (-> obj draw shadow-ctrl)))
-     (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
-     )
-    0
-    (dummy-14 (-> obj draw shadow-ctrl))
+    (else
+      (let ((v1-14 (-> obj draw shadow-ctrl)))
+        (logior! (-> v1-14 settings flags) 32)
+        )
+      0
+      )
     )
-   (else
-    (let ((v1-14 (-> obj draw shadow-ctrl)))
-     (logior! (-> v1-14 settings flags) 32)
-     )
-    0
-    )
-   )
   (none)
   )
 
@@ -103,13 +95,13 @@
   (set! (-> obj talk-message) (the-as uint 260))
   (current-status (-> obj tasks))
   (if arg0
-   (format
-    0
-    "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-    (-> obj name)
-    (task-status->string (current-status (-> obj tasks)))
-    )
-   )
+      (format
+        0
+        "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+        (-> obj name)
+        (task-status->string (current-status (-> obj tasks)))
+        )
+      )
   (the-as basic (-> obj draw art-group data 3))
   )
 
@@ -121,10 +113,10 @@
   :virtual #t
   :trans
   (behavior ()
-   (set! (-> self will-talk) #f)
-   ((-> (method-of-type process-taskable idle) trans))
-   (none)
-   )
+    (set! (-> self will-talk) #f)
+    ((-> (method-of-type process-taskable idle) trans))
+    (none)
+    )
   :code
   (the-as (function none :behavior minertall) miners-anim-loop)
   )
@@ -156,31 +148,21 @@
   :shadow 2
   )
 
-(set!
-  (-> *part-group-id-table* 566)
-  (new 'static 'sparticle-launch-group
-   :length 3
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-minershort-candle"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 3
-    (sp-item 2364 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 2365 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 2366 :fade-after (meters 60.0) :falloff-to (meters 60.0))
+(defpartgroup group-minershort-candle
+  :id 566
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 2364 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 2365 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 2366 :fade-after (meters 60) :falloff-to (meters 60))
     )
-   :bounds (new 'static 'sphere :w 61440.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2366)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2366
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 2.0 1.0)
-    (sp-flt spt-y (meters 0.0))
+    (sp-flt spt-y (meters 0))
     (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -188,7 +170,7 @@
     (sp-rnd-flt spt-g 128.0 32.0 1.0)
     (sp-rnd-flt spt-b 128.0 16.0 1.0)
     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.00033333333) 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0) (meters 0.00033333333) 1.0)
     (sp-rnd-flt spt-scalevel-x (meters 0.0005) (meters 0.001) 1.0)
     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
     (sp-copy-from-other spt-scalevel-y -4)
@@ -201,18 +183,13 @@
     (sp-cpuinfo-flags bit2 bit12 bit14)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.05) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.05) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2364)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2364
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 3.0)
     (sp-rnd-flt spt-y (meters -0.08) (meters 0.02) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
@@ -221,25 +198,20 @@
     (sp-rnd-flt spt-g 64.0 64.0 1.0)
     (sp-rnd-flt spt-b 0.0 32.0 1.0)
     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.00016666666) 1.0)
-    (sp-rnd-flt spt-vel-z (meters 0.0) (meters 0.00016666666) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.00016666666) 1.0)
+    (sp-rnd-flt spt-vel-z (meters 0) (meters 0.00016666666) 1.0)
     (sp-flt spt-scalevel-x (meters -0.0016666667))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-g -0.7111111)
     (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
     (sp-int-plain-rnd spt-timer 60 29 1)
     (sp-cpuinfo-flags bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2365)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 2365
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters -0.02))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.75) 1.0)
@@ -249,8 +221,8 @@
     (sp-rnd-flt spt-g 64.0 64.0 1.0)
     (sp-rnd-flt spt-b 0.0 32.0 1.0)
     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.00016666666) 1.0)
-    (sp-rnd-flt spt-vel-z (meters 0.0) (meters 0.00016666666) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.00016666666) 1.0)
+    (sp-rnd-flt spt-vel-z (meters 0) (meters 0.00016666666) 1.0)
     (sp-flt spt-scalevel-x (meters -0.0016666667))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-g -0.7111111)
@@ -258,462 +230,272 @@
     (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
 (defmethod dummy-52 minershort ((obj minershort))
   (let ((v1-1 (-> obj draw shadow-ctrl)))
-   (when v1-1
-    (let ((f0-0 (-> obj root-override trans y)))
-     (let ((a0-2 v1-1))
-      (set! (-> a0-2 settings bot-plane w) (- (+ -4096.0 f0-0)))
+    (when v1-1
+      (let ((f0-0 (-> obj root-override trans y)))
+        (let ((a0-2 v1-1))
+          (set! (-> a0-2 settings bot-plane w) (- (+ -4096.0 f0-0)))
+          )
+        0
+        (let ((a0-4 v1-1))
+          (set! (-> a0-4 settings top-plane w) (- (+ 4096.0 f0-0)))
+          )
+        )
+      0
+      (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
       )
-     0
-     (let ((a0-4 v1-1))
-      (set! (-> a0-4 settings top-plane w) (- (+ 4096.0 f0-0)))
-      )
-     )
-    0
-    (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
     )
-   )
   (none)
   )
 
 (defmethod draw-npc-shadow minershort ((obj minershort))
   (-> obj draw shadow-ctrl)
   (cond
-   ((and
-     (-> obj draw shadow)
-     (zero? (-> obj draw cur-lod))
-     (logtest? (-> obj draw status) 8)
+    ((and (-> obj draw shadow) (zero? (-> obj draw cur-lod)) (logtest? (-> obj draw status) (draw-status drwf03)))
+     (let ((v1-9 (-> obj draw shadow-ctrl)))
+       (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
+       )
+     0
+     (dummy-14 (-> obj draw shadow-ctrl))
      )
-    (let ((v1-9 (-> obj draw shadow-ctrl)))
-     (set! (-> v1-9 settings flags) (logand -33 (-> v1-9 settings flags)))
-     )
-    0
-    (dummy-14 (-> obj draw shadow-ctrl))
+    (else
+      (let ((v1-14 (-> obj draw shadow-ctrl)))
+        (logior! (-> v1-14 settings flags) 32)
+        )
+      0
+      )
     )
-   (else
-    (let ((v1-14 (-> obj draw shadow-ctrl)))
-     (logior! (-> v1-14 settings flags) 32)
-     )
-    0
-    )
-   )
   (none)
   )
 
 (defbehavior minershort-trans-hook minershort ()
-  (spawn
-   (-> self part)
-   (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data 14))
-   )
+  (spawn (-> self part) (vector<-cspace! (new 'stack-no-clear 'vector) (-> self node-list data 14)))
   (none)
   )
 
 (defmethod play-anim! minershort ((obj minershort) (arg0 symbol))
   (with-pp
-   (set! (-> obj talk-message) (the-as uint 260))
-   (case (current-status (-> obj tasks)) 
-    (((task-status need-hint) (task-status need-introduction))
-      (if (not arg0)
-       (set! (-> obj will-talk) #t)
-       )
-      (case (current-task (-> obj tasks)) 
-       (((game-task village3-miner-money1))
-         (when arg0
-          (let* ((s5-1 (-> obj tasks))
-                 (s4-0 (method-of-object s5-1 save-reminder))
-                 (a1-3 (new 'stack-no-clear 'event-message-block))
-                 )
-           (set! (-> a1-3 from) pp)
-           (set! (-> a1-3 num-params) 2)
-           (set! (-> a1-3 message) 'query)
-           (set! (-> a1-3 param 0) (the-as uint 'pickup))
-           (set! (-> a1-3 param 1) (the-as uint 6))
-           (s4-0
-            s5-1
-            (the int (the-as float (send-event-function *target* a1-3)))
-            1
-            )
+    (set! (-> obj talk-message) (the-as uint 260))
+    (case (current-status (-> obj tasks))
+      (((task-status need-hint) (task-status need-introduction))
+       (if (not arg0)
+           (set! (-> obj will-talk) #t)
            )
-          (send-event
-           (-> obj other-miner ppointer 3)
-           'clone
-           (process->handle obj)
-           )
-          (close-specific-task!
-           (game-task village3-miner-money1)
-           (task-status need-introduction)
-           )
-          (close-specific-task!
-           (game-task village3-miner-money2)
-           (task-status need-introduction)
-           )
-          (close-specific-task!
-           (game-task village3-miner-money3)
-           (task-status need-introduction)
-           )
-          (close-specific-task!
-           (game-task village3-miner-money4)
-           (task-status need-introduction)
-           )
-          )
-         (new 'static 'spool-anim
-          :name "minershort-introduction-orbs"
-          :index 4
-          :parts 16
-          :command-list
-          '(
-            ((the binteger 171)
-              joint
-              "cameraB"
+       (case (current-task (-> obj tasks))
+         (((game-task village3-miner-money1))
+          (when arg0
+            (let* ((s5-1 (-> obj tasks))
+                   (s4-0 (method-of-object s5-1 save-reminder))
+                   (a1-3 (new 'stack-no-clear 'event-message-block))
+                   )
+              (set! (-> a1-3 from) pp)
+              (set! (-> a1-3 num-params) 2)
+              (set! (-> a1-3 message) 'query)
+              (set! (-> a1-3 param 0) (the-as uint 'pickup))
+              (set! (-> a1-3 param 1) (the-as uint 6))
+              (s4-0 s5-1 (the int (the-as float (send-event-function *target* a1-3))) 1)
+              )
+            (send-event (-> obj other-miner ppointer 3) 'clone (process->handle obj))
+            (close-specific-task! (game-task village3-miner-money1) (task-status need-introduction))
+            (close-specific-task! (game-task village3-miner-money2) (task-status need-introduction))
+            (close-specific-task! (game-task village3-miner-money3) (task-status need-introduction))
+            (close-specific-task! (game-task village3-miner-money4) (task-status need-introduction))
+            )
+          (new 'static 'spool-anim
+            :name "minershort-introduction-orbs"
+            :index 4
+            :parts 16
+            :command-list
+            '((171 joint "cameraB")
+              (206 joint "camera")
+              (423 joint "cameraB")
+              (591 joint "camera")
+              (692 joint "cameraB")
+              (918 joint "camera")
+              (1122 joint "cameraB")
+              (1122 shadow self #f)
+              (1241 joint "camera")
+              (1241 shadow self #t)
               )
-            ((the binteger 206)
-             joint
-             "camera"
-             )
-            ((the binteger 423)
-             joint
-             "cameraB"
-             )
-            ((the binteger 591)
-             joint
-             "camera"
-             )
-            ((the binteger 692)
-             joint
-             "cameraB"
-             )
-            ((the binteger 918)
-             joint
-             "camera"
-             )
-            ((the binteger 1122)
-             joint
-             "cameraB"
-             )
-            ((the binteger 1122)
-             shadow
-             self
-             #f
-             )
-            ((the binteger 1241)
-             joint
-             "camera"
-             )
-            ((the binteger 1241) shadow self #t)
             )
           )
-         )
-       (((game-task cave-gnawers))
-        (when arg0
-         (let* ((s5-2 (-> obj tasks))
-                (s4-1 (method-of-object s5-2 save-reminder))
-                (a1-10 (new 'stack-no-clear 'event-message-block))
-                )
-          (set! (-> a1-10 from) pp)
-          (set! (-> a1-10 num-params) 2)
-          (set! (-> a1-10 message) 'query)
-          (set! (-> a1-10 param 0) (the-as uint 'pickup))
-          (set! (-> a1-10 param 1) (the-as uint 6))
-          (s4-1
-           s5-2
-           (the int (the-as float (send-event-function *target* a1-10)))
-           1
-           )
-          )
-         (send-event
-          (-> obj other-miner ppointer 3)
-          'clone
-          (process->handle obj)
-          )
-         (close-status! (-> obj tasks) (task-status need-introduction))
-         )
-        (new 'static 'spool-anim
-         :name "minershort-introduction-gnawers"
-         :index 9
-         :parts 8
-         :command-list
-         '(
-           (0
-             want-levels
-             village3
-             maincave
-             )
-           ((the binteger 149)
-            joint
-            "cameraB"
-            )
-           ((the binteger 158)
-            display-level
-            maincave
-            movie
-            )
-           ((the binteger 158)
-            want-force-vis
-            maincave
-            #t
-            )
-           ((the binteger 435)
-            display-level
-            maincave
-            #f
-            )
-           ((the binteger 435)
-            joint
-            "camera"
-            )
-           ((the binteger 680)
-            joint
-            "cameraB"
-            )
-           ((the binteger 719) joint "camera")
-           )
-         )
-        )
-       (else
-        (when arg0
-         (send-event
-          (-> obj other-miner ppointer 3)
-          'clone
-          (process->handle obj)
-          )
-         (close-status! (-> obj tasks) (task-status need-introduction))
-         )
-        (new 'static 'spool-anim
-         :name "minershort-introduction-switch"
-         :index 11
-         :parts 7
-         :command-list
-         '(
-           ((the binteger 2)
-             shadow
-             "minertall-1"
-             #f
-             )
-           ((the binteger 835) shadow "minertall-1" #t)
-           )
-         )
-        )
-       )
-      )
-    (((task-status need-reminder))
-     (set! (-> obj skippable) #t)
-     (let ((s4-2 (+ (get-reminder (-> obj tasks) 0) 1)))
-      (if (< (the-as uint 3) (the-as uint s4-2))
-       (set! s4-2 0)
-       )
-      (countdown (s3-0 4)
-       (let ((v1-59 s4-2))
-        (cond
-         ((zero? v1-59)
-          (if
-           (not
-            (or
-             (=
-              (get-task-status (game-task village3-miner-money1))
-              (task-status need-reminder)
+         (((game-task cave-gnawers))
+          (when arg0
+            (let* ((s5-2 (-> obj tasks))
+                   (s4-1 (method-of-object s5-2 save-reminder))
+                   (a1-10 (new 'stack-no-clear 'event-message-block))
+                   )
+              (set! (-> a1-10 from) pp)
+              (set! (-> a1-10 num-params) 2)
+              (set! (-> a1-10 message) 'query)
+              (set! (-> a1-10 param 0) (the-as uint 'pickup))
+              (set! (-> a1-10 param 1) (the-as uint 6))
+              (s4-1 s5-2 (the int (the-as float (send-event-function *target* a1-10))) 1)
               )
-             (=
-              (get-task-status (game-task village3-miner-money2))
-              (task-status need-reminder)
-              )
-             (=
-              (get-task-status (game-task village3-miner-money3))
-              (task-status need-reminder)
-              )
-             (=
-              (get-task-status (game-task village3-miner-money4))
-              (task-status need-reminder)
-              )
-             )
+            (send-event (-> obj other-miner ppointer 3) 'clone (process->handle obj))
+            (close-status! (-> obj tasks) (task-status need-introduction))
             )
-           (set! s4-2 1)
-           )
-          )
-         ((= v1-59 1)
-          (if
-           (!=
-            (get-task-status (game-task cave-gnawers))
-            (task-status need-reminder)
+          (new 'static 'spool-anim
+            :name "minershort-introduction-gnawers"
+            :index 9
+            :parts 8
+            :command-list
+            '((0 want-levels village3 maincave)
+              (149 joint "cameraB")
+              (158 display-level maincave movie)
+              (158 want-force-vis maincave #t)
+              (435 display-level maincave #f)
+              (435 joint "camera")
+              (680 joint "cameraB")
+              (719 joint "camera")
+              )
             )
-           (set! s4-2 2)
-           )
-          )
-         ((= v1-59 2)
-          (if
-           (not
-            (or
-             (=
-              (get-task-status (game-task village3-miner-money1))
-              (task-status need-reminder)
-              )
-             (=
-              (get-task-status (game-task village3-miner-money2))
-              (task-status need-reminder)
-              )
-             (=
-              (get-task-status (game-task village3-miner-money3))
-              (task-status need-reminder)
-              )
-             (=
-              (get-task-status (game-task village3-miner-money4))
-              (task-status need-reminder)
-              )
-             )
-            )
-           (set! s4-2 3)
-           )
           )
          (else
-          (if
-           (!=
-            (get-task-status (game-task snow-eggtop))
-            (task-status need-reminder)
-            )
-           (set! s4-2 0)
-           )
-          )
-         )
-        )
-       )
-      (if arg0
-       (save-reminder (-> obj tasks) s4-2 0)
-       )
-      (cond
-       ((zero? s4-2)
-        (new 'static 'spool-anim
-         :name "minershort-reminder-1-orbs"
-         :index 5
-         :parts 3
-         :command-list '()
-         )
-        )
-       ((= s4-2 1)
-        (if arg0
-         (send-event
-          (-> obj other-miner ppointer 3)
-          'clone
-          (process->handle obj)
-          )
-         )
-        (new 'static 'spool-anim
-         :name "minershort-reminder-1-gnawers"
-         :index 10
-         :parts 3
-         :command-list '()
-         )
-        )
-       ((= s4-2 2)
-        (if arg0
-         (send-event
-          (-> obj other-miner ppointer 3)
-          'clone
-          (process->handle obj)
-          )
-         )
-        (new 'static 'spool-anim
-         :name "minershort-reminder-2-orbs"
-         :index 6
-         :parts 2
-         :command-list '()
-         )
-        )
-       (else
-        (if arg0
-         (send-event
-          (-> obj other-miner ppointer 3)
-          'clone
-          (process->handle obj)
-          )
-         )
-        (new 'static 'spool-anim
-         :name "minershort-reminder-1-switch"
-         :index 12
-         :parts 5
-         :command-list
-         '(
-           ((the binteger 2)
-             shadow
-             "minertall-1"
-             #f
+           (when arg0
+             (send-event (-> obj other-miner ppointer 3) 'clone (process->handle obj))
+             (close-status! (-> obj tasks) (task-status need-introduction))
+             )
+           (new 'static 'spool-anim
+             :name "minershort-introduction-switch"
+             :index 11
+             :parts 7
+             :command-list
+             '((2 shadow "minertall-1" #f) (835 shadow "minertall-1" #t))
              )
-           ((the binteger 500) shadow "minertall-1" #t)
            )
          )
-        )
        )
-      )
-     )
-    (((task-status need-reward-speech))
-     (let ((s4-3 (get-reminder (-> obj tasks) 2)))
-      (cond
-       (arg0
-        (send-event
-         (-> obj other-miner ppointer 3)
-         'clone
-         (process->handle obj)
-         )
-        (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
-        (close-current! (-> obj tasks))
-        (send-event *target* 'get-pickup 5 (- (-> *GAME-bank* money-task-inc)))
-        (save-reminder (-> obj tasks) (+ s4-3 1) 2)
-        )
-       (else
-        (set! (-> obj will-talk) #t)
-        (set! (-> obj talk-message) (the-as uint 282))
-        )
-       )
-      (if (< (the-as uint s4-3) (the-as uint 3))
-       (new 'static 'spool-anim
-        :name "minershort-resolution-1-orbs"
-        :index 7
-        :parts 2
-        :command-list '()
-        )
-       (new 'static 'spool-anim
-        :name "minershort-resolution-2-orbs"
-        :index 8
-        :parts 6
-        :command-list
-        '(
-          ((the binteger 154)
-            joint
-            "cameraB"
+      (((task-status need-reminder))
+       (set! (-> obj skippable) #t)
+       (let ((s4-2 (+ (get-reminder (-> obj tasks) 0) 1)))
+         (if (< (the-as uint 3) (the-as uint s4-2))
+             (set! s4-2 0)
+             )
+         (countdown (s3-0 4)
+           (let ((v1-59 s4-2))
+             (cond
+               ((zero? v1-59)
+                (if (not (or (= (get-task-status (game-task village3-miner-money1)) (task-status need-reminder))
+                             (= (get-task-status (game-task village3-miner-money2)) (task-status need-reminder))
+                             (= (get-task-status (game-task village3-miner-money3)) (task-status need-reminder))
+                             (= (get-task-status (game-task village3-miner-money4)) (task-status need-reminder))
+                             )
+                         )
+                    (set! s4-2 1)
+                    )
+                )
+               ((= v1-59 1)
+                (if (!= (get-task-status (game-task cave-gnawers)) (task-status need-reminder))
+                    (set! s4-2 2)
+                    )
+                )
+               ((= v1-59 2)
+                (if (not (or (= (get-task-status (game-task village3-miner-money1)) (task-status need-reminder))
+                             (= (get-task-status (game-task village3-miner-money2)) (task-status need-reminder))
+                             (= (get-task-status (game-task village3-miner-money3)) (task-status need-reminder))
+                             (= (get-task-status (game-task village3-miner-money4)) (task-status need-reminder))
+                             )
+                         )
+                    (set! s4-2 3)
+                    )
+                )
+               (else
+                 (if (!= (get-task-status (game-task snow-eggtop)) (task-status need-reminder))
+                     (set! s4-2 0)
+                     )
+                 )
+               )
+             )
+           )
+         (if arg0
+             (save-reminder (-> obj tasks) s4-2 0)
+             )
+         (cond
+           ((zero? s4-2)
+            (new 'static 'spool-anim :name "minershort-reminder-1-orbs" :index 5 :parts 3 :command-list '())
             )
-          ((the binteger 461) joint "camera")
-          )
+           ((= s4-2 1)
+            (if arg0
+                (send-event (-> obj other-miner ppointer 3) 'clone (process->handle obj))
+                )
+            (new 'static 'spool-anim :name "minershort-reminder-1-gnawers" :index 10 :parts 3 :command-list '())
+            )
+           ((= s4-2 2)
+            (if arg0
+                (send-event (-> obj other-miner ppointer 3) 'clone (process->handle obj))
+                )
+            (new 'static 'spool-anim :name "minershort-reminder-2-orbs" :index 6 :parts 2 :command-list '())
+            )
+           (else
+             (if arg0
+                 (send-event (-> obj other-miner ppointer 3) 'clone (process->handle obj))
+                 )
+             (new 'static 'spool-anim
+               :name "minershort-reminder-1-switch"
+               :index 12
+               :parts 5
+               :command-list
+               '((2 shadow "minertall-1" #f) (500 shadow "minertall-1" #t))
+               )
+             )
+           )
+         )
+       )
+      (((task-status need-reward-speech))
+       (let ((s4-3 (get-reminder (-> obj tasks) 2)))
+         (cond
+           (arg0
+             (send-event (-> obj other-miner ppointer 3) 'clone (process->handle obj))
+             (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
+             (close-current! (-> obj tasks))
+             (send-event *target* 'get-pickup 5 (- (-> *GAME-bank* money-task-inc)))
+             (save-reminder (-> obj tasks) (+ s4-3 1) 2)
+             )
+           (else
+             (set! (-> obj will-talk) #t)
+             (set! (-> obj talk-message) (the-as uint 282))
+             )
+           )
+         (if (< (the-as uint s4-3) (the-as uint 3))
+             (new 'static 'spool-anim :name "minershort-resolution-1-orbs" :index 7 :parts 2 :command-list '())
+             (new 'static 'spool-anim
+               :name "minershort-resolution-2-orbs"
+               :index 8
+               :parts 6
+               :command-list
+               '((154 joint "cameraB") (461 joint "camera"))
+               )
+             )
+         )
+       )
+      (else
+        (if arg0
+            (format
+              0
+              "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+              (-> obj name)
+              (task-status->string (current-status (-> obj tasks)))
+              )
+            )
+        (-> obj draw art-group data 3)
         )
-       )
       )
-     )
-    (else
-     (if arg0
-      (format
-       0
-       "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-       (-> obj name)
-       (task-status->string (current-status (-> obj tasks)))
-       )
-      )
-     (-> obj draw art-group data 3)
-     )
     )
-   )
   )
 
 (defstate play-anim (minershort)
   :virtual #t
   :exit
   (behavior ()
-   (send-event (-> self other-miner ppointer 3) 'end-mode)
-   ((-> (method-of-type process-taskable play-anim) exit))
-   (none)
-   )
+    (send-event (-> self other-miner ppointer 3) 'end-mode)
+    ((-> (method-of-type process-taskable play-anim) exit))
+    (none)
+    )
   )
 
 (defmethod get-art-elem minershort ((obj minershort))
@@ -721,109 +503,102 @@
   )
 
 (defmethod TODO-RENAME-43 minershort ((obj minershort))
-  (when
-   (TODO-RENAME-10
-    (-> obj ambient)
-    (new 'stack-no-clear 'vector)
-    9000
-    122880.0
-    obj
-    )
-   (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-          (v1-4 (the-as number (logior #x3f800000 v1-3)))
-          (f0-2 (+ -1.0 (the-as float v1-4)))
+  (when (TODO-RENAME-10 (-> obj ambient) (new 'stack-no-clear 'vector) 9000 122880.0 obj)
+    (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+           (v1-4 (the-as number (logior #x3f800000 v1-3)))
+           (f0-2 (+ -1.0 (the-as float v1-4)))
+           )
+      (cond
+        ((< 0.9655172 f0-2)
+         (play-ambient (-> obj ambient) "MIN-LO01" #f (-> obj root-override trans))
+         )
+        ((< 0.9310345 f0-2)
+         (play-ambient (-> obj ambient) "MIN-LO03" #f (-> obj root-override trans))
+         )
+        ((< 0.8965517 f0-2)
+         (play-ambient (-> obj ambient) "MIN-LO04" #f (-> obj root-override trans))
+         )
+        ((< 0.86206895 f0-2)
+         (play-ambient (-> obj ambient) "MIN-LO05" #f (-> obj root-override trans))
+         )
+        ((< 0.82758623 f0-2)
+         (play-ambient (-> obj ambient) "MIN-LO06" #f (-> obj root-override trans))
+         )
+        ((< 0.79310346 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM01" #f (-> obj root-override trans))
+         )
+        ((< 0.7586207 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM02" #f (-> obj root-override trans))
+         )
+        ((< 0.7241379 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM03" #f (-> obj root-override trans))
+         )
+        ((< 0.6896552 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM04" #f (-> obj root-override trans))
+         )
+        ((< 0.6551724 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM05" #f (-> obj root-override trans))
+         )
+        ((< 0.62068963 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM06" #f (-> obj root-override trans))
+         )
+        ((< 0.5862069 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM07" #f (-> obj root-override trans))
+         )
+        ((< 0.55172414 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM08" #f (-> obj root-override trans))
+         )
+        ((< 0.51724136 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM09" #f (-> obj root-override trans))
+         )
+        ((< 0.4827586 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM10" #f (-> obj root-override trans))
+         )
+        ((< 0.44827586 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM11" #f (-> obj root-override trans))
+         )
+        ((< 0.41379312 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM12" #f (-> obj root-override trans))
+         )
+        ((< 0.37931034 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM1A" #f (-> obj root-override trans))
+         )
+        ((< 0.3448276 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM2A" #f (-> obj root-override trans))
+         )
+        ((< 0.31034482 f0-2)
+         (play-ambient (-> obj ambient) "MSH-AM3A" #f (-> obj root-override trans))
+         )
+        ((< 0.27586207 f0-2)
+         (play-ambient (-> obj ambient) "MTA-AM01" #f (-> obj root-override trans))
+         )
+        ((< 0.2413793 f0-2)
+         (play-ambient (-> obj ambient) "MTA-AM02" #f (-> obj root-override trans))
+         )
+        ((< 0.20689656 f0-2)
+         (play-ambient (-> obj ambient) "MTA-AM03" #f (-> obj root-override trans))
+         )
+        ((< 0.1724138 f0-2)
+         (play-ambient (-> obj ambient) "MTA-AM04" #f (-> obj root-override trans))
+         )
+        ((< 0.13793103 f0-2)
+         (play-ambient (-> obj ambient) "MTA-AM05" #f (-> obj root-override trans))
+         )
+        ((< 0.10344828 f0-2)
+         (play-ambient (-> obj ambient) "MTA-AM06" #f (-> obj root-override trans))
+         )
+        ((< 0.06896552 f0-2)
+         (play-ambient (-> obj ambient) "MTA-AM07" #f (-> obj root-override trans))
+         )
+        ((< 0.03448276 f0-2)
+         (play-ambient (-> obj ambient) "MTA-AM08" #f (-> obj root-override trans))
+         )
+        (else
+          (play-ambient (-> obj ambient) "MTA-AM09" #f (-> obj root-override trans))
           )
-    (cond
-     ((< 0.9655172 f0-2)
-      (play-ambient (-> obj ambient) "MIN-LO01" #f (-> obj root-override trans))
+        )
       )
-     ((< 0.9310345 f0-2)
-      (play-ambient (-> obj ambient) "MIN-LO03" #f (-> obj root-override trans))
-      )
-     ((< 0.8965517 f0-2)
-      (play-ambient (-> obj ambient) "MIN-LO04" #f (-> obj root-override trans))
-      )
-     ((< 0.86206895 f0-2)
-      (play-ambient (-> obj ambient) "MIN-LO05" #f (-> obj root-override trans))
-      )
-     ((< 0.82758623 f0-2)
-      (play-ambient (-> obj ambient) "MIN-LO06" #f (-> obj root-override trans))
-      )
-     ((< 0.79310346 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM01" #f (-> obj root-override trans))
-      )
-     ((< 0.7586207 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM02" #f (-> obj root-override trans))
-      )
-     ((< 0.7241379 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM03" #f (-> obj root-override trans))
-      )
-     ((< 0.6896552 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM04" #f (-> obj root-override trans))
-      )
-     ((< 0.6551724 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM05" #f (-> obj root-override trans))
-      )
-     ((< 0.62068963 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM06" #f (-> obj root-override trans))
-      )
-     ((< 0.5862069 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM07" #f (-> obj root-override trans))
-      )
-     ((< 0.55172414 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM08" #f (-> obj root-override trans))
-      )
-     ((< 0.51724136 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM09" #f (-> obj root-override trans))
-      )
-     ((< 0.4827586 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM10" #f (-> obj root-override trans))
-      )
-     ((< 0.44827586 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM11" #f (-> obj root-override trans))
-      )
-     ((< 0.41379312 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM12" #f (-> obj root-override trans))
-      )
-     ((< 0.37931034 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM1A" #f (-> obj root-override trans))
-      )
-     ((< 0.3448276 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM2A" #f (-> obj root-override trans))
-      )
-     ((< 0.31034482 f0-2)
-      (play-ambient (-> obj ambient) "MSH-AM3A" #f (-> obj root-override trans))
-      )
-     ((< 0.27586207 f0-2)
-      (play-ambient (-> obj ambient) "MTA-AM01" #f (-> obj root-override trans))
-      )
-     ((< 0.2413793 f0-2)
-      (play-ambient (-> obj ambient) "MTA-AM02" #f (-> obj root-override trans))
-      )
-     ((< 0.20689656 f0-2)
-      (play-ambient (-> obj ambient) "MTA-AM03" #f (-> obj root-override trans))
-      )
-     ((< 0.1724138 f0-2)
-      (play-ambient (-> obj ambient) "MTA-AM04" #f (-> obj root-override trans))
-      )
-     ((< 0.13793103 f0-2)
-      (play-ambient (-> obj ambient) "MTA-AM05" #f (-> obj root-override trans))
-      )
-     ((< 0.10344828 f0-2)
-      (play-ambient (-> obj ambient) "MTA-AM06" #f (-> obj root-override trans))
-      )
-     ((< 0.06896552 f0-2)
-      (play-ambient (-> obj ambient) "MTA-AM07" #f (-> obj root-override trans))
-      )
-     ((< 0.03448276 f0-2)
-      (play-ambient (-> obj ambient) "MTA-AM08" #f (-> obj root-override trans))
-      )
-     (else
-      (play-ambient (-> obj ambient) "MTA-AM09" #f (-> obj root-override trans))
-      )
-     )
     )
-   )
   )
 
 (defstate idle (minershort)
@@ -834,15 +609,9 @@
 
 (defmethod init-from-entity! minershort ((obj minershort) (arg0 entity-actor))
   (dummy-40 obj arg0 *minershort-sg* 34 46 (new 'static 'vector :w 4096.0) 5)
-  (set!
-   (-> obj part)
-   (create-launch-control (-> *part-group-id-table* 566) obj)
-   )
+  (set! (-> obj part) (create-launch-control (-> *part-group-id-table* 566) obj))
   (set! (-> obj tasks) (get-task-control (game-task village3-miner-money1)))
-  (set!
-   (-> obj other-miner)
-   (the-as minertall (entity-actor-lookup arg0 'alt-actor 0))
-   )
+  (set! (-> obj other-miner) (the-as minertall (entity-actor-lookup arg0 'alt-actor 0)))
   (set! (-> obj cur-trans-hook) minershort-trans-hook)
   (set! (-> obj sound-flava) (the-as uint 14))
   (set! (-> obj draw light-index) (the-as uint 1))
@@ -874,57 +643,44 @@
   :virtual #t
   :code
   (behavior ()
-   (while #t
-    (let ((a0-0 (-> self skel root-channel 0)))
-     (set! (-> a0-0 frame-group) (if (> (-> self skel active-channels) 0)
-                                  (-> self skel root-channel 0 frame-group)
-                                  )
+    (while #t
+      (let ((a0-0 (-> self skel root-channel 0)))
+        (set! (-> a0-0 frame-group) (if (> (-> self skel active-channels) 0)
+                                        (-> self skel root-channel 0 frame-group)
+                                        )
+              )
+        (set! (-> a0-0 param 0) (the float (+ (-> (if (> (-> self skel active-channels) 0)
+                                                      (-> self skel root-channel 0 frame-group)
+                                                      )
+                                                  data
+                                                  0
+                                                  length
+                                                  )
+                                              -1
+                                              )
+                                     )
+              )
+        (set! (-> a0-0 param 1) 1.0)
+        (set! (-> a0-0 frame-num) 0.0)
+        (joint-control-channel-group!
+          a0-0
+          (if (> (-> self skel active-channels) 0)
+              (-> self skel root-channel 0 frame-group)
+              )
+          num-func-seek!
+          )
+        )
+      (until (ja-done? 0)
+        (suspend)
+        (let ((a0-1 (-> self skel root-channel 0)))
+          (set! (-> a0-1 param 0) (the float (+ (-> a0-1 frame-group data 0 length) -1)))
+          (set! (-> a0-1 param 1) 1.0)
+          (joint-control-channel-group-eval! a0-1 (the-as art-joint-anim #f) num-func-seek!)
+          )
+        )
       )
-     (set!
-      (-> a0-0 param 0)
-      (the float (+ (-> (if (> (-> self skel active-channels) 0)
-                         (-> self skel root-channel 0 frame-group)
-                         )
-                     data
-                     0
-                     length
-                     )
-                  -1
-                  )
-       )
-      )
-     (set! (-> a0-0 param 1) 1.0)
-     (set! (-> a0-0 frame-num) 0.0)
-     (joint-control-channel-group! a0-0 (if (> (-> self skel active-channels) 0)
-                                         (->
-                                          self
-                                          skel
-                                          root-channel
-                                          0
-                                          frame-group
-                                          )
-                                         )
-      num-func-seek!
-      )
-     )
-    (until (ja-done? 0)
-     (suspend)
-     (let ((a0-1 (-> self skel root-channel 0)))
-      (set!
-       (-> a0-1 param 0)
-       (the float (+ (-> a0-1 frame-group data 0 length) -1))
-       )
-      (set! (-> a0-1 param 1) 1.0)
-      (joint-control-channel-group-eval!
-       a0-1
-       (the-as art-joint-anim #f)
-       num-func-seek!
-       )
-      )
-     )
+    (none)
     )
-   (none)
-   )
   :post
   (the-as (function none :behavior cavegem) ja-post)
   )
diff --git a/goal_src/levels/village3/sage-village3.gc b/goal_src/levels/village3/sage-village3.gc
index 57d1fa7d0f..cfd0e1d28d 100644
--- a/goal_src/levels/village3/sage-village3.gc
+++ b/goal_src/levels/village3/sage-village3.gc
@@ -48,368 +48,171 @@
 
 (defmethod play-anim! sage-villagec ((obj sage-villagec) (arg0 symbol))
   (with-pp
-   (set! (-> obj talk-message) (the-as uint 291))
-   (case (current-status (-> obj tasks)) 
-    (((task-status unknown)
-     (task-status need-hint)
-     (task-status need-introduction)
-     )
-      (if (not arg0)
-       (set! (-> obj will-talk) #t)
-       )
-      (case (current-task (-> obj tasks)) 
-       (((game-task village3-button))
-         (when arg0
-          (close-status! (-> obj tasks) (task-status need-introduction))
-          (send-event
-           (-> obj assistant extra process)
-           'clone
-           (process->handle obj)
+    (set! (-> obj talk-message) (the-as uint 291))
+    (case (current-status (-> obj tasks))
+      (((task-status unknown) (task-status need-hint) (task-status need-introduction))
+       (if (not arg0)
+           (set! (-> obj will-talk) #t)
            )
-          (let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
-           (set! (-> obj evilbro) (ppointer->handle (when s5-1
-                                                     (let
-                                                      ((t9-5
-                                                        (method-of-type
-                                                         manipy
-                                                         activate
-                                                         )
-                                                        )
-                                                       )
-                                                      (t9-5
-                                                       (the-as manipy s5-1)
-                                                       obj
-                                                       'manipy
-                                                       (the-as
-                                                        pointer
-                                                        #x70004000
-                                                        )
-                                                       )
-                                                      )
-                                                     (run-now-in-process
-                                                      s5-1
-                                                      manipy-init
-                                                      (->
-                                                       obj
-                                                       root-override
-                                                       trans
-                                                       )
-                                                      (-> obj entity)
-                                                      *evilbro-village3-sg*
-                                                      #f
-                                                      )
-                                                     (-> s5-1 ppointer)
-                                                     )
-                                   )
-            )
-           )
-          (send-event (handle->process (-> obj evilbro)) 'anim-mode 'clone-anim)
-          (send-event (handle->process (-> obj evilbro)) 'blend-shape #t)
-          (send-event (handle->process (-> obj evilbro)) 'center-joint 3)
-          (let ((s5-2 (get-process *default-dead-pool* manipy #x4000)))
-           (set! (-> obj evilsis) (ppointer->handle (when s5-2
-                                                     (let
-                                                      ((t9-11
-                                                        (method-of-type
-                                                         manipy
-                                                         activate
-                                                         )
-                                                        )
-                                                       )
-                                                      (t9-11
-                                                       (the-as manipy s5-2)
-                                                       obj
-                                                       'manipy
-                                                       (the-as
-                                                        pointer
-                                                        #x70004000
-                                                        )
-                                                       )
-                                                      )
-                                                     (run-now-in-process
-                                                      s5-2
-                                                      manipy-init
-                                                      (->
-                                                       obj
-                                                       root-override
-                                                       trans
-                                                       )
-                                                      (-> obj entity)
-                                                      *evilsis-village3-sg*
-                                                      #f
-                                                      )
-                                                     (-> s5-2 ppointer)
-                                                     )
-                                   )
-            )
-           )
-          (send-event (handle->process (-> obj evilsis)) 'anim-mode 'clone-anim)
-          (send-event (handle->process (-> obj evilsis)) 'blend-shape #t)
-          (send-event (handle->process (-> obj evilsis)) 'center-joint 3)
-          (set! (-> obj draw bounds w) 40960.0)
-          )
-         (new 'static 'spool-anim
-          :name "sage-village3-introduction"
-          :index 8
-          :parts 58
-          :command-list
-          '(
-            ((the binteger 206)
-              joint
-              "cameraB"
+       (case (current-task (-> obj tasks))
+         (((game-task village3-button))
+          (when arg0
+            (close-status! (-> obj tasks) (task-status need-introduction))
+            (send-event (-> obj assistant extra process) 'clone (process->handle obj))
+            (let ((s5-1 (get-process *default-dead-pool* manipy #x4000)))
+              (set! (-> obj evilbro)
+                    (ppointer->handle
+                      (when s5-1
+                        (let ((t9-5 (method-of-type manipy activate)))
+                          (t9-5 (the-as manipy s5-1) obj 'manipy (the-as pointer #x70004000))
+                          )
+                        (run-now-in-process s5-1 manipy-init (-> obj root-override trans) (-> obj entity) *evilbro-village3-sg* #f)
+                        (-> s5-1 ppointer)
+                        )
+                      )
+                    )
+              )
+            (send-event (handle->process (-> obj evilbro)) 'anim-mode 'clone-anim)
+            (send-event (handle->process (-> obj evilbro)) 'blend-shape #t)
+            (send-event (handle->process (-> obj evilbro)) 'center-joint 3)
+            (let ((s5-2 (get-process *default-dead-pool* manipy #x4000)))
+              (set! (-> obj evilsis)
+                    (ppointer->handle
+                      (when s5-2
+                        (let ((t9-11 (method-of-type manipy activate)))
+                          (t9-11 (the-as manipy s5-2) obj 'manipy (the-as pointer #x70004000))
+                          )
+                        (run-now-in-process s5-2 manipy-init (-> obj root-override trans) (-> obj entity) *evilsis-village3-sg* #f)
+                        (-> s5-2 ppointer)
+                        )
+                      )
+                    )
+              )
+            (send-event (handle->process (-> obj evilsis)) 'anim-mode 'clone-anim)
+            (send-event (handle->process (-> obj evilsis)) 'blend-shape #t)
+            (send-event (handle->process (-> obj evilsis)) 'center-joint 3)
+            (set! (-> obj draw bounds w) 40960.0)
+            )
+          (new 'static 'spool-anim
+            :name "sage-village3-introduction"
+            :index 8
+            :parts 58
+            :command-list
+            '((206 joint "cameraB")
+              (268 joint "camera")
+              (321 joint "cameraB")
+              (415 joint "camera")
+              (502 joint "cameraB")
+              (655 joint "camera")
+              (864 joint "cameraB")
+              (958 joint "camera")
+              (1178 joint "cameraB")
+              (1295 joint "camera")
+              (1377 joint "cameraB")
+              (1683 joint "camera")
+              (2066 joint "cameraB")
+              (2209 joint "camera")
+              (2389 joint "cameraB")
+              (2707 joint "camera")
+              (2769 joint "cameraB")
+              (2901 joint "camera")
+              (3021 joint "cameraB")
+              (3158 joint "camera")
+              (3301 joint "cameraB")
+              (3533 joint "camera")
+              (3632 joint "cameraB")
+              (3692 joint "camera")
+              (3780 joint "cameraB")
+              (3818 joint "camera")
+              (4188 joint "cameraB")
+              (4324 joint "camera")
+              (4462 joint "cameraB")
+              (4542 joint "camera")
               )
-            ((the binteger 268)
-             joint
-             "camera"
-             )
-            ((the binteger 321)
-             joint
-             "cameraB"
-             )
-            ((the binteger 415)
-             joint
-             "camera"
-             )
-            ((the binteger 502)
-             joint
-             "cameraB"
-             )
-            ((the binteger 655)
-             joint
-             "camera"
-             )
-            ((the binteger 864)
-             joint
-             "cameraB"
-             )
-            ((the binteger 958)
-             joint
-             "camera"
-             )
-            ((the binteger 1178)
-             joint
-             "cameraB"
-             )
-            ((the binteger 1295)
-             joint
-             "camera"
-             )
-            ((the binteger 1377)
-             joint
-             "cameraB"
-             )
-            ((the binteger 1683)
-             joint
-             "camera"
-             )
-            ((the binteger 2066)
-             joint
-             "cameraB"
-             )
-            ((the binteger 2209)
-             joint
-             "camera"
-             )
-            ((the binteger 2389)
-             joint
-             "cameraB"
-             )
-            ((the binteger 2707)
-             joint
-             "camera"
-             )
-            ((the binteger 2769)
-             joint
-             "cameraB"
-             )
-            ((the binteger 2901)
-             joint
-             "camera"
-             )
-            ((the binteger 3021)
-             joint
-             "cameraB"
-             )
-            ((the binteger 3158)
-             joint
-             "camera"
-             )
-            ((the binteger 3301)
-             joint
-             "cameraB"
-             )
-            ((the binteger 3533)
-             joint
-             "camera"
-             )
-            ((the binteger 3632)
-             joint
-             "cameraB"
-             )
-            ((the binteger 3692)
-             joint
-             "camera"
-             )
-            ((the binteger 3780)
-             joint
-             "cameraB"
-             )
-            ((the binteger 3818)
-             joint
-             "camera"
-             )
-            ((the binteger 4188)
-             joint
-             "cameraB"
-             )
-            ((the binteger 4324)
-             joint
-             "camera"
-             )
-            ((the binteger 4462)
-             joint
-             "cameraB"
-             )
-            ((the binteger 4542) joint "camera")
             )
           )
-         )
-       (((game-task cave-dark-crystals))
-        (when arg0
-         (let* ((s5-3 (-> obj tasks))
-                (s4-0 (method-of-object s5-3 save-reminder))
-                (a1-18 (new 'stack-no-clear 'event-message-block))
-                )
-          (set! (-> a1-18 from) pp)
-          (set! (-> a1-18 num-params) 2)
-          (set! (-> a1-18 message) 'query)
-          (set! (-> a1-18 param 0) (the-as uint 'pickup))
-          (set! (-> a1-18 param 1) (the-as uint 6))
-          (s4-0
-           s5-3
-           (the int (the-as float (send-event-function *target* a1-18)))
-           1
-           )
+         (((game-task cave-dark-crystals))
+          (when arg0
+            (let* ((s5-3 (-> obj tasks))
+                   (s4-0 (method-of-object s5-3 save-reminder))
+                   (a1-18 (new 'stack-no-clear 'event-message-block))
+                   )
+              (set! (-> a1-18 from) pp)
+              (set! (-> a1-18 num-params) 2)
+              (set! (-> a1-18 message) 'query)
+              (set! (-> a1-18 param 0) (the-as uint 'pickup))
+              (set! (-> a1-18 param 1) (the-as uint 6))
+              (s4-0 s5-3 (the int (the-as float (send-event-function *target* a1-18))) 1)
+              )
+            (close-status! (-> obj tasks) (task-status need-introduction))
+            )
+          (new 'static 'spool-anim
+            :name "sage-village3-introduction-dark-eco"
+            :index 4
+            :parts 9
+            :command-list
+            '((111 joint "cameraB") (189 joint "camera") (455 joint "cameraB") (638 joint "camera") (753 joint "cameraB"))
+            )
           )
-         (close-status! (-> obj tasks) (task-status need-introduction))
-         )
-        (new 'static 'spool-anim
-         :name "sage-village3-introduction-dark-eco"
-         :index 4
-         :parts 9
-         :command-list
-         '(
-           ((the binteger 111)
-             joint
-             "cameraB"
+         (else
+           (if arg0
+               (close-specific-task! (game-task snow-ram) (task-status need-introduction))
+               )
+           (new 'static 'spool-anim
+             :name "sage-village3-introduction-rams"
+             :index 6
+             :parts 6
+             :command-list
+             '((155 joint "cameraB") (370 joint "camera"))
              )
-           ((the binteger 189)
-            joint
-            "camera"
-            )
-           ((the binteger 455)
-            joint
-            "cameraB"
-            )
-           ((the binteger 638)
-            joint
-            "camera"
-            )
-           ((the binteger 753) joint "cameraB")
            )
          )
-        )
-       (else
+       )
+      (((task-status need-reminder-a) (task-status need-reminder))
+       (set! (-> obj skippable) #t)
+       (let ((s4-1 (+ (get-reminder (-> obj tasks) 0) 1)))
+         (if (< (the-as uint 1) (the-as uint s4-1))
+             (set! s4-1 0)
+             )
+         (countdown (s3-0 2)
+           (cond
+             ((zero? s4-1)
+              (if (!= (get-task-status (game-task cave-dark-crystals)) (task-status need-reminder))
+                  (set! s4-1 1)
+                  )
+              )
+             (else
+               (if (not (or (= (get-task-status (game-task snow-ram)) (task-status need-reminder))
+                            (= (get-task-status (game-task snow-ram)) (task-status need-reminder-a))
+                            )
+                        )
+                   (set! s4-1 0)
+                   )
+               )
+             )
+           )
+         (if arg0
+             (save-reminder (-> obj tasks) s4-1 0)
+             )
+         (if (zero? s4-1)
+             (new 'static 'spool-anim :name "sage-village3-reminder-1-dark-eco" :index 5 :parts 2 :command-list '())
+             (new 'static 'spool-anim :name "sage-village3-reminder-1-rams" :index 7 :parts 3 :command-list '())
+             )
+         )
+       )
+      (else
         (if arg0
-         (close-specific-task!
-          (game-task snow-ram)
-          (task-status need-introduction)
-          )
-         )
-        (new 'static 'spool-anim
-         :name "sage-village3-introduction-rams"
-         :index 6
-         :parts 6
-         :command-list
-         '(
-           ((the binteger 155)
-             joint
-             "cameraB"
-             )
-           ((the binteger 370) joint "camera")
-           )
-         )
-        )
-       )
-      )
-    (((task-status need-reminder-a) (task-status need-reminder))
-     (set! (-> obj skippable) #t)
-     (let ((s4-1 (+ (get-reminder (-> obj tasks) 0) 1)))
-      (if (< (the-as uint 1) (the-as uint s4-1))
-       (set! s4-1 0)
-       )
-      (countdown (s3-0 2)
-       (cond
-        ((zero? s4-1)
-         (if
-          (!=
-           (get-task-status (game-task cave-dark-crystals))
-           (task-status need-reminder)
-           )
-          (set! s4-1 1)
-          )
-         )
-        (else
-         (if
-          (not
-           (or
-            (=
-             (get-task-status (game-task snow-ram))
-             (task-status need-reminder)
-             )
-            (=
-             (get-task-status (game-task snow-ram))
-             (task-status need-reminder-a)
-             )
+            (format
+              0
+              "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+              (-> obj name)
+              (task-status->string (current-status (-> obj tasks)))
+              )
             )
-           )
-          (set! s4-1 0)
-          )
-         )
+        (get-art-elem obj)
         )
-       )
-      (if arg0
-       (save-reminder (-> obj tasks) s4-1 0)
-       )
-      (if (zero? s4-1)
-       (new 'static 'spool-anim
-        :name "sage-village3-reminder-1-dark-eco"
-        :index 5
-        :parts 2
-        :command-list '()
-        )
-       (new 'static 'spool-anim
-        :name "sage-village3-reminder-1-rams"
-        :index 7
-        :parts 3
-        :command-list '()
-        )
-       )
       )
-     )
-    (else
-     (if arg0
-      (format
-       0
-       "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-       (-> obj name)
-       (task-status->string (current-status (-> obj tasks)))
-       )
-      )
-     (get-art-elem obj)
-     )
     )
-   )
   )
 
 (defmethod get-art-elem sage-villagec ((obj sage-villagec))
@@ -417,177 +220,125 @@
   )
 
 (defmethod target-above-threshold? sage-villagec ((obj sage-villagec))
-  (the-as
-   symbol
-   (and
-    *target*
-    (< (-> (target-pos 0) x) 4575232.0)
-    (< -14323302.0 (-> (target-pos 0) z))
-    )
-   )
+  (the-as symbol (and *target* (< (-> (target-pos 0) x) 4575232.0) (< -14323302.0 (-> (target-pos 0) z))))
   )
 
 (defmethod TODO-RENAME-43 sage-villagec ((obj sage-villagec))
-  (when
-   (TODO-RENAME-10
-    (-> obj ambient)
-    (new 'stack-no-clear 'vector)
-    9000
-    122880.0
-    obj
-    )
-   (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
-          (v1-4 (the-as number (logior #x3f800000 v1-3)))
-          (f0-2 (+ -1.0 (the-as float v1-4)))
-          )
-    (cond
-     ((< 0.875 f0-2)
-      (play-ambient (-> obj ambient) "SAGELP31" #f (-> obj root-override trans))
-      )
-     ((< 0.75 f0-2)
-      (if
-       (not
-        (closed?
-         (-> obj tasks)
-         (game-task cave-dark-crystals)
-         (task-status need-reminder)
+  (when (TODO-RENAME-10 (-> obj ambient) (new 'stack-no-clear 'vector) 9000 122880.0 obj)
+    (let* ((v1-3 (/ (the-as int (rand-uint31-gen *random-generator*)) 256))
+           (v1-4 (the-as number (logior #x3f800000 v1-3)))
+           (f0-2 (+ -1.0 (the-as float v1-4)))
+           )
+      (cond
+        ((< 0.875 f0-2)
+         (play-ambient (-> obj ambient) "SAGELP31" #f (-> obj root-override trans))
+         )
+        ((< 0.75 f0-2)
+         (if (not (closed? (-> obj tasks) (game-task cave-dark-crystals) (task-status need-reminder)))
+             (play-ambient (-> obj ambient) "SAGELP32" #f (-> obj root-override trans))
+             )
+         )
+        ((< 0.625 f0-2)
+         (if (nonzero? (get-task-status (game-task citadel-sage-green)))
+             (play-ambient (-> obj ambient) "SAGELP33" #f (-> obj root-override trans))
+             )
+         )
+        ((< 0.5 f0-2)
+         (play-ambient (-> obj ambient) "SAGELP34" #f (-> obj root-override trans))
+         )
+        ((< 0.375 f0-2)
+         (play-ambient (-> obj ambient) "SAGELP35" #f (-> obj root-override trans))
+         )
+        ((< 0.25 f0-2)
+         (play-ambient (-> obj ambient) "SAGELP36" #f (-> obj root-override trans))
+         )
+        ((< 0.125 f0-2)
+         (if (nonzero? (get-task-status (game-task citadel-sage-green)))
+             (play-ambient (-> obj ambient) "SAGELP37" #f (-> obj root-override trans))
+             )
+         )
+        ((!= (get-task-status (game-task citadel-sage-green)) (task-status need-resolution))
+         (play-ambient (-> obj ambient) "SAGELP38" #f (-> obj root-override trans))
          )
         )
-       (play-ambient
-        (-> obj ambient)
-        "SAGELP32"
-        #f
-        (-> obj root-override trans)
-        )
-       )
       )
-     ((< 0.625 f0-2)
-      (if (nonzero? (get-task-status (game-task citadel-sage-green)))
-       (play-ambient
-        (-> obj ambient)
-        "SAGELP33"
-        #f
-        (-> obj root-override trans)
-        )
-       )
-      )
-     ((< 0.5 f0-2)
-      (play-ambient (-> obj ambient) "SAGELP34" #f (-> obj root-override trans))
-      )
-     ((< 0.375 f0-2)
-      (play-ambient (-> obj ambient) "SAGELP35" #f (-> obj root-override trans))
-      )
-     ((< 0.25 f0-2)
-      (play-ambient (-> obj ambient) "SAGELP36" #f (-> obj root-override trans))
-      )
-     ((< 0.125 f0-2)
-      (if (nonzero? (get-task-status (game-task citadel-sage-green)))
-       (play-ambient
-        (-> obj ambient)
-        "SAGELP37"
-        #f
-        (-> obj root-override trans)
-        )
-       )
-      )
-     ((!=
-       (get-task-status (game-task citadel-sage-green))
-       (task-status need-resolution)
-       )
-      (play-ambient (-> obj ambient) "SAGELP38" #f (-> obj root-override trans))
-      )
-     )
     )
-   )
   )
 
 (defstate idle (sage-villagec)
   :virtual #t
   :trans
   (behavior ()
-   (case (get-task-status (game-task village3-button)) 
-    (((task-status need-introduction))
-      (send-event self 'play-anim)
+    (case (get-task-status (game-task village3-button))
+      (((task-status need-introduction))
+       (send-event self 'play-anim)
+       )
       )
+    ((-> (method-of-type process-taskable idle) trans))
+    (none)
     )
-   ((-> (method-of-type process-taskable idle) trans))
-   (none)
-   )
   )
 
 (defstate play-anim (sage-villagec)
   :virtual #t
   :exit
   (behavior ()
-   (set! (-> self draw bounds w) 10240.0)
-   (send-event (-> self assistant extra process) 'end-mode)
-   (let ((a0-2 (handle->process (-> self evilbro))))
-    (if a0-2
-     (deactivate a0-2)
-     )
+    (set! (-> self draw bounds w) 10240.0)
+    (send-event (-> self assistant extra process) 'end-mode)
+    (let ((a0-2 (handle->process (-> self evilbro))))
+      (if a0-2
+          (deactivate a0-2)
+          )
+      )
+    (let ((a0-6 (handle->process (-> self evilsis))))
+      (if a0-6
+          (deactivate a0-6)
+          )
+      )
+    ((-> (method-of-type process-taskable play-anim) exit))
+    (none)
     )
-   (let ((a0-6 (handle->process (-> self evilsis))))
-    (if a0-6
-     (deactivate a0-6)
-     )
-    )
-   ((-> (method-of-type process-taskable play-anim) exit))
-   (none)
-   )
   )
 
 (defmethod should-display? sage-villagec ((obj sage-villagec))
   (cond
-   ((not
-     (closed?
-      (-> obj tasks)
-      (game-task village3-button)
-      (task-status need-hint)
-      )
+    ((not (closed? (-> obj tasks) (game-task village3-button) (task-status need-hint)))
+     (dummy-33 obj)
+     #f
      )
-    (dummy-33 obj)
-    #f
+    ((sages-kidnapped?)
+     (dummy-33 obj)
+     #f
+     )
+    (else
+      #t
+      )
     )
-   ((sages-kidnapped?)
-    (dummy-33 obj)
-    #f
-    )
-   (else
-    #t
-    )
-   )
   )
 
 (defmethod draw-npc-shadow sage-villagec ((obj sage-villagec))
   (let ((v1-1 (-> obj draw shadow-ctrl)))
-   (cond
-    ((and
-      (-> obj draw shadow)
-      (zero? (-> obj draw cur-lod))
-      (logtest? (-> obj draw status) 8)
+    (cond
+      ((and (-> obj draw shadow) (zero? (-> obj draw cur-lod)) (logtest? (-> obj draw status) (draw-status drwf03)))
+       (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
+       (set! (-> v1-1 settings flags) (logand -5 (-> v1-1 settings flags)))
+       (set! (-> v1-1 settings bot-plane w) 20480.0)
+       (let ((a0-8 v1-1))
+         (set! (-> a0-8 settings flags) (logand -33 (-> a0-8 settings flags)))
+         )
+       0
+       (dummy-14 v1-1)
+       )
+      (else
+        (logior! (-> v1-1 settings flags) 32)
+        0
+        )
       )
-     (set! (-> v1-1 settings flags) (logand -9 (-> v1-1 settings flags)))
-     (set! (-> v1-1 settings flags) (logand -5 (-> v1-1 settings flags)))
-     (set! (-> v1-1 settings bot-plane w) 20480.0)
-     (let ((a0-8 v1-1))
-      (set! (-> a0-8 settings flags) (logand -33 (-> a0-8 settings flags)))
-      )
-     0
-     (dummy-14 v1-1)
-     )
-    (else
-     (logior! (-> v1-1 settings flags) 32)
-     0
-     )
     )
-   )
   (none)
   )
 
-(defmethod
-  init-from-entity!
-  sage-villagec
-  ((obj sage-villagec) (arg0 entity-actor))
+(defmethod init-from-entity! sage-villagec ((obj sage-villagec) (arg0 entity-actor))
   (dummy-40 obj arg0 *sage-village3-sg* 3 40 (new 'static 'vector :w 8192.0) 5)
   (set! (-> obj tasks) (get-task-control (game-task cave-dark-crystals)))
   (set! (-> obj assistant) (entity-actor-lookup arg0 'alt-actor 0))
diff --git a/goal_src/levels/village3/village3-part.gc b/goal_src/levels/village3/village3-part.gc
index d4c1b3eb81..6229b34c47 100644
--- a/goal_src/levels/village3/village3-part.gc
+++ b/goal_src/levels/village3/village3-part.gc
@@ -16,29 +16,18 @@
   )
 
 
-(set!
-  (-> *part-group-id-table* 476)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-candle"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1797 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1798 :fade-after (meters 60.0) :falloff-to (meters 60.0))
+(defpartgroup group-village3-candle
+  :id 476
+  :bounds (static-bspherem 0 10 0 12)
+  :parts
+  ((sp-item 1797 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1798 :fade-after (meters 60) :falloff-to (meters 60))
     )
-   :bounds
-   (new 'static 'sphere :y 40960.0 :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1797)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1797
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
     (sp-rnd-flt spt-y (meters -0.08) (meters 0.02) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
@@ -47,25 +36,20 @@
     (sp-rnd-flt spt-g 64.0 64.0 1.0)
     (sp-rnd-flt spt-b 0.0 32.0 1.0)
     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.00016666666) 1.0)
-    (sp-rnd-flt spt-vel-z (meters 0.0) (meters 0.00016666666) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.00016666666) 1.0)
+    (sp-rnd-flt spt-vel-z (meters 0) (meters 0.00016666666) 1.0)
     (sp-flt spt-scalevel-x (meters -0.0016666667))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-g -0.7111111)
     (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
     (sp-int-plain-rnd spt-timer 60 29 1)
     (sp-cpuinfo-flags bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1798)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1798
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters -0.04))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
@@ -75,8 +59,8 @@
     (sp-rnd-flt spt-g 64.0 64.0 1.0)
     (sp-rnd-flt spt-b 0.0 32.0 1.0)
     (sp-rnd-flt spt-a 8.0 16.0 1.0)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.00016666666) 1.0)
-    (sp-rnd-flt spt-vel-z (meters 0.0) (meters 0.00016666666) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.00016666666) 1.0)
+    (sp-rnd-flt spt-vel-z (meters 0) (meters 0.00016666666) 1.0)
     (sp-flt spt-scalevel-x (meters -0.0016666667))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-g -0.7111111)
@@ -84,198 +68,116 @@
     (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
     (sp-int spt-timer 25)
     (sp-cpuinfo-flags bit2 bit3)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 477)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-05"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1799 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-05
+  :id 477
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1799 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 478)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-06"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1801 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-06
+  :id 478
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1801 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 479)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-07"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1802 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-07
+  :id 479
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1802 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 480)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-08"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1803 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-08
+  :id 480
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1803 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 481)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-09"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1804 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-09
+  :id 481
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1804 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 482)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-10"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1805 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-10
+  :id 482
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1805 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 483)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-11"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1806 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-11
+  :id 483
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1806 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 484)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-12"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1807 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-12
+  :id 484
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1807 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 485)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-13"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1808 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-13
+  :id 485
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1808 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 486)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-14"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1809 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-14
+  :id 486
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1809 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 487)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sulphur-15"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1810 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-    (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
+(defpartgroup group-village3-sulphur-15
+  :id 487
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1810 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
     )
-   :bounds (new 'static 'sphere :w 49152.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1810)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1810
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -291,22 +193,17 @@
     (sp-launcher-by-id spt-next-launcher 1811)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees 150.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1808)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1808
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -322,22 +219,17 @@
     (sp-launcher-by-id spt-next-launcher 1811)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees 70.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1809)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1809
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -353,22 +245,17 @@
     (sp-launcher-by-id spt-next-launcher 1811)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees 70.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1807)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1807
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -384,37 +271,27 @@
     (sp-launcher-by-id spt-next-launcher 1812)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees 15.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1812)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-vel-y (meters 0.00033333333))
+(defpart 1812
+  :init-specs
+  ((sp-flt spt-vel-y (meters 0.00033333333))
     (sp-flt spt-fade-a -0.023703704)
     (sp-flt spt-accel-y -0.027306668)
     (sp-int spt-next-time 750)
     (sp-launcher-by-id spt-next-launcher 1813)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1806)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1806
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -430,37 +307,27 @@
     (sp-launcher-by-id spt-next-launcher 1814)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1814)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-vel-y (meters 0.00033333333))
+(defpart 1814
+  :init-specs
+  ((sp-flt spt-vel-y (meters 0.00033333333))
     (sp-flt spt-fade-a -0.023703704)
     (sp-flt spt-accel-y -0.027306668)
     (sp-int spt-next-time 225)
     (sp-launcher-by-id spt-next-launcher 1813)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1805)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1805
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -476,22 +343,17 @@
     (sp-launcher-by-id spt-next-launcher 1811)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees -10.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1804)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1804
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -507,37 +369,27 @@
     (sp-launcher-by-id spt-next-launcher 1815)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1815)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-vel-y (meters 0.00033333333))
+(defpart 1815
+  :init-specs
+  ((sp-flt spt-vel-y (meters 0.00033333333))
     (sp-flt spt-fade-a -0.023703704)
     (sp-flt spt-accel-y -0.027306668)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1813)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1803)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1803
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -553,37 +405,27 @@
     (sp-launcher-by-id spt-next-launcher 1816)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees 40.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1816)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-vel-y (meters 0.00033333333))
+(defpart 1816
+  :init-specs
+  ((sp-flt spt-vel-y (meters 0.00033333333))
     (sp-flt spt-fade-a -0.023703704)
     (sp-flt spt-accel-y -0.027306668)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1813)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1802)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1802
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -599,49 +441,32 @@
     (sp-launcher-by-id spt-next-launcher 1817)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees 40.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1817)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 6
-    (sp-flt spt-vel-y (meters 0.00033333333))
+(defpart 1817
+  :init-specs
+  ((sp-flt spt-vel-y (meters 0.00033333333))
     (sp-flt spt-fade-a -0.023703704)
     (sp-flt spt-accel-y -0.027306668)
     (sp-int spt-next-time 750)
     (sp-launcher-by-id spt-next-launcher 1813)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1813)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-a -0.047407407)
-    (sp-flt spt-accel-y 1.3653333)
-    (sp-end)
-    )
-   )
+(defpart 1813
+  :init-specs
+  ((sp-flt spt-fade-a -0.047407407) (sp-flt spt-accel-y 1.3653333))
   )
 
-(set!
-  (-> *part-id-table* 1801)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1801
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -657,22 +482,17 @@
     (sp-launcher-by-id spt-next-launcher 1811)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees 40.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1799)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1799
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-rnd-flt spt-num 0.1 0.15 1.0)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -688,34 +508,21 @@
     (sp-launcher-by-id spt-next-launcher 1811)
     (sp-flt spt-conerot-x (degrees 60.0))
     (sp-rnd-flt spt-conerot-y (degrees -20.0) (degrees 10.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1811)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-vel-y (meters 0.00033333333))
-    (sp-flt spt-fade-a -0.017777778)
-    (sp-flt spt-accel-y -0.027306668)
-    (sp-end)
-    )
-   )
+(defpart 1811
+  :init-specs
+  ((sp-flt spt-vel-y (meters 0.00033333333)) (sp-flt spt-fade-a -0.017777778) (sp-flt spt-accel-y -0.027306668))
   )
 
-(set!
-  (-> *part-id-table* 1800)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+(defpart 1800
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
     (sp-flt spt-num 0.1)
-    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 100.0)
@@ -731,22 +538,15 @@
     (sp-cpuinfo-flags bit2)
     (sp-int-plain-rnd spt-next-time 90 59 1)
     (sp-launcher-by-id spt-next-launcher 1811)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 488)
-  (new 'static 'sparticle-launch-group
-   :length 68
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-minor-fire"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 68
-    (sp-item 2358 :fade-after (meters 50.0) :falloff-to (meters 80.0))
-    (sp-item 2359 :fade-after (meters 40.0) :falloff-to (meters 40.0) :binding 2357)
+(defpartgroup group-village3-minor-fire
+  :id 488
+  :bounds (static-bspherem 0 2.5 0 2.5)
+  :parts
+  ((sp-item 2358 :fade-after (meters 50) :falloff-to (meters 80))
+    (sp-item 2359 :fade-after (meters 40) :falloff-to (meters 40) :binding 2357)
     (sp-item 2357 :flags (bit1 start-dead launch-asap))
     (sp-item 2357 :flags (bit1 start-dead launch-asap))
     (sp-item 2357 :flags (bit1 start-dead launch-asap))
@@ -811,36 +611,26 @@
     (sp-item 2357 :flags (bit1 start-dead launch-asap))
     (sp-item 2357 :flags (bit1 start-dead launch-asap))
     (sp-item 2357 :flags (bit1 start-dead launch-asap))
-    (sp-item 2360 :fade-after (meters 60.0) :falloff-to (meters 80.0))
-    (sp-item 2361 :fade-after (meters 50.0) :falloff-to (meters 50.0))
+    (sp-item 2360 :fade-after (meters 60) :falloff-to (meters 80))
+    (sp-item 2361 :fade-after (meters 50) :falloff-to (meters 50))
     )
-   :bounds
-   (new 'static 'sphere :y 10240.0 :w 10240.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 2359)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 2359
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-flt spt-num 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :mask #x1
-      :num 1.0
-      :group #x1
-      :sound-name (static-sound-name "fire-pop")
-      :volume #x400
-      )
-     )
+    (sp-sound (new 'static 'sound-spec
+                :mask #x1
+                :num 1.0
+                :group #x1
+                :sound-name (static-sound-name "fire-pop")
+                :volume #x400
+                )
+              )
     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
     (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -854,21 +644,16 @@
     (sp-cpuinfo-flags bit1 bit3)
     (sp-rnd-flt spt-conerot-x (degrees -20.0) (degrees 40.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2357)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 2357
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-    (sp-rnd-flt spt-z 1024.0 4096.0 1.0)
+    (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+    (sp-rnd-flt spt-z (meters 0.25) (meters 1) 1.0)
     (sp-flt spt-scale-x (meters 0.1))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -877,7 +662,7 @@
     (sp-rnd-flt spt-a 96.0 32.0 1.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
     (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.053333335) 1.0)
-    (sp-flt spt-vel-y (meters 0.0))
+    (sp-flt spt-vel-y (meters 0))
     (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
     (sp-flt spt-fade-r 0.0)
     (sp-flt spt-fade-g -0.7111111)
@@ -887,34 +672,21 @@
     (sp-cpuinfo-flags bit1 bit2 bit3 bit7)
     (sp-int spt-next-time 180)
     (sp-launcher-by-id spt-next-launcher 2362)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2362)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r -1.0666667)
-    (sp-flt spt-fade-g 1.0666667)
-    (sp-flt spt-fade-b 1.0666667)
-    (sp-end)
-    )
-   )
+(defpart 2362
+  :init-specs
+  ((sp-flt spt-fade-r -1.0666667) (sp-flt spt-fade-g 1.0666667) (sp-flt spt-fade-b 1.0666667))
   )
 
-(set!
-  (-> *part-id-table* 2358)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2358
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 3.0 7.0 1.0)
     (sp-rnd-flt spt-x (meters -0.5) (meters 1.1) 1.0)
     (sp-flt spt-y (meters -0.75))
-    (sp-rnd-flt spt-z -2048.0 4505.6 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1.1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -929,22 +701,17 @@
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
     (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-    (sp-end)
+    (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2360)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 2360
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.5)
     (sp-rnd-flt spt-x (meters -0.5) (meters 1.1) 1.0)
     (sp-flt spt-y (meters -0.75))
-    (sp-rnd-flt spt-z -2048.0 4505.6 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1.1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -964,24 +731,19 @@
     (sp-flt spt-friction 0.99)
     (sp-int spt-timer 675)
     (sp-cpuinfo-flags bit2)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2361)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-flt spt-num 0.4)
+(defpart 2361
+  :init-specs
+  ((sp-flt spt-num 0.4)
     (sp-flt spt-x (meters 0.2))
     (sp-flt spt-y (meters -0.75))
     (sp-int spt-rot-x 8)
     (sp-flt spt-r 3276.8)
     (sp-flt spt-g 2662.4)
     (sp-flt spt-b 2867.2)
-    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
     (sp-flt spt-friction 0.99)
     (sp-int spt-timer 300)
@@ -989,150 +751,123 @@
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 2363)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 2363)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b -1.3653333)
-    (sp-end)
-    )
-   )
+(defpart 2363
+  :init-specs
+  ((sp-flt spt-fade-b -1.3653333))
   )
 
-(set!
-  (-> *part-group-id-table* 489)
-  (new 'static 'sparticle-launch-group
-   :length 46
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-spewing-volcano-36"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 46
-    (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1200 :offset 300)
-    (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1320 :offset 360)
-    (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1440 :offset 420)
-    (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1560 :offset 480)
-    (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1980 :offset 540)
-    (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 810 :offset 1620)
-    (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 870 :offset 1590)
-    (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 930 :offset 1560)
-    (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 990 :offset 1530)
-    (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 1050 :offset 1500)
-    (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 120)
-    (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 450 :offset 120)
-    (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 120)
-    (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 630 :offset 120)
-    (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 120)
-    (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 64036)
-    (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 420 :offset 64066)
-    (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 64096)
-    (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 64126)
-    (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 64156)
-    (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 63916)
-    (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 63946)
-    (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 63976)
-    (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 660 :offset 64006)
-    (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 64036)
-    (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 63316)
-    (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 63376)
-    (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 63436)
-    (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 63496)
-    (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 840 :offset 63556)
-    (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 63616)
-    (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 63646)
-    (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 63676)
-    (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 660 :offset 63706)
-    (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 63736)
-    (sp-item 1830 :falloff-to (meters 300.0) :period 2400 :length 180)
-    (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 300 :offset 60)
-    (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 60)
-    (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 420 :offset 60)
-    (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 60)
-    (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 60)
-    (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 60)
-    (sp-item 1833 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 60)
-    (sp-item 1834 :falloff-to (meters 300.0))
-    (sp-item 1835 :falloff-to (meters 300.0))
-    (sp-item 1836 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2400 :length 600 :offset 60)
+(defpartgroup group-spewing-volcano-36
+  :id 489
+  :bounds (static-bspherem 0 3 0 14)
+  :parts
+  ((sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1200 :offset 300)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1320 :offset 360)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1440 :offset 420)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1560 :offset 480)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1980 :offset 540)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 810 :offset 1620)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 870 :offset 1590)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 930 :offset 1560)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 990 :offset 1530)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 1050 :offset 1500)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 360 :offset 120)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 450 :offset 120)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 540 :offset 120)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 630 :offset 120)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 720 :offset 120)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 360 :offset 64036)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 420 :offset 64066)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 480 :offset 64096)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 540 :offset 64126)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 600 :offset 64156)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 480 :offset 63916)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 540 :offset 63946)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 600 :offset 63976)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 660 :offset 64006)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 720 :offset 64036)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 360 :offset 63316)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 480 :offset 63376)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 600 :offset 63436)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 720 :offset 63496)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 840 :offset 63556)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 480 :offset 63616)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 540 :offset 63646)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 600 :offset 63676)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 660 :offset 63706)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 720 :offset 63736)
+    (sp-item 1830 :falloff-to (meters 300) :period 2400 :length 180)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 300 :offset 60)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 360 :offset 60)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 420 :offset 60)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 480 :offset 60)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 540 :offset 60)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 600 :offset 60)
+    (sp-item 1833 :falloff-to (meters 300) :period 2400 :length 600 :offset 60)
+    (sp-item 1834 :falloff-to (meters 300))
+    (sp-item 1835 :falloff-to (meters 300))
+    (sp-item 1836 :fade-after (meters 100) :falloff-to (meters 100) :period 2400 :length 600 :offset 60)
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 57344.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 490)
-  (new 'static 'sparticle-launch-group
-   :length 46
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-spewing-volcano-37"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 46
-    (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1200 :offset 1500)
-    (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1320 :offset 1560)
-    (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1440 :offset 1620)
-    (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1560 :offset 1680)
-    (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1980 :offset 1740)
-    (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 810 :offset 2820)
-    (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 870 :offset 2790)
-    (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 930 :offset 2760)
-    (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 990 :offset 2730)
-    (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 1050 :offset 2700)
-    (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 1320)
-    (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 450 :offset 1320)
-    (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 1320)
-    (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 630 :offset 1320)
-    (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 1320)
-    (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 65236)
-    (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 420 :offset 65266)
-    (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 65296)
-    (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 65326)
-    (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 65356)
-    (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 65116)
-    (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 65146)
-    (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 65176)
-    (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 660 :offset 65206)
-    (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 65236)
-    (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 64516)
-    (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 64576)
-    (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 64636)
-    (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 64696)
-    (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 840 :offset 64756)
-    (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 64816)
-    (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 64846)
-    (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 64876)
-    (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 660 :offset 64906)
-    (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 64936)
-    (sp-item 1830 :falloff-to (meters 300.0) :period 2400 :length 180 :offset 1200)
-    (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 300 :offset 1260)
-    (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 1260)
-    (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 420 :offset 1260)
-    (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 1260)
-    (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 1260)
-    (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 1260)
-    (sp-item 1833 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 1260)
-    (sp-item 1834 :falloff-to (meters 300.0) :offset 1200)
-    (sp-item 1835 :falloff-to (meters 300.0) :offset 1200)
-    (sp-item 1836 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2400 :length 600 :offset 1260)
+(defpartgroup group-spewing-volcano-37
+  :id 490
+  :bounds (static-bspherem 0 3 0 14)
+  :parts
+  ((sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1200 :offset 1500)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1320 :offset 1560)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1440 :offset 1620)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1560 :offset 1680)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1980 :offset 1740)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 810 :offset 2820)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 870 :offset 2790)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 930 :offset 2760)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 990 :offset 2730)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 1050 :offset 2700)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 360 :offset 1320)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 450 :offset 1320)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 540 :offset 1320)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 630 :offset 1320)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 720 :offset 1320)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 360 :offset 65236)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 420 :offset 65266)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 480 :offset 65296)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 540 :offset 65326)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 600 :offset 65356)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 480 :offset 65116)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 540 :offset 65146)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 600 :offset 65176)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 660 :offset 65206)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 720 :offset 65236)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 360 :offset 64516)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 480 :offset 64576)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 600 :offset 64636)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 720 :offset 64696)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 840 :offset 64756)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 480 :offset 64816)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 540 :offset 64846)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 600 :offset 64876)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 660 :offset 64906)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 720 :offset 64936)
+    (sp-item 1830 :falloff-to (meters 300) :period 2400 :length 180 :offset 1200)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 300 :offset 1260)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 360 :offset 1260)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 420 :offset 1260)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 480 :offset 1260)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 540 :offset 1260)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 600 :offset 1260)
+    (sp-item 1833 :falloff-to (meters 300) :period 2400 :length 600 :offset 1260)
+    (sp-item 1834 :falloff-to (meters 300) :offset 1200)
+    (sp-item 1835 :falloff-to (meters 300) :offset 1200)
+    (sp-item 1836 :fade-after (meters 100) :falloff-to (meters 100) :period 2400 :length 600 :offset 1260)
     )
-   :bounds
-   (new 'static 'sphere :y 12288.0 :w 57344.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1836)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 15
-    (sp-flt spt-num 0.2)
+(defpart 1836
+  :init-specs
+  ((sp-flt spt-num 0.2)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 6144.0)
@@ -1146,17 +881,12 @@
     (sp-launcher-by-id spt-next-launcher 1837)
     (sp-flt spt-conerot-x (degrees 0.0))
     (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1837)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 10
-    (sp-flt spt-fade-r 40.96)
+(defpart 1837
+  :init-specs
+  ((sp-flt spt-fade-r 40.96)
     (sp-flt spt-fade-g 34.133335)
     (sp-flt spt-fade-b 30.72)
     (sp-flt spt-accel-x 0.0)
@@ -1165,31 +895,19 @@
     (sp-flt spt-friction 0.9)
     (sp-int spt-next-time 300)
     (sp-launcher-by-id spt-next-launcher 1838)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1838)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-g 27.306667)
-    (sp-int spt-timer 300)
-    (sp-end)
-    )
-   )
+(defpart 1838
+  :init-specs
+  ((sp-flt spt-fade-g 27.306667) (sp-int spt-timer 300))
   )
 
-(set!
-  (-> *part-id-table* 1833)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1833
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.6)
-    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1208,17 +926,12 @@
     (sp-launcher-by-id spt-next-launcher 1839)
     (sp-flt spt-conerot-x (degrees 0.0))
     (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1839)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-rnd-flt spt-a 16.0 8.0 1.0)
+(defpart 1839
+  :init-specs
+  ((sp-rnd-flt spt-a 16.0 8.0 1.0)
     (sp-flt spt-scalevel-x (meters 0.013333334))
     (sp-copy-from-other spt-scalevel-y -4)
     (sp-flt spt-fade-r 0.42666668)
@@ -1231,35 +944,22 @@
     (sp-flt spt-friction 0.9)
     (sp-int-plain-rnd spt-next-time 240 59 1)
     (sp-launcher-by-id spt-next-launcher 1840)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1840)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-b 0.0)
-    (sp-end)
-    )
-   )
+(defpart 1840
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0))
   )
 
-(set!
-  (-> *part-id-table* 1834)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1834
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 2.0)
     (sp-rnd-flt spt-x (meters 3.5) (meters 0.75) 1.0)
-    (sp-flt spt-y (meters -7.0))
-    (sp-rnd-flt spt-z -6144.0 12288.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
+    (sp-flt spt-y (meters -7))
+    (sp-rnd-flt spt-z (meters -1.5) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1276,22 +976,17 @@
     (sp-int spt-timer 42)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-int-flt spt-rotate-y (degrees 30.0) 3 16384.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1835)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1835
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.8)
     (sp-rnd-flt spt-x (meters 3.5) (meters 0.75) 1.0)
     (sp-flt spt-y (meters -6.5))
-    (sp-rnd-flt spt-z -6144.0 12288.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1.5) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1311,22 +1006,17 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2)
     (sp-rnd-int-flt spt-rotate-y (degrees 30.0) 3 16384.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1829)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1829
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters 7.0) (meters 3.0) 1.0)
-    (sp-flt spt-y (meters -7.0))
-    (sp-rnd-flt spt-z -6144.0 12288.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters 7) (meters 3) 1.0)
+    (sp-flt spt-y (meters -7))
+    (sp-rnd-flt spt-z (meters -1.5) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1343,22 +1033,17 @@
     (sp-int spt-timer 42)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 36.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1828)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1828
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.09)
-    (sp-rnd-flt spt-x (meters 7.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-x (meters 7) (meters 3) 1.0)
     (sp-flt spt-y (meters -6.5))
-    (sp-rnd-flt spt-z -6144.0 12288.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -1.5) (meters 3) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1378,21 +1063,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 36.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1827)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 22
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1827
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-x (meters 5.0) (meters 2.0) 1.0)
-    (sp-flt spt-y (meters -7.0))
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
+    (sp-rnd-flt spt-x (meters 5) (meters 2) 1.0)
+    (sp-flt spt-y (meters -7))
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1409,21 +1089,16 @@
     (sp-int spt-timer 42)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1826)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1826
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters 5.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-x (meters 5) (meters 2) 1.0)
     (sp-flt spt-y (meters -6.5))
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1443,21 +1118,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1824)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1824
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.09)
     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1478,21 +1148,16 @@
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1823)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1823
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.3)
     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 128.0)
@@ -1511,20 +1176,15 @@
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1825)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 28
-    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+(defpart 1825
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
     (sp-flt spt-num 0.7)
     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
+    (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -1548,19 +1208,14 @@
     (sp-launcher-by-id spt-next-launcher 1841)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 32.0) 1.0)
     (sp-rnd-int-flt spt-conerot-y (degrees 45.0) 3 16384.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1832)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 25
-    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+(defpart 1832
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
     (sp-int spt-rot-x 4)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1582,19 +1237,14 @@
     (sp-launcher-by-id spt-next-launcher 1841)
     (sp-flt spt-conerot-x (degrees 0.0))
     (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1831)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+(defpart 1831
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
     (sp-flt spt-num 0.4)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
@@ -1615,33 +1265,21 @@
     (sp-launcher-by-id spt-next-launcher 1841)
     (sp-flt spt-conerot-x (degrees 0.0))
     (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1841)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 3
-    (sp-flt spt-fade-r -0.08888889)
-    (sp-flt spt-fade-g 0.0)
-    (sp-end)
-    )
-   )
+(defpart 1841
+  :init-specs
+  ((sp-flt spt-fade-r -0.08888889) (sp-flt spt-fade-g 0.0))
   )
 
-(set!
-  (-> *part-id-table* 1830)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 26
-    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+(defpart 1830
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
     (sp-flt spt-num 6.0)
-    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
+    (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 200.0 55.0 1.0)
@@ -1662,86 +1300,52 @@
     (sp-launcher-by-id spt-next-launcher 1841)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3.0000002) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 36.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 491)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-steam-puff-31"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 1842 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 900 :length 126)
-    (sp-item 1843 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1260 :length 167)
-    (sp-item 1844 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 690 :length 150)
-    (sp-item 1845 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1920 :length 80)
-    (sp-item 1846 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1710 :length 103)
+(defpartgroup group-village3-steam-puff-31
+  :id 491
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1842 :fade-after (meters 100) :falloff-to (meters 100) :period 900 :length 126)
+    (sp-item 1843 :fade-after (meters 100) :falloff-to (meters 100) :period 1260 :length 167)
+    (sp-item 1844 :fade-after (meters 100) :falloff-to (meters 100) :period 690 :length 150)
+    (sp-item 1845 :fade-after (meters 100) :falloff-to (meters 100) :period 1920 :length 80)
+    (sp-item 1846 :fade-after (meters 100) :falloff-to (meters 100) :period 1710 :length 103)
     )
-   :bounds (new 'static 'sphere :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 492)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-steam-puff-22"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 1842 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1230 :length 156)
-    (sp-item 1843 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2310 :length 107)
-    (sp-item 1844 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 960 :length 120)
-    (sp-item 1845 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1350 :length 170)
-    (sp-item 1846 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1530 :length 193)
+(defpartgroup group-village3-steam-puff-22
+  :id 492
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1842 :fade-after (meters 100) :falloff-to (meters 100) :period 1230 :length 156)
+    (sp-item 1843 :fade-after (meters 100) :falloff-to (meters 100) :period 2310 :length 107)
+    (sp-item 1844 :fade-after (meters 100) :falloff-to (meters 100) :period 960 :length 120)
+    (sp-item 1845 :fade-after (meters 100) :falloff-to (meters 100) :period 1350 :length 170)
+    (sp-item 1846 :fade-after (meters 100) :falloff-to (meters 100) :period 1530 :length 193)
     )
-   :bounds (new 'static 'sphere :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 493)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-steam-puff-23"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 1842 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 126)
-    (sp-item 1843 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1560 :length 107)
-    (sp-item 1844 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1830 :length 120)
-    (sp-item 1845 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 690 :length 110)
-    (sp-item 1846 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1050 :length 163)
+(defpartgroup group-village3-steam-puff-23
+  :id 493
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1842 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 126)
+    (sp-item 1843 :fade-after (meters 100) :falloff-to (meters 100) :period 1560 :length 107)
+    (sp-item 1844 :fade-after (meters 100) :falloff-to (meters 100) :period 1830 :length 120)
+    (sp-item 1845 :fade-after (meters 100) :falloff-to (meters 100) :period 690 :length 110)
+    (sp-item 1846 :fade-after (meters 100) :falloff-to (meters 100) :period 1050 :length 163)
     )
-   :bounds (new 'static 'sphere :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1842)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1842
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :num 0.02
-      :group #x1
-      :sound-name (static-sound-name "steam-short")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
       )
-     )
     (sp-flt spt-scale-x (meters 0.4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1761,29 +1365,16 @@
     (sp-flt spt-conerot-x (degrees 90.0))
     (sp-flt spt-conerot-y (degrees 0.0))
     (sp-flt spt-conerot-radius (meters 0.4))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1843)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1843
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :num 0.02
-      :group #x1
-      :sound-name (static-sound-name "steam-short")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
       )
-     )
     (sp-flt spt-scale-x (meters 0.4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1803,29 +1394,16 @@
     (sp-flt spt-conerot-x (degrees 110.0))
     (sp-flt spt-conerot-y (degrees 32.0))
     (sp-flt spt-conerot-radius (meters 0.4))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1844)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1844
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :num 0.02
-      :group #x1
-      :sound-name (static-sound-name "steam-short")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
       )
-     )
     (sp-flt spt-scale-x (meters 0.4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1845,29 +1423,16 @@
     (sp-flt spt-conerot-x (degrees 75.0))
     (sp-flt spt-conerot-y (degrees 120.0))
     (sp-flt spt-conerot-radius (meters 0.4))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1845)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1845
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :num 0.02
-      :group #x1
-      :sound-name (static-sound-name "steam-short")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
       )
-     )
     (sp-flt spt-scale-x (meters 0.4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1887,29 +1452,16 @@
     (sp-flt spt-conerot-x (degrees 80.0))
     (sp-flt spt-conerot-y (degrees 200.00002))
     (sp-flt spt-conerot-radius (meters 0.4))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1846)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1846
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :num 0.02
-      :group #x1
-      :sound-name (static-sound-name "steam-short")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
       )
-     )
     (sp-flt spt-scale-x (meters 0.4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -1929,124 +1481,76 @@
     (sp-flt spt-conerot-x (degrees 67.0))
     (sp-flt spt-conerot-y (degrees 280.0))
     (sp-flt spt-conerot-radius (meters 0.4))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 494)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-bottom-puff-25"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 900 :length 126)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1260 :length 167)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 669 :length 150)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1920 :length 80)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1710 :length 103)
+(defpartgroup group-village3-bottom-puff-25
+  :id 494
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 900 :length 126)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1260 :length 167)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 669 :length 150)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1920 :length 80)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1710 :length 103)
     )
-   :bounds (new 'static 'sphere :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 495)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-bottom-puff-27"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 126)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1080 :length 167)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1569 :length 150)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 990 :length 80)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1410 :length 103)
+(defpartgroup group-village3-bottom-puff-27
+  :id 495
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 126)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1080 :length 167)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1569 :length 150)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 990 :length 80)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1410 :length 103)
     )
-   :bounds (new 'static 'sphere :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 496)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-bottom-puff-28"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1500 :length 126)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1470 :length 167)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1029 :length 150)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 720 :length 80)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1260 :length 103)
+(defpartgroup group-village3-bottom-puff-28
+  :id 496
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1500 :length 126)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1470 :length 167)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1029 :length 150)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 720 :length 80)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1260 :length 103)
     )
-   :bounds (new 'static 'sphere :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 497)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-bottom-puff-29"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1500 :length 126)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2010 :length 167)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 999 :length 150)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 720 :length 80)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1230 :length 103)
+(defpartgroup group-village3-bottom-puff-29
+  :id 497
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1500 :length 126)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 2010 :length 167)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 999 :length 150)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 720 :length 80)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1230 :length 103)
     )
-   :bounds (new 'static 'sphere :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 498)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-bottom-puff-30"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1500 :length 126)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 960 :length 167)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1869 :length 150)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1050 :length 80)
-    (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1380 :length 103)
+(defpartgroup group-village3-bottom-puff-30
+  :id 498
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1500 :length 126)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 960 :length 167)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1869 :length 150)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1050 :length 80)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1380 :length 103)
     )
-   :bounds (new 'static 'sphere :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1847)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1847
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.5)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :num 0.02
-      :group #x1
-      :sound-name (static-sound-name "steam-short")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
       )
-     )
     (sp-flt spt-y (meters 0.7))
     (sp-flt spt-scale-x (meters 0.4))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
@@ -2066,24 +1570,17 @@
     (sp-cpuinfo-flags bit2)
     (sp-flt spt-conerot-x (degrees 120.0))
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-flt spt-conerot-radius (meters 1.0))
-    (sp-end)
+    (sp-flt spt-conerot-radius (meters 1))
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 499)
-  (new 'static 'sparticle-launch-group
-   :length 15
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-lava-lava-20x20"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 15
-    (sp-item 1850 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-    (sp-item 1851 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-    (sp-item 1852 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1848)
+(defpartgroup group-village3-lava-lava-20x20
+  :id 499
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 1850 :fade-after (meters 40) :falloff-to (meters 40))
+    (sp-item 1851 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1852 :fade-after (meters 80) :falloff-to (meters 80) :binding 1848)
     (sp-item 1848 :flags (start-dead))
     (sp-item 1848 :flags (start-dead))
     (sp-item 1848 :flags (start-dead))
@@ -2092,26 +1589,21 @@
     (sp-item 1848 :flags (start-dead))
     (sp-item 1848 :flags (start-dead))
     (sp-item 1848 :flags (start-dead))
-    (sp-item 1853 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 137 :length 5 :binding 1849)
-    (sp-item 1853 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 234 :length 5 :binding 1849)
-    (sp-item 1853 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 92 :length 5 :binding 1849)
+    (sp-item 1853 :fade-after (meters 40) :falloff-to (meters 40) :period 137 :length 5 :binding 1849)
+    (sp-item 1853 :fade-after (meters 60) :falloff-to (meters 60) :period 234 :length 5 :binding 1849)
+    (sp-item 1853 :fade-after (meters 80) :falloff-to (meters 80) :period 92 :length 5 :binding 1849)
     (sp-item 1849 :flags (start-dead))
     )
-   :bounds (new 'static 'sphere :w 57344.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1851)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1851
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 0.2)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+    (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2128,21 +1620,16 @@
     (sp-int-plain-rnd spt-next-time 37 36 1)
     (sp-launcher-by-id spt-next-launcher 1855)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1853)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 17
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1853
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.5)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2154,21 +1641,16 @@
     (sp-int spt-timer 20)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1852)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 19
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1852
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 0.02 0.02 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-    (sp-flt spt-y (meters 0.0))
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+    (sp-flt spt-y (meters 0))
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 256.0)
@@ -2182,20 +1664,15 @@
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1850)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 18
-    (sp-flt spt-num 1.0)
-    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
+(defpart 1850
+  :init-specs
+  ((sp-flt spt-num 1.0)
+    (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
     (sp-flt spt-y (meters 0.5))
-    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
+    (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 8192.0)
     (sp-flt spt-g 5324.8)
@@ -2209,68 +1686,36 @@
     (sp-int spt-next-time 75)
     (sp-launcher-by-id spt-next-launcher 1856)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1856)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-b 16.384)
-    (sp-end)
-    )
-   )
+(defpart 1856
+  :init-specs
+  ((sp-flt spt-fade-b 16.384))
   )
 
-(set!
-  (-> *part-id-table* 1855)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-a 0.0)
-    (sp-int spt-next-time 75)
-    (sp-launcher-by-id spt-next-launcher 1857)
-    (sp-end)
-    )
-   )
+(defpart 1855
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 75) (sp-launcher-by-id spt-next-launcher 1857))
   )
 
-(set!
-  (-> *part-id-table* 1857)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 5
-    (sp-flt spt-fade-r -0.85333335)
+(defpart 1857
+  :init-specs
+  ((sp-flt spt-fade-r -0.85333335)
     (sp-flt spt-fade-g -0.42666668)
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1858)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1858)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 4
-    (sp-flt spt-fade-r 0.0)
-    (sp-flt spt-fade-g 0.0)
-    (sp-flt spt-fade-a -0.10666667)
-    (sp-end)
-    )
-   )
+(defpart 1858
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-a -0.10666667))
   )
 
-(set!
-  (-> *part-id-table* 1848)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1848
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.7)
     (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2283,17 +1728,12 @@
     (sp-int-plain-rnd spt-timer 30 179 1)
     (sp-cpuinfo-flags bit0 bit3)
     (sp-flt spt-rotate-y (degrees 45.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1849)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1849
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 1.0 6.0 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2308,22 +1748,15 @@
     (sp-cpuinfo-flags bit0 bit3)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 500)
-  (new 'static 'sparticle-launch-group
-   :length #xaf
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sagehut-warpgate"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 175
-    (sp-item 1861 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-    (sp-item 1862 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1859)
+(defpartgroup group-village3-sagehut-warpgate
+  :id 500
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1861 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1862 :fade-after (meters 60) :falloff-to (meters 100) :binding 1859)
     (sp-item 1859 :flags (bit1 start-dead launch-asap))
     (sp-item 1859 :flags (bit1 start-dead launch-asap))
     (sp-item 1859 :flags (bit1 start-dead launch-asap))
@@ -2460,7 +1893,7 @@
     (sp-item 1859 :flags (bit1 start-dead launch-asap))
     (sp-item 1859 :flags (bit1 start-dead launch-asap))
     (sp-item 1859 :flags (bit1 start-dead launch-asap))
-    (sp-item 1863 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1860)
+    (sp-item 1863 :fade-after (meters 60) :falloff-to (meters 100) :binding 1860)
     (sp-item 1860 :flags (bit1 start-dead launch-asap))
     (sp-item 1860 :flags (bit1 start-dead launch-asap))
     (sp-item 1860 :flags (bit1 start-dead launch-asap))
@@ -2498,18 +1931,13 @@
     (sp-item 1860 :flags (bit1 start-dead launch-asap))
     (sp-item 1860 :flags (bit1 start-dead launch-asap))
     )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1863)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 12
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1863
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-flt spt-num 0.25)
-    (sp-flt spt-x (meters -2.0))
+    (sp-flt spt-x (meters -2))
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-g 128.0)
@@ -2518,21 +1946,16 @@
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -25.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1860)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 20
-    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+(defpart 1860
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
     (sp-rnd-flt spt-num 1.0 0.2 1.0)
     (sp-flt spt-x (meters 3.1111112))
-    (sp-flt spt-y (meters 4.0))
-    (sp-rnd-flt spt-z 22118.4 4096.0 1.0)
+    (sp-flt spt-y (meters 4))
+    (sp-rnd-flt spt-z (meters 5.4) (meters 1) 1.0)
     (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-rnd-flt spt-r 0.0 32.0 1.0)
@@ -2540,24 +1963,19 @@
     (sp-rnd-flt spt-b 64.0 196.0 1.0)
     (sp-flt spt-a 0.0)
     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-    (sp-flt spt-vel-x (meters 0.0))
-    (sp-flt spt-vel-z (meters 0.0))
+    (sp-flt spt-vel-x (meters 0))
+    (sp-flt spt-vel-z (meters 0))
     (sp-flt spt-fade-a 0.16)
     (sp-flt spt-accel-x 1.2136296)
     (sp-flt spt-accel-z -0.75093335)
     (sp-int spt-timer 600)
     (sp-cpuinfo-flags bit2 bit3 bit7)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1861)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 14
-    (sp-rnd-flt spt-num 5.0 5.0 1.0)
+(defpart 1861
+  :init-specs
+  ((sp-rnd-flt spt-num 5.0 5.0 1.0)
     (sp-flt spt-x (meters -0.5))
     (sp-int spt-rot-x 5)
     (sp-flt spt-r 4096.0)
@@ -2568,19 +1986,14 @@
     (sp-int spt-timer 69)
     (sp-cpuinfo-flags aux-list)
     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 3.0) 1.0)
+    (sp-rnd-flt spt-conerot-radius (meters 4) (meters 3) 1.0)
     (sp-flt spt-rotate-y (degrees -25.000002))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1862)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 10
-    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+(defpart 1862
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
     (sp-rnd-flt spt-num 0.4 1.0 1.0)
     (sp-flt spt-scale-x (meters 0.25))
     (sp-copy-from-other spt-scale-y -4)
@@ -2589,21 +2002,16 @@
     (sp-int spt-timer 690)
     (sp-cpuinfo-flags bit3)
     (sp-flt spt-rotate-y (degrees -35.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1859)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 21
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1859
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 0.4 1.0)
     (sp-flt spt-x (meters 3.1111112))
-    (sp-flt spt-y (meters 4.0))
-    (sp-flt spt-z 9830.4)
+    (sp-flt spt-y (meters 4))
+    (sp-flt spt-z (meters 2.4))
     (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2619,37 +2027,23 @@
     (sp-flt spt-accel-x 4.247704)
     (sp-int spt-timer 690)
     (sp-cpuinfo-flags bit2 bit3 bit7)
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 501)
-  (new 'static 'sparticle-launch-group
-   :length 2
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sagehut-boiling"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 2
-    (sp-item 1864 :fade-after (meters 60.0) :flags (is-3d))
-    (sp-item 1865 :fade-after (meters 60.0) :flags (is-3d))
-    )
-   :bounds (new 'static 'sphere :w 24576.0)
-   )
+(defpartgroup group-village3-sagehut-boiling
+  :id 501
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1864 :fade-after (meters 60) :flags (is-3d)) (sp-item 1865 :fade-after (meters 60) :flags (is-3d)))
   )
 
-(set!
-  (-> *part-id-table* 1864)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1864
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 1.0 0.5 1.0)
     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-    (sp-flt spt-y (meters -2.0))
-    (sp-flt spt-z -1228.8)
+    (sp-flt spt-y (meters -2))
+    (sp-flt spt-z (meters -0.3))
     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
     (sp-flt spt-rot-x 16384.0)
     (sp-flt spt-rot-y (degrees -50.000004))
@@ -2668,32 +2062,21 @@
     (sp-int spt-next-time 150)
     (sp-launcher-by-id spt-next-launcher 1866)
     (sp-flt spt-rotate-y (degrees 132.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-id-table* 1866)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 2
-    (sp-flt spt-fade-a -0.2)
-    (sp-end)
-    )
-   )
+(defpart 1866
+  :init-specs
+  ((sp-flt spt-fade-a -0.2))
   )
 
-(set!
-  (-> *part-id-table* 1865)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 16
-    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+(defpart 1865
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
     (sp-flt spt-num 1.0)
     (sp-flt spt-y (meters -0.5))
-    (sp-flt spt-z -1064.96)
-    (sp-flt spt-scale-x (meters 12.0))
+    (sp-flt spt-z (meters -0.26))
+    (sp-flt spt-scale-x (meters 12))
     (sp-flt spt-rot-x 15018.667)
     (sp-flt spt-rot-y (degrees -50.000004))
     (sp-copy-from-other spt-scale-y -4)
@@ -2704,48 +2087,28 @@
     (sp-int spt-timer 15)
     (sp-cpuinfo-flags bit2 bit3)
     (sp-flt spt-rotate-y (degrees 0.0))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 502)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sagehut-steam"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 1867 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1200 :length 126)
-    (sp-item 1867 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1560 :length 107)
-    (sp-item 1867 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1830 :length 120)
-    (sp-item 1867 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 690 :length 110)
-    (sp-item 1867 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1050 :length 163)
+(defpartgroup group-village3-sagehut-steam
+  :id 502
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1867 :fade-after (meters 60) :falloff-to (meters 60) :period 1200 :length 126)
+    (sp-item 1867 :fade-after (meters 60) :falloff-to (meters 60) :period 1560 :length 107)
+    (sp-item 1867 :fade-after (meters 60) :falloff-to (meters 60) :period 1830 :length 120)
+    (sp-item 1867 :fade-after (meters 60) :falloff-to (meters 60) :period 690 :length 110)
+    (sp-item 1867 :fade-after (meters 60) :falloff-to (meters 60) :period 1050 :length 163)
     )
-   :bounds (new 'static 'sphere :w 16384.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1867)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 23
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1867
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-flt spt-num 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :num 0.02
-      :group #x1
-      :sound-name (static-sound-name "steam-short")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
       )
-     )
     (sp-flt spt-scale-x (meters 0.3))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
@@ -2765,52 +2128,31 @@
     (sp-rnd-flt spt-conerot-x (degrees 77.0) (degrees 6.0000005) 1.0)
     (sp-rnd-flt spt-conerot-y (degrees 217.0) (degrees 6.0000005) 1.0)
     (sp-flt spt-conerot-radius (meters -0.3))
-    (sp-end)
     )
-   )
   )
 
-(set!
-  (-> *part-group-id-table* 503)
-  (new 'static 'sparticle-launch-group
-   :length 5
-   :duration #xbb8
-   :linger-duration #x5dc
-   :name "group-village3-sagehut-understeam"
-   :launcher
-   (new 'static 'inline-array sparticle-group-item 5
-    (sp-item 1868 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 1200 :length 126)
-    (sp-item 1868 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 1560 :length 107)
-    (sp-item 1868 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 1830 :length 120)
-    (sp-item 1868 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 690 :length 110)
-    (sp-item 1868 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 1050 :length 163)
+(defpartgroup group-village3-sagehut-understeam
+  :id 503
+  :bounds (static-bspherem 0 -3 0 8)
+  :parts
+  ((sp-item 1868 :fade-after (meters 200) :falloff-to (meters 200) :period 1200 :length 126)
+    (sp-item 1868 :fade-after (meters 200) :falloff-to (meters 200) :period 1560 :length 107)
+    (sp-item 1868 :fade-after (meters 200) :falloff-to (meters 200) :period 1830 :length 120)
+    (sp-item 1868 :fade-after (meters 200) :falloff-to (meters 200) :period 690 :length 110)
+    (sp-item 1868 :fade-after (meters 200) :falloff-to (meters 200) :period 1050 :length 163)
     )
-   :bounds
-   (new 'static 'sphere :y -12288.0 :w 32768.0)
-   )
   )
 
-(set!
-  (-> *part-id-table* 1868)
-  (new 'static 'sparticle-launcher
-   :init-specs
-   (new 'static 'inline-array sp-field-init-spec 24
-    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
+(defpart 1868
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
     (sp-rnd-flt spt-num 4.0 4.0 1.0)
-    (new 'static 'sp-field-init-spec
-     :field (sp-field-id spt-sound)
-     :flags (sp-flag plain-v2)
-     :sound
-     (new 'static 'sound-spec
-      :num 0.02
-      :group #x1
-      :sound-name (static-sound-name "steam-short")
-      :volume #x400
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
       )
-     )
     (sp-flt spt-x (meters 1.5))
     (sp-flt spt-y (meters 0.6))
-    (sp-flt spt-scale-x (meters 1.0))
+    (sp-flt spt-scale-x (meters 1))
     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
     (sp-copy-from-other spt-scale-y -4)
     (sp-flt spt-r 255.0)
@@ -2828,9 +2170,7 @@
     (sp-int spt-timer 180)
     (sp-cpuinfo-flags bit2)
     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-    (sp-end)
     )
-   )
   )
 
 
diff --git a/goal_src/levels/village_common/oracle.gc b/goal_src/levels/village_common/oracle.gc
index dd87a83f32..21d9f545ee 100644
--- a/goal_src/levels/village_common/oracle.gc
+++ b/goal_src/levels/village_common/oracle.gc
@@ -30,501 +30,195 @@
 
 (defmethod play-anim! oracle ((obj oracle) (arg0 symbol))
   (set! (-> obj talk-message) (the-as uint 260))
-  (case (current-status (-> obj tasks)) 
-   (((task-status need-hint) (task-status need-introduction))
+  (case (current-status (-> obj tasks))
+    (((task-status need-hint) (task-status need-introduction))
      (when arg0
-      (close-specific-task!
-       (the-as game-task (-> obj first-task))
-       (task-status need-introduction)
+       (close-specific-task! (the-as game-task (-> obj first-task)) (task-status need-introduction))
+       (close-specific-task! (the-as game-task (-> obj second-task)) (task-status need-introduction))
        )
-      (close-specific-task!
-       (the-as game-task (-> obj second-task))
-       (task-status need-introduction)
-       )
-      )
-     (case (-> (level-get-target-inside *level*) name) 
-      (('village1)
+     (case (-> (level-get-target-inside *level*) name)
+       (('village1)
+        (new 'static 'spool-anim :name "oracle-intro-1" :index 9 :parts 5 :command-list '())
+        )
+       (('village2)
         (new 'static 'spool-anim
-         :name "oracle-intro-1"
-         :index 9
-         :parts 5
-         :command-list '()
-         )
-        )
-      (('village2)
-       (new 'static 'spool-anim
-        :name "oracle-intro-2"
-        :index 11
-        :parts 4
-        :command-list
-        '(
-          (0
-            kill
-            "pontoonten-20"
+          :name "oracle-intro-2"
+          :index 11
+          :parts 4
+          :command-list
+          '((0 kill "pontoonten-20")
+            (0 kill "pontoonten-19")
+            (0 kill "pontoonten-18")
+            (0 kill "pontoonten-15")
+            (0 kill "pontoonten-14")
+            (0 kill "pontoonfive-14")
+            (0 kill "pontoonfive-15")
+            (0 kill "pontoonfive-19")
+            (0 kill "pontoonfive-20")
+            (0 kill "med-res-level-12")
+            (0 kill "med-res-level-13")
+            (0 kill "med-res-level-15")
+            (0 kill "money-2844")
+            (0 kill "money-2845")
+            (0 kill "money-2846")
+            (0 kill "money-2847")
+            (0 kill "money-2848")
+            (0 kill "money-2849")
+            (0 kill "money-2850")
+            (0 kill "money-2854")
+            (0 kill "money-2855")
+            (0 kill "money-2856")
+            (0 kill "money-2860")
+            (0 kill "money-2861")
+            (0 kill "money-2862")
+            (0 kill "eco-27")
+            (0 kill "eco-26")
+            (0 kill "sharkey-25")
+            (0 kill "barrel-13")
+            (0 kill "barrel-14")
+            (0 kill "barrel-15")
+            (0 kill "barrel-16")
+            (0 kill "barrel-17")
+            (0 kill "barrel-18")
+            (0 kill "barrel-19")
+            (0 kill "barrel-20")
+            (0 kill "barrel-21")
+            (0 kill "barrel-22")
+            (0 kill "barrel-23")
+            (0 kill "villageb-part-18")
+            (0 kill "villageb-part-19")
+            (0 kill "villageb-part-20")
+            (0 kill "villageb-part-21")
+            (0 kill "villageb-part-28")
+            (0 kill "villageb-part-29")
+            (0 kill "villageb-part-30")
+            (0 kill "villageb-part-31")
+            (0 kill "villageb-part-32")
+            (0 kill "villageb-part-33")
+            (0 kill "villageb-part-35")
+            (0 kill "villageb-part-37")
+            (0 kill "villageb-part-38")
+            (0 kill "villageb-part-47")
+            (0 kill "villageb-part-48")
+            (0 kill "villageb-part-49")
+            (0 kill "villageb-part-50")
+            (0 kill "villageb-part-56")
+            (0 kill "villageb-part-62")
+            (0 kill "villageb-part-63")
+            (0 kill "villageb-ogreboss-1")
+            (0 kill "crate-3127")
+            (0 kill "crate-3128")
+            (0 kill "crate-3129")
+            (0 kill "crate-3133")
+            (0 kill "geologist-1")
+            (0 kill "fireboulder-2")
+            (0 kill "fireboulder-3")
+            (0 kill "fireboulder-4")
+            (0 kill "water-vol-100")
+            (0 kill "water-vol-101")
+            (0 kill "water-vol-102")
+            (0 kill "water-vol-103")
+            (0 kill "water-vol-284")
+            (0 kill "water-vol-285")
+            (0 kill "water-vol-286")
+            (0 kill "ceilingflag-6")
+            (0 kill "ceilingflag-7")
+            (0 kill "ceilingflag-8")
+            (0 kill "ceilingflag-9")
+            (0 kill "orb-cache-top-14")
+            (0 setting-reset ocean-off near)
+            (399 setting-unset ocean-off)
             )
-          (0
-           kill
-           "pontoonten-19"
-           )
-          (0
-           kill
-           "pontoonten-18"
-           )
-          (0
-           kill
-           "pontoonten-15"
-           )
-          (0
-           kill
-           "pontoonten-14"
-           )
-          (0
-           kill
-           "pontoonfive-14"
-           )
-          (0
-           kill
-           "pontoonfive-15"
-           )
-          (0
-           kill
-           "pontoonfive-19"
-           )
-          (0
-           kill
-           "pontoonfive-20"
-           )
-          (0
-           kill
-           "med-res-level-12"
-           )
-          (0
-           kill
-           "med-res-level-13"
-           )
-          (0
-           kill
-           "med-res-level-15"
-           )
-          (0
-           kill
-           "money-2844"
-           )
-          (0
-           kill
-           "money-2845"
-           )
-          (0
-           kill
-           "money-2846"
-           )
-          (0
-           kill
-           "money-2847"
-           )
-          (0
-           kill
-           "money-2848"
-           )
-          (0
-           kill
-           "money-2849"
-           )
-          (0
-           kill
-           "money-2850"
-           )
-          (0
-           kill
-           "money-2854"
-           )
-          (0
-           kill
-           "money-2855"
-           )
-          (0
-           kill
-           "money-2856"
-           )
-          (0
-           kill
-           "money-2860"
-           )
-          (0
-           kill
-           "money-2861"
-           )
-          (0
-           kill
-           "money-2862"
-           )
-          (0
-           kill
-           "eco-27"
-           )
-          (0
-           kill
-           "eco-26"
-           )
-          (0
-           kill
-           "sharkey-25"
-           )
-          (0
-           kill
-           "barrel-13"
-           )
-          (0
-           kill
-           "barrel-14"
-           )
-          (0
-           kill
-           "barrel-15"
-           )
-          (0
-           kill
-           "barrel-16"
-           )
-          (0
-           kill
-           "barrel-17"
-           )
-          (0
-           kill
-           "barrel-18"
-           )
-          (0
-           kill
-           "barrel-19"
-           )
-          (0
-           kill
-           "barrel-20"
-           )
-          (0
-           kill
-           "barrel-21"
-           )
-          (0
-           kill
-           "barrel-22"
-           )
-          (0
-           kill
-           "barrel-23"
-           )
-          (0
-           kill
-           "villageb-part-18"
-           )
-          (0
-           kill
-           "villageb-part-19"
-           )
-          (0
-           kill
-           "villageb-part-20"
-           )
-          (0
-           kill
-           "villageb-part-21"
-           )
-          (0
-           kill
-           "villageb-part-28"
-           )
-          (0
-           kill
-           "villageb-part-29"
-           )
-          (0
-           kill
-           "villageb-part-30"
-           )
-          (0
-           kill
-           "villageb-part-31"
-           )
-          (0
-           kill
-           "villageb-part-32"
-           )
-          (0
-           kill
-           "villageb-part-33"
-           )
-          (0
-           kill
-           "villageb-part-35"
-           )
-          (0
-           kill
-           "villageb-part-37"
-           )
-          (0
-           kill
-           "villageb-part-38"
-           )
-          (0
-           kill
-           "villageb-part-47"
-           )
-          (0
-           kill
-           "villageb-part-48"
-           )
-          (0
-           kill
-           "villageb-part-49"
-           )
-          (0
-           kill
-           "villageb-part-50"
-           )
-          (0
-           kill
-           "villageb-part-56"
-           )
-          (0
-           kill
-           "villageb-part-62"
-           )
-          (0
-           kill
-           "villageb-part-63"
-           )
-          (0
-           kill
-           "villageb-ogreboss-1"
-           )
-          (0
-           kill
-           "crate-3127"
-           )
-          (0
-           kill
-           "crate-3128"
-           )
-          (0
-           kill
-           "crate-3129"
-           )
-          (0
-           kill
-           "crate-3133"
-           )
-          (0
-           kill
-           "geologist-1"
-           )
-          (0
-           kill
-           "fireboulder-2"
-           )
-          (0
-           kill
-           "fireboulder-3"
-           )
-          (0
-           kill
-           "fireboulder-4"
-           )
-          (0
-           kill
-           "water-vol-100"
-           )
-          (0
-           kill
-           "water-vol-101"
-           )
-          (0
-           kill
-           "water-vol-102"
-           )
-          (0
-           kill
-           "water-vol-103"
-           )
-          (0
-           kill
-           "water-vol-284"
-           )
-          (0
-           kill
-           "water-vol-285"
-           )
-          (0
-           kill
-           "water-vol-286"
-           )
-          (0
-           kill
-           "ceilingflag-6"
-           )
-          (0
-           kill
-           "ceilingflag-7"
-           )
-          (0
-           kill
-           "ceilingflag-8"
-           )
-          (0
-           kill
-           "ceilingflag-9"
-           )
-          (0
-           kill
-           "orb-cache-top-14"
-           )
-          (0
-           setting-reset
-           ocean-off
-           near
-           )
-          ((the binteger 399) setting-unset ocean-off)
           )
         )
-       )
-      (('village3)
-       (new 'static 'spool-anim
-        :name "oracle-intro-3"
-        :index 13
-        :parts 4
-        :command-list '()
+       (('village3)
+        (new 'static 'spool-anim :name "oracle-intro-3" :index 13 :parts 4 :command-list '())
         )
        )
-      )
      )
-   (((task-status need-reminder))
-    (set! (-> obj skippable) #t)
-    (case (-> (level-get-target-inside *level*) name) 
-     (('village1)
-       (new 'static 'spool-anim
-        :name "oracle-reminder-1"
-        :index 10
-        :parts 4
-        :command-list '()
+    (((task-status need-reminder))
+     (set! (-> obj skippable) #t)
+     (case (-> (level-get-target-inside *level*) name)
+       (('village1)
+        (new 'static 'spool-anim :name "oracle-reminder-1" :index 10 :parts 4 :command-list '())
+        )
+       (('village2)
+        (new 'static 'spool-anim :name "oracle-reminder-2" :index 12 :parts 2 :command-list '())
+        )
+       (('village3)
+        (new 'static 'spool-anim :name "oracle-reminder-3" :index 14 :parts 2 :command-list '())
         )
        )
-     (('village2)
-      (new 'static 'spool-anim
-       :name "oracle-reminder-2"
-       :index 12
-       :parts 2
-       :command-list '()
-       )
-      )
-     (('village3)
-      (new 'static 'spool-anim
-       :name "oracle-reminder-3"
-       :index 14
-       :parts 2
-       :command-list '()
-       )
-      )
      )
-    )
-   (((task-status need-reward-speech))
-    (cond
-     (arg0
-      (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
-      (close-current! (-> obj tasks))
-      (send-event *target* 'get-pickup 5 (- (-> *GAME-bank* money-oracle-inc)))
-      (cond
-       ((= (current-task (-> obj tasks)) (-> obj first-task))
-        (let ((a0-25 (handle->process (-> obj right-eye-cell))))
-         (if a0-25
-          (deactivate a0-25)
-          )
+    (((task-status need-reward-speech))
+     (cond
+       (arg0
+         (set! (-> obj cell-for-task) (current-task (-> obj tasks)))
+         (close-current! (-> obj tasks))
+         (send-event *target* 'get-pickup 5 (- (-> *GAME-bank* money-oracle-inc)))
+         (cond
+           ((= (current-task (-> obj tasks)) (-> obj first-task))
+            (let ((a0-25 (handle->process (-> obj right-eye-cell))))
+              (if a0-25
+                  (deactivate a0-25)
+                  )
+              )
+            )
+           (else
+             (let ((a0-29 (handle->process (-> obj left-eye-cell))))
+               (if a0-29
+                   (deactivate a0-29)
+                   )
+               )
+             )
+           )
          )
+       (else
+         (set! (-> obj will-talk) #t)
+         (set! (-> obj talk-message) (the-as uint 283))
+         )
+       )
+     (cond
+       ((= (current-task (-> obj tasks)) (-> obj first-task))
+        (case (-> (level-get-target-inside *level*) name)
+          (('village1)
+           (new 'static 'spool-anim :name "oracle-right-eye-1" :index 3 :parts 2 :command-list '())
+           )
+          (('village2)
+           (new 'static 'spool-anim :name "oracle-right-eye-2" :index 5 :parts 2 :command-list '())
+           )
+          (('village3)
+           (new 'static 'spool-anim :name "oracle-right-eye-3" :index 7 :parts 2 :command-list '())
+           )
+          )
         )
        (else
-        (let ((a0-29 (handle->process (-> obj left-eye-cell))))
-         (if a0-29
-          (deactivate a0-29)
-          )
+         (case (-> (level-get-target-inside *level*) name)
+           (('village1)
+            (new 'static 'spool-anim :name "oracle-left-eye-1" :index 4 :parts 2 :command-list '())
+            )
+           (('village2)
+            (new 'static 'spool-anim :name "oracle-left-eye-2" :index 6 :parts 2 :command-list '())
+            )
+           (('village3)
+            (new 'static 'spool-anim :name "oracle-left-eye-3" :index 8 :parts 2 :command-list '())
+            )
+           )
          )
-        )
        )
-      )
-     (else
-      (set! (-> obj will-talk) #t)
-      (set! (-> obj talk-message) (the-as uint 283))
-      )
      )
-    (cond
-     ((= (current-task (-> obj tasks)) (-> obj first-task))
-      (case (-> (level-get-target-inside *level*) name) 
-       (('village1)
-         (new 'static 'spool-anim
-          :name "oracle-right-eye-1"
-          :index 3
-          :parts 2
-          :command-list '()
+    (else
+      (if arg0
+          (format
+            0
+            "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
+            (-> obj name)
+            (task-status->string (current-status (-> obj tasks)))
+            )
           )
-         )
-       (('village2)
-        (new 'static 'spool-anim
-         :name "oracle-right-eye-2"
-         :index 5
-         :parts 2
-         :command-list '()
-         )
-        )
-       (('village3)
-        (new 'static 'spool-anim
-         :name "oracle-right-eye-3"
-         :index 7
-         :parts 2
-         :command-list '()
-         )
-        )
-       )
+      (-> obj draw art-group data 2)
       )
-     (else
-      (case (-> (level-get-target-inside *level*) name) 
-       (('village1)
-         (new 'static 'spool-anim
-          :name "oracle-left-eye-1"
-          :index 4
-          :parts 2
-          :command-list '()
-          )
-         )
-       (('village2)
-        (new 'static 'spool-anim
-         :name "oracle-left-eye-2"
-         :index 6
-         :parts 2
-         :command-list '()
-         )
-        )
-       (('village3)
-        (new 'static 'spool-anim
-         :name "oracle-left-eye-3"
-         :index 8
-         :parts 2
-         :command-list '()
-         )
-        )
-       )
-      )
-     )
     )
-   (else
-    (if arg0
-     (format
-      0
-      "ERROR: <GMJ>: ~S playing anim for task status ~S~%"
-      (-> obj name)
-      (task-status->string (current-status (-> obj tasks)))
-      )
-     )
-    (-> obj draw art-group data 2)
-    )
-   )
   )
 
 (defmethod get-art-elem oracle ((obj oracle))
@@ -535,205 +229,115 @@
   :virtual #t
   :exit
   (behavior ()
-   (stop! (-> self sound))
-   ((-> (method-of-type process-taskable idle) exit))
-   (none)
-   )
+    (stop! (-> self sound))
+    ((-> (method-of-type process-taskable idle) exit))
+    (none)
+    )
   :trans
   (behavior ()
-   (update! (-> self sound))
-   ((-> (method-of-type process-taskable idle) trans))
-   (none)
-   )
+    (update! (-> self sound))
+    ((-> (method-of-type process-taskable idle) trans))
+    (none)
+    )
   )
 
 (defmethod init-from-entity! oracle ((obj oracle) (arg0 entity-actor))
-  (dummy-40
-   obj
-   arg0
-   *oracle-sg*
-   3
-   4
-   (new 'static 'vector :y -4096.0 :w 4096.0)
-   -1
-   )
-  (set!
-   (-> obj sound)
-   (new
-    'process
-    'ambient-sound
-    (new 'static 'sound-spec
-     :mask #x80
-     :num 1.0
-     :group #x1
-     :sound-name (static-sound-name "oracle-sleep")
-     :volume #x400
-     :fo-max 50
-     )
-    (-> obj root-override trans)
-    )
-   )
+  (dummy-40 obj arg0 *oracle-sg* 3 4 (new 'static 'vector :y -4096.0 :w 4096.0) -1)
+  (set! (-> obj sound) (new
+                         'process
+                         'ambient-sound
+                         (new 'static 'sound-spec
+                           :mask #x80
+                           :num 1.0
+                           :group #x1
+                           :sound-name (static-sound-name "oracle-sleep")
+                           :volume #x400
+                           :fo-max 50
+                           )
+                         (-> obj root-override trans)
+                         )
+        )
   (set! (-> obj first-task) (the-as uint (-> arg0 extra perm task)))
   (set! (-> obj second-task) (res-lump-value arg0 'alt-task uint))
-  (set!
-   (-> obj tasks)
-   (get-task-control (the-as game-task (-> obj first-task)))
-   )
+  (set! (-> obj tasks) (get-task-control (the-as game-task (-> obj first-task))))
   (set! (-> obj right-eye-cell) (the-as handle #f))
   (set! (-> obj left-eye-cell) (the-as handle #f))
-  (logior! (-> obj draw status) 32)
+  (logior! (-> obj draw status) (draw-status drwf05))
   (let ((s4-0 (new 'stack-no-clear 'vector))
-        (s5-1 (lambda :behavior oracle () (let* ((gp-0 (-> self root-override))
-                                                 (v1-1
-                                                  (if
-                                                   (and
-                                                    (nonzero? gp-0)
-                                                    (type-type?
-                                                     (-> gp-0 type)
-                                                     collide-shape
-                                                     )
-                                                    )
-                                                   gp-0
-                                                   )
-                                                  )
-                                                 (a1-1 (if v1-1
-                                                        (->
-                                                         v1-1
-                                                         root-prim
-                                                         prim-core
-                                                         )
-                                                        (->
-                                                         self
-                                                         root-override
-                                                         trans
-                                                         )
-                                                        )
-                                                  )
-                                                 )
-                                           (spawn
-                                            (-> self part)
-                                            (the-as vector a1-1)
-                                            )
-                                           )
-               0
-               (none)
-               )
-         )
+        (s5-1 (lambda :behavior oracle
+                ()
+                (let* ((gp-0 (-> self root-override))
+                       (v1-1 (if (and (nonzero? gp-0) (type-type? (-> gp-0 type) collide-shape))
+                                 gp-0
+                                 )
+                             )
+                       (a1-1 (if v1-1
+                                 (-> v1-1 root-prim prim-core)
+                                 (-> self root-override trans)
+                                 )
+                             )
+                       )
+                  (spawn (-> self part) (the-as vector a1-1))
+                  )
+                0
+                (none)
+                )
+              )
         )
-   (ja-post)
-   (when
-    (not
-     (task-closed?
-      (the-as game-task (-> obj first-task))
-      (task-status need-resolution)
+    (ja-post)
+    (when (not (task-closed? (the-as game-task (-> obj first-task)) (task-status need-resolution)))
+      (vector<-cspace! s4-0 (-> obj node-list data 5))
+      (let ((s3-0 (get-process *default-dead-pool* manipy #x4000)))
+        (set! (-> obj right-eye-cell)
+              (ppointer->handle
+                (when s3-0
+                  (let ((t9-8 (method-of-type manipy activate)))
+                    (t9-8 (the-as manipy s3-0) obj 'manipy (the-as pointer #x70004000))
+                    )
+                  (run-now-in-process s3-0 manipy-init s4-0 (-> obj entity) *fuel-cell-sg* (new 'static 'vector :w 4915.2))
+                  (-> s3-0 ppointer)
+                  )
+                )
+              )
+        )
+      (send-event
+        (handle->process (-> obj right-eye-cell))
+        'eval
+        (lambda :behavior oracle () (let ((v0-0 (create-launch-control (-> *part-group-id-table* 63) self)))
+                                      (set! (-> self part) v0-0)
+                                      (the-as sparticle-launch-group v0-0)
+                                      )
+                                 )
+        )
+      (send-event (handle->process (-> obj right-eye-cell)) 'trans-hook s5-1)
       )
-     )
-    (vector<-cspace! s4-0 (-> obj node-list data 5))
-    (let ((s3-0 (get-process *default-dead-pool* manipy #x4000)))
-     (set! (-> obj right-eye-cell) (ppointer->handle (when s3-0
-                                                      (let
-                                                       ((t9-8
-                                                         (method-of-type
-                                                          manipy
-                                                          activate
-                                                          )
-                                                         )
-                                                        )
-                                                       (t9-8
-                                                        (the-as manipy s3-0)
-                                                        obj
-                                                        'manipy
-                                                        (the-as
-                                                         pointer
-                                                         #x70004000
-                                                         )
-                                                        )
-                                                       )
-                                                      (run-now-in-process
-                                                       s3-0
-                                                       manipy-init
-                                                       s4-0
-                                                       (-> obj entity)
-                                                       *fuel-cell-sg*
-                                                       (new 'static 'vector
-                                                        :w 4915.2
-                                                        )
-                                                       )
-                                                      (-> s3-0 ppointer)
-                                                      )
-                                    )
+    (when (not (task-closed? (the-as game-task (-> obj second-task)) (task-status need-resolution)))
+      (vector<-cspace! s4-0 (-> obj node-list data 6))
+      (let ((s3-1 (get-process *default-dead-pool* manipy #x4000)))
+        (set! (-> obj left-eye-cell)
+              (ppointer->handle
+                (when s3-1
+                  (let ((t9-15 (method-of-type manipy activate)))
+                    (t9-15 (the-as manipy s3-1) obj 'manipy (the-as pointer #x70004000))
+                    )
+                  (run-now-in-process s3-1 manipy-init s4-0 (-> obj entity) *fuel-cell-sg* (new 'static 'vector :w 4915.2))
+                  (-> s3-1 ppointer)
+                  )
+                )
+              )
+        )
+      (send-event
+        (handle->process (-> obj left-eye-cell))
+        'eval
+        (lambda :behavior oracle () (let ((v0-0 (create-launch-control (-> *part-group-id-table* 63) self)))
+                                      (set! (-> self part) v0-0)
+                                      (the-as sparticle-launch-group v0-0)
+                                      )
+                                 )
+        )
+      (send-event (handle->process (-> obj left-eye-cell)) 'trans-hook s5-1)
       )
-     )
-    (send-event
-     (handle->process (-> obj right-eye-cell))
-     'eval
-     (lambda :behavior oracle
-      ()
-      (let ((v0-0 (create-launch-control (-> *part-group-id-table* 63) self)))
-       (set! (-> self part) v0-0)
-       (the-as sparticle-launch-group v0-0)
-       )
-      )
-     )
-    (send-event (handle->process (-> obj right-eye-cell)) 'trans-hook s5-1)
     )
-   (when
-    (not
-     (task-closed?
-      (the-as game-task (-> obj second-task))
-      (task-status need-resolution)
-      )
-     )
-    (vector<-cspace! s4-0 (-> obj node-list data 6))
-    (let ((s3-1 (get-process *default-dead-pool* manipy #x4000)))
-     (set! (-> obj left-eye-cell) (ppointer->handle (when s3-1
-                                                     (let
-                                                      ((t9-15
-                                                        (method-of-type
-                                                         manipy
-                                                         activate
-                                                         )
-                                                        )
-                                                       )
-                                                      (t9-15
-                                                       (the-as manipy s3-1)
-                                                       obj
-                                                       'manipy
-                                                       (the-as
-                                                        pointer
-                                                        #x70004000
-                                                        )
-                                                       )
-                                                      )
-                                                     (run-now-in-process
-                                                      s3-1
-                                                      manipy-init
-                                                      s4-0
-                                                      (-> obj entity)
-                                                      *fuel-cell-sg*
-                                                      (new 'static 'vector
-                                                       :w 4915.2
-                                                       )
-                                                      )
-                                                     (-> s3-1 ppointer)
-                                                     )
-                                   )
-      )
-     )
-    (send-event
-     (handle->process (-> obj left-eye-cell))
-     'eval
-     (lambda :behavior oracle
-      ()
-      (let ((v0-0 (create-launch-control (-> *part-group-id-table* 63) self)))
-       (set! (-> self part) v0-0)
-       (the-as sparticle-launch-group v0-0)
-       )
-      )
-     )
-    (send-event (handle->process (-> obj left-eye-cell)) 'trans-hook s5-1)
-    )
-   )
   (dummy-42 obj)
   (none)
   )
diff --git a/goalc/compiler/compilation/Static.cpp b/goalc/compiler/compilation/Static.cpp
index 6b2be2cc68..fb29f126b3 100644
--- a/goalc/compiler/compilation/Static.cpp
+++ b/goalc/compiler/compilation/Static.cpp
@@ -566,6 +566,24 @@ StaticResult Compiler::compile_static_no_eval_for_pairs(const goos::Object& form
                                             form.as_pair()->car.as_symbol()->name == "lambda")) {
       return compile_static(form, env);
     }
+    if (form.as_pair()->car.is_symbol() && form.as_pair()->car.as_symbol()->name == "unquote") {
+      // ,(macro-name args...) is actually (unquote (macro-name args...))
+      // decompile the arg as macro if possible.
+      auto& unq_arg_pair = form.as_pair()->cdr;
+      if (unq_arg_pair.is_empty_list()) {
+        throw_compiler_error(form, "Cannot unquote empty list");
+      }
+      auto& unq_arg = unq_arg_pair.as_pair()->car;
+      if (!unq_arg.is_pair() || unq_arg.is_empty_list()) {
+        throw_compiler_error(form, "Cannot unquote non-list");
+      }
+      auto& unq_arg_call = unq_arg.as_pair()->car;
+      goos::Object macro_obj;
+      if (!try_getting_macro_from_goos(unq_arg.as_pair()->car, &macro_obj)) {
+        throw_compiler_error(form, "Macro {} not found", unq_arg.as_pair()->car.print());
+      }
+      return compile_static_no_eval_for_pairs(form.as_pair()->cdr.as_pair()->car, env, seg, true);
+    }
     // try as a macro
     if (can_macro && form.as_pair()->car.is_symbol()) {
       goos::Object macro_obj;
@@ -574,8 +592,7 @@ StaticResult Compiler::compile_static_no_eval_for_pairs(const goos::Object& form
                                                 false);
       }
     }
-    auto car = compile_static_no_eval_for_pairs(form.as_pair()->car, env, seg,
-                                                form.as_pair()->car.is_pair());
+    auto car = compile_static_no_eval_for_pairs(form.as_pair()->car, env, seg, can_macro);
     auto cdr = compile_static_no_eval_for_pairs(form.as_pair()->cdr, env, seg, false);
     auto pair_structure = std::make_unique<StaticPair>(car, cdr, seg);
     auto result =
@@ -665,7 +682,7 @@ StaticResult Compiler::compile_static(const goos::Object& form_before_macro, Env
           throw_compiler_error(form, "The form {} is an invalid quoted form.", form.print());
         }
         if (second.is_pair() || second.is_empty_list()) {
-          return compile_static_no_eval_for_pairs(second, env, segment, true);
+          return compile_static_no_eval_for_pairs(second, env, segment, false);
         } else {
           throw_compiler_error(form, "Could not evaluate the quoted form {} at compile time.",
                                second.print());
diff --git a/scripts/jak1_file_list.py b/scripts/jak1_file_list.py
index b2908c546d..61da5ccb77 100644
--- a/scripts/jak1_file_list.py
+++ b/scripts/jak1_file_list.py
@@ -309,20 +309,7 @@ file_list = [\
 ["fuel-cell-ag",                          "fuel-cell",                   4, ["GAME", "ART"], "levels/common"],
 ["money-ag",                              "money",                       4, ["GAME", "ART"], "levels/common"],
 ["buzzer-ag",                             "buzzer",                      4, ["GAME", "ART"], "levels/common"],
-["ecovalve-ag-ART-GAME",                  "ecovalve",                    4, ["GAME", "ART"], "levels/common"],
-["ecovalve-ag-BEA",                       "ecovalve",                    4, ["BEA"], "levels/beach"],
-["ecovalve-ag-CIT",                       "ecovalve",                    4, ["CIT"], "levels/citadel"],
-["ecovalve-ag-FIN",                       "ecovalve",                    4, ["FIN"], "levels/finalboss"],
-["ecovalve-ag-JUB-JUN",                   "ecovalve",                    4, ["JUB", "JUN"], "levels/jungle_common"],
-["ecovalve-ag-FIC-OGR",                   "ecovalve",                    4, ["FIC", "OGR"], "levels/common"],
-["ecovalve-ag-LAV",                       "ecovalve",                    4, ["LAV"], "levels/lavatube"],
-["ecovalve-ag-MAI",                       "ecovalve",                    4, ["MAI"], "levels/maincave"],
-["ecovalve-ag-ROB",                       "ecovalve",                    4, ["ROB"], "levels/robocave"],
-["ecovalve-ag-ROL",                       "ecovalve",                    4, ["ROL"], "levels/rolling"],
-["ecovalve-ag-SNO",                       "ecovalve",                    4, ["SNO"], "levels/snow"],
-["ecovalve-ag-SUB",                       "ecovalve",                    4, ["SUB"], "levels/sunkenb"],
-["ecovalve-ag-SWA",                       "ecovalve",                    4, ["SWA"], "levels/swamp"],
-["ecovalve-ag-TRA",                       "ecovalve",                    4, ["TRA"], "levels/training"],
+["ecovalve-ag",                           "ecovalve",                    4, ["GAME", "ART", "BEA", "CIT", "FIN", "JUB", "JUN", "FIC", "OGR", "LAV", "MAI", "ROB", "ROL", "SNO", "SUB", "SWA", "TRA"], "levels/common"],
 ["crate-ag",                              "crate",                       4, ["GAME", "ART"], "levels/common"],
 ["speaker-ag",                            "speaker",                     4, ["GAME", "ART"], "levels/common"],
 ["fuelcell-naked-ag",                     "fuelcell-naked",              4, ["GAME", "ART"], "levels/common"],
@@ -348,8 +335,8 @@ file_list = [\
 ["plat-eco",                              "plat-eco",                    3, ["GAME", "COMMON", "L1"], "levels/common"],
 ["ropebridge",                            "ropebridge",                  3, ["GAME", "COMMON", "L1"], "levels/common"],
 ["ticky",                                 "ticky",                       3, ["GAME", "COMMON", "L1"], "levels/common"],
-["mistycannon",                           "mistycannon",                 3, ["BEA", "L1", "MIS"], "levels/common"],
-["babak-with-cannon",                     "babak-with-cannon",           3, ["BEA", "L1", "MIS"], "levels/common"],
+["mistycannon",                           "mistycannon",                 3, ["BEA", "L1", "MIS"], "levels/misty"],
+["babak-with-cannon",                     "babak-with-cannon",           3, ["BEA", "L1", "MIS"], "levels/misty"],
 ["air-h",                                 "air-h",                       3, ["BEA", "L1"], "levels/beach"],
 ["air",                                   "air",                         3, ["BEA", "L1"], "levels/beach"],
 ["wobbler",                               "wobbler",                     3, ["BEA", "L1"], "levels/beach"],
@@ -371,8 +358,7 @@ file_list = [\
 ["tpage-213",                             "tpage-213",                   4, ["BEA"], "levels/beach"],
 ["tpage-215",                             "tpage-215",                   4, ["BEA"], "levels/beach"],
 ["babak-ag",                              "babak",                       4, ["BEA", "CIT", "JUN", "FIC", "MIS", "ROB", "ROL", "SNO", "SUB", "SUN", "SWA"], "levels/common"],
-["barrel-ag-BEA",                         "barrel",                      4, ["BEA"], "levels/beach"],
-["barrel-ag-VI2",                         "barrel",                      4, ["VI2"], "levels/village2"],
+["barrel-ag",                             "barrel",                      4, ["BEA", "VI2"], "levels/beach"],
 ["beachcam-ag",                           "beachcam",                    4, ["BEA"], "levels/beach"],
 ["bird-lady-ag",                          "bird-lady",                   4, ["BEA"], "levels/beach"],
 ["bird-lady-beach-ag",                    "bird-lady-beach",             4, ["BEA"], "levels/beach"],
@@ -388,25 +374,14 @@ file_list = [\
 ["lurkerpuppy-ag",                        "lurkerpuppy",                 4, ["BEA"], "levels/beach"],
 ["lurkerworm-ag",                         "lurkerworm",                  4, ["BEA"], "levels/beach"],
 ["mayor-ag",                              "mayor",                       4, ["BEA"], "levels/beach"],
-["mistycannon-ag",                        "mistycannon",                 4, ["BEA", "MIS"], "levels/common"],
-["orb-cache-top-ag-BEA",                  "orb-cache-top",               4, ["BEA"], "levels/beach"],
-["orb-cache-top-ag-CIT",                  "orb-cache-top",               4, ["CIT"], "levels/citadel"],
-["orb-cache-top-ag-JUN",                  "orb-cache-top",               4, ["JUN"], "levels/jungle"],
-["orb-cache-top-ag-MIS",                  "orb-cache-top",               4, ["MIS"], "levels/misty"],
-["orb-cache-top-ag-SNO",                  "orb-cache-top",               4, ["SNO"], "levels/snow"],
-["orb-cache-top-ag-SUN",                  "orb-cache-top",               4, ["SUN"], "levels/sunken"],
-["orb-cache-top-ag-VI1",                  "orb-cache-top",               4, ["VI1"], "levels/village1"],
-["orb-cache-top-ag-VI2",                  "orb-cache-top",               4, ["VI2"], "levels/village2"],
+["mistycannon-ag",                        "mistycannon",                 4, ["BEA", "MIS"], "levels/misty"],
+["orb-cache-top-ag",                      "orb-cache-top",               4, ["BEA", "CIT", "JUN", "MIS", "SNO", "SUN", "VI1", "VI2"], "levels/common"],
 ["pelican-ag",                            "pelican",                     4, ["BEA"], "levels/beach"],
-["sack-ag-BEA",                           "sack",                        4, ["BEA"], "levels/beach"],
-["sack-ag-MIS",                           "sack",                        4, ["MIS"], "levels/misty"],
+["sack-ag",                               "sack",                        4, ["BEA", "MIS"], "levels/misty"],
 ["sculptor-ag",                           "sculptor",                    4, ["BEA"], "levels/beach"],
 ["sculptor-muse-ag",                      "sculptor-muse",               4, ["BEA"], "levels/beach"],
 ["seagull-ag",                            "seagull",                     4, ["BEA"], "levels/beach"],
-["sharkey-ag-BEA-TRA-VI2",                "sharkey",                     4, ["BEA", "TRA", "VI2"], "levels/common"],
-["sharkey-ag-JUN-MIS",                    "sharkey",                     4, ["JUN", "MIS"], "levels/common"],
-["sharkey-ag-SWA",                        "sharkey",                     4, ["SWA"], "levels/swamp"],
-["sharkey-ag-VI1",                        "sharkey",                     4, ["VI1"], "levels/village1"],
+["sharkey-ag",                            "sharkey",                     4, ["BEA", "TRA", "VI2", "JUN", "MIS", "SWA", "VI1"], "levels/common"],
 ["windmill-one-ag",                       "windmill-one",                4, ["BEA"], "levels/beach"],
 ["beach-vis",                             "beach-vis",                   4, ["BEA"], "levels/beach"],
 ["villagep-obs",                          "villagep-obs",                3, ["CIT", "L1", "VI1", "VI2", "VI3", "VILLAGEP"], "levels/village_common"],
@@ -454,10 +429,7 @@ file_list = [\
 ["plat-citb-ag",                          "plat-citb",                   4, ["CIT"], "levels/citadel"],
 ["plat-eco-citb-ag",                      "plat-eco-citb",               4, ["CIT"], "levels/citadel"],
 ["redsage-ag",                            "redsage",                     4, ["CIT"], "levels/citadel"],
-["warp-gate-switch-ag-CIT",               "warp-gate-switch",            4, ["CIT"], "levels/citadel"],
-["warp-gate-switch-ag-TRA",               "warp-gate-switch",            4, ["TRA"], "levels/training"],
-["warp-gate-switch-ag-VI1-VI3",           "warp-gate-switch",            4, ["VI1", "VI3"], "levels/common"],
-["warp-gate-switch-ag-VI2",               "warp-gate-switch",            4, ["VI2"], "levels/village2"],
+["warp-gate-switch-ag",                   "warp-gate-switch",            4, ["VI1", "VI2", "VI3", "CIT", "TRA"], "levels/village_common"],
 ["warpgate-ag",                           "warpgate",                    4, ["CIT", "TRA", "VI1", "VI2", "VI3"], "levels/common"],
 ["yellowsage-ag",                         "yellowsage",                  4, ["CIT"], "levels/citadel"],
 ["citadel-vis",                           "citadel-vis",                 4, ["CIT"], "levels/citadel"],
@@ -467,19 +439,14 @@ file_list = [\
 ["tpage-1305",                            "tpage-1305",                  4, ["DAR"], "levels/darkcave"],
 ["tpage-1304",                            "tpage-1304",                  4, ["DAR"], "levels/darkcave"],
 ["tpage-1352",                            "tpage-1352",                  4, ["DAR"], "levels/darkcave"],
-["baby-spider-ag-DAR",                    "baby-spider",                 4, ["DAR"], "levels/darkcave"],
-["baby-spider-ag-MAI",                    "baby-spider",                 4, ["MAI"], "levels/maincave"],
-["baby-spider-ag-ROB",                    "baby-spider",                 4, ["ROB"], "levels/robocave"],
+["baby-spider-ag",                        "baby-spider",                 4, ["MAI", "DAR", "ROB"], "levels/cave_common"],
 ["cavecrystal-ag",                        "cavecrystal",                 4, ["DAR"], "levels/darkcave"],
 ["caveelevator-ag",                       "caveelevator",                4, ["DAR", "ROB"], "levels/cave_common"],
 ["cavespatula-darkcave-ag",               "cavespatula-darkcave",        4, ["DAR"], "levels/darkcave"],
-["cavetrapdoor-ag-DAR",                   "cavetrapdoor",                4, ["DAR"], "levels/darkcave"],
-["cavetrapdoor-ag-MAI",                   "cavetrapdoor",                4, ["MAI"], "levels/maincave"],
-["cavetrapdoor-ag-ROB",                   "cavetrapdoor",                4, ["ROB"], "levels/robocave"],
+["cavetrapdoor-ag",                       "cavetrapdoor",                4, ["MAI", "DAR", "ROB"], "levels/cave_common"],
 ["dark-crystal-ag",                       "dark-crystal",                4, ["DAR", "MAI"], "levels/cave_common"],
 ["mother-spider-ag",                      "mother-spider",               4, ["DAR", "MAI"], "levels/cave_common"],
-["spider-egg-ag-DAR-MAI",                 "spider-egg",                  4, ["DAR", "MAI"], "levels/cave_common"],
-["spider-egg-ag-ROB",                     "spider-egg",                  4, ["ROB"], "levels/robocave"],
+["spider-egg-ag",                         "spider-egg",                  4, ["DAR", "MAI", "ROB"], "levels/cave_common"],
 ["water-anim-darkcave-ag",                "water-anim-darkcave",         4, ["DAR"], "levels/darkcave"],
 ["darkcave-vis",                          "darkcave-vis",                4, ["DAR"], "levels/darkcave"],
 ["demo-obs",                              "demo-obs",                    3, ["DEM", "L1"], "levels/demo"],
@@ -495,7 +462,7 @@ file_list = [\
 ["tpage-1605",                            "tpage-1605",                  4, ["DEM", "L1"], "levels/demo"],
 ["tpage-1606",                            "tpage-1606",                  4, ["DEM", "L1"], "levels/demo"],
 ["tpage-1607",                            "tpage-1607",                  4, ["DEM", "L1"], "levels/demo"],
-["static-screen",                         "static-screen",               3, ["DEM", "L1", "TIT"], "levels/common"],
+["static-screen",                         "static-screen",               3, ["DEM", "L1", "TIT"], "levels/demo"],
 ["tpage-1480",                            "tpage-1480",                  4, ["DEM"], "levels/demo"],
 ["tpage-1479",                            "tpage-1479",                  4, ["DEM"], "levels/demo"],
 ["demo-vis",                              "demo-vis",                    4, ["DEM"], "levels/demo"],
@@ -553,18 +520,14 @@ file_list = [\
 ["tpage-507",                             "tpage-507",                   4, ["JUB"], "levels/jungleb"],
 ["tpage-966",                             "tpage-966",                   4, ["JUB"], "levels/jungleb"],
 ["aphid-lurker-ag",                       "aphid-lurker",                4, ["JUB"], "levels/jungleb"],
-["darkvine-ag-JUB",                       "darkvine",                    4, ["JUB"], "levels/jungleb"],
-["darkvine-ag-JUN",                       "darkvine",                    4, ["JUN"], "levels/jungle"],
+["darkvine-ag",                           "darkvine",                    4, ["JUN", "JUB"], "levels/jungle"],
 ["eggtop-ag",                             "eggtop",                      4, ["JUB"], "levels/jungleb"],
-["jng-iris-door-ag-JUB",                  "jng-iris-door",               4, ["JUB"], "levels/jungleb"],
-["jng-iris-door-ag-TRA",                  "jng-iris-door",               4, ["TRA"], "levels/training"],
+["jng-iris-door-ag",                      "jng-iris-door",               4, ["JUB", "TRA"], "levels/jungleb"],
 ["plant-boss-ag",                         "plant-boss",                  4, ["JUB"], "levels/jungleb"],
 ["plat-flip-ag",                          "plat-flip",                   4, ["JUB"], "levels/jungleb"],
 ["plat-jungleb-ag",                       "plat-jungleb",                4, ["JUB"], "levels/jungleb"],
 ["jungleb-vis",                           "jungleb-vis",                 4, ["JUB"], "levels/jungleb"],
-["eichar-fish+0-ag-JUN",                  "eichar-fish+0",               4, ["JUN"], "levels/jungle"],
-["eichar-fish+0-ag-JUNGLE",               "eichar-fish+0",               4, ["JUNGLE"], "levels/l1_only"],
-["eichar-fish+0-ag-L1",                   "eichar-fish+0",               4, ["L1"], "levels/l1_only"],
+["eichar-fish+0-ag",                      "eichar-fish+0",               4, ["JUN", "JUNGLE", "L1"], "levels/jungle"],
 ["jungle-elevator",                       "jungle-elevator",             3, ["JUN", "JUNGLE", "L1"], "levels/jungle"],
 ["bouncer",                               "bouncer",                     3, ["JUN", "JUNGLE", "L1"], "levels/jungle"],
 ["hopper",                                "hopper",                      3, ["JUN", "JUNGLE", "L1"], "levels/jungle"],
@@ -593,8 +556,7 @@ file_list = [\
 ["junglecam-ag",                          "junglecam",                   4, ["JUN"], "levels/jungle"],
 ["junglefish-ag",                         "junglefish",                  4, ["JUN"], "levels/jungle"],
 ["junglesnake-ag",                        "junglesnake",                 4, ["JUN"], "levels/jungle"],
-["launcherdoor-ag-JUN",                   "launcherdoor",                4, ["JUN"], "levels/jungle"],
-["launcherdoor-ag-SUN",                   "launcherdoor",                4, ["SUN"], "levels/sunken"],
+["launcherdoor-ag",                       "launcherdoor",                4, ["JUN", "SUN"], "levels/jungle"],
 ["logtrap-ag",                            "logtrap",                     4, ["JUN"], "levels/jungle"],
 ["lurkerm-piston-ag",                     "lurkerm-piston",              4, ["JUN"], "levels/jungle"],
 ["lurkerm-tall-sail-ag",                  "lurkerm-tall-sail",           4, ["JUN"], "levels/jungle"],
@@ -602,10 +564,7 @@ file_list = [\
 ["medres-firecanyon-ag",                  "medres-firecanyon",           4, ["JUN"], "levels/jungle"],
 ["periscope-ag",                          "periscope",                   4, ["JUN"], "levels/jungle"],
 ["plat-button-ag",                        "plat-button",                 4, ["JUN"], "levels/jungle"],
-["plat-eco-ag-JUN",                       "plat-eco",                    4, ["JUN"], "levels/jungle"],
-["plat-eco-ag-MIS",                       "plat-eco",                    4, ["MIS"], "levels/misty"],
-["plat-eco-ag-ROB",                       "plat-eco",                    4, ["ROB"], "levels/robocave"],
-["plat-eco-ag-TRA",                       "plat-eco",                    4, ["TRA"], "levels/training"],
+["plat-eco-ag",                           "plat-eco",                    4, ["JUN", "MIS", "ROB", "TRA"], "levels/common"],
 ["precurbridge-ag",                       "precurbridge",                4, ["JUN"], "levels/jungle"],
 ["reflector-mirror-ag",                   "reflector-mirror",            4, ["JUN"], "levels/jungle"],
 ["ropebridge-52-ag",                      "ropebridge-52",               4, ["JUN"], "levels/jungle"],
@@ -692,8 +651,7 @@ file_list = [\
 ["sunken-part4",                          "sunken-part4",                3, ["L1", "SUN", "SUNKEN"], "levels/sunken"],
 ["sunken-part5",                          "sunken-part5",                3, ["L1", "SUN", "SUNKEN"], "levels/sunken"],
 ["target-tube",                           "target-tube",                 3, ["L1", "SUN", "SUNKEN"], "levels/sunken"],
-["eichar-tube+0-ag-L1-SUNKEN",            "eichar-tube+0",               4, ["L1", "SUNKEN"], "levels/l1_only"],
-["eichar-tube+0-ag-SUN",                  "eichar-tube+0",               4, ["SUN"], "levels/sunken"],
+["eichar-tube+0-ag",                      "eichar-tube+0",               4, ["L1", "SUN", "SUNKEN"], "levels/sunken"],
 ["sunken-obs",                            "sunken-obs",                  3, ["L1", "SUN", "SUNKEN"], "levels/sunken"],
 ["shover",                                "shover",                      3, ["L1", "SUN", "SUNKEN"], "levels/sunken"],
 ["square-platform",                       "square-platform",             3, ["L1", "SUN", "SUNKEN"], "levels/sunken"],
@@ -743,10 +701,7 @@ file_list = [\
 ["snow-ram",                              "snow-ram",                    3, ["L1", "SNO"], "levels/snow"],
 ["snow-part",                             "snow-part",                   3, ["L1", "SNO"], "levels/snow"],
 ["yeti",                                  "yeti",                        3, ["L1", "SNO"], "levels/snow"],
-["eichar-pole+0-ag-L1",                   "eichar-pole+0",               4, ["L1"], "levels/l1_only"],
-["eichar-pole+0-ag-ROB",                  "eichar-pole+0",               4, ["ROB"], "levels/rolling"],
-["eichar-pole+0-ag-SNO",                  "eichar-pole+0",               4, ["SNO"], "levels/snow"],
-["eichar-pole+0-ag-SWA",                  "eichar-pole+0",               4, ["SWA"], "levels/swamp"],
+["eichar-pole+0-ag",                      "eichar-pole+0",               4, ["L1", "SNO", "SWA", "ROB"], "levels/swamp"],
 ["eichar-ice+0-ag",                       "eichar-ice+0",                4, ["L1", "SNO"], "levels/snow"],
 ["lavatube-obs",                          "lavatube-obs",                3, ["L1", "LAV"], "levels/lavatube"],
 ["lavatube-energy",                       "lavatube-energy",             3, ["L1", "LAV"], "levels/lavatube"],
@@ -758,14 +713,9 @@ file_list = [\
 ["tpage-1123",                            "tpage-1123",                  4, ["FIC"], "levels/firecanyon"],
 ["assistant-firecanyon-ag",               "assistant-firecanyon",        4, ["FIC"], "levels/firecanyon"],
 ["balloon-ag",                            "balloon",                     4, ["FIC"], "levels/firecanyon"],
-["crate-darkeco-cluster-ag-FIC",          "crate-darkeco-cluster",       4, ["FIC"], "levels/firecanyon"],
-["crate-darkeco-cluster-ag-OGR",          "crate-darkeco-cluster",       4, ["OGR"], "levels/ogre"],
-["ef-plane-ag-FIC-LAV-OGR-ROL-SNO-SWA",   "ef-plane",                    4, ["FIC", "LAV", "OGR", "ROL", "SNO", "SWA"], "levels/common"],
-["ef-plane-ag-MIS",                       "ef-plane",                    4, ["MIS"], "levels/misty"],
-["racer-ag-FIC-ROL",                      "racer",                       4, ["FIC", "ROL"], "levels/common"],
-["racer-ag-LAV",                          "racer",                       4, ["LAV"], "levels/lavatube"],
-["racer-ag-MIS",                          "racer",                       4, ["MIS"], "levels/misty"],
-["racer-ag-OGR",                          "racer",                       4, ["OGR"], "levels/ogre"],
+["crate-darkeco-cluster-ag",              "crate-darkeco-cluster",       4, ["FIC", "OGR"], "levels/firecanyon"],
+["ef-plane-ag",                           "ef-plane",                    4, ["FIC", "LAV", "OGR", "ROL", "SNO", "SWA", "MIS"], "levels/racer_common"],
+["racer-ag",                              "racer",                       4, ["FIC", "ROL", "LAV", "MIS", "OGR"], "levels/racer_common"],
 ["spike-ag",                              "spike",                       4, ["FIC"], "levels/firecanyon"],
 ["firecanyon-vis",                        "firecanyon-vis",              4, ["FIC"], "levels/firecanyon"],
 ["tpage-1338",                            "tpage-1338",                  4, ["LAV"], "levels/lavatube"],
@@ -798,8 +748,7 @@ file_list = [\
 ["gnawer-ag",                             "gnawer",                      4, ["MAI"], "levels/maincave"],
 ["launcherdoor-maincave-ag",              "launcherdoor-maincave",       4, ["MAI"], "levels/maincave"],
 ["maincavecam-ag",                        "maincavecam",                 4, ["MAI"], "levels/maincave"],
-["plat-ag-MAI",                           "plat",                        4, ["MAI"], "levels/maincave"],
-["plat-ag-ROB",                           "plat",                        4, ["ROB"], "levels/robocave"],
+["plat-ag",                               "plat",                        4, ["MAI", "ROB"], "levels/common"],
 ["spiderwebs-ag",                         "spiderwebs",                  4, ["MAI", "ROB"], "levels/cave_common"],
 ["water-anim-maincave-ag",                "water-anim-maincave",         4, ["MAI"], "levels/maincave"],
 ["water-anim-maincave-water-ag",          "water-anim-maincave-water",   4, ["MAI"], "levels/maincave"],
@@ -876,8 +825,7 @@ file_list = [\
 ["tpage-842",                             "tpage-842",                   4, ["SNO"], "levels/snow"],
 ["tpage-711",                             "tpage-711",                   4, ["SNO"], "levels/snow"],
 ["tpage-712",                             "tpage-712",                   4, ["SNO"], "levels/snow"],
-["flut-saddle-ag-SNO",                    "flut-saddle",                 4, ["SNO"], "levels/snow"],
-["flut-saddle-ag-SWA",                    "flut-saddle",                 4, ["SWA"], "levels/swamp"],
+["flut-saddle-ag",                        "flut-saddle",                 4, ["SNO", "SWA"], "levels/flut_common"],
 ["flutflut-plat-large-ag",                "flutflut-plat-large",         4, ["SNO"], "levels/snow"],
 ["flutflut-plat-med-ag",                  "flutflut-plat-med",           4, ["SNO"], "levels/snow"],
 ["flutflut-plat-small-ag",                "flutflut-plat-small",         4, ["SNO"], "levels/snow"],
@@ -907,20 +855,17 @@ file_list = [\
 ["tpage-764",                             "tpage-764",                   4, ["SUB"], "levels/sunkenb"],
 ["blue-eco-charger-ag",                   "blue-eco-charger",            4, ["SUB"], "levels/sunkenb"],
 ["blue-eco-charger-orb-ag",               "blue-eco-charger-orb",        4, ["SUB"], "levels/sunkenb"],
-["bully-ag",                              "bully",                       4, ["SUB", "SUN"], "levels/sunken_common"],
+["bully-ag",                              "bully",                       4, ["SUB", "SUN"], "levels/sunken"],
 ["floating-launcher-ag",                  "floating-launcher",           4, ["SUB"], "levels/sunkenb"],
 ["helix-button-ag",                       "helix-button",                4, ["SUB"], "levels/sunkenb"],
 ["helix-slide-door-ag",                   "helix-slide-door",            4, ["SUB"], "levels/sunkenb"],
-["shover-ag-SUB",                         "shover",                      4, ["SUB"], "levels/sunkenb"],
-["shover-ag-SUN",                         "shover",                      4, ["SUN"], "levels/sunken"],
-["steam-cap-ag-SUB",                      "steam-cap",                   4, ["SUB"], "levels/sunkenb"],
-["steam-cap-ag-SUN",                      "steam-cap",                   4, ["SUN"], "levels/sunken"],
-["sunkencam-ag-SUB",                      "sunkencam",                   4, ["SUB"], "levels/sunkenb"],
-["sunkencam-ag-SUN",                      "sunkencam",                   4, ["SUN"], "levels/sunken"],
-["sunkenfisha-ag",                        "sunkenfisha",                 4, ["SUB", "SUN"], "levels/sunken_common"],
-["wall-plat-ag",                          "wall-plat",                   4, ["SUB", "SUN"], "levels/sunken_common"],
-["water-anim-sunken-ag",                  "water-anim-sunken",           4, ["SUB", "SUN"], "levels/sunken_common"],
-["water-anim-sunken-dark-eco-ag",         "water-anim-sunken-dark-eco",  4, ["SUB", "SUN"], "levels/sunken_common"],
+["shover-ag",                             "shover",                      4, ["SUN", "SUB"], "levels/sunken"],
+["steam-cap-ag",                          "steam-cap",                   4, ["SUN", "SUB"], "levels/sunken"],
+["sunkencam-ag",                          "sunkencam",                   4, ["SUN", "SUB"], "levels/sunken"],
+["sunkenfisha-ag",                        "sunkenfisha",                 4, ["SUB", "SUN"], "levels/sunken"],
+["wall-plat-ag",                          "wall-plat",                   4, ["SUB", "SUN"], "levels/sunken"],
+["water-anim-sunken-ag",                  "water-anim-sunken",           4, ["SUB", "SUN"], "levels/sunken"],
+["water-anim-sunken-dark-eco-ag",         "water-anim-sunken-dark-eco",  4, ["SUB", "SUN"], "levels/sunken"],
 ["sunkenb-vis",                           "sunkenb-vis",                 4, ["SUB"], "levels/sunkenb"],
 ["tpage-661",                             "tpage-661",                   4, ["SUN"], "levels/sunken"],
 ["tpage-663",                             "tpage-663",                   4, ["SUN"], "levels/sunken"],
@@ -959,8 +904,7 @@ file_list = [\
 ["swamp-rat-nest-ag",                     "swamp-rat-nest",              4, ["SWA"], "levels/swamp"],
 ["swamp-rock-ag",                         "swamp-rock",                  4, ["SWA"], "levels/swamp"],
 ["swamp-spike-ag",                        "swamp-spike",                 4, ["SWA"], "levels/swamp"],
-["swampcam-ag-SWA",                       "swampcam",                    4, ["SWA"], "levels/swamp"],
-["swampcam-ag-VI2",                       "swampcam",                    4, ["VI2"], "levels/village2"],
+["swampcam-ag",                           "swampcam",                    4, ["SWA", "VI2"], "levels/swamp"],
 ["tar-plat-ag",                           "tar-plat",                    4, ["SWA"], "levels/swamp"],
 ["swamp-vis",                             "swamp-vis",                   4, ["SWA"], "levels/swamp"],
 ["title-obs",                             "title-obs",                   3, ["TIT"], "levels/title"],
@@ -982,8 +926,7 @@ file_list = [\
 ["tpage-1310",                            "tpage-1310",                  4, ["TRA"], "levels/training"],
 ["tpage-1308",                            "tpage-1308",                  4, ["TRA"], "levels/training"],
 ["tpage-775",                             "tpage-775",                   4, ["TRA"], "levels/training"],
-["pontoonfive-ag-TRA",                    "pontoonfive",                 4, ["TRA"], "levels/training"],
-["pontoonfive-ag-VI2",                    "pontoonfive",                 4, ["VI2"], "levels/village2"],
+["pontoonfive-ag",                        "pontoonfive",                 4, ["VI2", "TRA"], "levels/village2"],
 ["scarecrow-a-ag",                        "scarecrow-a",                 4, ["TRA"], "levels/training"],
 ["scarecrow-b-ag",                        "scarecrow-b",                 4, ["TRA"], "levels/training"],
 ["trainingcam-ag",                        "trainingcam",                 4, ["TRA"], "levels/training"],
@@ -1013,9 +956,7 @@ file_list = [\
 ["medres-village11-ag",                   "medres-village11",            4, ["VI1"], "levels/village1"],
 ["medres-village12-ag",                   "medres-village12",            4, ["VI1"], "levels/village1"],
 ["medres-village13-ag",                   "medres-village13",            4, ["VI1"], "levels/village1"],
-["oracle-ag-VI1",                         "oracle",                      4, ["VI1"], "levels/village1"],
-["oracle-ag-VI2",                         "oracle",                      4, ["VI2"], "levels/village2"],
-["oracle-ag-VI3",                         "oracle",                      4, ["VI3"], "levels/village3"],
+["oracle-ag",                             "oracle",                      4, ["VI1", "VI2", "VI3"], "levels/village_common"],
 ["reflector-middle-ag",                   "reflector-middle",            4, ["VI1"], "levels/village1"],
 ["revcycle-ag",                           "revcycle",                    4, ["VI1"], "levels/village1"],
 ["revcycleprop-ag",                       "revcycleprop",                4, ["VI1"], "levels/village1"],
@@ -1023,9 +964,7 @@ file_list = [\
 ["sage-ag",                               "sage",                        4, ["VI1"], "levels/village1"],
 ["sagesail-ag",                           "sagesail",                    4, ["VI1"], "levels/village1"],
 ["villa-starfish-ag",                     "villa-starfish",              4, ["VI1"], "levels/village1"],
-["village-cam-ag-VI1",                    "village-cam",                 4, ["VI1"], "levels/village1"],
-["village-cam-ag-VI2",                    "village-cam",                 4, ["VI2"], "levels/village2"],
-["village-cam-ag-VI3",                    "village-cam",                 4, ["VI3"], "levels/village3"],
+["village-cam-ag",                        "village-cam",                 4, ["VI1", "VI2", "VI3"], "levels/village_common"],
 ["village1cam-ag",                        "village1cam",                 4, ["VI1"], "levels/village1"],
 ["water-anim-village1-ag",                "water-anim-village1",         4, ["VI1"], "levels/village1"],
 ["windmill-sail-ag",                      "windmill-sail",               4, ["VI1"], "levels/village1"],
diff --git a/scripts/update-goal-src.py b/scripts/update-goal-src.py
index 7d6ed39624..d48420234a 100644
--- a/scripts/update-goal-src.py
+++ b/scripts/update-goal-src.py
@@ -26,7 +26,6 @@ files_with_modifications = [
   "viewer",
   "sunken-obs",
   "cam-master",
-  "generic-obs",
   "target-snowball",
   "logic-target",
   "default-menu",
diff --git a/test/decompiler/reference/decompiler-macros.gc b/test/decompiler/reference/decompiler-macros.gc
index a0c7557e5a..e1424e041e 100644
--- a/test/decompiler/reference/decompiler-macros.gc
+++ b/test/decompiler/reference/decompiler-macros.gc
@@ -752,6 +752,14 @@
         )
   )
 
+(defmacro sp-sound (sound)
+  `(new 'static 'sp-field-init-spec
+        :field (sp-field-id spt-sound)
+        :sound ,sound
+        :flags (sp-flag plain-v2)
+        )
+  )
+
 (defmacro sp-end ()
   `(new 'static 'sp-field-init-spec
         :field (sp-field-id spt-end)
@@ -767,6 +775,38 @@
         )
   )
 
+(defmacro defpartgroup (name &key id &key parts &key (duration 3000) &key (linger-duration 1500) &key (flags ()) &key bounds)
+  "define a new part group. defines a constant with the name of the group and the value of the group's ID"
+  `(begin
+    (defconstant ,name ,id)
+    (set! (-> *part-group-id-table* ,id)
+      (new 'static 'sparticle-launch-group
+          :duration ,duration
+          :linger-duration ,linger-duration
+          :flags (sp-group-flag ,@flags)
+          :bounds ,bounds
+          :name ,(symbol->string name)
+          :length ,(length parts)
+          :launcher (new 'static 'inline-array sparticle-group-item ,(length parts) ,@parts)
+          )
+      )
+    )
+  )
+
+(defmacro part-group (id)
+  `(-> *part-group-id-table* ,id)
+  )
+
+(defmacro defpart (id &key (init-specs ()))
+  "define a new sparticle-launcher"
+  `(set! (-> *part-id-table* ,id)
+      (new 'static 'sparticle-launcher
+          :init-specs (new 'static 'inline-array sp-field-init-spec ,(1+ (length init-specs))
+                  ,@init-specs
+                  (sp-end)
+                  )))
+  )
+
 (defmacro cmove-#f-zero (dest condition src)
   `(if (zero? ,condition)
        (set! ,dest #f)
@@ -792,9 +832,12 @@
 
 ;; vector-h
 (defmacro static-spherem (x y z r)
-  "actually makes a vector"
+  "actually makes a vector. use bspherem for sphere."
   `(new 'static 'vector :x (meters ,x) :y (meters ,y) :z (meters ,z) :w (meters ,r))
   )
+(defmacro static-bspherem (x y z r)
+  `(new 'static 'sphere :x (meters ,x) :y (meters ,y) :z (meters ,z) :w (meters ,r))
+  )
 
 ;; art-h
 (defmacro defskelgroup (name art-name joint-geom joint-anim lods
diff --git a/test/decompiler/reference/engine/ambient/weather-part_REF.gc b/test/decompiler/reference/engine/ambient/weather-part_REF.gc
index 1a91f37974..744dd5ae4c 100644
--- a/test/decompiler/reference/engine/ambient/weather-part_REF.gc
+++ b/test/decompiler/reference/engine/ambient/weather-part_REF.gc
@@ -2,455 +2,354 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 188) (new 'static 'sparticle-launch-group
-                                       :length 66
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-rain-screend-drop-real"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 66
-                                         (sp-item 18 :binding 19)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 19 :flags (start-dead launch-asap) :binding 20)
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 20 :flags (start-dead launch-asap))
-                                         (sp-item 21 :binding 22)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 22 :flags (start-dead launch-asap) :binding 23)
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         (sp-item 23 :flags (start-dead launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 65536.0)
-                                       )
-      )
+(defpartgroup group-rain-screend-drop-real
+  :id 188
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 18 :binding 19)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 19 :flags (start-dead launch-asap) :binding 20)
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 20 :flags (start-dead launch-asap))
+    (sp-item 21 :binding 22)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 22 :flags (start-dead launch-asap) :binding 23)
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    (sp-item 23 :flags (start-dead launch-asap))
+    )
+  )
 
 ;; definition for symbol group-rain-screend-drop, type sparticle-launch-group
 (define group-rain-screend-drop (-> *part-group-id-table* 188))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 21) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                  (sp-flt spt-num 0.1)
-                                  (sp-rnd-flt spt-x (meters -4.5) (meters 9.0) 1.0)
-                                  (sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
-                                  (sp-flt spt-scale-x (meters 2.5))
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 128.0)
-                                  (sp-flt spt-a 12.0)
-                                  (sp-flt spt-scalevel-x (meters 0.16666667))
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-a -0.8)
-                                  (sp-int spt-timer 10)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 21 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                          (sp-flt spt-num 0.1)
+                          (sp-rnd-flt spt-x (meters -4.5) (meters 9) 1.0)
+                          (sp-rnd-flt spt-y (meters -3) (meters 6) 1.0)
+                          (sp-flt spt-scale-x (meters 2.5))
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-flt spt-b 128.0)
+                          (sp-flt spt-a 12.0)
+                          (sp-flt spt-scalevel-x (meters 0.16666667))
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.8)
+                          (sp-int spt-timer 10)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 22) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-scale-x (meters 1.5))
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 255.0)
-                                  (sp-flt spt-a 20.0)
-                                  (sp-flt spt-scalevel-x (meters 0.033333335))
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-a -0.8)
-                                  (sp-flt spt-accel-y -2.7306666)
-                                  (sp-int spt-timer 270)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-int spt-next-time 15)
-                                  (sp-launcher-by-id spt-next-launcher 24)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 22 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-flt spt-scale-x (meters 1.5))
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-flt spt-b 255.0)
+                          (sp-flt spt-a 20.0)
+                          (sp-flt spt-scalevel-x (meters 0.033333335))
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.8)
+                          (sp-flt spt-accel-y -2.7306666)
+                          (sp-int spt-timer 270)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          (sp-int spt-next-time 15)
+                          (sp-launcher-by-id spt-next-launcher 24)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 24)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.004166667))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.06666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 24 :init-specs ((sp-flt spt-scalevel-x (meters 0.004166667))
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.06666667)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 23)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-int spt-rot-x 12)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 3276.8)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-r 6.068148)
-                                                     (sp-flt spt-fade-g 68.26667)
-                                                     (sp-flt spt-fade-b 3.034074)
-                                                     (sp-flt spt-accel-y -2.7306666)
-                                                     (sp-int spt-timer 270)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 30)
-                                                     (sp-launcher-by-id spt-next-launcher 25)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 23 :init-specs ((sp-flt spt-num 1.0)
+                          (sp-int spt-rot-x 12)
+                          (sp-flt spt-r 4096.0)
+                          (sp-flt spt-g 3276.8)
+                          (sp-flt spt-b 3276.8)
+                          (sp-flt spt-fade-r 6.068148)
+                          (sp-flt spt-fade-g 68.26667)
+                          (sp-flt spt-fade-b 3.034074)
+                          (sp-flt spt-accel-y -2.7306666)
+                          (sp-int spt-timer 270)
+                          (sp-cpuinfo-flags aux-list)
+                          (sp-int spt-next-time 30)
+                          (sp-launcher-by-id spt-next-launcher 25)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 25)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-g -5.1200004) (sp-end))
-        )
-      )
+(defpart 25 :init-specs ((sp-flt spt-fade-g -5.1200004)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 18) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                  (sp-flt spt-num 0.1)
-                                  (sp-rnd-flt spt-x (meters -4.5) (meters 9.0) 1.0)
-                                  (sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
-                                  (sp-flt spt-scale-x (meters 4.0))
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 128.0)
-                                  (sp-flt spt-a 12.0)
-                                  (sp-flt spt-scalevel-x (meters 0.26666668))
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-a -0.8)
-                                  (sp-int spt-timer 10)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 18 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                          (sp-flt spt-num 0.1)
+                          (sp-rnd-flt spt-x (meters -4.5) (meters 9) 1.0)
+                          (sp-rnd-flt spt-y (meters -3) (meters 6) 1.0)
+                          (sp-flt spt-scale-x (meters 4))
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-flt spt-b 128.0)
+                          (sp-flt spt-a 12.0)
+                          (sp-flt spt-scalevel-x (meters 0.26666668))
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.8)
+                          (sp-int spt-timer 10)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 19) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-scale-x (meters 2.6))
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 255.0)
-                                  (sp-flt spt-a 20.0)
-                                  (sp-flt spt-scalevel-x (meters 0.06666667))
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-a -0.8)
-                                  (sp-flt spt-accel-y -2.7306666)
-                                  (sp-int spt-timer 270)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-int spt-next-time 15)
-                                  (sp-launcher-by-id spt-next-launcher 26)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 19 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-flt spt-scale-x (meters 2.6))
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-flt spt-b 255.0)
+                          (sp-flt spt-a 20.0)
+                          (sp-flt spt-scalevel-x (meters 0.06666667))
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.8)
+                          (sp-flt spt-accel-y -2.7306666)
+                          (sp-int spt-timer 270)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          (sp-int spt-next-time 15)
+                          (sp-launcher-by-id spt-next-launcher 26)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 26)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.008333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.06666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 26 :init-specs ((sp-flt spt-scalevel-x (meters 0.008333334))
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.06666667)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 20)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-int spt-rot-x 24)
-                                                     (sp-flt spt-r 12288.0)
-                                                     (sp-flt spt-g 6553.6)
-                                                     (sp-flt spt-b 6553.6)
-                                                     (sp-flt spt-fade-r 12.136296)
-                                                     (sp-flt spt-fade-g 136.53334)
-                                                     (sp-flt spt-fade-b 6.068148)
-                                                     (sp-flt spt-accel-y -2.7306666)
-                                                     (sp-int spt-timer 270)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 30)
-                                                     (sp-launcher-by-id spt-next-launcher 27)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 20 :init-specs ((sp-flt spt-num 1.0)
+                          (sp-int spt-rot-x 24)
+                          (sp-flt spt-r 12288.0)
+                          (sp-flt spt-g 6553.6)
+                          (sp-flt spt-b 6553.6)
+                          (sp-flt spt-fade-r 12.136296)
+                          (sp-flt spt-fade-g 136.53334)
+                          (sp-flt spt-fade-b 6.068148)
+                          (sp-flt spt-accel-y -2.7306666)
+                          (sp-int spt-timer 270)
+                          (sp-cpuinfo-flags aux-list)
+                          (sp-int spt-next-time 30)
+                          (sp-launcher-by-id spt-next-launcher 27)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 27)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-g -10.240001) (sp-end))
-        )
-      )
+(defpart 27 :init-specs ((sp-flt spt-fade-g -10.240001)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 34)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-stars"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 28) (sp-item 29) (sp-item 30))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-stars
+  :id 34
+  :flags (always-draw)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 28) (sp-item 29) (sp-item 30))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 28) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 18
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 256.0)
-                                  (sp-flt spt-g 256.0)
-                                  (sp-flt spt-b 256.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-flt spt-fade-a 0.42666668)
-                                  (sp-int spt-timer -1)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-int-plain-rnd spt-next-time 60 239 1)
-                                  (sp-launcher-by-id spt-next-launcher 31)
-                                  (sp-rnd-flt spt-conerot-x (degrees -89.0) (degrees 178.0) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                  (sp-flt spt-conerot-radius (meters 5000.0))
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 28 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 40) (meters 40) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 256.0)
+                          (sp-flt spt-g 256.0)
+                          (sp-flt spt-b 256.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-flt spt-fade-a 0.42666668)
+                          (sp-int spt-timer -1)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          (sp-int-plain-rnd spt-next-time 60 239 1)
+                          (sp-launcher-by-id spt-next-launcher 31)
+                          (sp-rnd-flt spt-conerot-x (degrees -89.0) (degrees 178.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+                          (sp-flt spt-conerot-radius (meters 5000))
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 31)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 29999700)
-                                                     (sp-launcher-by-id spt-next-launcher 32)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 31
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 29999700) (sp-launcher-by-id spt-next-launcher 32))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 32)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.42666668) (sp-end))
-        )
-      )
+(defpart 32 :init-specs ((sp-flt spt-fade-a -0.42666668)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 29) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 18
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 256.0)
-                                  (sp-flt spt-g 256.0)
-                                  (sp-flt spt-b 256.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-flt spt-fade-a 0.42666668)
-                                  (sp-int spt-timer -1)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-int-plain-rnd spt-next-time 60 239 1)
-                                  (sp-launcher-by-id spt-next-launcher 31)
-                                  (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 59.0) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 2880.0) 1.0)
-                                  (sp-flt spt-conerot-radius (meters 5000.0))
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 29 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 40) (meters 40) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 256.0)
+                          (sp-flt spt-g 256.0)
+                          (sp-flt spt-b 256.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-flt spt-fade-a 0.42666668)
+                          (sp-int spt-timer -1)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          (sp-int-plain-rnd spt-next-time 60 239 1)
+                          (sp-launcher-by-id spt-next-launcher 31)
+                          (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 59.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 2880.0) 1.0)
+                          (sp-flt spt-conerot-radius (meters 5000))
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 30) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 18
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 128.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-flt spt-fade-a 0.42666668)
-                                  (sp-int spt-timer -1)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-int-plain-rnd spt-next-time 60 239 1)
-                                  (sp-launcher-by-id spt-next-launcher 31)
-                                  (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 29.0) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 5760.0) 1.0)
-                                  (sp-flt spt-conerot-radius (meters 5000.0))
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 30 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 40) (meters 40) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-flt spt-b 128.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-flt spt-fade-a 0.42666668)
+                          (sp-int spt-timer -1)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          (sp-int-plain-rnd spt-next-time 60 239 1)
+                          (sp-launcher-by-id spt-next-launcher 31)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 29.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 5760.0) 1.0)
+                          (sp-flt spt-conerot-radius (meters 5000))
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 33) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 21
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 4.0)
-                                  (sp-rnd-flt spt-x (meters 10.0) (meters 10.0) 1.0)
-                                  (sp-rnd-flt spt-y (meters 2.0) (meters 14.0) 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                  (sp-int spt-rot-x 4)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 255.0)
-                                  (sp-flt spt-g 255.0)
-                                  (sp-flt spt-b 255.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-rnd-flt spt-vel-y (meters -0.01) (meters -0.0033333334) 1.0)
-                                  (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                  (sp-flt spt-fade-a 0.85333335)
-                                  (sp-int spt-timer 1500)
-                                  (sp-cpuinfo-flags bit2 bit12 bit14)
-                                  (sp-int-plain-rnd spt-next-time 75 74 1)
-                                  (sp-launcher-by-id spt-next-launcher 35)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 33 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 4.0)
+                          (sp-rnd-flt spt-x (meters 10) (meters 10) 1.0)
+                          (sp-rnd-flt spt-y (meters 2) (meters 14) 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                          (sp-int spt-rot-x 4)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 255.0)
+                          (sp-flt spt-g 255.0)
+                          (sp-flt spt-b 255.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-rnd-flt spt-vel-y (meters -0.01) (meters -0.0033333334) 1.0)
+                          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                          (sp-flt spt-fade-a 0.85333335)
+                          (sp-int spt-timer 1500)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          (sp-int-plain-rnd spt-next-time 75 74 1)
+                          (sp-launcher-by-id spt-next-launcher 35)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 34) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 21
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 0.0)
-                                  (sp-rnd-flt spt-x (meters 0.0) (meters 20.0) 1.0)
-                                  (sp-flt spt-y (meters 16.0))
-                                  (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                  (sp-int spt-rot-x 4)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 255.0)
-                                  (sp-flt spt-g 255.0)
-                                  (sp-flt spt-b 255.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-rnd-flt spt-vel-y (meters -0.01) (meters -0.0033333334) 1.0)
-                                  (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                  (sp-flt spt-fade-a 0.85333335)
-                                  (sp-int spt-timer 1500)
-                                  (sp-cpuinfo-flags bit2 bit12 bit14)
-                                  (sp-int-plain-rnd spt-next-time 75 74 1)
-                                  (sp-launcher-by-id spt-next-launcher 35)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 34 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 0.0)
+                          (sp-rnd-flt spt-x (meters 0) (meters 20) 1.0)
+                          (sp-flt spt-y (meters 16))
+                          (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                          (sp-int spt-rot-x 4)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 255.0)
+                          (sp-flt spt-g 255.0)
+                          (sp-flt spt-b 255.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-rnd-flt spt-vel-y (meters -0.01) (meters -0.0033333334) 1.0)
+                          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                          (sp-flt spt-fade-a 0.85333335)
+                          (sp-int spt-timer 1500)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          (sp-int-plain-rnd spt-next-time 75 74 1)
+                          (sp-launcher-by-id spt-next-launcher 35)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 35)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 1200)
-                                                     (sp-launcher-by-id spt-next-launcher 36)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 35
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 1200) (sp-launcher-by-id spt-next-launcher 36))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 36)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.85333335) (sp-end))
-        )
-      )
+(defpart 36 :init-specs ((sp-flt spt-fade-a -0.85333335)))
 
 ;; definition for function update-snow
 ;; INFO: Return type mismatch int vs none.
@@ -485,101 +384,81 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 37) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                  (sp-flt spt-num 1.5)
-                                  (sp-rnd-flt spt-x (meters 0.0) (meters 20.0) 1.0)
-                                  (sp-flt spt-y (meters 16.0))
-                                  (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
-                                  (sp-flt spt-r 50.0)
-                                  (sp-rnd-flt spt-g 80.0 55.0 1.0)
-                                  (sp-rnd-flt spt-b 50.0 50.0 1.0)
-                                  (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.13333334) 1.0)
-                                  (sp-int spt-timer 240)
-                                  (sp-cpuinfo-flags bit2 bit14)
-                                  (sp-flt spt-userdata 0.0)
-                                  (sp-func spt-func 'check-drop-level-rain)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 37 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                          (sp-flt spt-num 1.5)
+                          (sp-rnd-flt spt-x (meters 0) (meters 20) 1.0)
+                          (sp-flt spt-y (meters 16))
+                          (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
+                          (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
+                          (sp-flt spt-r 50.0)
+                          (sp-rnd-flt spt-g 80.0 55.0 1.0)
+                          (sp-rnd-flt spt-b 50.0 50.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.13333334) 1.0)
+                          (sp-int spt-timer 240)
+                          (sp-cpuinfo-flags bit2 bit14)
+                          (sp-flt spt-userdata 0.0)
+                          (sp-func spt-func 'check-drop-level-rain)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 38) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 15
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                  (sp-flt spt-num 4.5)
-                                  (sp-rnd-flt spt-x (meters 0.0) (meters 20.0) 1.0)
-                                  (sp-flt spt-y (meters 16.0))
-                                  (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
-                                  (sp-flt spt-r 50.0)
-                                  (sp-rnd-flt spt-g 80.0 55.0 1.0)
-                                  (sp-rnd-flt spt-b 50.0 50.0 1.0)
-                                  (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.033333335) 1.0)
-                                  (sp-int spt-timer 240)
-                                  (sp-cpuinfo-flags bit2 bit14)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 38 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                          (sp-flt spt-num 4.5)
+                          (sp-rnd-flt spt-x (meters 0) (meters 20) 1.0)
+                          (sp-flt spt-y (meters 16))
+                          (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
+                          (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
+                          (sp-flt spt-r 50.0)
+                          (sp-rnd-flt spt-g 80.0 55.0 1.0)
+                          (sp-rnd-flt spt-b 50.0 50.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.033333335) 1.0)
+                          (sp-int spt-timer 240)
+                          (sp-cpuinfo-flags bit2 bit14)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 39) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 16
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                  (sp-rnd-int spt-num 0 1 2.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-flt spt-r 110.0 32.0 1.0)
-                                  (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                  (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                  (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                  (sp-flt spt-fade-a -0.85333335)
-                                  (sp-flt spt-accel-y -2.7306666)
-                                  (sp-int spt-timer 150)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-rnd-flt spt-conerot-x (degrees 25.000002) (degrees 40.0) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 39 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                          (sp-rnd-int spt-num 0 1 2.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 110.0 32.0 1.0)
+                          (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                          (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                          (sp-flt spt-fade-a -0.85333335)
+                          (sp-flt spt-accel-y -2.7306666)
+                          (sp-int spt-timer 150)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          (sp-rnd-flt spt-conerot-x (degrees 25.000002) (degrees 40.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 40) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-y (meters 0.02))
-                                  (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                  (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-flt spt-r 110.0 32.0 1.0)
-                                  (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                  (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                  (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                  (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-a -0.4)
-                                  (sp-int spt-timer 120)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 40 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-flt spt-y (meters 0.02))
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 110.0 32.0 1.0)
+                          (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.4)
+                          (sp-int spt-timer 120)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; definition for function check-drop-level-rain
 (defun check-drop-level-rain ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -709,163 +588,123 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 35)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-sun"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 1950) (sp-item 1951) (sp-item 1952))
-        :bounds (new 'static 'sphere :w 286720.0)
-        )
-      )
+(defpartgroup group-sun
+  :id 35
+  :flags (always-draw)
+  :bounds (static-bspherem 0 0 0 70)
+  :parts
+  ((sp-item 1950) (sp-item 1951) (sp-item 1952))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1950) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1200.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'sparticle-track-sun)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1950 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1200))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-flt spt-userdata 0.0)
+                            (sp-func spt-func 'sparticle-track-sun)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1951) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2800.0))
-                                    (sp-flt spt-rot-z (degrees 0.0))
-                                    (sp-flt spt-scale-y (meters 2200.0))
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 32.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-rotvel-z (degrees -0.05))
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 1.0)
-                                    (sp-func spt-func 'sparticle-track-sun)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1951 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 2800))
+                            (sp-flt spt-rot-z (degrees 0.0))
+                            (sp-flt spt-scale-y (meters 2200))
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-rotvel-z (degrees -0.05))
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata 1.0)
+                            (sp-func spt-func 'sparticle-track-sun)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1952) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2200.0))
-                                    (sp-flt spt-rot-z (degrees 0.0))
-                                    (sp-flt spt-scale-y (meters 2800.0))
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 32.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-rotvel-z (degrees 0.05))
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 2.0)
-                                    (sp-func spt-func 'sparticle-track-sun)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1952 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 2200))
+                            (sp-flt spt-rot-z (degrees 0.0))
+                            (sp-flt spt-scale-y (meters 2800))
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-rotvel-z (degrees 0.05))
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata 2.0)
+                            (sp-func spt-func 'sparticle-track-sun)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 36)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-green-sun"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 1974) (sp-item 1975) (sp-item 1976))
-        :bounds (new 'static 'sphere :w 286720.0)
-        )
-      )
+(defpartgroup group-green-sun
+  :id 36
+  :flags (always-draw)
+  :bounds (static-bspherem 0 0 0 70)
+  :parts
+  ((sp-item 1974) (sp-item 1975) (sp-item 1976))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1974) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 600.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 4.0)
-                                    (sp-func spt-func 'sparticle-track-sun)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1974 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 600))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata 4.0)
+                            (sp-func spt-func 'sparticle-track-sun)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1975) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1400.0))
-                                    (sp-flt spt-rot-z (degrees 0.0))
-                                    (sp-flt spt-scale-y (meters 1100.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-rotvel-z (degrees -0.05))
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 5.0)
-                                    (sp-func spt-func 'sparticle-track-sun)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1975 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1400))
+                            (sp-flt spt-rot-z (degrees 0.0))
+                            (sp-flt spt-scale-y (meters 1100))
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-rotvel-z (degrees -0.05))
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata 5.0)
+                            (sp-func spt-func 'sparticle-track-sun)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1976) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1100.0))
-                                    (sp-flt spt-rot-z (degrees 0.0))
-                                    (sp-flt spt-scale-y (meters 1400.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-rotvel-z (degrees 0.05))
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 6.0)
-                                    (sp-func spt-func 'sparticle-track-sun)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1976 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x35 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1100))
+                            (sp-flt spt-rot-z (degrees 0.0))
+                            (sp-flt spt-scale-y (meters 1400))
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-rotvel-z (degrees 0.05))
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata 6.0)
+                            (sp-func spt-func 'sparticle-track-sun)
+                            )
+              )
diff --git a/test/decompiler/reference/engine/debug/part-tester_REF.gc b/test/decompiler/reference/engine/debug/part-tester_REF.gc
index 45942e713e..74c9e316c2 100644
--- a/test/decompiler/reference/engine/debug/part-tester_REF.gc
+++ b/test/decompiler/reference/engine/debug/part-tester_REF.gc
@@ -5,17 +5,7 @@
 (declare-file (debug))
 (when *debug-segment*
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 105)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-tester"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 56) (sp-item 57))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-tester :id 105 :bounds (static-bspherem 0 0 0 1) :parts ((sp-item 56) (sp-item 57)))
 
 ;; definition of type part-tester
 (deftype part-tester (process)
diff --git a/test/decompiler/reference/engine/game/collectables-part_REF.gc b/test/decompiler/reference/engine/game/collectables-part_REF.gc
index 24bb20ba75..377868f88d 100644
--- a/test/decompiler/reference/engine/game/collectables-part_REF.gc
+++ b/test/decompiler/reference/engine/game/collectables-part_REF.gc
@@ -76,2476 +76,1912 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 42)
-      (new 'static 'sparticle-launch-group
-        :length 20
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-eco-blue"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 20
-          (sp-item 2 :flags (launch-asap) :binding 3)
-          (sp-item 3 :fade-after (meters 40.0) :flags (start-dead launch-asap) :binding 5)
-          (sp-item 3 :fade-after (meters 60.0) :flags (start-dead launch-asap) :binding 5)
-          (sp-item 3 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 5)
-          (sp-item 3 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 5)
-          (sp-item 3 :fade-after (meters 130.0) :flags (start-dead launch-asap) :binding 5)
-          (sp-item 3 :flags (start-dead launch-asap) :binding 5)
-          (sp-item 5 :flags (start-dead launch-asap) :binding 7)
-          (sp-item 5 :flags (start-dead launch-asap) :binding 8)
-          (sp-item 5 :flags (start-dead launch-asap) :binding 9)
-          (sp-item 5 :flags (start-dead launch-asap) :binding 7)
-          (sp-item 5 :flags (start-dead launch-asap) :binding 8)
-          (sp-item 5 :flags (start-dead launch-asap) :binding 9)
-          (sp-item 7 :fade-after (meters 60.0) :flags (start-dead) :binding 10)
-          (sp-item 8 :fade-after (meters 70.0) :flags (start-dead) :binding 10)
-          (sp-item 9 :fade-after (meters 80.0) :flags (start-dead) :binding 10)
-          (sp-item 7 :fade-after (meters 90.0) :flags (start-dead) :binding 10)
-          (sp-item 8 :fade-after (meters 100.0) :flags (start-dead) :binding 10)
-          (sp-item 9 :fade-after (meters 100.0) :flags (start-dead) :binding 10)
-          (sp-item 10 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2) (new 'static 'sparticle-launcher
-                               :init-specs
-                               (new 'static 'inline-array sp-field-init-spec 9
-                                 (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                 (sp-flt spt-num 1.0)
-                                 (sp-flt spt-x (meters 4.0))
-                                 (sp-flt spt-scale-x (meters 0.01))
-                                 (sp-copy-from-other spt-scale-y -4)
-                                 (sp-int spt-timer -1)
-                                 (sp-cpuinfo-flags bit3 bit14)
-                                 (sp-func spt-func 'sparticle-track-root-prim)
-                                 (sp-end)
-                                 )
-                               )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 3) (new 'static 'sparticle-launcher
-                               :init-specs
-                               (new 'static 'inline-array sp-field-init-spec 22
-                                 (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                 (sp-flt spt-num 6.0)
-                                 (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                 (sp-rnd-flt spt-z 1228.8 614.4 1.0)
-                                 (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                 (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                 (sp-copy-from-other spt-scale-y -4)
-                                 (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                 (sp-rnd-flt spt-g 32.0 96.0 1.0)
-                                 (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                 (sp-flt spt-a 32.0)
-                                 (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                 (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
-                                 (sp-flt spt-vel-y (meters 0.0))
-                                 (sp-flt spt-vel-z (meters 0.0))
-                                 (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
-                                 (sp-int spt-timer -1)
-                                 (sp-cpuinfo-flags bit3 bit7 bit14)
-                                 (sp-func spt-func 'eco-fadeout)
-                                 (sp-int spt-next-time 10)
-                                 (sp-launcher-by-id spt-next-launcher 4)
-                                 (sp-end)
-                                 )
-                               )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 4)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 5) (new 'static 'sparticle-launcher
-                               :init-specs
-                               (new 'static 'inline-array sp-field-init-spec 22
-                                 (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                 (sp-flt spt-num 1.0)
-                                 (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                 (sp-rnd-flt spt-z 819.2 409.6 1.0)
-                                 (sp-rnd-flt spt-scale-x (meters 0.8) (meters 0.4) 1.0)
-                                 (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                 (sp-copy-from-other spt-scale-y -4)
-                                 (sp-flt spt-r 96.0)
-                                 (sp-flt spt-g 96.0)
-                                 (sp-flt spt-b 192.0)
-                                 (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                 (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                 (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
-                                 (sp-flt spt-vel-y (meters 0.0))
-                                 (sp-flt spt-vel-z (meters 0.0))
-                                 (sp-rnd-flt spt-rotvel-z (degrees 269.52002) (degrees 208.99998) 1.0)
-                                 (sp-int spt-timer -1)
-                                 (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                 (sp-func spt-func 'eco-fadeout)
-                                 (sp-int spt-next-time 10)
-                                 (sp-launcher-by-id spt-next-launcher 6)
-                                 (sp-end)
-                                 )
-                               )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 6)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 3 (sp-flt spt-fade-a -0.16) (sp-int spt-timer 150) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 7) (new 'static 'sparticle-launcher
-                               :init-specs
-                               (new 'static 'inline-array sp-field-init-spec 16
-                                 (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                 (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                 (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
-                                 (sp-int spt-rot-x 4)
-                                 (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                 (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
-                                 (sp-flt spt-r 64.0)
-                                 (sp-flt spt-g 64.0)
-                                 (sp-flt spt-b 128.0)
-                                 (sp-rnd-flt spt-a 128.0 64.0 1.0)
-                                 (sp-flt spt-fade-a -1.6)
-                                 (sp-int spt-timer 90)
-                                 (sp-cpuinfo-flags bit2 bit3 bit14)
-                                 (sp-int spt-next-time 10)
-                                 (sp-launcher-by-id spt-next-launcher 146)
-                                 (sp-end)
-                                 )
-                               )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 8) (new 'static 'sparticle-launcher
-                               :init-specs
-                               (new 'static 'inline-array sp-field-init-spec 16
-                                 (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                 (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                 (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
-                                 (sp-int spt-rot-x 4)
-                                 (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                 (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
-                                 (sp-flt spt-r 64.0)
-                                 (sp-flt spt-g 64.0)
-                                 (sp-flt spt-b 128.0)
-                                 (sp-rnd-flt spt-a 128.0 64.0 1.0)
-                                 (sp-flt spt-fade-a -1.6)
-                                 (sp-int spt-timer 90)
-                                 (sp-cpuinfo-flags bit2 bit3 bit14)
-                                 (sp-int spt-next-time 10)
-                                 (sp-launcher-by-id spt-next-launcher 146)
-                                 (sp-end)
-                                 )
-                               )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 9) (new 'static 'sparticle-launcher
-                               :init-specs
-                               (new 'static 'inline-array sp-field-init-spec 16
-                                 (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                 (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                 (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
-                                 (sp-int spt-rot-x 4)
-                                 (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                 (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
-                                 (sp-flt spt-r 64.0)
-                                 (sp-flt spt-g 64.0)
-                                 (sp-flt spt-b 128.0)
-                                 (sp-rnd-flt spt-a 128.0 64.0 1.0)
-                                 (sp-flt spt-fade-a -1.6)
-                                 (sp-int spt-timer 90)
-                                 (sp-cpuinfo-flags bit2 bit3 bit14)
-                                 (sp-int spt-next-time 10)
-                                 (sp-launcher-by-id spt-next-launcher 146)
-                                 (sp-end)
-                                 )
-                               )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 10) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 11
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-rnd-flt spt-num 0.2 0.2 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 32.0)
-                                  (sp-flt spt-g 32.0)
-                                  (sp-flt spt-b 192.0)
-                                  (sp-rnd-flt spt-a 96.0 64.0 1.0)
-                                  (sp-int spt-timer 5)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 43) (new 'static 'sparticle-launch-group
-                                      :length 18
-                                      :duration #x96
-                                      :linger-duration #x258
-                                      :name "group-eco-blue-collect"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 18
-                                        (sp-item 11 :flags (launch-asap) :binding 12)
-                                        (sp-item 12 :flags (start-dead launch-asap) :binding 13)
-                                        (sp-item 12 :flags (start-dead launch-asap) :binding 14)
-                                        (sp-item 12 :flags (start-dead launch-asap) :binding 13)
-                                        (sp-item 12 :flags (start-dead launch-asap) :binding 14)
-                                        (sp-item 12 :flags (start-dead launch-asap) :binding 147)
-                                        (sp-item 13 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 13 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 13 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 13 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 14 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 14 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 14 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 14 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 147 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 147 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 147 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 147 :fade-after (meters 40.0) :flags (start-dead))
-                                        )
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 11) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 16
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-scale-x (meters 4.0))
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 96.0)
-                                  (sp-flt spt-g 96.0)
-                                  (sp-flt spt-b 192.0)
-                                  (sp-flt spt-a 64.0)
-                                  (sp-flt spt-fade-a -3.2)
-                                  (sp-int spt-timer 150)
-                                  (sp-cpuinfo-flags bit3 bit14)
-                                  (sp-func spt-func 'part-tracker-track-root)
-                                  (sp-int spt-next-time 15)
-                                  (sp-launcher-by-id spt-next-launcher 148)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 12)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 18
-          (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-          (sp-flt spt-num 5.0)
-          (sp-rnd-flt spt-y (meters -4.0) (meters 16.0) 1.0)
-          (sp-flt spt-z 327.68)
-          (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.5) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 64.0)
-          (sp-flt spt-g 64.0)
-          (sp-flt spt-b 128.0)
-          (sp-flt spt-a 127.0)
-          (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-          (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
-          (sp-flt spt-vel-y (meters 0.0))
-          (sp-flt spt-vel-z (meters 0.08))
-          (sp-flt spt-accel-z -21.845333)
-          (sp-int spt-timer 150)
-          (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 13) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 16
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
-                                  (sp-int spt-rot-x 4)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
-                                  (sp-flt spt-r 64.0)
-                                  (sp-flt spt-g 64.0)
-                                  (sp-flt spt-b 128.0)
-                                  (sp-rnd-flt spt-a 128.0 64.0 1.0)
-                                  (sp-flt spt-fade-a -1.4)
-                                  (sp-int spt-timer 90)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-int spt-next-time 10)
-                                  (sp-launcher-by-id spt-next-launcher 146)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 14) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 16
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
-                                  (sp-int spt-rot-x 4)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
-                                  (sp-flt spt-r 64.0)
-                                  (sp-flt spt-g 64.0)
-                                  (sp-flt spt-b 128.0)
-                                  (sp-rnd-flt spt-a 128.0 64.0 1.0)
-                                  (sp-flt spt-fade-a -1.4)
-                                  (sp-int spt-timer 90)
-                                  (sp-cpuinfo-flags bit2 bit3 bit14)
-                                  (sp-int spt-next-time 10)
-                                  (sp-launcher-by-id spt-next-launcher 146)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 147) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 128.0 64.0 1.0)
-                                   (sp-flt spt-fade-a -1.4)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 146)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 44)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-vent-blue-active"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 149 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 156)
-          (sp-item 149 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 155)
-          (sp-item 149 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 154)
-          (sp-item 150)
-          (sp-item 151 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 152 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 153 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 154 :fade-after (meters 30.0) :falloff-to (meters 30.0) :flags (start-dead))
-          (sp-item 155 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (start-dead))
-          (sp-item 156 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 154 :fade-after (meters 90.0) :falloff-to (meters 90.0) :flags (start-dead))
-          (sp-item 155 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 156 :fade-after (meters 110.0) :falloff-to (meters 110.0) :flags (start-dead))
-          (sp-item 154 :fade-after (meters 120.0) :falloff-to (meters 120.0) :flags (start-dead))
-          (sp-item 155 :fade-after (meters 120.0) :falloff-to (meters 120.0) :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :y 20480.0 :w 20480.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 45)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-vent-blue-inactive"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 149 :fade-after (meters 100.0)) (sp-item 150))
-        :bounds
-        (new 'static 'sphere :y 20480.0 :w 20480.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 150) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                   (sp-flt spt-fade-a -0.2)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 149) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 0.05 0.1 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 156) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.4)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 146)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 155) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.4)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 146)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 154) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.4)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 146)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 151) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 0.5 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.4)
-                                   (sp-int spt-timer 91)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 146)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 152) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                   (sp-rnd-flt spt-num 0.2 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.4)
-                                   (sp-int spt-timer 91)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 146)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 153) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                   (sp-rnd-flt spt-num 0.3 0.1 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.4)
-                                   (sp-int spt-timer 91)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 146)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 146)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -1.0)
-                                                     (sp-flt spt-fade-g -1.0)
-                                                     (sp-flt spt-fade-a -2.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 48)
-      (new 'static 'sparticle-launch-group
-        :length 16
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-eco-red"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 16
-          (sp-item 160 :flags (launch-asap) :binding 161)
-          (sp-item 161 :flags (start-dead launch-asap) :binding 162)
-          (sp-item 161 :flags (start-dead launch-asap) :binding 162)
-          (sp-item 161 :flags (start-dead launch-asap) :binding 162)
-          (sp-item 161 :flags (start-dead launch-asap) :binding 162)
-          (sp-item 161 :flags (start-dead launch-asap) :binding 162)
-          (sp-item 161 :flags (start-dead launch-asap) :binding 162)
-          (sp-item 162 :flags (start-dead launch-asap) :binding 163)
-          (sp-item 162 :flags (start-dead launch-asap) :binding 163)
-          (sp-item 162 :flags (start-dead launch-asap) :binding 163)
-          (sp-item 163 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 164)
-          (sp-item 163 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 164)
-          (sp-item 163 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 164)
-          (sp-item 164 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-          (sp-item 164 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-          (sp-item 164 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 160) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 9
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 4.0))
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 161) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 614.4 819.2 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 165)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 165)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 3 (sp-flt spt-fade-a -0.16) (sp-int spt-timer 150) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 162) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 1024.0 409.6 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 166)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 166)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 163) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 286.72 122.88 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-flt spt-vel-x (meters 0.11259259))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 166)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 164)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters -0.00038095238))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.4)
-                                                     (sp-flt spt-fade-a -0.01904762)
-                                                     (sp-rnd-flt spt-accel-y 0.40960002 0.6144 1.0)
-                                                     (sp-int-plain-rnd spt-timer 30 149 1)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 167)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 167)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-g 0.0) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 49) (new 'static 'sparticle-launch-group
-                                      :length 11
-                                      :duration #x96
-                                      :linger-duration #x258
-                                      :flags (sp-group-flag use-local-clock)
-                                      :name "group-eco-red-collect"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 11
-                                        (sp-item 168 :flags (launch-asap) :binding 169)
-                                        (sp-item 169 :flags (start-dead launch-asap) :binding 170)
-                                        (sp-item 169 :flags (start-dead launch-asap) :binding 170)
-                                        (sp-item 169 :flags (start-dead launch-asap) :binding 170)
-                                        (sp-item 169 :flags (start-dead launch-asap) :binding 170)
-                                        (sp-item 169 :flags (start-dead launch-asap) :binding 170)
-                                        (sp-item 170 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 170 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 170 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 170 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 170 :fade-after (meters 40.0) :flags (start-dead))
-                                        )
-                                      :bounds (new 'static 'sphere :w 49152.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 168) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 4.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -3.2)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-func spt-func 'part-tracker-track-root)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 148)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 169)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 18
-          (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-          (sp-flt spt-num 5.0)
-          (sp-rnd-flt spt-y (meters -4.0) (meters 16.0) 1.0)
-          (sp-flt spt-z 327.68)
-          (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-flt spt-g 128.0)
-          (sp-flt spt-b 0.0)
-          (sp-flt spt-a 127.0)
-          (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-          (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
-          (sp-flt spt-vel-y (meters 0.0))
-          (sp-flt spt-vel-z (meters 0.08))
-          (sp-flt spt-accel-z -21.845333)
-          (sp-int spt-timer 150)
-          (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 170) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.005555555))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -2.0)
-                                   (sp-flt spt-fade-a -0.22857143)
-                                   (sp-rnd-flt spt-accel-y 0.40960002 0.6144 1.0)
-                                   (sp-int spt-timer 54)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 240)
-                                   (sp-launcher-by-id spt-next-launcher 171)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 50)
-      (new 'static 'sparticle-launch-group
-        :length 31
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-vent-red-active"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 31
-          (sp-item 172 :fade-after (meters 30.0) :period 330 :length 5 :binding 173)
-          (sp-item 172 :fade-after (meters 60.0) :period 736 :length 5 :binding 173)
-          (sp-item 172 :fade-after (meters 90.0) :period 936 :length 5 :binding 173)
-          (sp-item 172 :fade-after (meters 130.0) :period 528 :length 5 :binding 173)
-          (sp-item 172 :fade-after (meters 170.0) :period 801 :length 5 :binding 173)
-          (sp-item 173 :flags (start-dead launch-asap) :binding 174)
-          (sp-item 173 :flags (start-dead launch-asap) :binding 174)
-          (sp-item 173 :flags (start-dead launch-asap) :binding 174)
-          (sp-item 173 :flags (start-dead launch-asap) :binding 174)
-          (sp-item 173 :flags (start-dead launch-asap) :binding 174)
-          (sp-item 173 :flags (start-dead launch-asap) :binding 174)
-          (sp-item 173 :flags (start-dead launch-asap) :binding 174)
-          (sp-item 173 :flags (start-dead launch-asap) :binding 174)
-          (sp-item 174 :flags (start-dead launch-asap) :binding 175)
-          (sp-item 174 :flags (start-dead launch-asap) :binding 175)
-          (sp-item 174 :flags (start-dead launch-asap) :binding 175)
-          (sp-item 174 :flags (start-dead launch-asap) :binding 175)
-          (sp-item 174 :flags (start-dead launch-asap) :binding 175)
-          (sp-item 174 :flags (start-dead launch-asap) :binding 175)
-          (sp-item 174 :flags (start-dead launch-asap) :binding 175)
-          (sp-item 174 :flags (start-dead launch-asap) :binding 175)
-          (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 50.0) :flags (start-dead))
-          (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 60.0) :flags (start-dead))
-          (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 70.0) :flags (start-dead))
-          (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 90.0) :flags (start-dead))
-          (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 175 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 176 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-          (sp-item 177)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 20480.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 51) (new 'static 'sparticle-launch-group
-                                      :length 2
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :name "group-part-vent-red-inactive"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 2
-                                        (sp-item 176 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-                                        (sp-item 177)
-                                        )
-                                      :bounds
-                                      (new 'static 'sphere :y 12288.0 :w 20480.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 177) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.6 0.6 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.9) (meters 1.9) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 176) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 0.3 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.1) 1.0)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 172) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.5) 1.0)
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 173) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 2048.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
-                                   (sp-flt spt-fade-a -0.28444445)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 174) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 1024.0 409.6 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 175) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0023809525))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.07619048)
-                                   (sp-rnd-flt spt-accel-y 0.40960002 0.6144 1.0)
-                                   (sp-int-plain-rnd spt-timer 30 149 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 240)
-                                   (sp-launcher-by-id spt-next-launcher 171)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 171)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-g 0.0) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 52)
-      (new 'static 'sparticle-launch-group
-        :length 31
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-vent-yellow-active"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 31
-          (sp-item 178 :fade-after (meters 40.0) :period 330 :length 5 :binding 179)
-          (sp-item 178 :fade-after (meters 60.0) :period 736 :length 5 :binding 179)
-          (sp-item 178 :fade-after (meters 80.0) :period 936 :length 5 :binding 179)
-          (sp-item 178 :fade-after (meters 100.0) :period 528 :length 5 :binding 179)
-          (sp-item 178 :fade-after (meters 130.0) :period 801 :length 5 :binding 179)
-          (sp-item 179 :flags (start-dead launch-asap) :binding 180)
-          (sp-item 179 :flags (start-dead launch-asap) :binding 180)
-          (sp-item 179 :flags (start-dead launch-asap) :binding 180)
-          (sp-item 179 :flags (start-dead launch-asap) :binding 180)
-          (sp-item 179 :flags (start-dead launch-asap) :binding 180)
-          (sp-item 179 :flags (start-dead launch-asap) :binding 180)
-          (sp-item 179 :flags (start-dead launch-asap) :binding 180)
-          (sp-item 179 :flags (start-dead launch-asap) :binding 180)
-          (sp-item 180 :flags (start-dead launch-asap) :binding 181)
-          (sp-item 180 :flags (start-dead launch-asap) :binding 181)
-          (sp-item 180 :flags (start-dead launch-asap) :binding 181)
-          (sp-item 180 :flags (start-dead launch-asap) :binding 181)
-          (sp-item 180 :flags (start-dead launch-asap) :binding 181)
-          (sp-item 180 :flags (start-dead launch-asap) :binding 181)
-          (sp-item 180 :flags (start-dead launch-asap) :binding 181)
-          (sp-item 180 :flags (start-dead launch-asap) :binding 181)
-          (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 60.0) :flags (start-dead))
-          (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 70.0) :flags (start-dead))
-          (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 90.0) :flags (start-dead))
-          (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 181 :fade-after (meters 90.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 182 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-          (sp-item 183)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 20480.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 53) (new 'static 'sparticle-launch-group
-                                      :length 2
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :name "group-part-vent-yellow-inactive"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 2
-                                        (sp-item 182 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-                                        (sp-item 183)
-                                        )
-                                      :bounds
-                                      (new 'static 'sphere :y 12288.0 :w 20480.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 183) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.6 0.6 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.9) (meters 1.9) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 92.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 32.0 92.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 182) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 0.3 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.1) 1.0)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 178) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.5) 1.0)
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-int spt-timer 375)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 179) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-y (meters 0.0))
-                                   (sp-rnd-flt spt-z 819.2 819.2 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-x (meters 0.10666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-fade-a -0.34133333)
-                                   (sp-int spt-timer 375)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 180) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 819.2)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-x (meters 0.11259259))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-fade-a -0.34133333)
-                                   (sp-int spt-timer 375)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 181) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 2.0 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.024242423)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
-                                   (sp-flt spt-friction 0.93)
-                                   (sp-int-plain-rnd spt-timer 30 209 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 190)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.05))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 190)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-r 0.0) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 56)
-      (new 'static 'sparticle-launch-group
-        :length 19
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-eco-yellow"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 19
-          (sp-item 191 :flags (launch-asap) :binding 192)
-          (sp-item 192 :flags (start-dead launch-asap) :binding 193)
-          (sp-item 192 :flags (start-dead launch-asap) :binding 193)
-          (sp-item 192 :flags (start-dead launch-asap) :binding 193)
-          (sp-item 192 :flags (start-dead launch-asap) :binding 193)
-          (sp-item 192 :flags (start-dead launch-asap) :binding 193)
-          (sp-item 192 :flags (start-dead launch-asap) :binding 193)
-          (sp-item 193 :flags (start-dead launch-asap) :binding 194)
-          (sp-item 193 :flags (start-dead launch-asap) :binding 194)
-          (sp-item 193 :flags (start-dead launch-asap) :binding 194)
-          (sp-item 193 :flags (start-dead launch-asap) :binding 194)
-          (sp-item 194 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 195)
-          (sp-item 194 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 195)
-          (sp-item 194 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 195)
-          (sp-item 194 :fade-after (meters 100.0) :flags (start-dead launch-asap) :binding 195)
-          (sp-item 195 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-          (sp-item 195 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-          (sp-item 195 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-          (sp-item 195 :fade-after (meters 90.0) :falloff-to (meters 110.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 191) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 9
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 4.0))
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 192) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 5.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 614.4 819.2 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 192.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 16.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 196)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 196)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 193) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 3072.0 409.6 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 197)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 197)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 3 (sp-flt spt-fade-a -0.16) (sp-int spt-timer 150) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 194) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 491.52 122.88 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-flt spt-vel-x (meters 0.11259259))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 197)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 195) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0006190476))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.01904762)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 240)
-                                   (sp-launcher-by-id spt-next-launcher 198)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 198)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-g 0.0) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 57) (new 'static 'sparticle-launch-group
-                                      :length 11
-                                      :duration #x96
-                                      :linger-duration #x258
-                                      :name "group-eco-yellow-collect"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 11
-                                        (sp-item 199 :flags (launch-asap) :binding 200)
-                                        (sp-item 200 :flags (start-dead launch-asap) :binding 201)
-                                        (sp-item 200 :flags (start-dead launch-asap) :binding 201)
-                                        (sp-item 200 :flags (start-dead launch-asap) :binding 201)
-                                        (sp-item 200 :flags (start-dead launch-asap) :binding 201)
-                                        (sp-item 200 :flags (start-dead launch-asap) :binding 201)
-                                        (sp-item 201 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 201 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 201 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 201 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 201 :fade-after (meters 40.0) :flags (start-dead))
-                                        )
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 199) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 4.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 192.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-fade-a -3.2)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-func spt-func 'part-tracker-track-root)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 148)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 200)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 18
-          (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-          (sp-flt spt-num 5.0)
-          (sp-rnd-flt spt-y (meters -4.0) (meters 16.0) 1.0)
-          (sp-flt spt-z 327.68)
-          (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-flt spt-g 128.0)
-          (sp-flt spt-b 0.0)
-          (sp-flt spt-a 127.0)
-          (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-          (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
-          (sp-flt spt-vel-y (meters 0.0))
-          (sp-flt spt-vel-z (meters 0.08))
-          (sp-flt spt-accel-z -21.845333)
-          (sp-int spt-timer 150)
-          (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 201) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0006190476))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.01904762)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 240)
-                                   (sp-launcher-by-id spt-next-launcher 198)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 58)
-      (new 'static 'sparticle-launch-group
-        :length 18
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-eco-green"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 18
-          (sp-item 202 :flags (launch-asap) :binding 203)
-          (sp-item 203 :flags (start-dead launch-asap) :binding 204)
-          (sp-item 203 :flags (start-dead launch-asap) :binding 204)
-          (sp-item 203 :flags (start-dead launch-asap) :binding 204)
-          (sp-item 203 :flags (start-dead launch-asap) :binding 204)
-          (sp-item 203 :flags (start-dead launch-asap) :binding 204)
-          (sp-item 203 :flags (start-dead launch-asap) :binding 204)
-          (sp-item 203 :flags (start-dead launch-asap) :binding 204)
-          (sp-item 204 :fade-after (meters 90.0) :flags (start-dead launch-asap) :binding 205)
-          (sp-item 204 :fade-after (meters 90.0) :flags (start-dead launch-asap) :binding 205)
-          (sp-item 204 :fade-after (meters 90.0) :flags (start-dead launch-asap) :binding 205)
-          (sp-item 204 :fade-after (meters 90.0) :flags (start-dead launch-asap) :binding 205)
-          (sp-item 204 :fade-after (meters 90.0) :flags (start-dead launch-asap) :binding 205)
-          (sp-item 205 :fade-after (meters 40.0) :falloff-to (meters 60.0) :flags (start-dead))
-          (sp-item 205 :fade-after (meters 40.0) :falloff-to (meters 60.0) :flags (start-dead))
-          (sp-item 205 :fade-after (meters 40.0) :falloff-to (meters 60.0) :flags (start-dead))
-          (sp-item 205 :fade-after (meters 40.0) :falloff-to (meters 60.0) :flags (start-dead))
-          (sp-item 205 :fade-after (meters 40.0) :falloff-to (meters 60.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 202) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 4.0))
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-g 0.0)
-                                   (sp-flt spt-a 1.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 203) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 1228.8 1024.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 206)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 206)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 3 (sp-flt spt-fade-a -0.16) (sp-int spt-timer 150) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 204) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 1228.8)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 64.0 1.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.0148148155) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 207)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 207)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 205) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 0.25)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 48.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00075757573))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -2.8333333)
-                                   (sp-flt spt-accel-y -0.6144)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 208)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 208)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-r 0.0) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 59) (new 'static 'sparticle-launch-group
-                                      :length 8
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :name "group-eco-green-pill"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 8
-                                        (sp-item 209 :flags (launch-asap) :binding 210)
-                                        (sp-item 210 :flags (start-dead launch-asap) :binding 211)
-                                        (sp-item 211 :flags (start-dead launch-asap) :binding 212)
-                                        (sp-item 212 :flags (start-dead launch-asap) :binding 213)
-                                        (sp-item 212 :flags (start-dead launch-asap))
-                                        (sp-item 212 :flags (start-dead launch-asap))
-                                        (sp-item 212 :flags (start-dead launch-asap))
-                                        (sp-item 213 :fade-after (meters 40.0) :flags (start-dead))
-                                        )
-                                      :bounds (new 'static 'sphere :w 1638.4)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 209)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 11
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 0.01))
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-int spt-timer -1)
-                                                     (sp-cpuinfo-flags bit3 bit14)
-                                                     (sp-func spt-func 'eco-track-root-prim-fadeout)
-                                                     (sp-int spt-next-time 10)
-                                                     (sp-launcher-by-id spt-next-launcher 214)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 210) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 819.2 409.6 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0014814815))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-track-root-prim-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 214)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 214)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 3 (sp-flt spt-fade-a -0.16) (sp-int spt-timer 150) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 211) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 0.0 819.2 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-track-root-prim-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 214)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 212) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 327.68)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.05) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-a 127.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.10666667))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-func spt-func 'eco-fadeout)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 215)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 215)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-a -0.8466667)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 213) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 0.25)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-flt spt-scale-x (meters 0.15))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00039393938))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -2.8333333)
-                                   (sp-flt spt-accel-y -0.40960002)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 208)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 60) (new 'static 'sparticle-launch-group
-                                      :length 11
-                                      :duration #x96
-                                      :linger-duration #x258
-                                      :name "group-eco-green-pill-collect"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 11
-                                        (sp-item 216 :flags (launch-asap) :binding 217)
-                                        (sp-item 217 :flags (start-dead launch-asap) :binding 218)
-                                        (sp-item 217 :flags (start-dead launch-asap) :binding 218)
-                                        (sp-item 217 :flags (start-dead launch-asap) :binding 218)
-                                        (sp-item 217 :flags (start-dead launch-asap) :binding 218)
-                                        (sp-item 217 :flags (start-dead launch-asap) :binding 218)
-                                        (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-                                        )
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 61) (new 'static 'sparticle-launch-group
-                                      :length 11
-                                      :duration #x96
-                                      :linger-duration #x258
-                                      :name "group-eco-green-collect"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 11
-                                        (sp-item 216 :flags (launch-asap) :binding 219)
-                                        (sp-item 219 :flags (start-dead launch-asap) :binding 218)
-                                        (sp-item 219 :flags (start-dead launch-asap) :binding 218)
-                                        (sp-item 219 :flags (start-dead launch-asap) :binding 218)
-                                        (sp-item 219 :flags (start-dead launch-asap) :binding 218)
-                                        (sp-item 219 :flags (start-dead launch-asap) :binding 218)
-                                        (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 218 :fade-after (meters 40.0) :flags (start-dead))
-                                        )
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 216) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 4.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-fade-a -3.2)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-func spt-func 'part-tracker-track-root)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 148)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 148)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-scale-x (meters 0.1))
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 219)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 17
-          (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-          (sp-flt spt-num 5.0)
-          (sp-rnd-flt spt-y (meters -4.0) (meters 16.0) 1.0)
-          (sp-flt spt-z 327.68)
-          (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 128.0)
-          (sp-flt spt-g 255.0)
-          (sp-flt spt-a 127.0)
-          (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-          (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
-          (sp-flt spt-vel-y (meters 0.0))
-          (sp-flt spt-vel-z (meters 0.08))
-          (sp-flt spt-accel-z -21.845333)
-          (sp-int spt-timer 150)
-          (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 217) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters -4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 327.68)
-                                   (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.05) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-a 127.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.04))
-                                   (sp-flt spt-accel-z -10.922667)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 220) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00075757573))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -2.8333333)
-                                   (sp-flt spt-accel-y -0.40960002)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 221)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 218) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-flt spt-scale-x (meters 0.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0004545455))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -2.8333333)
-                                   (sp-flt spt-accel-y -0.40960002)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 221)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 62)
-      (new 'static 'sparticle-launch-group
-        :length 33
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-vent-green-active"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 33
-          (sp-item 222 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 48 :length 5 :binding 223)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 223 :fade-after (meters 80.0) :flags (start-dead launch-asap) :binding 224)
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 224 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 225 :fade-after (meters 100.0))
-          (sp-item 226)
-          )
-        :bounds
-        (new 'static 'sphere :y 20480.0 :w 20480.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 226) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.6 0.6 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.9) (meters 1.9) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 92.0 32.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 225) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 0.3 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.1) 1.0)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 222) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 10
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                   (sp-int spt-timer 750)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 223) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 819.2 2457.6 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 127.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.053333335) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-flt spt-fade-r -0.2)
-                                   (sp-int-plain-rnd spt-timer 600 149 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-int-plain-rnd spt-next-time 450 149 1)
-                                   (sp-launcher-by-id spt-next-launcher 227)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 227)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-a -0.8466667)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 224) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0006060606))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -2.8333333)
-                                   (sp-flt spt-accel-y -0.81920004)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 208)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 63) (new 'static 'sparticle-launch-group
-                                      :length 4
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :name "group-fuel-cell-starburst"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 4
-                                        (sp-item 228 :fade-after (meters 35.0))
-                                        (sp-item 229 :fade-after (meters 20.0))
-                                        (sp-item 230 :flags (bit1 launch-asap))
-                                        (sp-item 231 :flags (bit1 launch-asap))
-                                        )
-                                      :bounds
-                                      (new 'static 'sphere :y 2048.0 :w 6144.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 228) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.8) 1.0)
-                                   (sp-rnd-int spt-r 0 1 255.0)
-                                   (sp-rnd-int spt-g 0 1 255.0)
-                                   (sp-rnd-int spt-b 0 1 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 0.35555556)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 232)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 232)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 229) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.06)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.2))
-                                   (sp-rnd-int spt-r 0 1 255.0)
-                                   (sp-rnd-int spt-g 0 1 255.0)
-                                   (sp-rnd-int spt-b 0 1 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 232)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 230) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 3.5))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-rotvel-z (degrees -0.4))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 231) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 4.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 3.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-rotvel-z (degrees 0.3))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpartgroup group-eco-blue
+  :id 42
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2 :flags (launch-asap) :binding 3)
+    (sp-item 3 :fade-after (meters 40) :flags (start-dead launch-asap) :binding 5)
+    (sp-item 3 :fade-after (meters 60) :flags (start-dead launch-asap) :binding 5)
+    (sp-item 3 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 5)
+    (sp-item 3 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 5)
+    (sp-item 3 :fade-after (meters 130) :flags (start-dead launch-asap) :binding 5)
+    (sp-item 3 :flags (start-dead launch-asap) :binding 5)
+    (sp-item 5 :flags (start-dead launch-asap) :binding 7)
+    (sp-item 5 :flags (start-dead launch-asap) :binding 8)
+    (sp-item 5 :flags (start-dead launch-asap) :binding 9)
+    (sp-item 5 :flags (start-dead launch-asap) :binding 7)
+    (sp-item 5 :flags (start-dead launch-asap) :binding 8)
+    (sp-item 5 :flags (start-dead launch-asap) :binding 9)
+    (sp-item 7 :fade-after (meters 60) :flags (start-dead) :binding 10)
+    (sp-item 8 :fade-after (meters 70) :flags (start-dead) :binding 10)
+    (sp-item 9 :fade-after (meters 80) :flags (start-dead) :binding 10)
+    (sp-item 7 :fade-after (meters 90) :flags (start-dead) :binding 10)
+    (sp-item 8 :fade-after (meters 100) :flags (start-dead) :binding 10)
+    (sp-item 9 :fade-after (meters 100) :flags (start-dead) :binding 10)
+    (sp-item 10 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                         (sp-flt spt-num 1.0)
+                         (sp-flt spt-x (meters 4))
+                         (sp-flt spt-scale-x (meters 0.01))
+                         (sp-copy-from-other spt-scale-y -4)
+                         (sp-int spt-timer -1)
+                         (sp-cpuinfo-flags bit3 bit14)
+                         (sp-func spt-func 'sparticle-track-root-prim)
+                         )
+           )
+
+;; failed to figure out what this is:
+(defpart 3 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                         (sp-flt spt-num 6.0)
+                         (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                         (sp-rnd-flt spt-z (meters 0.3) (meters 0.15) 1.0)
+                         (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                         (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                         (sp-copy-from-other spt-scale-y -4)
+                         (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                         (sp-rnd-flt spt-g 32.0 96.0 1.0)
+                         (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                         (sp-flt spt-a 32.0)
+                         (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                         (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
+                         (sp-flt spt-vel-y (meters 0))
+                         (sp-flt spt-vel-z (meters 0))
+                         (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
+                         (sp-int spt-timer -1)
+                         (sp-cpuinfo-flags bit3 bit7 bit14)
+                         (sp-func spt-func 'eco-fadeout)
+                         (sp-int spt-next-time 10)
+                         (sp-launcher-by-id spt-next-launcher 4)
+                         )
+           )
+
+;; failed to figure out what this is:
+(defpart 4 :init-specs ((sp-flt spt-fade-a -0.21333334) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 5 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                         (sp-flt spt-num 1.0)
+                         (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                         (sp-rnd-flt spt-z (meters 0.2) (meters 0.1) 1.0)
+                         (sp-rnd-flt spt-scale-x (meters 0.8) (meters 0.4) 1.0)
+                         (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                         (sp-copy-from-other spt-scale-y -4)
+                         (sp-flt spt-r 96.0)
+                         (sp-flt spt-g 96.0)
+                         (sp-flt spt-b 192.0)
+                         (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                         (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                         (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
+                         (sp-flt spt-vel-y (meters 0))
+                         (sp-flt spt-vel-z (meters 0))
+                         (sp-rnd-flt spt-rotvel-z (degrees 269.52002) (degrees 208.99998) 1.0)
+                         (sp-int spt-timer -1)
+                         (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                         (sp-func spt-func 'eco-fadeout)
+                         (sp-int spt-next-time 10)
+                         (sp-launcher-by-id spt-next-launcher 6)
+                         )
+           )
+
+;; failed to figure out what this is:
+(defpart 6 :init-specs ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 7 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                         (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                         (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
+                         (sp-int spt-rot-x 4)
+                         (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                         (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
+                         (sp-flt spt-r 64.0)
+                         (sp-flt spt-g 64.0)
+                         (sp-flt spt-b 128.0)
+                         (sp-rnd-flt spt-a 128.0 64.0 1.0)
+                         (sp-flt spt-fade-a -1.6)
+                         (sp-int spt-timer 90)
+                         (sp-cpuinfo-flags bit2 bit3 bit14)
+                         (sp-int spt-next-time 10)
+                         (sp-launcher-by-id spt-next-launcher 146)
+                         )
+           )
+
+;; failed to figure out what this is:
+(defpart 8 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                         (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                         (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
+                         (sp-int spt-rot-x 4)
+                         (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                         (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
+                         (sp-flt spt-r 64.0)
+                         (sp-flt spt-g 64.0)
+                         (sp-flt spt-b 128.0)
+                         (sp-rnd-flt spt-a 128.0 64.0 1.0)
+                         (sp-flt spt-fade-a -1.6)
+                         (sp-int spt-timer 90)
+                         (sp-cpuinfo-flags bit2 bit3 bit14)
+                         (sp-int spt-next-time 10)
+                         (sp-launcher-by-id spt-next-launcher 146)
+                         )
+           )
+
+;; failed to figure out what this is:
+(defpart 9 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+                         (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                         (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
+                         (sp-int spt-rot-x 4)
+                         (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                         (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
+                         (sp-flt spt-r 64.0)
+                         (sp-flt spt-g 64.0)
+                         (sp-flt spt-b 128.0)
+                         (sp-rnd-flt spt-a 128.0 64.0 1.0)
+                         (sp-flt spt-fade-a -1.6)
+                         (sp-int spt-timer 90)
+                         (sp-cpuinfo-flags bit2 bit3 bit14)
+                         (sp-int spt-next-time 10)
+                         (sp-launcher-by-id spt-next-launcher 146)
+                         )
+           )
+
+;; failed to figure out what this is:
+(defpart 10 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-rnd-flt spt-num 0.2 0.2 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 32.0)
+                          (sp-flt spt-g 32.0)
+                          (sp-flt spt-b 192.0)
+                          (sp-rnd-flt spt-a 96.0 64.0 1.0)
+                          (sp-int spt-timer 5)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-eco-blue-collect
+  :id 43
+  :duration 150
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 11 :flags (launch-asap) :binding 12)
+    (sp-item 12 :flags (start-dead launch-asap) :binding 13)
+    (sp-item 12 :flags (start-dead launch-asap) :binding 14)
+    (sp-item 12 :flags (start-dead launch-asap) :binding 13)
+    (sp-item 12 :flags (start-dead launch-asap) :binding 14)
+    (sp-item 12 :flags (start-dead launch-asap) :binding 147)
+    (sp-item 13 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 13 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 13 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 13 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 14 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 14 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 14 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 14 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 147 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 147 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 147 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 147 :fade-after (meters 40) :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 11 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-flt spt-scale-x (meters 4))
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 96.0)
+                          (sp-flt spt-g 96.0)
+                          (sp-flt spt-b 192.0)
+                          (sp-flt spt-a 64.0)
+                          (sp-flt spt-fade-a -3.2)
+                          (sp-int spt-timer 150)
+                          (sp-cpuinfo-flags bit3 bit14)
+                          (sp-func spt-func 'part-tracker-track-root)
+                          (sp-int spt-next-time 15)
+                          (sp-launcher-by-id spt-next-launcher 148)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 12 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                          (sp-flt spt-num 5.0)
+                          (sp-rnd-flt spt-y (meters -4) (meters 16) 1.0)
+                          (sp-flt spt-z (meters 0.08))
+                          (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.5) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 64.0)
+                          (sp-flt spt-g 64.0)
+                          (sp-flt spt-b 128.0)
+                          (sp-flt spt-a 127.0)
+                          (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                          (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
+                          (sp-flt spt-vel-y (meters 0))
+                          (sp-flt spt-vel-z (meters 0.08))
+                          (sp-flt spt-accel-z -21.845333)
+                          (sp-int spt-timer 150)
+                          (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 13 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
+                          (sp-int spt-rot-x 4)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
+                          (sp-flt spt-r 64.0)
+                          (sp-flt spt-g 64.0)
+                          (sp-flt spt-b 128.0)
+                          (sp-rnd-flt spt-a 128.0 64.0 1.0)
+                          (sp-flt spt-fade-a -1.4)
+                          (sp-int spt-timer 90)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          (sp-int spt-next-time 10)
+                          (sp-launcher-by-id spt-next-launcher 146)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 14 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
+                          (sp-int spt-rot-x 4)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
+                          (sp-flt spt-r 64.0)
+                          (sp-flt spt-g 64.0)
+                          (sp-flt spt-b 128.0)
+                          (sp-rnd-flt spt-a 128.0 64.0 1.0)
+                          (sp-flt spt-fade-a -1.4)
+                          (sp-int spt-timer 90)
+                          (sp-cpuinfo-flags bit2 bit3 bit14)
+                          (sp-int spt-next-time 10)
+                          (sp-launcher-by-id spt-next-launcher 146)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 147 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 1) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.1) 1.0)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 128.0 64.0 1.0)
+                           (sp-flt spt-fade-a -1.4)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 146)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-part-vent-blue-active
+  :id 44
+  :bounds (static-bspherem 0 5 0 5)
+  :parts
+  ((sp-item 149 :fade-after (meters 140) :falloff-to (meters 140) :binding 156)
+    (sp-item 149 :fade-after (meters 140) :falloff-to (meters 140) :binding 155)
+    (sp-item 149 :fade-after (meters 140) :falloff-to (meters 140) :binding 154)
+    (sp-item 150)
+    (sp-item 151 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 152 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 153 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 154 :fade-after (meters 30) :falloff-to (meters 30) :flags (start-dead))
+    (sp-item 155 :fade-after (meters 60) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 156 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 154 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
+    (sp-item 155 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 156 :fade-after (meters 110) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 154 :fade-after (meters 120) :falloff-to (meters 120) :flags (start-dead))
+    (sp-item 155 :fade-after (meters 120) :falloff-to (meters 120) :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-part-vent-blue-inactive
+  :id 45
+  :bounds (static-bspherem 0 5 0 5)
+  :parts
+  ((sp-item 149 :fade-after (meters 100)) (sp-item 150))
+  )
+
+;; failed to figure out what this is:
+(defpart 150 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                           (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 32.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+                           (sp-flt spt-fade-a -0.2)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 149 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-rnd-flt spt-num 0.05 0.1 1.0)
+                           (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 156 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.4)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 146)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 155 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.4)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 146)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 154 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.4)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 146)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 151 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                           (sp-rnd-flt spt-num 0.1 0.5 1.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.4)
+                           (sp-int spt-timer 91)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 146)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 152 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                           (sp-rnd-flt spt-num 0.2 0.4 1.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.4)
+                           (sp-int spt-timer 91)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 146)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 153 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+                           (sp-rnd-flt spt-num 0.3 0.1 1.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.4)
+                           (sp-int spt-timer 91)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 146)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 146 :init-specs ((sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-fade-r -1.0)
+                           (sp-flt spt-fade-g -1.0)
+                           (sp-flt spt-fade-a -2.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-eco-red
+  :id 48
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 160 :flags (launch-asap) :binding 161)
+    (sp-item 161 :flags (start-dead launch-asap) :binding 162)
+    (sp-item 161 :flags (start-dead launch-asap) :binding 162)
+    (sp-item 161 :flags (start-dead launch-asap) :binding 162)
+    (sp-item 161 :flags (start-dead launch-asap) :binding 162)
+    (sp-item 161 :flags (start-dead launch-asap) :binding 162)
+    (sp-item 161 :flags (start-dead launch-asap) :binding 162)
+    (sp-item 162 :flags (start-dead launch-asap) :binding 163)
+    (sp-item 162 :flags (start-dead launch-asap) :binding 163)
+    (sp-item 162 :flags (start-dead launch-asap) :binding 163)
+    (sp-item 163 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 164)
+    (sp-item 163 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 164)
+    (sp-item 163 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 164)
+    (sp-item 164 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 164 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 164 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 160 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 4))
+                           (sp-flt spt-scale-x (meters 0.01))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root-prim)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 161 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.15) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 165)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 165 :init-specs ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 162 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.25) (meters 0.1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 166)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 166 :init-specs ((sp-flt spt-fade-a -0.21333334) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 163 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.07) (meters 0.03) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-flt spt-vel-x (meters 0.11259259))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 166)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 164 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00038095238))
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -0.01904762)
+                           (sp-rnd-flt spt-accel-y 0.40960002 0.6144 1.0)
+                           (sp-int-plain-rnd spt-timer 30 149 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 240)
+                           (sp-launcher-by-id spt-next-launcher 167)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 167 :init-specs ((sp-flt spt-fade-g 0.0)))
+
+;; failed to figure out what this is:
+(defpartgroup group-eco-red-collect
+  :id 49
+  :duration 150
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 168 :flags (launch-asap) :binding 169)
+    (sp-item 169 :flags (start-dead launch-asap) :binding 170)
+    (sp-item 169 :flags (start-dead launch-asap) :binding 170)
+    (sp-item 169 :flags (start-dead launch-asap) :binding 170)
+    (sp-item 169 :flags (start-dead launch-asap) :binding 170)
+    (sp-item 169 :flags (start-dead launch-asap) :binding 170)
+    (sp-item 170 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 170 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 170 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 170 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 170 :fade-after (meters 40) :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 168 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 4))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -3.2)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           (sp-func spt-func 'part-tracker-track-root)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 148)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 169 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 5.0)
+                           (sp-rnd-flt spt-y (meters -4) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.08))
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0.08))
+                           (sp-flt spt-accel-z -21.845333)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 170 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.005555555))
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -2.0)
+                           (sp-flt spt-fade-a -0.22857143)
+                           (sp-rnd-flt spt-accel-y 0.40960002 0.6144 1.0)
+                           (sp-int spt-timer 54)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 240)
+                           (sp-launcher-by-id spt-next-launcher 171)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-part-vent-red-active
+  :id 50
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 172 :fade-after (meters 30) :period 330 :length 5 :binding 173)
+    (sp-item 172 :fade-after (meters 60) :period 736 :length 5 :binding 173)
+    (sp-item 172 :fade-after (meters 90) :period 936 :length 5 :binding 173)
+    (sp-item 172 :fade-after (meters 130) :period 528 :length 5 :binding 173)
+    (sp-item 172 :fade-after (meters 170) :period 801 :length 5 :binding 173)
+    (sp-item 173 :flags (start-dead launch-asap) :binding 174)
+    (sp-item 173 :flags (start-dead launch-asap) :binding 174)
+    (sp-item 173 :flags (start-dead launch-asap) :binding 174)
+    (sp-item 173 :flags (start-dead launch-asap) :binding 174)
+    (sp-item 173 :flags (start-dead launch-asap) :binding 174)
+    (sp-item 173 :flags (start-dead launch-asap) :binding 174)
+    (sp-item 173 :flags (start-dead launch-asap) :binding 174)
+    (sp-item 173 :flags (start-dead launch-asap) :binding 174)
+    (sp-item 174 :flags (start-dead launch-asap) :binding 175)
+    (sp-item 174 :flags (start-dead launch-asap) :binding 175)
+    (sp-item 174 :flags (start-dead launch-asap) :binding 175)
+    (sp-item 174 :flags (start-dead launch-asap) :binding 175)
+    (sp-item 174 :flags (start-dead launch-asap) :binding 175)
+    (sp-item 174 :flags (start-dead launch-asap) :binding 175)
+    (sp-item 174 :flags (start-dead launch-asap) :binding 175)
+    (sp-item 174 :flags (start-dead launch-asap) :binding 175)
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 50) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 70) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 175 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 176 :fade-after (meters 140) :falloff-to (meters 140))
+    (sp-item 177)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-part-vent-red-inactive
+  :id 51
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 176 :fade-after (meters 140) :falloff-to (meters 140)) (sp-item 177))
+  )
+
+;; failed to figure out what this is:
+(defpart 177 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.6 0.6 1.0)
+                           (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.9) (meters 1.9) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 176 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-rnd-flt spt-num 0.1 0.3 1.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.1) 1.0)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 172 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 1.5) 1.0)
+                           (sp-flt spt-scale-x (meters 0.01))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-a 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 173 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.5))
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
+                           (sp-flt spt-fade-a -0.28444445)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 174 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.25) (meters 0.1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 175 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.0023809525))
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -0.07619048)
+                           (sp-rnd-flt spt-accel-y 0.40960002 0.6144 1.0)
+                           (sp-int-plain-rnd spt-timer 30 149 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 240)
+                           (sp-launcher-by-id spt-next-launcher 171)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 171 :init-specs ((sp-flt spt-fade-g 0.0)))
+
+;; failed to figure out what this is:
+(defpartgroup group-part-vent-yellow-active
+  :id 52
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 178 :fade-after (meters 40) :period 330 :length 5 :binding 179)
+    (sp-item 178 :fade-after (meters 60) :period 736 :length 5 :binding 179)
+    (sp-item 178 :fade-after (meters 80) :period 936 :length 5 :binding 179)
+    (sp-item 178 :fade-after (meters 100) :period 528 :length 5 :binding 179)
+    (sp-item 178 :fade-after (meters 130) :period 801 :length 5 :binding 179)
+    (sp-item 179 :flags (start-dead launch-asap) :binding 180)
+    (sp-item 179 :flags (start-dead launch-asap) :binding 180)
+    (sp-item 179 :flags (start-dead launch-asap) :binding 180)
+    (sp-item 179 :flags (start-dead launch-asap) :binding 180)
+    (sp-item 179 :flags (start-dead launch-asap) :binding 180)
+    (sp-item 179 :flags (start-dead launch-asap) :binding 180)
+    (sp-item 179 :flags (start-dead launch-asap) :binding 180)
+    (sp-item 179 :flags (start-dead launch-asap) :binding 180)
+    (sp-item 180 :flags (start-dead launch-asap) :binding 181)
+    (sp-item 180 :flags (start-dead launch-asap) :binding 181)
+    (sp-item 180 :flags (start-dead launch-asap) :binding 181)
+    (sp-item 180 :flags (start-dead launch-asap) :binding 181)
+    (sp-item 180 :flags (start-dead launch-asap) :binding 181)
+    (sp-item 180 :flags (start-dead launch-asap) :binding 181)
+    (sp-item 180 :flags (start-dead launch-asap) :binding 181)
+    (sp-item 180 :flags (start-dead launch-asap) :binding 181)
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 70) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 181 :fade-after (meters 90) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 182 :fade-after (meters 140) :falloff-to (meters 140))
+    (sp-item 183)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-part-vent-yellow-inactive
+  :id 53
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 182 :fade-after (meters 140) :falloff-to (meters 140)) (sp-item 183))
+  )
+
+;; failed to figure out what this is:
+(defpart 183 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.6 0.6 1.0)
+                           (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.9) (meters 1.9) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 92.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 32.0 92.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 182 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-rnd-flt spt-num 0.1 0.3 1.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.1) 1.0)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 178 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 1.5) 1.0)
+                           (sp-flt spt-scale-x (meters 0.01))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-a 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-int spt-timer 375)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 179 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-y (meters 0))
+                           (sp-rnd-flt spt-z (meters 0.2) (meters 0.2) 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-vel-x (meters 0.10666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-flt spt-fade-a -0.34133333)
+                           (sp-int spt-timer 375)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 180 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.2))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-vel-x (meters 0.11259259))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-flt spt-fade-a -0.34133333)
+                           (sp-int spt-timer 375)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 181 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.5 2.0 1.0)
+                           (sp-flt spt-y (meters -0.05))
+                           (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.0016666667))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -0.024242423)
+                           (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
+                           (sp-flt spt-friction 0.93)
+                           (sp-int-plain-rnd spt-timer 30 209 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 190)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.05))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 190 :init-specs ((sp-flt spt-fade-r 0.0)))
+
+;; failed to figure out what this is:
+(defpartgroup group-eco-yellow
+  :id 56
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 191 :flags (launch-asap) :binding 192)
+    (sp-item 192 :flags (start-dead launch-asap) :binding 193)
+    (sp-item 192 :flags (start-dead launch-asap) :binding 193)
+    (sp-item 192 :flags (start-dead launch-asap) :binding 193)
+    (sp-item 192 :flags (start-dead launch-asap) :binding 193)
+    (sp-item 192 :flags (start-dead launch-asap) :binding 193)
+    (sp-item 192 :flags (start-dead launch-asap) :binding 193)
+    (sp-item 193 :flags (start-dead launch-asap) :binding 194)
+    (sp-item 193 :flags (start-dead launch-asap) :binding 194)
+    (sp-item 193 :flags (start-dead launch-asap) :binding 194)
+    (sp-item 193 :flags (start-dead launch-asap) :binding 194)
+    (sp-item 194 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 195)
+    (sp-item 194 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 195)
+    (sp-item 194 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 195)
+    (sp-item 194 :fade-after (meters 100) :flags (start-dead launch-asap) :binding 195)
+    (sp-item 195 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 195 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 195 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 195 :fade-after (meters 90) :falloff-to (meters 110) :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 191 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 4))
+                           (sp-flt spt-scale-x (meters 0.01))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root-prim)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 192 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 5.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.15) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 192.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 16.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 196)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 196 :init-specs ((sp-flt spt-fade-a -0.10666667) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 193 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.75) (meters 0.1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.0148148155) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 197)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 197 :init-specs ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 194 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.12) (meters 0.03) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-flt spt-vel-x (meters 0.11259259))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 197)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 195 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.0006190476))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -0.01904762)
+                           (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+                           (sp-int-plain-rnd spt-timer 30 299 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 240)
+                           (sp-launcher-by-id spt-next-launcher 198)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 198 :init-specs ((sp-flt spt-fade-g 0.0)))
+
+;; failed to figure out what this is:
+(defpartgroup group-eco-yellow-collect
+  :id 57
+  :duration 150
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 199 :flags (launch-asap) :binding 200)
+    (sp-item 200 :flags (start-dead launch-asap) :binding 201)
+    (sp-item 200 :flags (start-dead launch-asap) :binding 201)
+    (sp-item 200 :flags (start-dead launch-asap) :binding 201)
+    (sp-item 200 :flags (start-dead launch-asap) :binding 201)
+    (sp-item 200 :flags (start-dead launch-asap) :binding 201)
+    (sp-item 201 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 201 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 201 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 201 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 201 :fade-after (meters 40) :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 199 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 4))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 192.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-fade-a -3.2)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           (sp-func spt-func 'part-tracker-track-root)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 148)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 200 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 5.0)
+                           (sp-rnd-flt spt-y (meters -4) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.08))
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0.08))
+                           (sp-flt spt-accel-z -21.845333)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 201 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.0006190476))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -0.01904762)
+                           (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+                           (sp-int-plain-rnd spt-timer 30 299 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 240)
+                           (sp-launcher-by-id spt-next-launcher 198)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-eco-green
+  :id 58
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 202 :flags (launch-asap) :binding 203)
+    (sp-item 203 :flags (start-dead launch-asap) :binding 204)
+    (sp-item 203 :flags (start-dead launch-asap) :binding 204)
+    (sp-item 203 :flags (start-dead launch-asap) :binding 204)
+    (sp-item 203 :flags (start-dead launch-asap) :binding 204)
+    (sp-item 203 :flags (start-dead launch-asap) :binding 204)
+    (sp-item 203 :flags (start-dead launch-asap) :binding 204)
+    (sp-item 203 :flags (start-dead launch-asap) :binding 204)
+    (sp-item 204 :fade-after (meters 90) :flags (start-dead launch-asap) :binding 205)
+    (sp-item 204 :fade-after (meters 90) :flags (start-dead launch-asap) :binding 205)
+    (sp-item 204 :fade-after (meters 90) :flags (start-dead launch-asap) :binding 205)
+    (sp-item 204 :fade-after (meters 90) :flags (start-dead launch-asap) :binding 205)
+    (sp-item 204 :fade-after (meters 90) :flags (start-dead launch-asap) :binding 205)
+    (sp-item 205 :fade-after (meters 40) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 205 :fade-after (meters 40) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 205 :fade-after (meters 40) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 205 :fade-after (meters 40) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 205 :fade-after (meters 40) :falloff-to (meters 60) :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 202 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 4))
+                           (sp-flt spt-scale-x (meters 0.01))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-flt spt-g 0.0)
+                           (sp-flt spt-a 1.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root-prim)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 203 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.3) (meters 0.25) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0148148155) (meters 0.0044444446) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 206)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 206 :init-specs ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 204 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.3))
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 64.0 1.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.0148148155) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 207)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 207 :init-specs ((sp-flt spt-fade-a -0.42666668) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 205 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 0.25)
+                           (sp-flt spt-y (meters -0.05))
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 48.0)
+                           (sp-flt spt-scalevel-x (meters -0.00075757573))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -2.8333333)
+                           (sp-flt spt-accel-y -0.6144)
+                           (sp-int-plain-rnd spt-timer 30 299 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 208)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 208 :init-specs ((sp-flt spt-fade-r 0.0)))
+
+;; failed to figure out what this is:
+(defpartgroup group-eco-green-pill
+  :id 59
+  :bounds (static-bspherem 0 0 0 0.4)
+  :parts
+  ((sp-item 209 :flags (launch-asap) :binding 210)
+    (sp-item 210 :flags (start-dead launch-asap) :binding 211)
+    (sp-item 211 :flags (start-dead launch-asap) :binding 212)
+    (sp-item 212 :flags (start-dead launch-asap) :binding 213)
+    (sp-item 212 :flags (start-dead launch-asap))
+    (sp-item 212 :flags (start-dead launch-asap))
+    (sp-item 212 :flags (start-dead launch-asap))
+    (sp-item 213 :fade-after (meters 40) :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 209 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.01))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           (sp-func spt-func 'eco-track-root-prim-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 214)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 210 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.2) (meters 0.1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.026666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.0014814815))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-track-root-prim-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 214)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 214 :init-specs ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 211 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-track-root-prim-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 214)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 212 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.08))
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.05) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.10666667))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           (sp-func spt-func 'eco-fadeout)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 215)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 215 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-a -0.8466667) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 213 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 0.25)
+                           (sp-flt spt-y (meters -0.05))
+                           (sp-flt spt-scale-x (meters 0.15))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-flt spt-scalevel-x (meters -0.00039393938))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -2.8333333)
+                           (sp-flt spt-accel-y -0.40960002)
+                           (sp-int-plain-rnd spt-timer 30 299 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 208)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-eco-green-pill-collect
+  :id 60
+  :duration 150
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 216 :flags (launch-asap) :binding 217)
+    (sp-item 217 :flags (start-dead launch-asap) :binding 218)
+    (sp-item 217 :flags (start-dead launch-asap) :binding 218)
+    (sp-item 217 :flags (start-dead launch-asap) :binding 218)
+    (sp-item 217 :flags (start-dead launch-asap) :binding 218)
+    (sp-item 217 :flags (start-dead launch-asap) :binding 218)
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-eco-green-collect
+  :id 61
+  :duration 150
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 216 :flags (launch-asap) :binding 219)
+    (sp-item 219 :flags (start-dead launch-asap) :binding 218)
+    (sp-item 219 :flags (start-dead launch-asap) :binding 218)
+    (sp-item 219 :flags (start-dead launch-asap) :binding 218)
+    (sp-item 219 :flags (start-dead launch-asap) :binding 218)
+    (sp-item 219 :flags (start-dead launch-asap) :binding 218)
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 218 :fade-after (meters 40) :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 216 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 4))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-fade-a -3.2)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           (sp-func spt-func 'part-tracker-track-root)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 148)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 148 :init-specs ((sp-flt spt-scale-x (meters 0.1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-fade-a 0.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 219 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 5.0)
+                           (sp-rnd-flt spt-y (meters -4) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.08))
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.00048828125) 145.63556)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0.08))
+                           (sp-flt spt-accel-z -21.845333)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 217 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters -4) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.08))
+                           (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.05) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0.04))
+                           (sp-flt spt-accel-z -10.922667)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 220 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters -0.05))
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-flt spt-scalevel-x (meters -0.00075757573))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -2.8333333)
+                           (sp-flt spt-accel-y -0.40960002)
+                           (sp-int-plain-rnd spt-timer 30 299 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 221)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 218 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters -0.05))
+                           (sp-flt spt-scale-x (meters 0.2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-flt spt-scalevel-x (meters -0.0004545455))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -2.8333333)
+                           (sp-flt spt-accel-y -0.40960002)
+                           (sp-int-plain-rnd spt-timer 30 299 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 221)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-part-vent-green-active
+  :id 62
+  :bounds (static-bspherem 0 5 0 5)
+  :parts
+  ((sp-item 222 :fade-after (meters 80) :falloff-to (meters 80) :period 48 :length 5 :binding 223)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 223 :fade-after (meters 80) :flags (start-dead launch-asap) :binding 224)
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 224 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 225 :fade-after (meters 100))
+    (sp-item 226)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 226 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.6 0.6 1.0)
+                           (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.9) (meters 1.9) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 92.0 32.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.1) 1 36.40889)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 225 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-rnd-flt spt-num 0.1 0.3 1.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.1) 1.0)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 222 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                           (sp-flt spt-scale-x (meters 0.01))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
+                           (sp-int spt-timer 750)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 223 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.2) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.053333335) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-flt spt-fade-r -0.2)
+                           (sp-int-plain-rnd spt-timer 600 149 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           (sp-int-plain-rnd spt-next-time 450 149 1)
+                           (sp-launcher-by-id spt-next-launcher 227)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 227 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-a -0.8466667) (sp-int spt-timer 150)))
+
+;; failed to figure out what this is:
+(defpart 224 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-flt spt-scalevel-x (meters -0.0006060606))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -2.8333333)
+                           (sp-flt spt-accel-y -0.81920004)
+                           (sp-int-plain-rnd spt-timer 30 299 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 208)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-fuel-cell-starburst
+  :id 63
+  :bounds (static-bspherem 0 0.5 0 1.5)
+  :parts
+  ((sp-item 228 :fade-after (meters 35))
+    (sp-item 229 :fade-after (meters 20))
+    (sp-item 230 :flags (bit1 launch-asap))
+    (sp-item 231 :flags (bit1 launch-asap))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 228 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.8) 1.0)
+                           (sp-rnd-int spt-r 0 1 255.0)
+                           (sp-rnd-int spt-g 0 1 255.0)
+                           (sp-rnd-int spt-b 0 1 255.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 0.35555556)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root-prim)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 232)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 232 :init-specs ((sp-flt spt-fade-a -0.53333336)))
+
+;; failed to figure out what this is:
+(defpart 229 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.06)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.2))
+                           (sp-rnd-int spt-r 0 1 255.0)
+                           (sp-rnd-int spt-g 0 1 255.0)
+                           (sp-rnd-int spt-b 0 1 255.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-fade-a 0.32)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root-prim)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 232)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 230 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 3.5))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-scale-y (meters 3))
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 0.0 128.0 1.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-rotvel-z (degrees -0.4))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root-prim)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 231 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 4))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-scale-y (meters 3.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-rotvel-z (degrees 0.3))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root-prim)
+                           )
+             )
 
 ;; definition for function sparticle-track-root-money
 ;; INFO: Return type mismatch int vs none.
@@ -2564,582 +2000,448 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 233) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 0.35555556)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 234)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 233 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 0.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 0.35555556)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 234)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 234)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 234 :init-specs ((sp-flt spt-fade-a -0.53333336)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 235) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.06)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.2))
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 234)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 235 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.06)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.2))
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 0.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-fade-a 0.32)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 234)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 236) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.5))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 2.0))
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-flt spt-rotvel-z (degrees -0.4))
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-func spt-func 'sparticle-track-root-money)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 236 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 2.5))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-scale-y (meters 2))
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 0.0 128.0 1.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-flt spt-rotvel-z (degrees -0.4))
+                           (sp-int spt-timer 3600)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-func spt-func 'sparticle-track-root-money)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 237) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 2.5))
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-flt spt-rotvel-z (degrees 0.3))
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-func spt-func 'sparticle-track-root-money)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 237 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 3))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-scale-y (meters 2.5))
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 0.0 128.0 1.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-flt spt-rotvel-z (degrees 0.3))
+                           (sp-int spt-timer 3600)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-func spt-func 'sparticle-track-root-money)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 64) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :name "group-money-starburst"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 238))
-                                      :bounds
-                                      (new 'static 'sphere :y 2048.0 :w 6144.0)
-                                      )
-      )
+(defpartgroup group-money-starburst :id 64 :bounds (static-bspherem 0 0.5 0 1.5) :parts ((sp-item 238)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 65)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-buzzer-effect"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 239 :flags (is-3d)) (sp-item 240 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-buzzer-effect
+  :id 65
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 239 :flags (is-3d)) (sp-item 240 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 239) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1a :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-x 0.0 12743.111 1.0)
-                                   (sp-flt spt-rot-y (degrees 0.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-flt spt-fade-a -1.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-launchrot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 239 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1a :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-x 0.0 12743.111 1.0)
+                           (sp-flt spt-rot-y (degrees 0.0))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-flt spt-fade-a -1.0)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -180.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-launchrot-y (degrees -180.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 240) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1a :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-x 20024.889 12743.111 1.0)
-                                   (sp-flt spt-rot-y (degrees 0.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-flt spt-fade-a -1.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-launchrot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 240 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1a :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-x 20024.889 12743.111 1.0)
+                           (sp-flt spt-rot-y (degrees 0.0))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-flt spt-fade-a -1.0)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -180.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-launchrot-y (degrees -180.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 66)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x4b0
-        :flags (sp-group-flag use-local-clock)
-        :name "group-green-collect"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 241) (sp-item 242) (sp-item 243))
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-green-collect
+  :id 66
+  :duration 5
+  :linger-duration 1200
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 241) (sp-item 242) (sp-item 243))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 241) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int-plain-rnd spt-next-time 5 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 244)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 241 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 16.0)
+                           (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int-plain-rnd spt-next-time 5 19 1)
+                           (sp-launcher-by-id spt-next-launcher 244)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 242) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-rnd-flt spt-scale-x (meters 8.0) (meters 2.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int-plain-rnd spt-next-time 5 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 244)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 242 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-rnd-flt spt-scale-x (meters 8) (meters 2) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int-plain-rnd spt-next-time 5 19 1)
+                           (sp-launcher-by-id spt-next-launcher 244)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 243) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 6.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-scalevel-x (meters 0.1))
-                                   (sp-flt spt-rotvel-z (degrees -0.8))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int spt-next-time 60)
-                                   (sp-launcher-by-id spt-next-launcher 245)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 243 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 6))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-scalevel-x (meters 0.1))
+                           (sp-flt spt-rotvel-z (degrees -0.8))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int spt-next-time 60)
+                           (sp-launcher-by-id spt-next-launcher 245)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 67)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x4b0
-        :flags (sp-group-flag use-local-clock)
-        :name "group-blue-collect"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 246) (sp-item 247) (sp-item 248))
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-blue-collect
+  :id 67
+  :duration 5
+  :linger-duration 1200
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 246) (sp-item 247) (sp-item 248))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 246) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 60.0 20.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int-plain-rnd spt-next-time 5 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 244)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 246 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 16.0)
+                           (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 60.0 20.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int-plain-rnd spt-next-time 5 19 1)
+                           (sp-launcher-by-id spt-next-launcher 244)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 247) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-rnd-flt spt-scale-x (meters 8.0) (meters 2.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 60.0 20.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int-plain-rnd spt-next-time 5 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 244)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 247 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-rnd-flt spt-scale-x (meters 8) (meters 2) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 60.0 20.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int-plain-rnd spt-next-time 5 19 1)
+                           (sp-launcher-by-id spt-next-launcher 244)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 248) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 6.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 60.0 20.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-scalevel-x (meters 0.1))
-                                   (sp-flt spt-rotvel-z (degrees -0.8))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int spt-next-time 60)
-                                   (sp-launcher-by-id spt-next-launcher 245)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 248 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 6))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 60.0 20.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-scalevel-x (meters 0.1))
+                           (sp-flt spt-rotvel-z (degrees -0.8))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int spt-next-time 60)
+                           (sp-launcher-by-id spt-next-launcher 245)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 68)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x4b0
-        :flags (sp-group-flag use-local-clock)
-        :name "group-yellow-collect"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 249) (sp-item 250) (sp-item 251))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-yellow-collect
+  :id 68
+  :duration 5
+  :linger-duration 1200
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 249) (sp-item 250) (sp-item 251))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 249) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 192.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int-plain-rnd spt-next-time 5 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 244)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 249 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 16.0)
+                           (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 192.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int-plain-rnd spt-next-time 5 19 1)
+                           (sp-launcher-by-id spt-next-launcher 244)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 244)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.15238096) (sp-end))
-        )
-      )
+(defpart 244 :init-specs ((sp-flt spt-fade-a -0.15238096)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 250) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-rnd-flt spt-scale-x (meters 8.0) (meters 2.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 192.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int-plain-rnd spt-next-time 5 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 244)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 250 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-rnd-flt spt-scale-x (meters 8) (meters 2) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 192.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int-plain-rnd spt-next-time 5 19 1)
+                           (sp-launcher-by-id spt-next-launcher 244)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 251) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 6.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 192.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-scalevel-x (meters 0.1))
-                                   (sp-flt spt-rotvel-z (degrees -0.8))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int spt-next-time 60)
-                                   (sp-launcher-by-id spt-next-launcher 245)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 251 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 6))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 192.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-scalevel-x (meters 0.1))
+                           (sp-flt spt-rotvel-z (degrees -0.8))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int spt-next-time 60)
+                           (sp-launcher-by-id spt-next-launcher 245)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 245)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-scalevel-x (meters -0.025))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 245 :init-specs ((sp-flt spt-scalevel-x (meters -0.025)) (sp-copy-from-other spt-scalevel-y -4)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 69)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x4b0
-        :flags (sp-group-flag use-local-clock)
-        :name "group-red-collect"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 252) (sp-item 253) (sp-item 254))
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-red-collect
+  :id 69
+  :duration 5
+  :linger-duration 1200
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 252) (sp-item 253) (sp-item 254))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 252) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int-plain-rnd spt-next-time 5 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 244)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 252 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 16.0)
+                           (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int-plain-rnd spt-next-time 5 19 1)
+                           (sp-launcher-by-id spt-next-launcher 244)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 253) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-rnd-flt spt-scale-x (meters 8.0) (meters 2.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int-plain-rnd spt-next-time 5 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 244)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 253 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-rnd-flt spt-scale-x (meters 8) (meters 2) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int-plain-rnd spt-next-time 5 19 1)
+                           (sp-launcher-by-id spt-next-launcher 244)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 254) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 6.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-scalevel-x (meters 0.1))
-                                   (sp-flt spt-rotvel-z (degrees -0.8))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int spt-next-time 60)
-                                   (sp-launcher-by-id spt-next-launcher 245)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 254 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 6))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-scalevel-x (meters 0.1))
+                           (sp-flt spt-rotvel-z (degrees -0.8))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int spt-next-time 60)
+                           (sp-launcher-by-id spt-next-launcher 245)
+                           )
+             )
diff --git a/test/decompiler/reference/engine/game/crates_REF.gc b/test/decompiler/reference/engine/game/crates_REF.gc
index 9f35eddf33..ff993b9533 100644
--- a/test/decompiler/reference/engine/game/crates_REF.gc
+++ b/test/decompiler/reference/engine/game/crates_REF.gc
@@ -144,499 +144,386 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 281) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-flt spt-accel-y 2.7306666)
-                                   (sp-int spt-timer 120)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 30 59 1)
-                                   (sp-launcher-by-id spt-next-launcher 282)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 281 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 16.0)
+                           (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-flt spt-accel-y 2.7306666)
+                           (sp-int spt-timer 120)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int-plain-rnd spt-next-time 30 59 1)
+                           (sp-launcher-by-id spt-next-launcher 282)
+                           (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 282)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 282 :init-specs ((sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 283) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-flt spt-scale-x (meters 6.0))
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1.0) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 30)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 284)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 283 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 4.0)
+                           (sp-flt spt-y (meters 0.75))
+                           (sp-flt spt-scale-x (meters 6))
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 30)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 284)
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 284)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.1333334) (sp-end))
-        )
-      )
+(defpart 284 :init-specs ((sp-flt spt-fade-a -2.1333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 285) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-flt spt-scale-x (meters 8.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 28.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 285 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-flt spt-scale-x (meters 8))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-flt spt-a 28.0)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 286) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
-                                   (sp-flt spt-num 5.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.3))
-                                   (sp-flt spt-r 160.0)
-                                   (sp-flt spt-g 160.0)
-                                   (sp-flt spt-b 160.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-rotvel-x (degrees 1.2))
-                                   (sp-flt spt-rotvel-y (degrees 2.4))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
-                                   (sp-flt spt-accel-y -13.653334)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 287)
-                                   (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 286 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
+                           (sp-flt spt-num 5.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.3))
+                           (sp-flt spt-r 160.0)
+                           (sp-flt spt-g 160.0)
+                           (sp-flt spt-b 160.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+                           (sp-flt spt-rotvel-x (degrees 1.2))
+                           (sp-flt spt-rotvel-y (degrees 2.4))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
+                           (sp-flt spt-accel-y -13.653334)
+                           (sp-flt spt-friction 0.97)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 287)
+                           (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 287)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -3.4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 287 :init-specs ((sp-flt spt-scalevel-x (meters -0.0033333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -3.4)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 288) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
-                                   (sp-flt spt-num 4.5)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.3))
-                                   (sp-flt spt-r 100.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 100.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-rotvel-x (degrees 1.2))
-                                   (sp-flt spt-rotvel-y (degrees 2.4))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
-                                   (sp-flt spt-accel-y -13.653334)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 287)
-                                   (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 288 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
+                           (sp-flt spt-num 4.5)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.3))
+                           (sp-flt spt-r 100.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 100.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+                           (sp-flt spt-rotvel-x (degrees 1.2))
+                           (sp-flt spt-rotvel-y (degrees 2.4))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
+                           (sp-flt spt-accel-y -13.653334)
+                           (sp-flt spt-friction 0.97)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 287)
+                           (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 71) (new 'static 'sparticle-launch-group
-                                      :length 5
-                                      :duration #x5
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag use-local-clock)
-                                      :name "group-crate-explode"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 5
-                                        (sp-item 281)
-                                        (sp-item 283)
-                                        (sp-item 285)
-                                        (sp-item 286)
-                                        (sp-item 288)
-                                        )
-                                      :bounds (new 'static 'sphere :w 49152.0)
-                                      )
-      )
+(defpartgroup group-crate-explode
+  :id 71
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 281) (sp-item 283) (sp-item 285) (sp-item 286) (sp-item 288))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 72) (new 'static 'sparticle-launch-group
-                                      :length 6
-                                      :duration #x5
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag use-local-clock)
-                                      :name "group-crate-steel-explode"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 6
-                                        (sp-item 281)
-                                        (sp-item 283)
-                                        (sp-item 285)
-                                        (sp-item 288)
-                                        (sp-item 288)
-                                        (sp-item 288)
-                                        )
-                                      :bounds (new 'static 'sphere :w 49152.0)
-                                      )
-      )
+(defpartgroup group-crate-steel-explode
+  :id 72
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 281) (sp-item 283) (sp-item 285) (sp-item 288) (sp-item 288) (sp-item 288))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 73)
-      (new 'static 'sparticle-launch-group
-        :length 38
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-eco-box-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 38
-          (sp-item 295 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 292 :fade-after (meters 160.0) :period 600 :length 5)
-          (sp-item 2095 :period 600 :length 5)
-          (sp-item 2096 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
-          (sp-item 2097 :period 600 :length 20)
-          (sp-item 2098 :fade-after (meters 120.0) :falloff-to (meters 120.0) :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-dark-eco-box-explosion
+  :id 73
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 295 :fade-after (meters 100) :period 600 :length 5 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 292 :fade-after (meters 160) :period 600 :length 5)
+    (sp-item 2095 :period 600 :length 5)
+    (sp-item 2096 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
+    (sp-item 2097 :period 600 :length 20)
+    (sp-item 2098 :fade-after (meters 120) :falloff-to (meters 120) :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2096) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2099)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2096 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2099)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2099)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2099
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2098) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-flt spt-scale-x (meters 0.2))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 8.0))
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.42666668))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2098 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 3.0)
+                            (sp-flt spt-scale-x (meters 0.2))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 8))
+                            (sp-rnd-flt spt-r 64.0 192.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.42666668))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2095) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -1.7454545)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2095 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 16))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 192.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-flt spt-fade-a -1.7454545)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2097) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2097 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 295) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-accel-y -1.3653333)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 295 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 16.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                           (sp-flt spt-accel-y -1.3653333)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 296) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 1228.8 1228.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.000909091))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.26666668)
-                                   (sp-flt spt-fade-a -0.19393939)
-                                   (sp-int-plain-rnd spt-timer 90 149 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 296 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.3) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.000909091))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.26666668)
+                           (sp-flt spt-fade-a -0.19393939)
+                           (sp-int-plain-rnd spt-timer 90 149 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 297) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0006190476))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.01904762)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 240)
-                                   (sp-launcher-by-id spt-next-launcher 198)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 297 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.0006190476))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.01904762)
+                           (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+                           (sp-int-plain-rnd spt-timer 30 299 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 240)
+                           (sp-launcher-by-id spt-next-launcher 198)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 292) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
-                                   (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.3))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-rnd-int spt-g 1115684864 1 32.0)
-                                   (sp-flt spt-b 32.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-rotvel-x (degrees 1.2))
-                                   (sp-flt spt-rotvel-y (degrees 2.4))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
-                                   (sp-flt spt-accel-y -13.653334)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 301)
-                                   (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 292 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
+                           (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.3))
+                           (sp-flt spt-r 128.0)
+                           (sp-rnd-int spt-g 1115684864 1 32.0)
+                           (sp-flt spt-b 32.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+                           (sp-flt spt-rotvel-x (degrees 1.2))
+                           (sp-flt spt-rotvel-y (degrees 2.4))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
+                           (sp-flt spt-accel-y -13.653334)
+                           (sp-flt spt-friction 0.97)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 301)
+                           (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 301)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -3.4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 301 :init-specs ((sp-flt spt-scalevel-x (meters -0.0033333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -3.4)
+                           )
+             )
 
 ;; definition for function crate-standard-event-handler
 (defbehavior crate-standard-event-handler crate ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
@@ -1488,44 +1375,38 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 74) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x1c2
-                                      :name "group-buzzer-crate"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 302))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
+(defpartgroup group-buzzer-crate
+  :id 74
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 302))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 302)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 302 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.16)
+                           (sp-flt spt-accel-y -1.3653333)
+                           (sp-flt spt-friction 0.95)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; definition of type crate-buzzer
 (deftype crate-buzzer (crate)
diff --git a/test/decompiler/reference/engine/game/game-save_REF.gc b/test/decompiler/reference/engine/game/game-save_REF.gc
index dfbd7303aa..55920fceb0 100644
--- a/test/decompiler/reference/engine/game/game-save_REF.gc
+++ b/test/decompiler/reference/engine/game/game-save_REF.gc
@@ -1160,36 +1160,27 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 656) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-part-save-icon"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2662))
-                                       :bounds (new 'static 'sphere :w 409600.0)
-                                       )
-      )
+(defpartgroup group-part-save-icon
+  :id 656
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 2662))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2662) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6b :page #x1cf))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2662 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6b :page #x1cf))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            )
+              )
 
 ;; definition for symbol *auto-save-info*, type mc-slot-info
 (define *auto-save-info* (new 'global 'mc-slot-info))
diff --git a/test/decompiler/reference/engine/game/generic-obs_REF.gc b/test/decompiler/reference/engine/game/generic-obs_REF.gc
index 2a130d9910..ab1c9633ca 100644
--- a/test/decompiler/reference/engine/game/generic-obs_REF.gc
+++ b/test/decompiler/reference/engine/game/generic-obs_REF.gc
@@ -1644,321 +1644,246 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 37)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-launcher"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 45 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 46 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 47 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 48 :fade-after (meters 50.0) :falloff-to (meters 80.0))
-          (sp-item 49 :fade-after (meters 70.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 20480.0)
-        )
-      )
+(defpartgroup group-beach-launcher
+  :id 37
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 45 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 46 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 47 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 48 :fade-after (meters 50) :falloff-to (meters 80))
+    (sp-item 49 :fade-after (meters 70) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 45)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-flt spt-x (meters 1.5))
-                                                     (sp-flt spt-y (meters -0.5))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2867.2)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-int spt-timer 270)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 180)
-                                                     (sp-launcher-by-id spt-next-launcher 50)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 45 :init-specs ((sp-flt spt-num 1.5)
+                          (sp-flt spt-x (meters 1.5))
+                          (sp-flt spt-y (meters -0.5))
+                          (sp-int spt-rot-x 5)
+                          (sp-flt spt-r 4096.0)
+                          (sp-flt spt-g 2867.2)
+                          (sp-flt spt-b 3276.8)
+                          (sp-flt spt-vel-y (meters 0.026666667))
+                          (sp-int spt-timer 270)
+                          (sp-cpuinfo-flags aux-list)
+                          (sp-int spt-next-time 180)
+                          (sp-launcher-by-id spt-next-launcher 50)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 50)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -4.551111) (sp-end))
-        )
-      )
+(defpart 50 :init-specs ((sp-flt spt-fade-b -4.551111)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 46) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-x (meters 0.0) (meters 1.8) 1.0)
-                                  (sp-flt spt-scale-x (meters 0.2))
-                                  (sp-flt spt-rot-x 16384.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 2.5) (meters 2.5) 1.0)
-                                  (sp-rnd-int spt-r 0 1 128.0)
-                                  (sp-rnd-flt spt-g 64.0 196.0 1.0)
-                                  (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                  (sp-flt spt-a 128.0)
-                                  (sp-flt spt-scalevel-x (meters -0.0025))
-                                  (sp-rnd-flt spt-scalevel-y (meters 0.24414062) (meters 0.48828125) 1.0)
-                                  (sp-int spt-timer 81)
-                                  (sp-cpuinfo-flags bit3)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 46 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-rnd-flt spt-x (meters 0) (meters 1.8) 1.0)
+                          (sp-flt spt-scale-x (meters 0.2))
+                          (sp-flt spt-rot-x 16384.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-scale-y (meters 2.5) (meters 2.5) 1.0)
+                          (sp-rnd-int spt-r 0 1 128.0)
+                          (sp-rnd-flt spt-g 64.0 196.0 1.0)
+                          (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                          (sp-flt spt-a 128.0)
+                          (sp-flt spt-scalevel-x (meters -0.0025))
+                          (sp-rnd-flt spt-scalevel-y (meters 0.24414062) (meters 0.48828125) 1.0)
+                          (sp-int spt-timer 81)
+                          (sp-cpuinfo-flags bit3)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 47) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 2.0)
-                                  (sp-rnd-flt spt-x (meters 1.8) (meters 1.0) 1.0)
-                                  (sp-flt spt-scale-x (meters 0.2))
-                                  (sp-flt spt-rot-x 16384.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                  (sp-rnd-int spt-r 0 1 128.0)
-                                  (sp-rnd-flt spt-g 64.0 196.0 1.0)
-                                  (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                  (sp-flt spt-a 128.0)
-                                  (sp-flt spt-scalevel-x (meters -0.0025))
-                                  (sp-rnd-flt spt-scalevel-y (meters 0.048828125) (meters 0.09765625) 1.0)
-                                  (sp-int spt-timer 81)
-                                  (sp-cpuinfo-flags bit3)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 47 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 2.0)
+                          (sp-rnd-flt spt-x (meters 1.8) (meters 1) 1.0)
+                          (sp-flt spt-scale-x (meters 0.2))
+                          (sp-flt spt-rot-x 16384.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+                          (sp-rnd-int spt-r 0 1 128.0)
+                          (sp-rnd-flt spt-g 64.0 196.0 1.0)
+                          (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                          (sp-flt spt-a 128.0)
+                          (sp-flt spt-scalevel-x (meters -0.0025))
+                          (sp-rnd-flt spt-scalevel-y (meters 0.048828125) (meters 0.09765625) 1.0)
+                          (sp-int spt-timer 81)
+                          (sp-cpuinfo-flags bit3)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 48) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 21
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                  (sp-flt spt-num 1.5)
-                                  (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
-                                  (sp-flt spt-y (meters -0.5))
-                                  (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.1) 1.0)
-                                  (sp-rnd-flt spt-r 10.0 6.0 1.0)
-                                  (sp-rnd-flt spt-g 64.0 128.0 1.0)
-                                  (sp-rnd-flt spt-b 10.0 6.0 1.0)
-                                  (sp-flt spt-a 80.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-                                  (sp-flt spt-vel-y (meters 0.0))
-                                  (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                  (sp-flt spt-fade-a -0.2)
-                                  (sp-flt spt-accel-y 6.826667)
-                                  (sp-flt spt-friction 0.996)
-                                  (sp-int-plain-rnd spt-timer 180 119 1)
-                                  (sp-cpuinfo-flags bit2)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 48 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                          (sp-flt spt-num 1.5)
+                          (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
+                          (sp-flt spt-y (meters -0.5))
+                          (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.4) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.1) 1.0)
+                          (sp-rnd-flt spt-r 10.0 6.0 1.0)
+                          (sp-rnd-flt spt-g 64.0 128.0 1.0)
+                          (sp-rnd-flt spt-b 10.0 6.0 1.0)
+                          (sp-flt spt-a 80.0)
+                          (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
+                          (sp-flt spt-vel-y (meters 0))
+                          (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+                          (sp-flt spt-fade-a -0.2)
+                          (sp-flt spt-accel-y 6.826667)
+                          (sp-flt spt-friction 0.996)
+                          (sp-int-plain-rnd spt-timer 180 119 1)
+                          (sp-cpuinfo-flags bit2)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 49) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 23
-                                  (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                  (sp-flt spt-num 0.5)
-                                  (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
-                                  (sp-flt spt-y (meters -0.5))
-                                  (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                  (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                  (sp-rnd-flt spt-b 10.0 5.0 1.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-                                  (sp-flt spt-vel-y (meters 0.0))
-                                  (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                  (sp-flt spt-fade-a 0.6)
-                                  (sp-flt spt-accel-y 6.826667)
-                                  (sp-flt spt-friction 0.996)
-                                  (sp-int spt-timer 270)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 45)
-                                  (sp-launcher-by-id spt-next-launcher 51)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 49 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 0.5)
+                          (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
+                          (sp-flt spt-y (meters -0.5))
+                          (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                          (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 10.0 5.0 1.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
+                          (sp-flt spt-vel-y (meters 0))
+                          (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+                          (sp-flt spt-fade-a 0.6)
+                          (sp-flt spt-accel-y 6.826667)
+                          (sp-flt spt-friction 0.996)
+                          (sp-int spt-timer 270)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          (sp-int spt-next-time 45)
+                          (sp-launcher-by-id spt-next-launcher 51)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 51)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.18) (sp-end))
-        )
-      )
+(defpart 51 :init-specs ((sp-flt spt-fade-a -0.18)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 38)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-jungle-launcher"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 45 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 52 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 53 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 54 :fade-after (meters 70.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 20480.0)
-        )
-      )
+(defpartgroup group-jungle-launcher
+  :id 38
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 45 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 52 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 53 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 54 :fade-after (meters 70) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 52) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-x (meters 0.0) (meters 1.4) 1.0)
-                                  (sp-flt spt-scale-x (meters 0.2))
-                                  (sp-flt spt-rot-x 16384.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 2.5) (meters 2.5) 1.0)
-                                  (sp-rnd-int spt-r 0 1 128.0)
-                                  (sp-rnd-flt spt-g 64.0 196.0 1.0)
-                                  (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                  (sp-flt spt-a 128.0)
-                                  (sp-flt spt-scalevel-x (meters -0.0025))
-                                  (sp-rnd-flt spt-scalevel-y (meters 0.24414062) (meters 0.48828125) 1.0)
-                                  (sp-int spt-timer 81)
-                                  (sp-cpuinfo-flags bit3)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 52 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-rnd-flt spt-x (meters 0) (meters 1.4) 1.0)
+                          (sp-flt spt-scale-x (meters 0.2))
+                          (sp-flt spt-rot-x 16384.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-scale-y (meters 2.5) (meters 2.5) 1.0)
+                          (sp-rnd-int spt-r 0 1 128.0)
+                          (sp-rnd-flt spt-g 64.0 196.0 1.0)
+                          (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                          (sp-flt spt-a 128.0)
+                          (sp-flt spt-scalevel-x (meters -0.0025))
+                          (sp-rnd-flt spt-scalevel-y (meters 0.24414062) (meters 0.48828125) 1.0)
+                          (sp-int spt-timer 81)
+                          (sp-cpuinfo-flags bit3)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 53) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 17
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 2.0)
-                                  (sp-rnd-flt spt-x (meters 1.4) (meters 0.9) 1.0)
-                                  (sp-flt spt-scale-x (meters 0.2))
-                                  (sp-flt spt-rot-x 16384.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                  (sp-rnd-int spt-r 0 1 128.0)
-                                  (sp-rnd-flt spt-g 64.0 196.0 1.0)
-                                  (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                  (sp-flt spt-a 128.0)
-                                  (sp-flt spt-scalevel-x (meters -0.0025))
-                                  (sp-rnd-flt spt-scalevel-y (meters 0.048828125) (meters 0.09765625) 1.0)
-                                  (sp-int spt-timer 81)
-                                  (sp-cpuinfo-flags bit3)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 53 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 2.0)
+                          (sp-rnd-flt spt-x (meters 1.4) (meters 0.9) 1.0)
+                          (sp-flt spt-scale-x (meters 0.2))
+                          (sp-flt spt-rot-x 16384.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+                          (sp-rnd-int spt-r 0 1 128.0)
+                          (sp-rnd-flt spt-g 64.0 196.0 1.0)
+                          (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                          (sp-flt spt-a 128.0)
+                          (sp-flt spt-scalevel-x (meters -0.0025))
+                          (sp-rnd-flt spt-scalevel-y (meters 0.048828125) (meters 0.09765625) 1.0)
+                          (sp-int spt-timer 81)
+                          (sp-cpuinfo-flags bit3)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 54) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 23
-                                  (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                  (sp-flt spt-num 0.5)
-                                  (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
-                                  (sp-flt spt-y (meters -0.5))
-                                  (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                  (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                  (sp-rnd-flt spt-b 10.0 5.0 1.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-                                  (sp-flt spt-vel-y (meters 0.0))
-                                  (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                  (sp-flt spt-fade-a 0.6)
-                                  (sp-flt spt-accel-y 6.826667)
-                                  (sp-flt spt-friction 0.996)
-                                  (sp-int spt-timer 270)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 45)
-                                  (sp-launcher-by-id spt-next-launcher 51)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 54 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 0.5)
+                          (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
+                          (sp-flt spt-y (meters -0.5))
+                          (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                          (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 10.0 5.0 1.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
+                          (sp-flt spt-vel-y (meters 0))
+                          (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+                          (sp-flt spt-fade-a 0.6)
+                          (sp-flt spt-accel-y 6.826667)
+                          (sp-flt spt-friction 0.996)
+                          (sp-int spt-timer 270)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          (sp-int spt-next-time 45)
+                          (sp-launcher-by-id spt-next-launcher 51)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 39)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-launcher"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 45 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 46 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 47 :fade-after (meters 70.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 55 :fade-after (meters 70.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 20480.0)
-        )
-      )
+(defpartgroup group-swamp-launcher
+  :id 39
+  :bounds (static-bspherem 0 3 0 5)
+  :parts
+  ((sp-item 45 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 46 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 47 :fade-after (meters 70) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 55 :fade-after (meters 70) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 55) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 23
-                                  (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                  (sp-flt spt-num 0.5)
-                                  (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
-                                  (sp-flt spt-y (meters -0.5))
-                                  (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-flt spt-r 16.0 16.0 1.0)
-                                  (sp-rnd-flt spt-g 16.0 16.0 1.0)
-                                  (sp-rnd-flt spt-b 5.0 2.5 1.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-                                  (sp-flt spt-vel-y (meters 0.0))
-                                  (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                  (sp-flt spt-fade-a 0.6)
-                                  (sp-flt spt-accel-y 6.826667)
-                                  (sp-flt spt-friction 0.996)
-                                  (sp-int spt-timer 270)
-                                  (sp-cpuinfo-flags bit2)
-                                  (sp-int spt-next-time 45)
-                                  (sp-launcher-by-id spt-next-launcher 51)
-                                  (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
+(defpart 55 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 0.5)
+                          (sp-rnd-flt spt-x (meters 2.9) (meters 2.5) 1.0)
+                          (sp-flt spt-y (meters -0.5))
+                          (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 16.0 16.0 1.0)
+                          (sp-rnd-flt spt-g 16.0 16.0 1.0)
+                          (sp-rnd-flt spt-b 5.0 2.5 1.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
+                          (sp-flt spt-vel-y (meters 0))
+                          (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+                          (sp-flt spt-fade-a 0.6)
+                          (sp-flt spt-accel-y 6.826667)
+                          (sp-flt spt-friction 0.996)
+                          (sp-int spt-timer 270)
+                          (sp-cpuinfo-flags bit2)
+                          (sp-int spt-next-time 45)
+                          (sp-launcher-by-id spt-next-launcher 51)
+                          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
 
 ;; definition for function cam-launcher-joystick
 ;; Used lq/sq
@@ -2695,24 +2620,19 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2528) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-set-quat)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-scale-y (meters 5.6))
-                                    (sp-rnd-flt spt-r 0.0 44.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2528 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
+                            (sp-func spt-birth-func 'birth-func-set-quat)
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-flt spt-scale-y (meters 5.6))
+                            (sp-rnd-flt spt-r 0.0 44.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 32.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
+                            )
+              )
 
 ;; definition for function draw-eco-beam
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/engine/game/powerups_REF.gc b/test/decompiler/reference/engine/game/powerups_REF.gc
index 7a989f2339..a47e8c8739 100644
--- a/test/decompiler/reference/engine/game/powerups_REF.gc
+++ b/test/decompiler/reference/engine/game/powerups_REF.gc
@@ -57,571 +57,439 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 255) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-fade-a -1.0666667)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 255 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-fade-a -1.0666667)
+                           (sp-int spt-timer 60)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.5))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 256)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-int spt-timer 60)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 256 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-fade-a -1.0666667)
+                           (sp-int spt-timer 60)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.5))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 257) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 3.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 258)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 257 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                           (sp-rnd-flt spt-num 1.0 3.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.6)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 258)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 259) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 3.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 91)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 258)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 259 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                           (sp-rnd-flt spt-num 0.0 3.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.6)
+                           (sp-int spt-timer 91)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 258)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 258)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -1.0)
-                                                     (sp-flt spt-fade-g -0.4)
-                                                     (sp-flt spt-fade-a -2.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 258 :init-specs ((sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-fade-r -1.0)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -2.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 260) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 128.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00033333333))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.2)
-                                   (sp-flt spt-accel-y -0.06826667)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit0 bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 260 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 32.0)
+                           (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 128.0 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00033333333))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.2)
+                           (sp-flt spt-accel-y -0.06826667)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit0 bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 70) (new 'static 'sparticle-launch-group
-                                      :length 5
-                                      :duration #x5
-                                      :linger-duration #x1c2
-                                      :name "group-blue-hit-ground-effect"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 5
-                                        (sp-item 261)
-                                        (sp-item 262)
-                                        (sp-item 263 :flags (is-3d))
-                                        (sp-item 264)
-                                        (sp-item 265 :flags (is-3d))
-                                        )
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
+(defpartgroup group-blue-hit-ground-effect
+  :id 70
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 261) (sp-item 262) (sp-item 263 :flags (is-3d)) (sp-item 264) (sp-item 265 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 264) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 32.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                   (sp-rnd-int spt-a 0 63 1.0)
-                                   (sp-flt spt-vel-y (meters 0.093333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-int-plain-rnd spt-next-time 20 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 266)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 264 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 32.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 192.0 63.0 1.0)
+                           (sp-rnd-int spt-a 0 63 1.0)
+                           (sp-flt spt-vel-y (meters 0.093333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-int-plain-rnd spt-next-time 20 19 1)
+                           (sp-launcher-by-id spt-next-launcher 266)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 266)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                                     (sp-rnd-int spt-a 0 63 1.0)
-                                                     (sp-int-plain-rnd spt-next-time 20 19 1)
-                                                     (sp-launcher-by-id spt-next-launcher 266)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 266 :init-specs ((sp-flt spt-r 0.0)
+                           (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 192.0 63.0 1.0)
+                           (sp-rnd-int spt-a 0 63 1.0)
+                           (sp-int-plain-rnd spt-next-time 20 19 1)
+                           (sp-launcher-by-id spt-next-launcher 266)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 265) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-flt spt-scale-x (meters 0.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                   (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.21333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-int spt-timer 120)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 60)
-                                   (sp-launcher-by-id spt-next-launcher 267)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 265 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-flt spt-scale-x (meters 0))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 192.0 63.0 1.0)
+                           (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.21333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-int spt-timer 120)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 60)
+                           (sp-launcher-by-id spt-next-launcher 267)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 267)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.1333334) (sp-end))
-        )
-      )
+(defpart 267 :init-specs ((sp-flt spt-fade-a -2.1333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 263) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-flt spt-scale-x (meters 0.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.22666667))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.7111111)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 45)
-                                   (sp-launcher-by-id spt-next-launcher 268)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 263 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-flt spt-scale-x (meters 0))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 192.0 63.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.22666667))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.7111111)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 45)
+                           (sp-launcher-by-id spt-next-launcher 268)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 268)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.4222223) (sp-end))
-        )
-      )
+(defpart 268 :init-specs ((sp-flt spt-fade-a -1.4222223)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 261) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 32.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y -1.3653333)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 261 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 32.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 192.0 63.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.16)
+                           (sp-flt spt-accel-y -1.3653333)
+                           (sp-flt spt-friction 0.95)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 262) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 12.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 192.0 63.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-flt spt-accel-y -1.3653333)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 262 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 12.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 192.0 63.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0016666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-flt spt-accel-y -1.3653333)
+                           (sp-flt spt-friction 0.95)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 269) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 92.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 32.0 92.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-fade-a -1.0)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 269 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 92.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 32.0 92.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-fade-a -1.0)
+                           (sp-int spt-timer 60)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.5))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 270)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 92.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 32.0 92.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-a -1.0)
-                                                     (sp-int spt-timer 60)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 270 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 92.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 32.0 92.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-fade-a -1.0)
+                           (sp-int spt-timer 60)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.5))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 271) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 2.0 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.024242423)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
-                                   (sp-flt spt-friction 0.93)
-                                   (sp-int-plain-rnd spt-timer 30 209 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 272)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.05))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 271 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.5 2.0 1.0)
+                           (sp-flt spt-y (meters -0.05))
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00083333335))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -0.024242423)
+                           (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
+                           (sp-flt spt-friction 0.93)
+                           (sp-int-plain-rnd spt-timer 30 209 1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 272)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.05))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 272)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-r 0.0) (sp-end))
-        )
-      )
+(defpart 272 :init-specs ((sp-flt spt-fade-r 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 273) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 92.0 32.0 1.0)
-                                   (sp-flt spt-g 0.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-fade-a -1.0)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 273 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 92.0 32.0 1.0)
+                           (sp-flt spt-g 0.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-fade-a -1.0)
+                           (sp-int spt-timer 60)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.5))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 274)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 92.0 32.0 1.0)
-                                                     (sp-flt spt-g 0.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-a -1.0)
-                                                     (sp-int spt-timer 60)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 274 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 92.0 32.0 1.0)
+                           (sp-flt spt-g 0.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-fade-a -1.0)
+                           (sp-int spt-timer 60)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.5))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 275) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 2.0 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-flt spt-g 0.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.024242423)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
-                                   (sp-flt spt-friction 0.93)
-                                   (sp-int-plain-rnd spt-timer 30 209 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 276)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.05))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 275 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.5 2.0 1.0)
+                           (sp-flt spt-y (meters -0.05))
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-flt spt-g 0.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00083333335))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -0.024242423)
+                           (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
+                           (sp-flt spt-friction 0.93)
+                           (sp-int-plain-rnd spt-timer 30 209 1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 276)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.05))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 276)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-r 0.0) (sp-end))
-        )
-      )
+(defpart 276 :init-specs ((sp-flt spt-fade-r 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 277) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 92.0 32.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-fade-a -1.0)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 277 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-rnd-flt spt-g 92.0 32.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-fade-a -1.0)
+                           (sp-int spt-timer 60)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.5))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 278)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-flt spt-g 92.0 32.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-a -1.0)
-                                                     (sp-int spt-timer 60)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 278 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-rnd-flt spt-g 92.0 32.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-fade-a -1.0)
+                           (sp-int spt-timer 60)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.5))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 279) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 2.0 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-rnd-flt spt-g 100.0 28.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.024242423)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
-                                   (sp-flt spt-friction 0.93)
-                                   (sp-int-plain-rnd spt-timer 30 209 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 280)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.05))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 279 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.5 2.0 1.0)
+                           (sp-flt spt-y (meters -0.05))
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-rnd-flt spt-g 100.0 28.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0023333333) (meters 0.0016666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00083333335))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -0.024242423)
+                           (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
+                           (sp-flt spt-friction 0.93)
+                           (sp-int-plain-rnd spt-timer 30 209 1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 280)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.05))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 280)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-g 0.0) (sp-end))
-        )
-      )
+(defpart 280 :init-specs ((sp-flt spt-fade-g 0.0)))
 
 ;; definition for function eco-blue-glow
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/engine/game/projectiles_REF.gc b/test/decompiler/reference/engine/game/projectiles_REF.gc
index 23e1f26569..5116669db7 100644
--- a/test/decompiler/reference/engine/game/projectiles_REF.gc
+++ b/test/decompiler/reference/engine/game/projectiles_REF.gc
@@ -192,535 +192,428 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 102)
-      (new 'static 'sparticle-launch-group
-        :length 34
-        :duration #x12c
-        :linger-duration #x5dc
-        :name "group-yellow-eco-fireball"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 34
-          (sp-item 349 :flags (launch-asap) :binding 350)
-          (sp-item 350 :flags (start-dead launch-asap) :binding 351)
-          (sp-item 351 :flags (start-dead launch-asap) :binding 352)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 352 :flags (start-dead) :binding 353)
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 353 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
+(defpartgroup group-yellow-eco-fireball
+  :id 102
+  :duration 300
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 349 :flags (launch-asap) :binding 350)
+    (sp-item 350 :flags (start-dead launch-asap) :binding 351)
+    (sp-item 351 :flags (start-dead launch-asap) :binding 352)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 352 :flags (start-dead) :binding 353)
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 353 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 349) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 9
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 349 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.01))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-func spt-func 'sparticle-track-root-prim)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 350) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 0.0)
-                                   (sp-flt spt-scale-x (meters 5.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-a 32.0)
-                                   (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 1 873.81335)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 350 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-y (meters 4) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0))
+                           (sp-flt spt-scale-x (meters 5))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 1 873.81335)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 351)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                                     (sp-flt spt-z 0.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.11259259))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                                     (sp-int spt-timer 1200)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit7)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 351 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0))
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.11259259))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 352)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-scalevel-x (meters -0.02))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -1.0)
-                                                     (sp-int spt-timer 54)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 352 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-scalevel-x (meters -0.02))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -1.0)
+                           (sp-int spt-timer 54)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 353) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-y (meters -0.05))
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.011666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.000909091))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.4)
-                                   (sp-flt spt-fade-a -0.024242423)
-                                   (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
-                                   (sp-flt spt-friction 0.93)
-                                   (sp-int-plain-rnd spt-timer 30 299 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 354)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.3))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 353 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-y (meters -0.05))
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.011666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.000909091))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -0.024242423)
+                           (sp-rnd-flt spt-accel-y -0.40960002 -1.2288 1.0)
+                           (sp-flt spt-friction 0.93)
+                           (sp-int-plain-rnd spt-timer 30 299 1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 354)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.3))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 354)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-r 0.0) (sp-end))
-        )
-      )
+(defpart 354 :init-specs ((sp-flt spt-fade-r 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 103) (new 'static 'sparticle-launch-group
-                                       :length 20
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :name
-                                       "group-part-yellow-eco-fireball-launcher"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 20
-                                         (sp-item 355 :flags (launch-asap))
-                                         (sp-item 356 :flags (bit1) :period 630 :length 15)
-                                         (sp-item 357 :flags (launch-asap))
-                                         (sp-item 358 :flags (launch-asap) :binding 359)
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         (sp-item 359 :flags (start-dead launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-part-yellow-eco-fireball-launcher
+  :id 103
+  :duration 600
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 355 :flags (launch-asap))
+    (sp-item 356 :flags (bit1) :period 630 :length 15)
+    (sp-item 357 :flags (launch-asap))
+    (sp-item 358 :flags (launch-asap) :binding 359)
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    (sp-item 359 :flags (start-dead launch-asap))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 355) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 8.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-scalevel-x (meters -0.06666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -204.8) 1 74565.41)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.0)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 355 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 8))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-scalevel-x (meters -0.06666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -204.8) 1 74565.41)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.0)
+                           (sp-int spt-timer 60)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 357)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 5.0)
-                                                     (sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.6) (meters 1.2) 1.0)
-                                                     (sp-rnd-flt spt-z -2457.6 4915.2 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.75) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                                     (sp-flt spt-b 32.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0044444446))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.14222223)
-                                                     (sp-flt spt-fade-a -0.14222223)
-                                                     (sp-flt spt-accel-y -0.06826667)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 357 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 5.0)
+                           (sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.6) (meters 1.2) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.6) (meters 1.2) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.75) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 32.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0044444446))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.14222223)
+                           (sp-flt spt-fade-a -0.14222223)
+                           (sp-flt spt-accel-y -0.06826667)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 356) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 12.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0025000002))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -1.0666667)
-                                   (sp-flt spt-fade-a -0.17777778)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int-plain-rnd spt-timer 60 59 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 180.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 356 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 12.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.0025000002))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -1.0666667)
+                           (sp-flt spt-fade-a -0.17777778)
+                           (sp-flt spt-accel-y -4.096)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int-plain-rnd spt-timer 60 59 1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 180.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 360) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 24.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0025000002))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -1.0666667)
-                                   (sp-flt spt-fade-a -0.17777778)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int-plain-rnd spt-timer 60 59 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 360 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 24.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.0025000002))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -1.0666667)
+                           (sp-flt spt-fade-a -0.17777778)
+                           (sp-flt spt-accel-y -4.096)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int-plain-rnd spt-timer 60 59 1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 358) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-accel-y -2.048)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 330)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 100.00001) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 180.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 358 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 16.0)
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-a 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
+                           (sp-flt spt-accel-y -2.048)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 330)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 100.00001) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 180.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 361) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 32.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-accel-y -2.048)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 330)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 361 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 32.0)
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-a 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
+                           (sp-flt spt-accel-y -2.048)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 330)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 359) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 409.6 819.2 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.10666667))
-                                   (sp-flt spt-scalevel-x (meters -0.000909091))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.26666668)
-                                   (sp-flt spt-fade-a -0.19393939)
-                                   (sp-int-plain-rnd spt-timer 90 239 1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 359 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.1) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.10666667))
+                           (sp-flt spt-scalevel-x (meters -0.000909091))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.26666668)
+                           (sp-flt spt-fade-a -0.19393939)
+                           (sp-int-plain-rnd spt-timer 90 239 1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 104)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-part-yellow-eco-fireball-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 2059 :period 600 :length 5)
-          (sp-item 2060 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
-          (sp-item 2061 :period 600 :length 20)
-          (sp-item 2062 :fade-after (meters 120.0) :falloff-to (meters 120.0) :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-part-yellow-eco-fireball-hit
+  :id 104
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 2059 :period 600 :length 5)
+    (sp-item 2060 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
+    (sp-item 2061 :period 600 :length 20)
+    (sp-item 2062 :fade-after (meters 120) :falloff-to (meters 120) :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2060) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2063)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2060 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2063)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2063)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2063
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2062) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-flt spt-scale-x (meters 0.2))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 8.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.42666668))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2062 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 3.0)
+                            (sp-flt spt-scale-x (meters 0.2))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 8))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.42666668))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2059) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -1.7454545)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2059 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 16))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-flt spt-fade-a -1.7454545)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2061) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int spt-next-time 42)
-                                    (sp-launcher-by-id spt-next-launcher 2064)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2061 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2064)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2064)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r -0.53333336)
-                                                     (sp-flt spt-fade-g -0.53333336)
-                                                     (sp-flt spt-fade-b -1.0666667)
-                                                     (sp-flt spt-fade-a -0.53333336)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2064 :init-specs ((sp-flt spt-fade-r -0.53333336)
+                            (sp-flt spt-fade-g -0.53333336)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-flt spt-fade-a -0.53333336)
+                            )
+              )
 
 ;; definition for method 24 of type projectile
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/engine/gfx/merc/merc-death_REF.gc b/test/decompiler/reference/engine/gfx/merc/merc-death_REF.gc
index 181c3dc566..2d0b6c771d 100644
--- a/test/decompiler/reference/engine/gfx/merc/merc-death_REF.gc
+++ b/test/decompiler/reference/engine/gfx/merc/merc-death_REF.gc
@@ -66,49 +66,36 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 41)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-scale-x (meters 0.5))
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 48.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                                     (sp-flt spt-scalevel-y (meters 0.02))
-                                                     (sp-flt spt-accel-y -2.7306666)
-                                                     (sp-int spt-timer 120)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit12)
-                                                     (sp-int-plain-rnd spt-next-time 15 59 1)
-                                                     (sp-launcher-by-id spt-next-launcher 42)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 41 :init-specs ((sp-flt spt-scale-x (meters 0.5))
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                          (sp-rnd-flt spt-g 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 48.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 48.0 48.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+                          (sp-flt spt-scalevel-x (meters -0.0016666667))
+                          (sp-flt spt-scalevel-y (meters 0.02))
+                          (sp-flt spt-accel-y -2.7306666)
+                          (sp-int spt-timer 120)
+                          (sp-cpuinfo-flags bit2 bit3 bit12)
+                          (sp-int-plain-rnd spt-next-time 15 59 1)
+                          (sp-launcher-by-id spt-next-launcher 42)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 42)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-int spt-timer 45)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 43)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 42 :init-specs ((sp-flt spt-fade-a -1.4222223)
+                          (sp-int spt-timer 45)
+                          (sp-int spt-next-time 42)
+                          (sp-launcher-by-id spt-next-launcher 43)
+                          )
+            )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 43)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-int-plain-rnd spt-timer 0 296 1)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 43
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0)) (sp-flt spt-fade-a -0.21333334) (sp-int-plain-rnd spt-timer 0 296 1))
+  )
 
 ;; definition for function merc-death-spawn
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/engine/gfx/shadow/shadow_REF.gc b/test/decompiler/reference/engine/gfx/shadow/shadow_REF.gc
index 889bade42c..be9f5567f3 100644
--- a/test/decompiler/reference/engine/gfx/shadow/shadow_REF.gc
+++ b/test/decompiler/reference/engine/gfx/shadow/shadow_REF.gc
@@ -168,29 +168,24 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 362) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 90.0)
-                                   (sp-flt spt-g 90.0)
-                                   (sp-flt spt-b 90.0)
-                                   (sp-rnd-flt spt-a 20.0 20.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.002))
-                                   (sp-flt spt-scalevel-x (meters 0.004166667))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.3)
-                                   (sp-int spt-timer 5004)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 15.0) 1.0)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.2))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 362 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 90.0)
+                           (sp-flt spt-g 90.0)
+                           (sp-flt spt-b 90.0)
+                           (sp-rnd-flt spt-a 20.0 20.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.002))
+                           (sp-flt spt-scalevel-x (meters 0.004166667))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.3)
+                           (sp-int spt-timer 5004)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 15.0) 1.0)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.2))
+                           )
+             )
diff --git a/test/decompiler/reference/engine/gfx/water/water_REF.gc b/test/decompiler/reference/engine/gfx/water/water_REF.gc
index 74ce1064b8..e56ba59c0b 100644
--- a/test/decompiler/reference/engine/gfx/water/water_REF.gc
+++ b/test/decompiler/reference/engine/gfx/water/water_REF.gc
@@ -2,36 +2,26 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 108) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.6) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.001) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 109)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 108 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.001) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 109)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 109)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.2) (sp-end))
-        )
-      )
+(defpart 109 :init-specs ((sp-flt spt-fade-a -0.2)))
 
 ;; definition for function birth-func-y->userdata
 ;; INFO: Return type mismatch int vs none.
@@ -88,754 +78,571 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 110) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 12.0)
-                                   (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.05) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.05) (meters 0.05) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 24.0 40.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 1500)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-above-and-die)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 110 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 12.0)
+                           (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.05) (meters 0.1) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.05) (meters 0.05) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 24.0 40.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 1500)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-water-level-above-and-die)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 111) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 0.1)
-                                   (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                   (sp-flt spt-y (meters 0.15))
-                                   (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.05) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-accel-y 1.3653333)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 1500)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-above-and-die)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 111 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 0.1)
+                           (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                           (sp-flt spt-y (meters 0.15))
+                           (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.05) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 40.0 24.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+                           (sp-flt spt-accel-y 1.3653333)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 1500)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-water-level-above-and-die)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 112) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 0.05)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.001) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.42666668)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 113)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 112 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 0.05)
+                           (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.001) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.42666668)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 113)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 113)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 360)
-                                                     (sp-launcher-by-id spt-next-launcher 114)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 113
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 114))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 114)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.7111111) (sp-end))
-        )
-      )
+(defpart 114 :init-specs ((sp-flt spt-fade-a -0.7111111)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 115) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-rnd-flt spt-num 0.04 0.03 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-z -819.2 1638.4 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.008333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.64)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 116)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 115 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-rnd-flt spt-num 0.04 0.03 1.0)
+                           (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.2) (meters 0.4) 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.008333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.64)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 116)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 116)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 117)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 116 :init-specs ((sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.0)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 117)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 117)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.005))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.32)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 117
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.005)) (sp-copy-from-other spt-scalevel-y -4) (sp-flt spt-fade-a -0.32))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 118) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
-                                   (sp-flt spt-num 0.06)
-                                   (sp-flt spt-x (meters 10.0))
-                                   (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1.5) 1.0)
-                                   (sp-flt spt-rot-y (degrees 0.0))
-                                   (sp-rnd-flt spt-scale-y (meters 0.75) (meters 1.5) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.004333333) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.0033333334) (meters 0.004333333) 1.0)
-                                   (sp-flt spt-fade-a 0.7111111)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 119)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 118 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
+                           (sp-flt spt-num 0.06)
+                           (sp-flt spt-x (meters 10))
+                           (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1.5) 1.0)
+                           (sp-flt spt-rot-y (degrees 0.0))
+                           (sp-rnd-flt spt-scale-y (meters 0.75) (meters 1.5) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.004333333) 1.0)
+                           (sp-rnd-flt spt-scalevel-y (meters 0.0033333334) (meters 0.004333333) 1.0)
+                           (sp-flt spt-fade-a 0.7111111)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 119)
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 119)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 90 119 1)
-                                                     (sp-launcher-by-id spt-next-launcher 120)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 119
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int-plain-rnd spt-next-time 90 119 1) (sp-launcher-by-id spt-next-launcher 120))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 120)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 120 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 121) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-rnd-flt spt-num 0.05 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-z 2048.0 6144.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.7) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.003) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.42666668)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 122)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 121 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-rnd-flt spt-num 0.05 0.4 1.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-z (meters 0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.7) 1.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.0016666667) (meters 0.003) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.42666668)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 122)
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 122)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 360)
-                                                     (sp-launcher-by-id spt-next-launcher 123)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 122
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 123))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 123)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.7111111) (sp-end))
-        )
-      )
+(defpart 123 :init-specs ((sp-flt spt-fade-a -0.7111111)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 40) (new 'static 'sparticle-launch-group
-                                      :length 30
-                                      :duration #x384
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag use-local-clock)
-                                      :name "group-part-water-splash"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 30
-                                        (sp-item 124 :flags (is-3d) :period 900 :length 63)
-                                        (sp-item 125 :period 900 :length 15)
-                                        (sp-item 126 :flags (is-3d) :period 900 :length 15)
-                                        (sp-item 127 :flags (is-3d) :period 900 :length 15)
-                                        (sp-item 128 :period 900 :length 15 :binding 129)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 130 :flags (is-3d) :period 900 :length 15 :offset 840)
-                                        (sp-item 131 :flags (is-3d) :period 900 :length 60 :offset 840)
-                                        (sp-item 132 :period 900 :length 10 :offset 840 :binding 133)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
-                                        )
-                                      :bounds
-                                      (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                      )
-      )
+(defpartgroup group-part-water-splash
+  :id 40
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 124 :flags (is-3d) :period 900 :length 63)
+    (sp-item 125 :period 900 :length 15)
+    (sp-item 126 :flags (is-3d) :period 900 :length 15)
+    (sp-item 127 :flags (is-3d) :period 900 :length 15)
+    (sp-item 128 :period 900 :length 15 :binding 129)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 130 :flags (is-3d) :period 900 :length 15 :offset 840)
+    (sp-item 131 :flags (is-3d) :period 900 :length 60 :offset 840)
+    (sp-item 132 :period 900 :length 10 :offset 840 :binding 133)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    (sp-item 133 :flags (start-dead) :period 900 :length 120 :offset 840)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 41) (new 'static 'sparticle-launch-group
-                                      :length 16
-                                      :duration #x384
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag use-local-clock)
-                                      :name "group-part-water-splash-small"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 16
-                                        (sp-item 124 :flags (is-3d) :period 900 :length 63)
-                                        (sp-item 125 :period 900 :length 15)
-                                        (sp-item 126 :flags (is-3d) :period 900 :length 15)
-                                        (sp-item 127 :flags (is-3d) :period 900 :length 15)
-                                        (sp-item 128 :period 900 :length 10 :binding 129)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                        )
-                                      :bounds
-                                      (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                      )
-      )
+(defpartgroup group-part-water-splash-small
+  :id 41
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 124 :flags (is-3d) :period 900 :length 63)
+    (sp-item 125 :period 900 :length 15)
+    (sp-item 126 :flags (is-3d) :period 900 :length 15)
+    (sp-item 127 :flags (is-3d) :period 900 :length 15)
+    (sp-item 128 :period 900 :length 10 :binding 129)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 129) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 0.4)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.000033333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-rnd-flt spt-accel-y -1.6384001 -0.81920004 1.0)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop-and-die)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 129 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 0.4)
+                           (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 40.0 24.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.000033333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-rnd-flt spt-accel-y -1.6384001 -0.81920004 1.0)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-water-level-drop-and-die)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 133) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 0.4)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.000033333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-rnd-flt spt-accel-y -1.6384001 -0.81920004 1.0)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop-and-die)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 133 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 0.4)
+                           (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 40.0 24.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.000033333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-rnd-flt spt-accel-y -1.6384001 -0.81920004 1.0)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-water-level-drop-and-die)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 131) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 0.3)
-                                   (sp-rnd-flt spt-scale-x (meters 0.080000006) (meters 0.32000002) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.080000006) (meters 0.32000002) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0090666665) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0090666665) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 134)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 131 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 0.3)
+                           (sp-rnd-flt spt-scale-x (meters 0.080000006) (meters 0.32000002) 1.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.080000006) (meters 0.32000002) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0090666665) 1.0)
+                           (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0090666665) 1.0)
+                           (sp-flt spt-fade-a 0.32)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 134)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 132) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 3.2)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.35) (meters 0.075) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.075) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.002) (meters 0.004) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.018666666) (meters 0.0053333333) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.002) (meters 0.004) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00066666666))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-rnd-flt spt-accel-y -3.2768002 -0.81920004 1.0)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop)
-                                   (sp-int spt-next-time 120)
-                                   (sp-launcher-by-id spt-next-launcher 135)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 132 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 3.2)
+                           (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.2) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.35) (meters 0.075) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.075) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 40.0 24.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.002) (meters 0.004) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.018666666) (meters 0.0053333333) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.002) (meters 0.004) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00066666666))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-rnd-flt spt-accel-y -3.2768002 -0.81920004 1.0)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-water-level-drop)
+                           (sp-int spt-next-time 120)
+                           (sp-launcher-by-id spt-next-launcher 135)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 130) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x10 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.24000001) (meters 0.71999997) 1.0)
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-rnd-flt spt-scale-y (meters 0.8) (meters 1.7600001) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.053333335) (meters 0.013333334) 1.0)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat set-conerot)
-                                   (sp-int-plain-rnd spt-next-time 20 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 136)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 130 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x10 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.24000001) (meters 0.71999997) 1.0)
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-rnd-flt spt-scale-y (meters 0.8) (meters 1.7600001) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-scalevel-y (meters 0.053333335) (meters 0.013333334) 1.0)
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat set-conerot)
+                           (sp-int-plain-rnd spt-next-time 20 19 1)
+                           (sp-launcher-by-id spt-next-launcher 136)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 136)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-y (meters 0.026666667))
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 137)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 136 :init-specs ((sp-flt spt-scalevel-y (meters 0.026666667))
+                           (sp-int spt-next-time 20)
+                           (sp-launcher-by-id spt-next-launcher 137)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 137)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-scalevel-y (meters 0.0))
-                                                     (sp-flt spt-fade-a -0.64)
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 138)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 137 :init-specs ((sp-flt spt-scalevel-y (meters 0))
+                           (sp-flt spt-fade-a -0.64)
+                           (sp-int spt-next-time 20)
+                           (sp-launcher-by-id spt-next-launcher 138)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 138)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-flt spt-scalevel-y (meters -0.026666667))
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 139)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 138 :init-specs ((sp-flt spt-scalevel-x (meters 0.0016666667))
+                           (sp-flt spt-scalevel-y (meters -0.026666667))
+                           (sp-int spt-next-time 20)
+                           (sp-launcher-by-id spt-next-launcher 139)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 139)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-flt spt-scalevel-y (meters -0.053333335))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 139
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0.0033333334)) (sp-flt spt-scalevel-y (meters -0.053333335)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 126) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0037333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0037333334) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 134)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 126 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 2.4) (meters 1.6) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0037333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0037333334) 1.0)
+                           (sp-flt spt-fade-a 0.32)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 134)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 134)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 360)
-                                                     (sp-launcher-by-id spt-next-launcher 140)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 134
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 140))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 140)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 140 :init-specs ((sp-flt spt-fade-a -0.53333336)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 127) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0026666666) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0026666666) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 134)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 127 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-rnd-flt spt-num 0.5 1.0 1.0)
+                           (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.8) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.004) (meters 0.0026666666) 1.0)
+                           (sp-rnd-flt spt-scalevel-y (meters 0.004) (meters 0.0026666666) 1.0)
+                           (sp-flt spt-fade-a 0.32)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 134)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 128) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 3.2)
-                                   (sp-flt spt-x (meters 0.96000004))
-                                   (sp-rnd-flt spt-scale-x (meters 0.35) (meters 0.075) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.075) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0026666666) (meters 0.0053333333) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016) (meters 0.0053333333) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00066666666))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-rnd-flt spt-accel-y -3.2768002 -0.81920004 1.0)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop)
-                                   (sp-int spt-next-time 120)
-                                   (sp-launcher-by-id spt-next-launcher 135)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 128 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 3.2)
+                           (sp-flt spt-x (meters 0.96000004))
+                           (sp-rnd-flt spt-scale-x (meters 0.35) (meters 0.075) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.075) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 40.0 24.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0026666666) (meters 0.0053333333) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016) (meters 0.0053333333) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00066666666))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-rnd-flt spt-accel-y -3.2768002 -0.81920004 1.0)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-water-level-drop)
+                           (sp-int spt-next-time 120)
+                           (sp-launcher-by-id spt-next-launcher 135)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 135)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 135 :init-specs ((sp-flt spt-scalevel-x (meters 0)) (sp-copy-from-other spt-scalevel-y -4)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 125) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-flt spt-x (meters 0.8))
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.05) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0026666666) (meters 0.0053333333) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0053333333) (meters 0.0053333333) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00033333333))
-                                   (sp-flt spt-scalevel-y (meters -0.00033333333))
-                                   (sp-rnd-flt spt-accel-y -2.1845336 -0.5461334 1.0)
-                                   (sp-int spt-timer 375)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop-and-die)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 125 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-flt spt-x (meters 0.8))
+                           (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.05) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 40.0 24.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0026666666) (meters 0.0053333333) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0053333333) (meters 0.0053333333) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00033333333))
+                           (sp-flt spt-scalevel-y (meters -0.00033333333))
+                           (sp-rnd-flt spt-accel-y -2.1845336 -0.5461334 1.0)
+                           (sp-int spt-timer 375)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-water-level-drop-and-die)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 124) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x10 :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-rnd-flt spt-x (meters 0.96000004) (meters 0.16000001) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.32000002) (meters 0.96000004) 1.0)
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-rnd-flt spt-scale-y (meters 0.16000001) (meters 1.7600001) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 48.0 24.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.0026666666))
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.0) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-rotvel-x (degrees 0.2))
-                                   (sp-flt spt-scalevel-y (meters 0.04))
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat set-conerot)
-                                   (sp-int-plain-rnd spt-next-time 20 19 1)
-                                   (sp-launcher-by-id spt-next-launcher 141)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 124 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x10 :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-rnd-flt spt-x (meters 0.96000004) (meters 0.16000001) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.32000002) (meters 0.96000004) 1.0)
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-rnd-flt spt-scale-y (meters 0.16000001) (meters 1.7600001) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 48.0 24.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.0026666666))
+                           (sp-rnd-flt spt-scalevel-x (meters 0) (meters 0.0016666667) 1.0)
+                           (sp-flt spt-rotvel-x (degrees 0.2))
+                           (sp-flt spt-scalevel-y (meters 0.04))
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat set-conerot)
+                           (sp-int-plain-rnd spt-next-time 20 19 1)
+                           (sp-launcher-by-id spt-next-launcher 141)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 141)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-flt spt-rotvel-x (degrees 0.16666667))
-                                                     (sp-flt spt-scalevel-y (meters 0.016666668))
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 142)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 141 :init-specs ((sp-flt spt-scalevel-x (meters 0))
+                           (sp-flt spt-rotvel-x (degrees 0.16666667))
+                           (sp-flt spt-scalevel-y (meters 0.016666668))
+                           (sp-int spt-next-time 20)
+                           (sp-launcher-by-id spt-next-launcher 142)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 142)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-rotvel-x (degrees 0.13333334))
-                                                     (sp-flt spt-scalevel-y (meters 0.0))
-                                                     (sp-flt spt-fade-a -0.64)
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 143)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 142 :init-specs ((sp-flt spt-rotvel-x (degrees 0.13333334))
+                           (sp-flt spt-scalevel-y (meters 0))
+                           (sp-flt spt-fade-a -0.64)
+                           (sp-int spt-next-time 20)
+                           (sp-launcher-by-id spt-next-launcher 143)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 143)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-rotvel-x (degrees 0.1))
-                                                     (sp-flt spt-scalevel-y (meters -0.016666668))
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 144)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 143 :init-specs ((sp-flt spt-rotvel-x (degrees 0.1))
+                           (sp-flt spt-scalevel-y (meters -0.016666668))
+                           (sp-int spt-next-time 20)
+                           (sp-launcher-by-id spt-next-launcher 144)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 144)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-rotvel-x (degrees 0.06666667))
-                                                     (sp-flt spt-scalevel-y (meters -0.033333335))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 144
+  :init-specs
+  ((sp-flt spt-rotvel-x (degrees 0.06666667)) (sp-flt spt-scalevel-y (meters -0.033333335)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 145) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.016666668) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.016666668))
-                                   (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.0016666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00016666666))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-accel-y -2.7306666)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop-and-die)
-                                   (sp-int spt-next-time 225)
-                                   (sp-launcher-by-id spt-next-launcher 114)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 145 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 40.0 24.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.016666668) (meters 0.0016666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.016666668))
+                           (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.0016666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00016666666))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-accel-y -2.7306666)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-water-level-drop-and-die)
+                           (sp-int spt-next-time 225)
+                           (sp-launcher-by-id spt-next-launcher 114)
+                           )
+             )
 
 ;; definition for method 9 of type water-control
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/engine/target/target-part_REF.gc b/test/decompiler/reference/engine/target/target-part_REF.gc
index d6f2922a15..6e44c4a897 100644
--- a/test/decompiler/reference/engine/target/target-part_REF.gc
+++ b/test/decompiler/reference/engine/target/target-part_REF.gc
@@ -191,2520 +191,2052 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 1)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-target-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 56) (sp-item 57))
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 56) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 18
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                  (sp-flt spt-num 32.0)
-                                  (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
-                                  (sp-int spt-rot-x 4)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-scale-y (meters 0.06))
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 128.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-flt spt-scalevel-x (meters 0.16))
-                                  (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                  (sp-flt spt-fade-a 6.4)
-                                  (sp-int spt-timer 150)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 10)
-                                  (sp-launcher-by-id spt-next-launcher 58)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 58)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.64) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 57) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 14
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-scale-x (meters 12.0))
-                                  (sp-flt spt-rot-z (degrees 0.0))
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 128.0)
-                                  (sp-flt spt-a 64.0)
-                                  (sp-flt spt-rotvel-z (degrees -0.4))
-                                  (sp-flt spt-fade-a -1.4222221)
-                                  (sp-int spt-timer 42)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 2)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xa
-        :linger-duration #x1c2
-        :name "group-red-eco-strike-ground"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 59) (sp-item 60))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 59) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 25
-                                  (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                  (sp-flt spt-num 24.0)
-                                  (sp-flt spt-y (meters 1.0))
-                                  (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-flt spt-b 32.0)
-                                  (sp-rnd-flt spt-a 8.0 56.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.13333334) (meters 0.16666667) 1.0)
-                                  (sp-flt spt-scalevel-x (meters 0.013333334))
-                                  (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-g -1.4222223)
-                                  (sp-flt spt-fade-a -0.35555556)
-                                  (sp-flt spt-accel-y 0.34133333)
-                                  (sp-flt spt-friction 0.7)
-                                  (sp-int spt-timer 180)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 90)
-                                  (sp-launcher-by-id spt-next-launcher 61)
-                                  (sp-flt spt-conerot-x (degrees 90.0))
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 60) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 21
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 32.0)
-                                  (sp-flt spt-y (meters 1.0))
-                                  (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-rnd-flt spt-a 64.0 8.0 1.0)
-                                  (sp-flt spt-vel-y (meters 0.3))
-                                  (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-g -2.8444445)
-                                  (sp-flt spt-fade-a -0.82222223)
-                                  (sp-flt spt-friction 0.7)
-                                  (sp-int spt-timer 90)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 45)
-                                  (sp-launcher-by-id spt-next-launcher 61)
-                                  (sp-flt spt-conerot-x (degrees 90.0))
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 3)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xa
-        :linger-duration #x1c2
-        :name "group-red-eco-spinkick"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 62) (sp-item 63) (sp-item 64))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 62)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 32.0)
-                                                     (sp-rnd-flt spt-a 8.0 56.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.013333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -1.4222223)
-                                                     (sp-flt spt-fade-a -0.35555556)
-                                                     (sp-flt spt-accel-y 0.34133333)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int spt-next-time 90)
-                                                     (sp-launcher-by-id spt-next-launcher 61)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 61)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r -0.7111111)
-                                                     (sp-flt spt-fade-g 0.7111111)
-                                                     (sp-flt spt-fade-b 0.35555556)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 63) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 19
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 0.66)
-                                  (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 128.0)
-                                  (sp-rnd-flt spt-a 64.0 8.0 1.0)
-                                  (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                  (sp-copy-from-other spt-scalevel-y -4)
-                                  (sp-flt spt-fade-g -2.8444445)
-                                  (sp-flt spt-fade-a -0.82222223)
-                                  (sp-int spt-timer 90)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 45)
-                                  (sp-launcher-by-id spt-next-launcher 61)
-                                  (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.1) 1.0)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 64) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 13
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-g 96.0)
-                                  (sp-flt spt-a 64.0)
-                                  (sp-flt spt-fade-a -4.0)
-                                  (sp-flt spt-accel-y 0.34133333)
-                                  (sp-int spt-timer 10)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 4)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xa
-        :linger-duration #x1c2
-        :name "group-spin-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 65) (sp-item 66))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 5)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xa
-        :linger-duration #x1c2
-        :name "group-punch-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 65) (sp-item 66))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 65) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 21
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                  (sp-flt spt-num 4.0)
-                                  (sp-flt spt-y (meters 0.75))
-                                  (sp-flt spt-scale-x (meters 3.0))
-                                  (sp-int spt-rot-x 4)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.5) 1.0)
-                                  (sp-flt spt-r 192.0)
-                                  (sp-flt spt-g 192.0)
-                                  (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-flt spt-scalevel-x (meters 0.009765625))
-                                  (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                  (sp-flt spt-scalevel-y (meters 0.009765625))
-                                  (sp-flt spt-fade-a 2.1333334)
-                                  (sp-int spt-timer 30)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-int spt-next-time 15)
-                                  (sp-launcher-by-id spt-next-launcher 67)
-                                  (sp-flt spt-rotate-y (degrees 0.0))
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 67)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.1333334) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 66) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 13
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-y (meters 1.0))
-                                  (sp-flt spt-scale-x (meters 3.0))
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 196.0)
-                                  (sp-flt spt-g 196.0)
-                                  (sp-flt spt-b 196.0)
-                                  (sp-flt spt-a 28.0)
-                                  (sp-int spt-timer 10)
-                                  (sp-cpuinfo-flags bit2 bit3)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 6) (new 'static 'sparticle-launch-group
-                                     :length 23
-                                     :duration #xa
-                                     :linger-duration #x1c2
-                                     :name "group-smack-surface"
-                                     :launcher
-                                     (new 'static 'inline-array sparticle-group-item 23
-                                       (sp-item 68)
-                                       (sp-item 69)
-                                       (sp-item 72 :binding 71)
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       (sp-item 71 :flags (start-dead launch-asap))
-                                       )
-                                     :bounds (new 'static 'sphere :w 8192.0)
-                                     )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 68)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-func spt-birth-func 'birth-func-copy-target-y-rot)
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 69)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-func spt-birth-func 'birth-func-copy-target-y-rot)
-                                                     (sp-flt spt-num 8.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 72) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 11
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                  (sp-rnd-flt spt-num 12.0 8.0 1.0)
-                                  (sp-flt spt-scale-x (meters 1.0))
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 128.0)
-                                  (sp-flt spt-a 0.0)
-                                  (sp-int spt-timer 604)
-                                  (sp-cpuinfo-flags bit3)
-                                  (sp-flt spt-userdata 8.0)
-                                  (sp-func spt-func 'part-tracker-track-target-joint)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 71) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 19
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-x (meters 0.0))
-                                  (sp-rnd-flt spt-y (meters -1.3333334) (meters 2.6666667) 1.0)
-                                  (sp-rnd-flt spt-z 2048.0 2048.0 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                  (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                  (sp-flt spt-b 0.0)
-                                  (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                  (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                  (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
-                                  (sp-flt spt-vel-y (meters 0.0))
-                                  (sp-flt spt-vel-z (meters 0.0033333334))
-                                  (sp-flt spt-fade-a -0.30476192)
-                                  (sp-int spt-timer 604)
-                                  (sp-cpuinfo-flags bit2 bit3 bit7)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 8)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-sand"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 73) (sp-item 74) (sp-item 75))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 73)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 74)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 75) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 20
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                  (sp-flt spt-num 32.0)
-                                  (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                  (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-int spt-r 1124073472 2 32.0)
-                                  (sp-rnd-int spt-g 1115684864 1 64.0)
-                                  (sp-rnd-int spt-b 1107296256 1 32.0)
-                                  (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
-                                  (sp-flt spt-fade-a -0.42666668)
-                                  (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
-                                  (sp-int spt-timer 300)
-                                  (sp-cpuinfo-flags bit2 bit12)
-                                  (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-conerot-radius (meters 0.5))
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 575)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-dirt"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 2371) (sp-item 2372) (sp-item 2370))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2371)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2372)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2370) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 2 32.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1107296256 1 32.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 9)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-snow"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 76) (sp-item 77) (sp-item 78))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 76)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 77)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 78) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 20
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                  (sp-flt spt-num 32.0)
-                                  (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                  (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-int spt-r 1128529920 1 64.0)
-                                  (sp-rnd-int spt-g 1128529920 1 64.0)
-                                  (sp-rnd-int spt-b 1128529920 1 64.0)
-                                  (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
-                                  (sp-flt spt-fade-a -0.42666668)
-                                  (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
-                                  (sp-int spt-timer 300)
-                                  (sp-cpuinfo-flags bit2 bit12)
-                                  (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-conerot-radius (meters 0.5))
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 580)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-ice"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 76) (sp-item 77) (sp-item 78))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 10)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-grass"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 79) (sp-item 80) (sp-item 81))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 79)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 80)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 81) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 21
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                  (sp-flt spt-num 32.0)
-                                  (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                  (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-scale-y (meters 0.15))
-                                  (sp-rnd-flt spt-r 0.0 2.0 64.0)
-                                  (sp-rnd-int spt-g 1115684864 2 64.0)
-                                  (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
-                                  (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
-                                  (sp-flt spt-fade-a -0.42666668)
-                                  (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
-                                  (sp-int spt-timer 300)
-                                  (sp-cpuinfo-flags bit2 bit12)
-                                  (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                  (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-conerot-radius (meters 0.5))
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 11)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-wood"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 82) (sp-item 83))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 82)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 83)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 12)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x5
-        :linger-duration #x2ee
-        :name "group-land-poof-crwood"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 82) (sp-item 83) (sp-item 84) (sp-item 84))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 13)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-stone"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 85) (sp-item 86))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 85)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 86)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 581)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-land-poof-pcmetal"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2373) (sp-item 2374))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2373)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 70.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 24.0 24.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2374)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 70.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 14) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-run-poof-stone"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 87))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 15) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-just-poof-stone"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 87))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 87)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 582)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x258
-        :name "group-run-poof-snow"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2375) (sp-item 2376 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 583) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-just-poof-snow"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2375))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 584)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x5
-        :linger-duration #x258
-        :name "group-just-footprint-snow"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2376 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2376) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-target-orient)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -0.25))
-                                    (sp-flt spt-scale-x (meters 0.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-flt spt-g 32.0)
-                                    (sp-flt spt-b 16.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-flt spt-fade-a -0.07111111)
-                                    (sp-int spt-timer 1050)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2375)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 24.0 24.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 585) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-run-poof-ice"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2375))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 586) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-just-poof-ice"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2375))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 16)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x258
-        :name "group-run-poof-crwood"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 89) (sp-item 89) (sp-item 84))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 17) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-just-poof-crwood"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 88))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 84)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-flt spt-y (meters -1.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters -0.0033333334) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.16)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-int spt-timer 900)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int-plain-rnd spt-next-time 75 74 1)
-                                                     (sp-launcher-by-id spt-next-launcher 90)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 3.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 90)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 150 149 1)
-                                                     (sp-launcher-by-id spt-next-launcher 91)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 91)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.08) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 18) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-run-poof-wood"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 89))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 19) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-just-poof-wood"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 89))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 89)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 587) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-run-poof-pcmetal"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2377))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 588) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-just-poof-pcmetal"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2377))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2377)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 70.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 20)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x258
-        :name "group-run-poof-grass"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 92) (sp-item 93 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 21) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-just-poof-grass"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 92))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 22)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x5
-        :linger-duration #x258
-        :name "group-just-footprint-grass"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 93 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 92)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 93) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 14
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
-                                  (sp-func spt-birth-func 'birth-func-target-orient)
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-x (meters -0.25))
-                                  (sp-flt spt-scale-x (meters 0.6))
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 32.0)
-                                  (sp-flt spt-g 32.0)
-                                  (sp-flt spt-b 16.0)
-                                  (sp-flt spt-a 48.0)
-                                  (sp-flt spt-fade-a -0.053333335)
-                                  (sp-int spt-timer 1050)
-                                  (sp-cpuinfo-flags bit2 bit12 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 23)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x258
-        :name "group-run-poof-sand"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 88) (sp-item 94 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 24) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x258
-                                      :name "group-just-poof-sand"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 88))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 25)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x5
-        :linger-duration #x258
-        :name "group-just-footprint-sand"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 94 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 88)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 94) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 14
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
-                                  (sp-func spt-birth-func 'birth-func-target-orient)
-                                  (sp-flt spt-num 1.0)
-                                  (sp-flt spt-x (meters -0.25))
-                                  (sp-flt spt-scale-x (meters 0.6))
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-flt spt-r 32.0)
-                                  (sp-flt spt-g 32.0)
-                                  (sp-flt spt-b 16.0)
-                                  (sp-flt spt-a 32.0)
-                                  (sp-flt spt-fade-a -0.035555556)
-                                  (sp-int spt-timer 1050)
-                                  (sp-cpuinfo-flags bit2 bit12 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 576) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-run-poof-dirt"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2378))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 577) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :name "group-just-poof-dirt"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2378))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 578)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x5
-        :linger-duration #x258
-        :name "group-just-footprint-dirt"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2379 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2378)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-fade-a -0.45714286)
-                                                     (sp-flt spt-friction 0.965)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2379) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-target-orient)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -0.25))
-                                    (sp-flt spt-scale-x (meters 0.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-flt spt-g 32.0)
-                                    (sp-flt spt-b 16.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-flt spt-fade-a -0.035555556)
-                                    (sp-int spt-timer 1050)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 95) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 19
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                  (sp-rnd-flt spt-num 0.0 6.0 1.0)
-                                  (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                  (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                  (sp-copy-from-other spt-scale-y -4)
-                                  (sp-rnd-int spt-r 1124073472 2 32.0)
-                                  (sp-rnd-int spt-g 1115684864 1 64.0)
-                                  (sp-rnd-int spt-b 1107296256 1 32.0)
-                                  (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
-                                  (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                  (sp-flt spt-fade-a -0.42666668)
-                                  (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
-                                  (sp-int spt-timer 300)
-                                  (sp-cpuinfo-flags bit2 bit12 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2253) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 6.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 2 32.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1107296256 1 32.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 96) (new 'static 'sparticle-launcher
-                                :init-specs
-                                (new 'static 'inline-array sp-field-init-spec 20
-                                  (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                  (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                  (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                  (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                  (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                  (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                  (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                  (sp-flt spt-scale-y (meters 0.1))
-                                  (sp-rnd-flt spt-r 0.0 2.0 64.0)
-                                  (sp-rnd-int spt-g 1115684864 2 64.0)
-                                  (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                  (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                  (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
-                                  (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                  (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
-                                  (sp-flt spt-fade-a -0.42666668)
-                                  (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
-                                  (sp-int spt-timer 300)
-                                  (sp-cpuinfo-flags bit2 bit12 bit14)
-                                  (sp-end)
-                                  )
-                                )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2250) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 6.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1128529920 1 64.0)
-                                    (sp-rnd-int spt-g 1128529920 1 64.0)
-                                    (sp-rnd-int spt-b 1128529920 1 64.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 97)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 1 (sp-end)))
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 98)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 1 (sp-end)))
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 99)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 1 (sp-end)))
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 26)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-slide-poof-sand"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 100) (sp-item 101))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 100)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 101) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-int spt-r 1124073472 2 32.0)
-                                   (sp-rnd-int spt-g 1115684864 1 64.0)
-                                   (sp-rnd-int spt-b 1107296256 1 32.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 579)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-slide-poof-dirt"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2380) (sp-item 2381))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2380)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2381) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 2 32.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1107296256 1 32.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 27)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :name "group-slide-poof-grass"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 102) (sp-item 103))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 102)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 103) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.15))
-                                   (sp-rnd-flt spt-r 0.0 2.0 64.0)
-                                   (sp-rnd-int spt-g 1115684864 2 64.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.5))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 28) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x1c2
-                                      :name "group-slide-poof-stone"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 104))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 104)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 589) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x1c2
-                                       :name "group-slide-poof-pcmetal"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2382))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2382)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 70.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 590) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x1c2
-                                       :name "group-slide-poof-snow"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2383))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2383)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-int spt-r 1128529920 1 64.0)
-                                                     (sp-rnd-int spt-g 1128529920 1 64.0)
-                                                     (sp-rnd-int spt-b 1128529920 1 64.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 591) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x1c2
-                                       :name "group-slide-poof-ice"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2383))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 29) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x1c2
-                                      :name "group-slide-poof-wood"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 105))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 105)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 6.0 6.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.17777778)
-                                                     (sp-flt spt-accel-y -0.27306667)
-                                                     (sp-flt spt-friction 0.94)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 30) (new 'static 'sparticle-launch-group
-                                      :length 1
-                                      :duration #x5
-                                      :linger-duration #x2ee
-                                      :name "group-slide-poof-crwood"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 1 (sp-item 105))
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 106) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-int spt-r 1124073472 2 32.0)
-                                   (sp-rnd-int spt-g 1115684864 1 64.0)
-                                   (sp-rnd-int spt-b 1107296256 1 32.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2265) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 2 32.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1107296256 1 32.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2262) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1128529920 1 64.0)
-                                    (sp-rnd-int spt-g 1128529920 1 64.0)
-                                    (sp-rnd-int spt-b 1128529920 1 64.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 107) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 8.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.15))
-                                   (sp-rnd-flt spt-r 0.0 2.0 64.0)
-                                   (sp-rnd-int spt-g 1115684864 2 64.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 31)
-      (new 'static 'sparticle-launch-group
-        :length 36
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-eco-death"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 36
-          (sp-item 295 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2095 :period 600 :length 5)
-          (sp-item 2096 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
-          (sp-item 2097 :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 32)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x4b
-        :linger-duration #x258
-        :name "group-lava-death"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2003) (sp-item 2004) (sp-item 2005) (sp-item 2006))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 708) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x96
-                                       :linger-duration #x258
-                                       :name "group-burn-death"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2003))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2006) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.04) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0023333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y -5.4613333)
-                                    (sp-int spt-timer 360)
-                                    (sp-cpuinfo-flags bit0 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 1.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2003) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.023529412))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.5058824)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 81)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2004)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 32.0)
-                                                     (sp-rnd-flt spt-x (meters 0.5) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0016666667) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.04444444))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -2.8444443)
-                                                     (sp-flt spt-friction 0.98)
-                                                     (sp-int spt-timer 42)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2005) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 28
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.008888889))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.56666666)
-                                    (sp-flt spt-fade-g -0.56666666)
-                                    (sp-flt spt-fade-b -0.56666666)
-                                    (sp-flt spt-fade-a 0.15)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 81 80 1)
-                                    (sp-launcher-by-id spt-next-launcher 2007)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2007)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.08) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2002)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 20
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 1.0)
-          (sp-rnd-flt spt-scale-x (meters 1.5) (meters 2.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 32.0 32.0 1.0)
-          (sp-rnd-flt spt-g 32.0 32.0 1.0)
-          (sp-rnd-flt spt-b 32.0 32.0 1.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.85333335)
-          (sp-flt spt-friction 0.98)
-          (sp-int spt-timer 450)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 15 59 1)
-          (sp-launcher-by-id spt-next-launcher 2008)
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2008)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.28444445) (sp-end))
-        )
-      )
+(defpartgroup group-target-hit
+  :id 1
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 56) (sp-item 57))
+  )
+
+;; failed to figure out what this is:
+(defpart 56 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                          (sp-flt spt-num 32.0)
+                          (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
+                          (sp-int spt-rot-x 4)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-flt spt-scale-y (meters 0.06))
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-flt spt-b 128.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-flt spt-scalevel-x (meters 0.16))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                          (sp-flt spt-fade-a 6.4)
+                          (sp-int spt-timer 150)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          (sp-int spt-next-time 10)
+                          (sp-launcher-by-id spt-next-launcher 58)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 58 :init-specs ((sp-flt spt-fade-a -0.64)))
+
+;; failed to figure out what this is:
+(defpart 57 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-flt spt-scale-x (meters 12))
+                          (sp-flt spt-rot-z (degrees 0.0))
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-flt spt-b 128.0)
+                          (sp-flt spt-a 64.0)
+                          (sp-flt spt-rotvel-z (degrees -0.4))
+                          (sp-flt spt-fade-a -1.4222221)
+                          (sp-int spt-timer 42)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-red-eco-strike-ground
+  :id 2
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 59) (sp-item 60))
+  )
+
+;; failed to figure out what this is:
+(defpart 59 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 24.0)
+                          (sp-flt spt-y (meters 1))
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-flt spt-b 32.0)
+                          (sp-rnd-flt spt-a 8.0 56.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.13333334) (meters 0.16666667) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.013333334))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-g -1.4222223)
+                          (sp-flt spt-fade-a -0.35555556)
+                          (sp-flt spt-accel-y 0.34133333)
+                          (sp-flt spt-friction 0.7)
+                          (sp-int spt-timer 180)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          (sp-int spt-next-time 90)
+                          (sp-launcher-by-id spt-next-launcher 61)
+                          (sp-flt spt-conerot-x (degrees 90.0))
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 60 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 32.0)
+                          (sp-flt spt-y (meters 1))
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-rnd-flt spt-a 64.0 8.0 1.0)
+                          (sp-flt spt-vel-y (meters 0.3))
+                          (sp-flt spt-scalevel-x (meters 0.0033333334))
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-g -2.8444445)
+                          (sp-flt spt-fade-a -0.82222223)
+                          (sp-flt spt-friction 0.7)
+                          (sp-int spt-timer 90)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          (sp-int spt-next-time 45)
+                          (sp-launcher-by-id spt-next-launcher 61)
+                          (sp-flt spt-conerot-x (degrees 90.0))
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-red-eco-spinkick
+  :id 3
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 62) (sp-item 63) (sp-item 64))
+  )
+
+;; failed to figure out what this is:
+(defpart 62 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-flt spt-b 32.0)
+                          (sp-rnd-flt spt-a 8.0 56.0 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.013333334))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-g -1.4222223)
+                          (sp-flt spt-fade-a -0.35555556)
+                          (sp-flt spt-accel-y 0.34133333)
+                          (sp-int spt-timer 180)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          (sp-int spt-next-time 90)
+                          (sp-launcher-by-id spt-next-launcher 61)
+                          (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 61
+  :init-specs
+  ((sp-flt spt-fade-r -0.7111111) (sp-flt spt-fade-g 0.7111111) (sp-flt spt-fade-b 0.35555556))
+  )
+
+;; failed to figure out what this is:
+(defpart 63 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 0.66)
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 128.0)
+                          (sp-rnd-flt spt-a 64.0 8.0 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0033333334))
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-g -2.8444445)
+                          (sp-flt spt-fade-a -0.82222223)
+                          (sp-int spt-timer 90)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          (sp-int spt-next-time 45)
+                          (sp-launcher-by-id spt-next-launcher 61)
+                          (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.1) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 64 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-g 96.0)
+                          (sp-flt spt-a 64.0)
+                          (sp-flt spt-fade-a -4.0)
+                          (sp-flt spt-accel-y 0.34133333)
+                          (sp-int spt-timer 10)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-spin-hit
+  :id 4
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 65) (sp-item 66))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-punch-hit
+  :id 5
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 65) (sp-item 66))
+  )
+
+;; failed to figure out what this is:
+(defpart 65 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                          (sp-flt spt-num 4.0)
+                          (sp-flt spt-y (meters 0.75))
+                          (sp-flt spt-scale-x (meters 3))
+                          (sp-int spt-rot-x 4)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-scale-y (meters 0.15) (meters 0.5) 1.0)
+                          (sp-flt spt-r 192.0)
+                          (sp-flt spt-g 192.0)
+                          (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-flt spt-scalevel-x (meters 0.009765625))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                          (sp-flt spt-scalevel-y (meters 0.009765625))
+                          (sp-flt spt-fade-a 2.1333334)
+                          (sp-int spt-timer 30)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          (sp-int spt-next-time 15)
+                          (sp-launcher-by-id spt-next-launcher 67)
+                          (sp-flt spt-rotate-y (degrees 0.0))
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 67 :init-specs ((sp-flt spt-fade-a -2.1333334)))
+
+;; failed to figure out what this is:
+(defpart 66 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-flt spt-y (meters 1))
+                          (sp-flt spt-scale-x (meters 3))
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 196.0)
+                          (sp-flt spt-g 196.0)
+                          (sp-flt spt-b 196.0)
+                          (sp-flt spt-a 28.0)
+                          (sp-int spt-timer 10)
+                          (sp-cpuinfo-flags bit2 bit3)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-smack-surface
+  :id 6
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 68)
+    (sp-item 69)
+    (sp-item 72 :binding 71)
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    (sp-item 71 :flags (start-dead launch-asap))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 68 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-func spt-birth-func 'birth-func-copy-target-y-rot)
+                          (sp-flt spt-num 16.0)
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 96.0)
+                          (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0033333334))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.85333335)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-flt spt-rotate-y (degrees 0.0))
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 69 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-func spt-birth-func 'birth-func-copy-target-y-rot)
+                          (sp-flt spt-num 8.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 96.0)
+                          (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.02) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0033333334))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.85333335)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-flt spt-rotate-y (degrees 0.0))
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 72 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                          (sp-rnd-flt spt-num 12.0 8.0 1.0)
+                          (sp-flt spt-scale-x (meters 1))
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-int spt-timer 604)
+                          (sp-cpuinfo-flags bit3)
+                          (sp-flt spt-userdata 8.0)
+                          (sp-func spt-func 'part-tracker-track-target-joint)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 71 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                          (sp-flt spt-num 1.0)
+                          (sp-flt spt-x (meters 0))
+                          (sp-rnd-flt spt-y (meters -1.3333334) (meters 2.6666667) 1.0)
+                          (sp-rnd-flt spt-z (meters 0.5) (meters 0.5) 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                          (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                          (sp-flt spt-b 0.0)
+                          (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                          (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                          (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
+                          (sp-flt spt-vel-y (meters 0))
+                          (sp-flt spt-vel-z (meters 0.0033333334))
+                          (sp-flt spt-fade-a -0.30476192)
+                          (sp-int spt-timer 604)
+                          (sp-cpuinfo-flags bit2 bit3 bit7)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-land-poof-sand
+  :id 8
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 73) (sp-item 74) (sp-item 75))
+  )
+
+;; failed to figure out what this is:
+(defpart 73 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 16.0)
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0033333334))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.16)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 74 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 12.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0016666667))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.21333334)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 150)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 75 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                          (sp-flt spt-num 32.0)
+                          (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                          (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                          (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-int spt-r 1124073472 2 32.0)
+                          (sp-rnd-int spt-g 1115684864 1 64.0)
+                          (sp-rnd-int spt-b 1107296256 1 32.0)
+                          (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
+                          (sp-flt spt-fade-a -0.42666668)
+                          (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-flt spt-conerot-radius (meters 0.5))
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-land-poof-dirt
+  :id 575
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2371) (sp-item 2372) (sp-item 2370))
+  )
+
+;; failed to figure out what this is:
+(defpart 2371 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2372 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2370 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 2 32.0)
+                            (sp-rnd-int spt-g 1115684864 1 64.0)
+                            (sp-rnd-int spt-b 1107296256 1 32.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.5))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-land-poof-snow
+  :id 9
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 76) (sp-item 77) (sp-item 78))
+  )
+
+;; failed to figure out what this is:
+(defpart 76 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 16.0)
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 196.0 64.0 1.0)
+                          (sp-rnd-flt spt-g 196.0 64.0 1.0)
+                          (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0033333334))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.16)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 77 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 12.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 196.0 64.0 1.0)
+                          (sp-rnd-flt spt-g 196.0 64.0 1.0)
+                          (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0016666667))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.21333334)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 150)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 78 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                          (sp-flt spt-num 32.0)
+                          (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                          (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                          (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-int spt-r 1128529920 1 64.0)
+                          (sp-rnd-int spt-g 1128529920 1 64.0)
+                          (sp-rnd-int spt-b 1128529920 1 64.0)
+                          (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
+                          (sp-flt spt-fade-a -0.42666668)
+                          (sp-rnd-flt spt-accel-y -5.4613333 2.7306666 1.0)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-flt spt-conerot-radius (meters 0.5))
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-land-poof-ice
+  :id 580
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 76) (sp-item 77) (sp-item 78))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-land-poof-grass
+  :id 10
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 79) (sp-item 80) (sp-item 81))
+  )
+
+;; failed to figure out what this is:
+(defpart 79 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 16.0)
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                          (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0033333334))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.16)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 80 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 12.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                          (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0016666667))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.21333334)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 150)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 81 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                          (sp-flt spt-num 32.0)
+                          (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                          (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                          (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-flt spt-scale-y (meters 0.15))
+                          (sp-rnd-flt spt-r 0.0 2.0 64.0)
+                          (sp-rnd-int spt-g 1115684864 2 64.0)
+                          (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.015) (meters 0.006666667) 1.0)
+                          (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
+                          (sp-flt spt-fade-a -0.42666668)
+                          (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-flt spt-conerot-radius (meters 0.5))
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-land-poof-wood
+  :id 11
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 82) (sp-item 83))
+  )
+
+;; failed to figure out what this is:
+(defpart 82 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 16.0)
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                          (sp-flt spt-g 64.0)
+                          (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0033333334))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.16)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 83 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 12.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                          (sp-flt spt-g 64.0)
+                          (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0016666667))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.21333334)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 150)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-land-poof-crwood
+  :id 12
+  :duration 5
+  :linger-duration 750
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 82) (sp-item 83) (sp-item 84) (sp-item 84))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-land-poof-stone
+  :id 13
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 85) (sp-item 86))
+  )
+
+;; failed to figure out what this is:
+(defpart 85 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 16.0)
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                          (sp-flt spt-g 96.0)
+                          (sp-flt spt-b 96.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0033333334))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.16)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 86 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-flt spt-num 12.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                          (sp-flt spt-g 96.0)
+                          (sp-flt spt-b 96.0)
+                          (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0016666667))
+                          (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a -0.21333334)
+                          (sp-flt spt-accel-y -1.3653333)
+                          (sp-flt spt-friction 0.95)
+                          (sp-int spt-timer 150)
+                          (sp-cpuinfo-flags bit2 bit12)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-land-poof-pcmetal
+  :id 581
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2373) (sp-item 2374))
+  )
+
+;; failed to figure out what this is:
+(defpart 2373 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 70.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 40.0 20.0 1.0)
+                            (sp-rnd-flt spt-a 24.0 24.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2374 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 70.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 40.0 20.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-run-poof-stone
+  :id 14
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 87))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-poof-stone
+  :id 15
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 87))
+  )
+
+;; failed to figure out what this is:
+(defpart 87 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                          (sp-flt spt-g 96.0)
+                          (sp-flt spt-b 96.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                          (sp-flt spt-fade-a -0.45714286)
+                          (sp-flt spt-friction 0.965)
+                          (sp-int spt-timer 105)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-run-poof-snow
+  :id 582
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2375) (sp-item 2376 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-poof-snow
+  :id 583
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2375))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-footprint-snow
+  :id 584
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2376 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2376 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
+                            (sp-func spt-birth-func 'birth-func-target-orient)
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -0.25))
+                            (sp-flt spt-scale-x (meters 0.6))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 16.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-flt spt-fade-a -0.07111111)
+                            (sp-int spt-timer 1050)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2375 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 196.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 196.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 24.0 24.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                            (sp-flt spt-fade-a -0.45714286)
+                            (sp-flt spt-friction 0.965)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-run-poof-ice
+  :id 585
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2375))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-poof-ice
+  :id 586
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2375))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-run-poof-crwood
+  :id 16
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 89) (sp-item 89) (sp-item 84))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-poof-crwood
+  :id 17
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 88))
+  )
+
+;; failed to figure out what this is:
+(defpart 84 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                          (sp-flt spt-y (meters -1))
+                          (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                          (sp-flt spt-g 64.0)
+                          (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                          (sp-flt spt-a 0.0)
+                          (sp-rnd-flt spt-vel-y (meters 0) (meters -0.0033333334) 1.0)
+                          (sp-flt spt-scalevel-x (meters 0.0016666667))
+                          (sp-copy-from-other spt-scalevel-y -4)
+                          (sp-flt spt-fade-a 0.16)
+                          (sp-flt spt-accel-y -0.27306667)
+                          (sp-int spt-timer 900)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          (sp-int-plain-rnd spt-next-time 75 74 1)
+                          (sp-launcher-by-id spt-next-launcher 90)
+                          (sp-flt spt-conerot-x (degrees 90.0))
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-rnd-flt spt-conerot-radius (meters 0) (meters 3) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 90
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int-plain-rnd spt-next-time 150 149 1) (sp-launcher-by-id spt-next-launcher 91))
+  )
+
+;; failed to figure out what this is:
+(defpart 91 :init-specs ((sp-flt spt-fade-a -0.08)))
+
+;; failed to figure out what this is:
+(defpartgroup group-run-poof-wood
+  :id 18
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 89))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-poof-wood
+  :id 19
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 89))
+  )
+
+;; failed to figure out what this is:
+(defpart 89 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                          (sp-flt spt-g 64.0)
+                          (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                          (sp-flt spt-fade-a -0.45714286)
+                          (sp-flt spt-friction 0.965)
+                          (sp-int spt-timer 105)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-run-poof-pcmetal
+  :id 587
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2377))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-poof-pcmetal
+  :id 588
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2377))
+  )
+
+;; failed to figure out what this is:
+(defpart 2377 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 70.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 40.0 20.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                            (sp-flt spt-fade-a -0.45714286)
+                            (sp-flt spt-friction 0.965)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-run-poof-grass
+  :id 20
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 92) (sp-item 93 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-poof-grass
+  :id 21
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 92))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-footprint-grass
+  :id 22
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 93 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 92 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                          (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                          (sp-flt spt-fade-a -0.45714286)
+                          (sp-flt spt-friction 0.965)
+                          (sp-int spt-timer 105)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 93 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
+                          (sp-func spt-birth-func 'birth-func-target-orient)
+                          (sp-flt spt-num 1.0)
+                          (sp-flt spt-x (meters -0.25))
+                          (sp-flt spt-scale-x (meters 0.6))
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 32.0)
+                          (sp-flt spt-g 32.0)
+                          (sp-flt spt-b 16.0)
+                          (sp-flt spt-a 48.0)
+                          (sp-flt spt-fade-a -0.053333335)
+                          (sp-int spt-timer 1050)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-run-poof-sand
+  :id 23
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 88) (sp-item 94 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-poof-sand
+  :id 24
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 88))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-footprint-sand
+  :id 25
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 94 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 88 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                          (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 128.0)
+                          (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                          (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                          (sp-flt spt-fade-a -0.45714286)
+                          (sp-flt spt-friction 0.965)
+                          (sp-int spt-timer 105)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 94 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
+                          (sp-func spt-birth-func 'birth-func-target-orient)
+                          (sp-flt spt-num 1.0)
+                          (sp-flt spt-x (meters -0.25))
+                          (sp-flt spt-scale-x (meters 0.6))
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-flt spt-r 32.0)
+                          (sp-flt spt-g 32.0)
+                          (sp-flt spt-b 16.0)
+                          (sp-flt spt-a 32.0)
+                          (sp-flt spt-fade-a -0.035555556)
+                          (sp-int spt-timer 1050)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpartgroup group-run-poof-dirt
+  :id 576
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2378))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-poof-dirt
+  :id 577
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2378))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-just-footprint-dirt
+  :id 578
+  :duration 5
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2379 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2378 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                            (sp-flt spt-fade-a -0.45714286)
+                            (sp-flt spt-friction 0.965)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2379 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xe :page #x2))
+                            (sp-func spt-birth-func 'birth-func-target-orient)
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -0.25))
+                            (sp-flt spt-scale-x (meters 0.6))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 16.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-flt spt-fade-a -0.035555556)
+                            (sp-int spt-timer 1050)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 95 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                          (sp-rnd-flt spt-num 0.0 6.0 1.0)
+                          (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                          (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                          (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                          (sp-copy-from-other spt-scale-y -4)
+                          (sp-rnd-int spt-r 1124073472 2 32.0)
+                          (sp-rnd-int spt-g 1115684864 1 64.0)
+                          (sp-rnd-int spt-b 1107296256 1 32.0)
+                          (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                          (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
+                          (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
+                          (sp-flt spt-fade-a -0.42666668)
+                          (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 2253 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.0 6.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 2 32.0)
+                            (sp-rnd-int spt-g 1115684864 1 64.0)
+                            (sp-rnd-int spt-b 1107296256 1 32.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 96 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                          (sp-rnd-flt spt-num 0.0 2.0 1.0)
+                          (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                          (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                          (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                          (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                          (sp-flt spt-scale-y (meters 0.1))
+                          (sp-rnd-flt spt-r 0.0 2.0 64.0)
+                          (sp-rnd-int spt-g 1115684864 2 64.0)
+                          (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                          (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
+                          (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
+                          (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
+                          (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
+                          (sp-flt spt-fade-a -0.42666668)
+                          (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
+                          (sp-int spt-timer 300)
+                          (sp-cpuinfo-flags bit2 bit12 bit14)
+                          )
+            )
+
+;; failed to figure out what this is:
+(defpart 2250 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.0 6.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1128529920 1 64.0)
+                            (sp-rnd-int spt-g 1128529920 1 64.0)
+                            (sp-rnd-int spt-b 1128529920 1 64.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.00083333335) (meters 0.0016666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y -2.7306666 1.3653333 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 97)
+
+;; failed to figure out what this is:
+(defpart 98)
+
+;; failed to figure out what this is:
+(defpart 99)
+
+;; failed to figure out what this is:
+(defpartgroup group-slide-poof-sand
+  :id 26
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 100) (sp-item 101))
+  )
+
+;; failed to figure out what this is:
+(defpart 100 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 6.0 6.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.17777778)
+                           (sp-flt spt-accel-y -0.27306667)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 180)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 101 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-rnd-flt spt-num 0.0 8.0 1.0)
+                           (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-int spt-r 1124073472 2 32.0)
+                           (sp-rnd-int spt-g 1115684864 1 64.0)
+                           (sp-rnd-int spt-b 1107296256 1 32.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.5))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-slide-poof-dirt
+  :id 579
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2380) (sp-item 2381))
+  )
+
+;; failed to figure out what this is:
+(defpart 2380 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 6.0 6.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.17777778)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2381 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.0 8.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 2 32.0)
+                            (sp-rnd-int spt-g 1115684864 1 64.0)
+                            (sp-rnd-int spt-b 1107296256 1 32.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.5))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-slide-poof-grass
+  :id 27
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 102) (sp-item 103))
+  )
+
+;; failed to figure out what this is:
+(defpart 102 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 6.0 6.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.17777778)
+                           (sp-flt spt-accel-y -0.27306667)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 180)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 103 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                           (sp-rnd-flt spt-num 0.0 8.0 1.0)
+                           (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.15))
+                           (sp-rnd-flt spt-r 0.0 2.0 64.0)
+                           (sp-rnd-int spt-g 1115684864 2 64.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.008333334) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y -4.096 2.048 1.0)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.5))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-slide-poof-stone
+  :id 28
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 104))
+  )
+
+;; failed to figure out what this is:
+(defpart 104 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 6.0 6.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-flt spt-g 96.0)
+                           (sp-flt spt-b 96.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.17777778)
+                           (sp-flt spt-accel-y -0.27306667)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 180)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-slide-poof-pcmetal
+  :id 589
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2382))
+  )
+
+;; failed to figure out what this is:
+(defpart 2382 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 6.0 6.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 70.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 40.0 20.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.17777778)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-slide-poof-snow
+  :id 590
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2383))
+  )
+
+;; failed to figure out what this is:
+(defpart 2383 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 6.0 6.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1128529920 1 64.0)
+                            (sp-rnd-int spt-g 1128529920 1 64.0)
+                            (sp-rnd-int spt-b 1128529920 1 64.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.17777778)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-slide-poof-ice
+  :id 591
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2383))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-slide-poof-wood
+  :id 29
+  :duration 5
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 105))
+  )
+
+;; failed to figure out what this is:
+(defpart 105 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 6.0 6.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.17777778)
+                           (sp-flt spt-accel-y -0.27306667)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 180)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-slide-poof-crwood
+  :id 30
+  :duration 5
+  :linger-duration 750
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 105))
+  )
+
+;; failed to figure out what this is:
+(defpart 106 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-rnd-flt spt-num 0.0 8.0 1.0)
+                           (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-int spt-r 1124073472 2 32.0)
+                           (sp-rnd-int spt-g 1115684864 1 64.0)
+                           (sp-rnd-int spt-b 1107296256 1 32.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 2265 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.0 8.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 2 32.0)
+                            (sp-rnd-int spt-g 1115684864 1 64.0)
+                            (sp-rnd-int spt-b 1107296256 1 32.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2262 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.0 8.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.07) (meters 0.02) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1128529920 1 64.0)
+                            (sp-rnd-int spt-g 1128529920 1 64.0)
+                            (sp-rnd-int spt-b 1128529920 1 64.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 107 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                           (sp-rnd-flt spt-num 0.0 8.0 1.0)
+                           (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.1) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.15))
+                           (sp-rnd-flt spt-r 0.0 2.0 64.0)
+                           (sp-rnd-int spt-g 1115684864 2 64.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y -5.4613333 3.4133334 1.0)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-dark-eco-death
+  :id 31
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 295 :fade-after (meters 100) :period 600 :length 5 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2095 :period 600 :length 5)
+    (sp-item 2096 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
+    (sp-item 2097 :period 600 :length 20)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-lava-death
+  :id 32
+  :duration 75
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2003) (sp-item 2004) (sp-item 2005) (sp-item 2006))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-burn-death
+  :id 708
+  :duration 150
+  :linger-duration 600
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2003))
+  )
+
+;; failed to figure out what this is:
+(defpart 2006 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0023333333))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y -5.4613333)
+                            (sp-int spt-timer 360)
+                            (sp-cpuinfo-flags bit0 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 1))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2003 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.023529412))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.5058824)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 81)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2004 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-x (meters 0.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0016666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.04444444))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -2.8444443)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2005 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 3) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.008888889))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.56666666)
+                            (sp-flt spt-fade-g -0.56666666)
+                            (sp-flt spt-fade-b -0.56666666)
+                            (sp-flt spt-fade-a 0.15)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 81 80 1)
+                            (sp-launcher-by-id spt-next-launcher 2007)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2007 :init-specs ((sp-flt spt-fade-a -0.08)))
+
+;; failed to figure out what this is:
+(defpart 2002 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 32.0 32.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 15 59 1)
+                            (sp-launcher-by-id spt-next-launcher 2008)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2008 :init-specs ((sp-flt spt-fade-a -0.28444445)))
 
 ;; definition for function process-drawable-burn-effect
 ;; Used lq/sq
@@ -2761,128 +2293,94 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2391)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 17
-          (sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
-          (sp-func spt-birth-func 'birth-func-target-orient)
-          (sp-flt spt-num 1.0)
-          (sp-flt spt-y (meters 0.02))
-          (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 110.0 32.0 1.0)
-          (sp-rnd-flt spt-g 128.0 32.0 1.0)
-          (sp-rnd-flt spt-b 96.0 32.0 1.0)
-          (sp-rnd-flt spt-a 8.0 40.0 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.2)
-          (sp-int spt-timer 240)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-flt spt-userdata -8192.0)
-          (sp-end)
-          )
-        )
-      )
+(defpart 2391 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
+                            (sp-func spt-birth-func 'birth-func-target-orient)
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0.02))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 110.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 40.0 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.2)
+                            (sp-int spt-timer 240)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata -8192.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 611)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-first-person-hud-left"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2474 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-first-person-hud-left
+  :id 611
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2474 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 612)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-first-person-hud-right"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2475 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-first-person-hud-right
+  :id 612
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2475 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 613)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-first-person-hud-selector"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2476 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-first-person-hud-selector
+  :id 613
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2476 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2474)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 12
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x408))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 3.5))
-                                                     (sp-flt spt-scale-y (meters 13.0))
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-int spt-timer -1)
-                                                     (sp-cpuinfo-flags bit2 bit9 bit13)
-                                                     (sp-func spt-func 'part-first-person-hud-left-func)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2474 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x408))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 3.5))
+                            (sp-flt spt-scale-y (meters 13))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            (sp-func spt-func 'part-first-person-hud-left-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2475)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 13
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x408))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 3.5))
-                                                     (sp-flt spt-rot-z (degrees 180.0))
-                                                     (sp-flt spt-scale-y (meters 13.0))
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-int spt-timer -1)
-                                                     (sp-cpuinfo-flags bit2 bit9 bit13)
-                                                     (sp-func spt-func 'part-first-person-hud-right-func)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2475 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x408))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 3.5))
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-flt spt-scale-y (meters 13))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            (sp-func spt-func 'part-first-person-hud-right-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2476) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x408))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-first-person-hud-selector-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2476 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x408))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit9 bit13)
+                            (sp-func spt-func 'part-first-person-hud-selector-func)
+                            )
+              )
diff --git a/test/decompiler/reference/engine/ui/hud-classes_REF.gc b/test/decompiler/reference/engine/ui/hud-classes_REF.gc
index 8a09073373..3e12e0f2ef 100644
--- a/test/decompiler/reference/engine/ui/hud-classes_REF.gc
+++ b/test/decompiler/reference/engine/ui/hud-classes_REF.gc
@@ -2,156 +2,121 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 75) (new 'static 'sparticle-launch-group
-                                      :length 11
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag screen-space)
-                                      :name "group-part-hud-pickup"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 11
-                                        (sp-item 303 :flags (launch-asap) :binding 304)
-                                        (sp-item 304 :flags (start-dead launch-asap) :binding 305)
-                                        (sp-item 305 :flags (start-dead launch-asap) :binding 306)
-                                        (sp-item 306 :flags (start-dead launch-asap) :binding 307)
-                                        (sp-item 306 :flags (start-dead launch-asap) :binding 307)
-                                        (sp-item 306 :flags (start-dead launch-asap) :binding 307)
-                                        (sp-item 306 :flags (start-dead launch-asap) :binding 307)
-                                        (sp-item 307 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 307 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 307 :fade-after (meters 40.0) :flags (start-dead))
-                                        (sp-item 307 :fade-after (meters 40.0) :flags (start-dead))
-                                        )
-                                      :bounds (new 'static 'sphere :w 8192.0)
-                                      )
-      )
+(defpartgroup group-part-hud-pickup
+  :id 75
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 303 :flags (launch-asap) :binding 304)
+    (sp-item 304 :flags (start-dead launch-asap) :binding 305)
+    (sp-item 305 :flags (start-dead launch-asap) :binding 306)
+    (sp-item 306 :flags (start-dead launch-asap) :binding 307)
+    (sp-item 306 :flags (start-dead launch-asap) :binding 307)
+    (sp-item 306 :flags (start-dead launch-asap) :binding 307)
+    (sp-item 306 :flags (start-dead launch-asap) :binding 307)
+    (sp-item 307 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 307 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 307 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 307 :fade-after (meters 40) :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 303) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 10
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 303 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit3 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 304) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 122.88)
-                                   (sp-flt spt-scale-x (meters 2.5))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0014814815))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-flt spt-rotvel-z (degrees 0.2))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit7 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 304 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.03))
+                           (sp-flt spt-scale-x (meters 2.5))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.026666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.0014814815))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-flt spt-rotvel-z (degrees 0.2))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit7 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 305) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 266.24)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 92.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3 bit7 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 305 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.065))
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 92.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.017777778) (meters 0.017777778) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.4) 1 145.63556)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit3 bit7 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 306) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 491.52)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.053333335) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 306 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 0.12))
+                           (sp-flt spt-scale-x (meters 0.4))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.053333335) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 307) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 0.25)
-                                   (sp-flt spt-scale-x (meters 0.35))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0012500001))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -2.125)
-                                   (sp-flt spt-accel-y -0.08192)
-                                   (sp-int-plain-rnd spt-timer 30 239 1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-int spt-next-time 120)
-                                   (sp-launcher-by-id spt-next-launcher 308)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 307 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 0.25)
+                           (sp-flt spt-scale-x (meters 0.35))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-flt spt-scalevel-x (meters -0.0012500001))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -2.125)
+                           (sp-flt spt-accel-y -0.08192)
+                           (sp-int-plain-rnd spt-timer 30 239 1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-int spt-next-time 120)
+                           (sp-launcher-by-id spt-next-launcher 308)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 308)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-r 0.0) (sp-end))
-        )
-      )
+(defpart 308 :init-specs ((sp-flt spt-fade-r 0.0)))
 
 ;; definition of type hud-pickups
 (deftype hud-pickups (hud)
@@ -252,106 +217,76 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 76)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-health-1"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 309 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-health-1
+  :id 76
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 309 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 77)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-health-2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 310 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-health-2
+  :id 77
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 310 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 78)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-health-3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 311 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-health-3
+  :id 78
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 311 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 309) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2d :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.7))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-health-01-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 309 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2d :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1.7))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'part-hud-health-01-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 310) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.7))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-health-03-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 310 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2e :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1.7))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'part-hud-health-03-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 311) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2f :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.7))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-health-02-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 311 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2f :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1.7))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'part-hud-health-02-func)
+                           )
+             )
 
 ;; definition of type hud-health
 (deftype hud-health (hud)
@@ -534,37 +469,27 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 705)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-orb-all"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2964 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-orb-all
+  :id 705
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 2964 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2964) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2.4))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2964 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 2.4))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9)
+                            )
+              )
 
 ;; definition of type hud-money-all
 (deftype hud-money-all (hud)
@@ -838,37 +763,27 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 79)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-orb"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 312 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-orb
+  :id 79
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 312 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 312) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.6))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 312 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1.6))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; definition of type hud-money
 (deftype hud-money (hud)
@@ -1085,263 +1000,202 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 313) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-flt spt-userdata 4.0)
-                                   (sp-func spt-func 'fuel-cell-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 313 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.4))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9)
+                           (sp-flt spt-userdata 4.0)
+                           (sp-func spt-func 'fuel-cell-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 314) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-flt spt-userdata 5.0)
-                                   (sp-func spt-func 'fuel-cell-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 314 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.4))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9)
+                           (sp-flt spt-userdata 5.0)
+                           (sp-func spt-func 'fuel-cell-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 315) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-flt spt-userdata 6.0)
-                                   (sp-func spt-func 'fuel-cell-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 315 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.4))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9)
+                           (sp-flt spt-userdata 6.0)
+                           (sp-func spt-func 'fuel-cell-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 316) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-flt spt-userdata 7.0)
-                                   (sp-func spt-func 'fuel-cell-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 316 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.4))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9)
+                           (sp-flt spt-userdata 7.0)
+                           (sp-func spt-func 'fuel-cell-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 317) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-flt spt-userdata 9.0)
-                                   (sp-func spt-func 'fuel-cell-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 317 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9)
+                           (sp-flt spt-userdata 9.0)
+                           (sp-func spt-func 'fuel-cell-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 318) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x30 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.8))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'fuel-cell-hud-center-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 318 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x30 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1.8))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'fuel-cell-hud-center-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 80) (new 'static 'sparticle-launch-group
-                                      :length 10
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags
-                                      (sp-group-flag use-local-clock screen-space)
-                                      :name "group-part-hud-power-cell-whole"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 10
-                                        (sp-item 318 :flags (launch-asap))
-                                        (sp-item 319 :fade-after (meters 35.0))
-                                        (sp-item 320 :fade-after (meters 20.0))
-                                        (sp-item 321 :flags (launch-asap) :period 3600 :length 5)
-                                        (sp-item 322 :flags (launch-asap) :period 3600 :length 5)
-                                        (sp-item 317 :flags (launch-asap))
-                                        (sp-item 313 :flags (launch-asap))
-                                        (sp-item 314 :flags (launch-asap))
-                                        (sp-item 315 :flags (launch-asap))
-                                        (sp-item 316 :flags (launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 409600.0)
-                                      )
-      )
+(defpartgroup group-part-hud-power-cell-whole
+  :id 80
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 318 :flags (launch-asap))
+    (sp-item 319 :fade-after (meters 35))
+    (sp-item 320 :fade-after (meters 20))
+    (sp-item 321 :flags (launch-asap) :period 3600 :length 5)
+    (sp-item 322 :flags (launch-asap) :period 3600 :length 5)
+    (sp-item 317 :flags (launch-asap))
+    (sp-item 313 :flags (launch-asap))
+    (sp-item 314 :flags (launch-asap))
+    (sp-item 315 :flags (launch-asap))
+    (sp-item 316 :flags (launch-asap))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 323)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 323 :init-specs ((sp-flt spt-fade-a -0.53333336)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 319) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-z 92160.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.8) 1.0)
-                                   (sp-rnd-int spt-r 0 1 255.0)
-                                   (sp-rnd-int spt-g 0 1 255.0)
-                                   (sp-rnd-int spt-b 0 1 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 0.35555556)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 232)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 319 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-flt spt-z (meters 22.5))
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.8) 1.0)
+                           (sp-rnd-int spt-r 0 1 255.0)
+                           (sp-rnd-int spt-g 0 1 255.0)
+                           (sp-rnd-int spt-b 0 1 255.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 0.35555556)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 232)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 320) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.06)
-                                   (sp-flt spt-z 92160.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.2))
-                                   (sp-rnd-int spt-r 0 1 255.0)
-                                   (sp-rnd-int spt-g 0 1 255.0)
-                                   (sp-rnd-int spt-b 0 1 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 232)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 320 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.06)
+                           (sp-flt spt-z (meters 22.5))
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.2))
+                           (sp-rnd-int spt-r 0 1 255.0)
+                           (sp-rnd-int spt-g 0 1 255.0)
+                           (sp-rnd-int spt-b 0 1 255.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-fade-a 0.32)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 232)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 321) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-z 92160.0)
-                                   (sp-flt spt-scale-x (meters 3.3))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 2.8))
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-rotvel-z (degrees -0.4))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-func spt-func 'fuel-cell-hud-starburst-3-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 321 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-z (meters 22.5))
+                           (sp-flt spt-scale-x (meters 3.3))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-scale-y (meters 2.8))
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 0.0 128.0 1.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-rotvel-z (degrees -0.4))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-func spt-func 'fuel-cell-hud-starburst-3-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 322) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-z 92160.0)
-                                   (sp-flt spt-scale-x (meters 3.8))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 3.3))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-rotvel-z (degrees 0.3))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-func spt-func 'fuel-cell-hud-starburst-4-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 322 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-z (meters 22.5))
+                           (sp-flt spt-scale-x (meters 3.8))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-scale-y (meters 3.3))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-rotvel-z (degrees 0.3))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-func spt-func 'fuel-cell-hud-starburst-4-callback)
+                           )
+             )
 
 ;; definition of type hud-fuel-cell
 (deftype hud-fuel-cell (hud)
@@ -1601,65 +1455,48 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 81) (new 'static 'sparticle-launch-group
-                                      :length 2
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag screen-space)
-                                      :name "group-part-hud-buzzer"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 2
-                                        (sp-item 324 :flags (launch-asap) :binding 325)
-                                        (sp-item 325 :flags (start-dead launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 409600.0)
-                                      )
-      )
+(defpartgroup group-part-hud-buzzer
+  :id 81
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 324 :flags (launch-asap) :binding 325) (sp-item 325 :flags (start-dead launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 324) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 324 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 2.2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 325) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 0.0))
-                                   (sp-flt spt-y (meters 1.3333334))
-                                   (sp-flt spt-z 409.6)
-                                   (sp-flt spt-scale-x (meters 1.8))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters 0.053333335))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit7 bit9)
-                                   (sp-func spt-func 'part-hud-buzzer-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 325 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 0))
+                           (sp-flt spt-y (meters 1.3333334))
+                           (sp-flt spt-z (meters 0.1))
+                           (sp-flt spt-scale-x (meters 1.8))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-omega 0.0)
+                           (sp-flt spt-vel-x (meters 0.053333335))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit7 bit9)
+                           (sp-func spt-func 'part-hud-buzzer-func)
+                           )
+             )
 
 ;; definition of type hud-buzzers
 (deftype hud-buzzers (hud)
@@ -1826,150 +1663,106 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 82)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-eco-timer"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 327 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-eco-timer
+  :id 82
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 327 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 83)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-eco-timer-backing"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 328 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-hud-eco-timer-backing
+  :id 83
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 328 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 327) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 3.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-eco-timer-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 327 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 3.2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'part-hud-eco-timer-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 328) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 63.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-eco-timer-backing-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 328 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 2.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 63.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'part-hud-eco-timer-backing-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 84) (new 'static 'sparticle-launch-group
-                                      :length 3
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags
-                                      (sp-group-flag use-local-clock screen-space)
-                                      :name "group-part-hud-timer-blue"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 3
-                                        (sp-item 329 :flags (launch-asap))
-                                        (sp-item 330 :flags (launch-asap))
-                                        (sp-item 331 :flags (launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 409600.0)
-                                      )
-      )
+(defpartgroup group-part-hud-timer-blue
+  :id 84
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 329 :flags (launch-asap)) (sp-item 330 :flags (launch-asap)) (sp-item 331 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 329) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-eco-timer-01-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 329 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'part-hud-eco-timer-01-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 330) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-eco-timer-02-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 330 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'part-hud-eco-timer-02-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 331) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 2.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-eco-timer-03-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 331 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'part-hud-eco-timer-03-func)
+                           )
+             )
 
 ;; definition of type hud-power
 (deftype hud-power (hud)
diff --git a/test/decompiler/reference/engine/ui/progress/progress-part_REF.gc b/test/decompiler/reference/engine/ui/progress/progress-part_REF.gc
index 5fca41450f..9075405417 100644
--- a/test/decompiler/reference/engine/ui/progress/progress-part_REF.gc
+++ b/test/decompiler/reference/engine/ui/progress/progress-part_REF.gc
@@ -184,1059 +184,763 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 85)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags
-        (sp-group-flag use-local-clock screen-space)
-        :name "group-part-progress-hud-previous"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 332 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-previous
+  :id 85
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 332 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 86)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags
-        (sp-group-flag use-local-clock screen-space)
-        :name "group-part-progress-hud-next"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 333 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-next
+  :id 86
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 333 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 87)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-hud-selector"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 334 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-selector
+  :id 87
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 334 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 88)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-hud-left"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 335 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-left
+  :id 88
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 335 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 89)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-hud-right"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 336 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-right
+  :id 89
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 336 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 90)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-hud-tint"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 337 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-tint
+  :id 90
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 337 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 91) (new 'static 'sparticle-launch-group
-                                      :length 3
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag screen-space)
-                                      :name "group-part-progress-card-cell"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 3
-                                        (sp-item 2190 :flags (launch-asap))
-                                        (sp-item 2191 :flags (launch-asap))
-                                        (sp-item 2192 :flags (launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 4096.0)
-                                      )
-      )
+(defpartgroup group-part-progress-card-cell
+  :id 91
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2190 :flags (launch-asap)) (sp-item 2191 :flags (launch-asap)) (sp-item 2192 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 570)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-button-x"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2336 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-button-x
+  :id 570
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2336 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 571)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-button-square"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2337 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-button-square
+  :id 571
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2337 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 572)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-button-triangle"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2338 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-button-triangle
+  :id 572
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2338 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 573)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-button-circle"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2339 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-button-circle
+  :id 573
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2339 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 92)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-card-slot-01"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2142 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-card-slot-01
+  :id 92
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2142 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 93)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-card-slot-02"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2143 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-card-slot-02
+  :id 93
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2143 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 94)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-card-slot-03"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2144 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-card-slot-03
+  :id 94
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2144 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 95)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-card-slot-04"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2145 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 4096.0)
-        )
-      )
+(defpartgroup group-part-progress-card-slot-04
+  :id 95
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2145 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 96)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name
-        "group-part-progress-hud-power-cell-center"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 338 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-progress-hud-power-cell-center
+  :id 96
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 338 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 337) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 15.0))
-                                   (sp-flt spt-scale-y (meters 11.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-func spt-func 'part-progress-hud-tint-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 337 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 15))
+                           (sp-flt spt-scale-y (meters 11.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9 bit13)
+                           (sp-func spt-func 'part-progress-hud-tint-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2190) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6e :page #x1cf))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.8))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-cell-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2190 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6e :page #x1cf))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0.8))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit9 bit13)
+                            (sp-func spt-func 'part-progress-card-cell-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2191) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6d :page #x1cf))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 1.05))
-                                    (sp-flt spt-scale-x (meters 0.8))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-cell-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2191 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6d :page #x1cf))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 1.05))
+                            (sp-flt spt-scale-x (meters 0.8))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit9 bit13)
+                            (sp-func spt-func 'part-progress-card-cell-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2192) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6c :page #x1cf))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 2.3))
-                                    (sp-flt spt-scale-x (meters 0.8))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-cell-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2192 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6c :page #x1cf))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 2.3))
+                            (sp-flt spt-scale-x (meters 0.8))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit9 bit13)
+                            (sp-func spt-func 'part-progress-card-cell-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2336) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x408))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-button-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2336 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x408))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1.6))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            (sp-func spt-func 'part-progress-hud-button-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2337) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x408))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-button-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2337 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x408))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1.6))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            (sp-func spt-func 'part-progress-hud-button-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2338) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x408))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-button-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2338 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x408))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1.6))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            (sp-func spt-func 'part-progress-hud-button-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2339) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x408))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.6))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-button-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2339 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x408))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1.6))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            (sp-func spt-func 'part-progress-hud-button-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2142) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 9.2))
-                                    (sp-flt spt-scale-y (meters 2.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-slot-01-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2142 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 9.2))
+                            (sp-flt spt-scale-y (meters 2))
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit9 bit13)
+                            (sp-func spt-func 'part-progress-card-slot-01-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2143) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 9.2))
-                                    (sp-flt spt-scale-y (meters 2.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-slot-02-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2143 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 9.2))
+                            (sp-flt spt-scale-y (meters 2))
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit9 bit13)
+                            (sp-func spt-func 'part-progress-card-slot-02-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2144) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 9.2))
-                                    (sp-flt spt-scale-y (meters 2.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-slot-03-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2144 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 9.2))
+                            (sp-flt spt-scale-y (meters 2))
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit9 bit13)
+                            (sp-func spt-func 'part-progress-card-slot-03-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2145) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 9.2))
-                                    (sp-flt spt-scale-y (meters 2.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-func spt-func 'part-progress-card-slot-04-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2145 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 9.2))
+                            (sp-flt spt-scale-y (meters 2))
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit9 bit13)
+                            (sp-func spt-func 'part-progress-card-slot-04-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 332) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x408))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 332 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x408))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1.2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9 bit13)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 333) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x408))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 333 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x408))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1.2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9 bit13)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 334) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x408))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.8))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 334 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x408))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1.8))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9 bit13)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 335)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 12
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x408))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 3.5))
-                                                     (sp-flt spt-scale-y (meters 13.0))
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-int spt-timer -1)
-                                                     (sp-cpuinfo-flags bit2 bit9 bit13)
-                                                     (sp-func spt-func 'part-progress-hud-left-func)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 335 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x408))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 3.5))
+                           (sp-flt spt-scale-y (meters 13))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9 bit13)
+                           (sp-func spt-func 'part-progress-hud-left-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 336) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x408))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 6.0))
-                                   (sp-flt spt-scale-y (meters 13.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-func spt-func 'part-progress-hud-right-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 336 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x408))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 6))
+                           (sp-flt spt-scale-y (meters 13))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9 bit13)
+                           (sp-func spt-func 'part-progress-hud-right-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 339) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9 bit13)
-                                   (sp-flt spt-userdata 4.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 339 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9 bit13)
+                           (sp-flt spt-userdata 4.0)
+                           (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 340) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9 bit13)
-                                   (sp-flt spt-userdata 5.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 340 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9 bit13)
+                           (sp-flt spt-userdata 5.0)
+                           (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 341) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9 bit13)
-                                   (sp-flt spt-userdata 6.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 341 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9 bit13)
+                           (sp-flt spt-userdata 6.0)
+                           (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 342) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9 bit13)
-                                   (sp-flt spt-userdata 7.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 342 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9 bit13)
+                           (sp-flt spt-userdata 7.0)
+                           (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 343) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit9 bit13)
-                                   (sp-flt spt-userdata 9.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 343 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x31 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit9 bit13)
+                           (sp-flt spt-userdata 9.0)
+                           (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 338) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x30 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.2))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9 bit13)
-                                   (sp-flt spt-userdata 3.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 338 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x30 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1.2))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9 bit13)
+                           (sp-flt spt-userdata 3.0)
+                           (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 344)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 344 :init-specs ((sp-flt spt-fade-a -0.53333336)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 345) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-z 2160.0)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.07) (meters 0.46) 1.0)
-                                   (sp-rnd-int spt-r 0 1 255.0)
-                                   (sp-rnd-int spt-g 0 1 255.0)
-                                   (sp-rnd-int spt-b 0 1 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 0.35555556)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
-                                   (sp-flt spt-userdata -1.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 232)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 345 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-flt spt-z (meters 0.52734375))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.07) (meters 0.46) 1.0)
+                           (sp-rnd-int spt-r 0 1 255.0)
+                           (sp-rnd-int spt-g 0 1 255.0)
+                           (sp-rnd-int spt-b 0 1 255.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 0.35555556)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
+                           (sp-flt spt-userdata -1.0)
+                           (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 232)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 346) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.06)
-                                   (sp-flt spt-z 2160.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.25) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.1))
-                                   (sp-rnd-int spt-r 0 1 255.0)
-                                   (sp-rnd-int spt-g 0 1 255.0)
-                                   (sp-rnd-int spt-b 0 1 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
-                                   (sp-flt spt-userdata -1.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 232)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 346 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.06)
+                           (sp-flt spt-z (meters 0.52734375))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 0.25) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.1))
+                           (sp-rnd-int spt-r 0 1 255.0)
+                           (sp-rnd-int spt-g 0 1 255.0)
+                           (sp-rnd-int spt-b 0 1 255.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-fade-a 0.32)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
+                           (sp-flt spt-userdata -1.0)
+                           (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 232)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 347) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-z 2160.0)
-                                   (sp-flt spt-scale-x (meters 2.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 1.8))
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-rotvel-z (degrees -0.4))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
-                                   (sp-flt spt-userdata -1.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 347 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-z (meters 0.52734375))
+                           (sp-flt spt-scale-x (meters 2))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 1.8))
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 0.0 128.0 1.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-rotvel-z (degrees -0.4))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
+                           (sp-flt spt-userdata -1.0)
+                           (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 348) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-z 2160.0)
-                                   (sp-flt spt-scale-x (meters 2.4))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 2.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-rotvel-z (degrees 0.3))
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
-                                   (sp-flt spt-userdata -1.0)
-                                   (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 348 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-z (meters 0.52734375))
+                           (sp-flt spt-scale-x (meters 2.4))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-scale-y (meters 2))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-rotvel-z (degrees 0.3))
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit3 bit9 bit13)
+                           (sp-flt spt-userdata -1.0)
+                           (sp-func spt-func 'fuel-cell-progress-hud-orbit-callback)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 97) (new 'static 'sparticle-launch-group
-                                      :length 8
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags
-                                      (sp-group-flag use-local-clock screen-space)
-                                      :name
-                                      "group-part-progress-hud-power-cell-whole"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 8
-                                        (sp-item 338 :flags (launch-asap))
-                                        (sp-item 347 :flags (launch-asap) :period 3600 :length 5)
-                                        (sp-item 348 :flags (launch-asap) :period 3600 :length 5)
-                                        (sp-item 343 :flags (launch-asap))
-                                        (sp-item 339 :flags (launch-asap))
-                                        (sp-item 340 :flags (launch-asap))
-                                        (sp-item 341 :flags (launch-asap))
-                                        (sp-item 342 :flags (launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 409600.0)
-                                      )
-      )
+(defpartgroup group-part-progress-hud-power-cell-whole
+  :id 97
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 338 :flags (launch-asap))
+    (sp-item 347 :flags (launch-asap) :period 3600 :length 5)
+    (sp-item 348 :flags (launch-asap) :period 3600 :length 5)
+    (sp-item 343 :flags (launch-asap))
+    (sp-item 339 :flags (launch-asap))
+    (sp-item 340 :flags (launch-asap))
+    (sp-item 341 :flags (launch-asap))
+    (sp-item 342 :flags (launch-asap))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 98) (new 'static 'sparticle-launch-group
-                                      :length 2
-                                      :duration #xbb8
-                                      :linger-duration #x5dc
-                                      :flags (sp-group-flag screen-space)
-                                      :name "group-part-progress-buzzer"
-                                      :launcher
-                                      (new 'static 'inline-array sparticle-group-item 2
-                                        (sp-item 1982 :flags (launch-asap) :binding 1981)
-                                        (sp-item 1981 :flags (start-dead launch-asap))
-                                        )
-                                      :bounds (new 'static 'sphere :w 409600.0)
-                                      )
-      )
+(defpartgroup group-part-progress-buzzer
+  :id 98
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 1982 :flags (launch-asap) :binding 1981) (sp-item 1981 :flags (start-dead launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1982) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2.2))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1982 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 2.2))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit9 bit13)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1981) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 1.3333334))
-                                    (sp-flt spt-z 409.6)
-                                    (sp-flt spt-scale-x (meters 2.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-omega 0.0)
-                                    (sp-flt spt-vel-x (meters 0.053333335))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit7 bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1981 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 1.3333334))
+                            (sp-flt spt-z (meters 0.1))
+                            (sp-flt spt-scale-x (meters 2))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-omega 0.0)
+                            (sp-flt spt-vel-x (meters 0.053333335))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit7 bit9 bit13)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 99)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-orb"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1983 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-progress-orb
+  :id 99
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 1983 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1983) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2.2))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1983 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 2.2))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 100) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-part-progress-buzzer-small"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1985 :flags (launch-asap) :binding 1984)
-                                         (sp-item 1984 :flags (start-dead launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 409600.0)
-                                       )
-      )
+(defpartgroup group-part-progress-buzzer-small
+  :id 100
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 1985 :flags (launch-asap) :binding 1984) (sp-item 1984 :flags (start-dead launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1985) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1985 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit9 bit13)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1984) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 1.3333334))
-                                    (sp-flt spt-z 204.8)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-omega 0.0)
-                                    (sp-flt spt-vel-x (meters 0.05037037))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit7 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-buzzer-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1984 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2a :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 1.3333334))
+                            (sp-flt spt-z (meters 0.05))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-omega 0.0)
+                            (sp-flt spt-vel-x (meters 0.05037037))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit7 bit9 bit13)
+                            (sp-func spt-func 'part-progress-hud-buzzer-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 101)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-orb-small"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1986 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-progress-orb-small
+  :id 101
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 1986 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1986) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-hud-orb-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1986 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2c :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            (sp-func spt-func 'part-progress-hud-orb-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 615)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-progress-save-icon"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2478 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 409600.0)
-        )
-      )
+(defpartgroup group-part-progress-save-icon
+  :id 615
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 2478 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2478) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6b :page #x1cf))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.8))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-func spt-func 'part-progress-save-icon-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2478 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6b :page #x1cf))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1.8))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            (sp-func spt-func 'part-progress-save-icon-func)
+                            )
+              )
 
 ;; definition for method 34 of type progress
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/levels/beach/beach-obs_REF.gc b/test/decompiler/reference/levels/beach/beach-obs_REF.gc
index c86fa3c8d6..9762621dcc 100644
--- a/test/decompiler/reference/levels/beach/beach-obs_REF.gc
+++ b/test/decompiler/reference/levels/beach/beach-obs_REF.gc
@@ -138,102 +138,77 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 155) (new 'static 'sparticle-launch-group
-                                       :length 7
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-beach-grotto-pole-rocks"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 7
-                                         (sp-item 539 :period 1500 :length 15)
-                                         (sp-item 539 :period 1500 :length 30)
-                                         (sp-item 539 :period 1500 :length 45)
-                                         (sp-item 539 :period 1500 :length 75)
-                                         (sp-item 539 :period 1500 :length 150)
-                                         (sp-item 539 :period 1500 :length 300)
-                                         (sp-item 540 :period 1500 :length 30)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-beach-grotto-pole-rocks
+  :id 155
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 539 :period 1500 :length 15)
+    (sp-item 539 :period 1500 :length 30)
+    (sp-item 539 :period 1500 :length 45)
+    (sp-item 539 :period 1500 :length 75)
+    (sp-item 539 :period 1500 :length 150)
+    (sp-item 539 :period 1500 :length 300)
+    (sp-item 540 :period 1500 :length 30)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 539) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 18.0) 1.0)
-                                   (sp-flt spt-y (meters -6.0))
-                                   (sp-rnd-flt spt-z -36864.0 73728.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 40.0 1.0)
-                                   (sp-rnd-flt spt-g 32.0 40.0 1.0)
-                                   (sp-rnd-flt spt-b 32.0 40.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters -0.04) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
-                                   (sp-int spt-timer 390)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 539 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-rnd-flt spt-x (meters -9) (meters 18) 1.0)
+                           (sp-flt spt-y (meters -6))
+                           (sp-rnd-flt spt-z (meters -9) (meters 18) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 40.0 1.0)
+                           (sp-rnd-flt spt-g 32.0 40.0 1.0)
+                           (sp-rnd-flt spt-b 32.0 40.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0) (meters -0.04) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
+                           (sp-int spt-timer 390)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-water-level-drop)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 540)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 12.0)
-                                                     (sp-flt spt-y (meters -7.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 4.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 48.0 16.0 1.0)
-                                                     (sp-flt spt-g 48.0)
-                                                     (sp-flt spt-b 48.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-flt spt-fade-a 1.0666667)
-                                                     (sp-flt spt-accel-y 0.06826667)
-                                                     (sp-int spt-timer 1200)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 541)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 6.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 540 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 12.0)
+                           (sp-flt spt-y (meters -7))
+                           (sp-rnd-flt spt-scale-x (meters 3) (meters 4.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 48.0 16.0 1.0)
+                           (sp-flt spt-g 48.0)
+                           (sp-flt spt-b 48.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-flt spt-fade-a 1.0666667)
+                           (sp-flt spt-accel-y 0.06826667)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 60)
+                           (sp-launcher-by-id spt-next-launcher 541)
+                           (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 6) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 541)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 450 239 1)
-                                                     (sp-launcher-by-id spt-next-launcher 542)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 541
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int-plain-rnd spt-next-time 450 239 1) (sp-launcher-by-id spt-next-launcher 542))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 542)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
+(defpart 542 :init-specs ((sp-flt spt-fade-a -0.14222223)))
 
 ;; definition of type grottopole
 (deftype grottopole (process-drawable)
@@ -509,176 +484,138 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 156) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-beach-harvester-rock-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 543 :period 1500 :length 5)
-                                         (sp-item 544 :period 1500 :length 5)
-                                         (sp-item 545 :period 1500 :length 5)
-                                         (sp-item 546 :period 1500 :length 5)
-                                         (sp-item 547 :period 1500 :length 5)
-                                         (sp-item 548 :period 1500 :length 15)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-beach-harvester-rock-explosion
+  :id 156
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 543 :period 1500 :length 5)
+    (sp-item 544 :period 1500 :length 5)
+    (sp-item 545 :period 1500 :length 5)
+    (sp-item 546 :period 1500 :length 5)
+    (sp-item 547 :period 1500 :length 5)
+    (sp-item 548 :period 1500 :length 15)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 547) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 15.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -2.1333334)
-                                   (sp-int spt-timer 60)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 547 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 15))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 130.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 54.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -2.1333334)
+                           (sp-int spt-timer 60)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 543) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-rnd-flt spt-num 4.0 6.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                   (sp-flt spt-b 70.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-y (meters 0.06666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-flt spt-accel-y -10.922667)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 174)
-                                   (sp-launcher-by-id spt-next-launcher 549)
-                                   (sp-flt spt-conerot-x (degrees 45.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 543 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                           (sp-rnd-flt spt-num 4.0 6.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 70.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 70.0 16.0 1.0)
+                           (sp-flt spt-b 70.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-vel-y (meters 0.06666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-flt spt-accel-y -10.922667)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 174)
+                           (sp-launcher-by-id spt-next-launcher 549)
+                           (sp-flt spt-conerot-x (degrees 45.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 544) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-rnd-flt spt-num 4.0 6.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                   (sp-flt spt-b 70.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-y (meters 0.04))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-flt spt-accel-y -10.922667)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 125)
-                                   (sp-launcher-by-id spt-next-launcher 549)
-                                   (sp-flt spt-conerot-x (degrees 30.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 544 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                           (sp-rnd-flt spt-num 4.0 6.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 70.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 70.0 16.0 1.0)
+                           (sp-flt spt-b 70.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-vel-y (meters 0.04))
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-flt spt-accel-y -10.922667)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 125)
+                           (sp-launcher-by-id spt-next-launcher 549)
+                           (sp-flt spt-conerot-x (degrees 30.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 545) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-rnd-flt spt-num 4.0 6.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 80.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 80.0 16.0 1.0)
-                                   (sp-flt spt-b 80.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-y (meters 0.08))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-flt spt-accel-y -10.922667)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 195)
-                                   (sp-launcher-by-id spt-next-launcher 549)
-                                   (sp-flt spt-conerot-x (degrees 35.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 545 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                           (sp-rnd-flt spt-num 4.0 6.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 80.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 80.0 16.0 1.0)
+                           (sp-flt spt-b 80.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-vel-y (meters 0.08))
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-flt spt-accel-y -10.922667)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 195)
+                           (sp-launcher-by-id spt-next-launcher 549)
+                           (sp-flt spt-conerot-x (degrees 35.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 549)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 549 :init-specs ((sp-flt spt-vel-y (meters 0.026666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+                           (sp-flt spt-fade-a -1.0666667)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 548) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.013333334))
-                                   (sp-flt spt-scalevel-y (meters 0.0033333334))
-                                   (sp-flt spt-accel-y -1.0922667)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int-plain-rnd spt-next-time 30 299 1)
-                                   (sp-launcher-by-id spt-next-launcher 550)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 548 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 16.0)
+                           (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.013333334))
+                           (sp-flt spt-scalevel-y (meters 0.0033333334))
+                           (sp-flt spt-accel-y -1.0922667)
+                           (sp-flt spt-friction 0.95)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int-plain-rnd spt-next-time 30 299 1)
+                           (sp-launcher-by-id spt-next-launcher 550)
+                           (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 550)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.2) (sp-end))
-        )
-      )
+(defpart 550 :init-specs ((sp-flt spt-fade-a -0.2)))
 
 ;; failed to figure out what this is:
 (defstate ecoventrock-idle (ecoventrock)
diff --git a/test/decompiler/reference/levels/beach/beach-part_REF.gc b/test/decompiler/reference/levels/beach/beach-part_REF.gc
index 4bede34cb8..b1551e2c83 100644
--- a/test/decompiler/reference/levels/beach/beach-part_REF.gc
+++ b/test/decompiler/reference/levels/beach/beach-part_REF.gc
@@ -22,96 +22,71 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 666)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 24
-          (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-          (sp-flt spt-num 0.01)
-          (sp-flt spt-y (meters 1.0))
-          (sp-rnd-flt spt-scale-x (meters 15.0) (meters 5.0) 1.0)
-          (sp-int spt-rot-x 4)
-          (sp-rnd-flt spt-rot-z (degrees -110.0) (degrees 20.0) 1.0)
-          (sp-flt spt-scale-y (meters 5.0))
-          (sp-flt spt-r 192.0)
-          (sp-flt spt-g 192.0)
-          (sp-flt spt-b 128.0)
-          (sp-flt spt-a 0.0)
-          (sp-flt spt-scalevel-x (meters 0.0009765625))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.0033333332) (degrees 0.0066666664) 1.0)
-          (sp-flt spt-scalevel-y (meters 0.0009765625))
-          (sp-flt spt-fade-a 0.02)
-          (sp-int spt-timer 2400)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-int spt-next-time 1200)
-          (sp-launcher-by-id spt-next-launcher 667)
-          (sp-flt spt-conerot-x (degrees 90.0))
-          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-flt spt-conerot-radius (meters 8.0))
-          (sp-flt spt-rotate-y (degrees 0.0))
-          (sp-end)
-          )
-        )
-      )
+(defpart 666 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.01)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-scale-x (meters 15) (meters 5) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees -110.0) (degrees 20.0) 1.0)
+                           (sp-flt spt-scale-y (meters 5))
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.0009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.0033333332) (degrees 0.0066666664) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0009765625))
+                           (sp-flt spt-fade-a 0.02)
+                           (sp-int spt-timer 2400)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 1200)
+                           (sp-launcher-by-id spt-next-launcher 667)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 8))
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 667)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.02) (sp-end))
-        )
-      )
+(defpart 667 :init-specs ((sp-flt spt-fade-a -0.02)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 668) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-rnd-flt spt-num 0.03 0.2 1.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-flt spt-scale-x (meters 0.18))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-fade-a 0.21333334)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 669)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 8.0) (meters 5.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 668 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-rnd-flt spt-num 0.03 0.2 1.0)
+                           (sp-flt spt-y (meters -4))
+                           (sp-flt spt-scale-x (meters 0.18))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-fade-a 0.21333334)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 669)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 8) (meters 5) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 669)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scalevel-y (meters 0.0024414062))
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-flt spt-accel-y -8.192)
-                                                     (sp-int spt-next-time 210)
-                                                     (sp-launcher-by-id spt-next-launcher 670)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 669 :init-specs ((sp-flt spt-scalevel-y (meters 0.0024414062))
+                           (sp-flt spt-fade-a 0.0)
+                           (sp-flt spt-accel-y -8.192)
+                           (sp-int spt-next-time 210)
+                           (sp-launcher-by-id spt-next-launcher 670)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 670)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-func spt-func 'check-water-level-drop)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 670
+  :init-specs
+  ((sp-flt spt-fade-a -0.16) (sp-int spt-timer 150) (sp-func spt-func 'check-water-level-drop))
+  )
 
 ;; failed to figure out what this is:
 (defstate beach-part-grotto-1 (beach-part)
@@ -149,665 +124,474 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 671) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-rnd-flt spt-num 0.3 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -23.0) (meters 55.0) 1.0)
-                                   (sp-flt spt-z 2048.0)
-                                   (sp-flt spt-scale-x (meters 0.18))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-fade-a 0.10666667)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 669)
-                                   (sp-rnd-flt spt-conerot-x (degrees -40.0) (degrees 80.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 14.6))
-                                   (sp-flt spt-rotate-y (degrees 37.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 671 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-rnd-flt spt-num 0.3 0.4 1.0)
+                           (sp-rnd-flt spt-x (meters -23) (meters 55) 1.0)
+                           (sp-flt spt-z (meters 0.5))
+                           (sp-flt spt-scale-x (meters 0.18))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-fade-a 0.10666667)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 669)
+                           (sp-rnd-flt spt-conerot-x (degrees -40.0) (degrees 80.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 14.6))
+                           (sp-flt spt-rotate-y (degrees 37.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 161) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-beach-grotto-2"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 671 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -20480.0 :w 61440.0)
-                                       )
-      )
+(defpartgroup group-beach-grotto-2
+  :id 161
+  :bounds (static-bspherem 0 -5 0 15)
+  :parts
+  ((sp-item 671 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 672) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -10.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 103.0))
-                                   (sp-rnd-flt spt-z -34816.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.06666667))
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-flt spt-accel-x -3.7304192)
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 495)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees -124.99999))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 672 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-rnd-flt spt-x (meters -10) (meters 4) 1.0)
+                           (sp-flt spt-y (meters 103))
+                           (sp-rnd-flt spt-z (meters -8.5) (meters 16) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.06666667))
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0073242188))
+                           (sp-flt spt-scalevel-y (meters 0.029296875))
+                           (sp-flt spt-accel-x -3.7304192)
+                           (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                           (sp-int spt-timer 495)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees -124.99999))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 673) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.8 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 3.5) 1.0)
-                                   (sp-flt spt-y (meters 103.0))
-                                   (sp-rnd-flt spt-z -34816.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 16.0 20.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.038333334))
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                   (sp-flt spt-accel-x -1.189495)
-                                   (sp-rnd-flt spt-accel-y -4.7786665 -1.024 1.0)
-                                   (sp-int spt-timer 855)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-flt spt-rotate-y (degrees -124.99999))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 673 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.8 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -9) (meters 3.5) 1.0)
+                           (sp-flt spt-y (meters 103))
+                           (sp-rnd-flt spt-z (meters -8.5) (meters 16) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 16.0 20.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.038333334))
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0146484375))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0146484375))
+                           (sp-flt spt-accel-x -1.189495)
+                           (sp-rnd-flt spt-accel-y -4.7786665 -1.024 1.0)
+                           (sp-int spt-timer 855)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-rotate-y (degrees -124.99999))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 674) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 0.9)
-                                   (sp-rnd-flt spt-x (meters -10.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 103.0))
-                                   (sp-rnd-flt spt-z -38912.0 73728.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 28.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                   (sp-flt spt-scalevel-y (meters 0.001953125))
-                                   (sp-flt spt-accel-x -2.5600002)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                   (sp-int spt-timer 660)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees -124.99999))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 674 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 0.9)
+                           (sp-rnd-flt spt-x (meters -10) (meters 4) 1.0)
+                           (sp-flt spt-y (meters 103))
+                           (sp-rnd-flt spt-z (meters -9.5) (meters 18) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 28.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00024414062))
+                           (sp-flt spt-scalevel-y (meters 0.001953125))
+                           (sp-flt spt-accel-x -2.5600002)
+                           (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                           (sp-int spt-timer 660)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees -124.99999))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 675) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.04)
-                                   (sp-rnd-flt spt-x (meters 6.0) (meters 6.0) 1.0)
-                                   (sp-flt spt-y (meters 6.5))
-                                   (sp-rnd-flt spt-z -34816.0 65536.0 1.0)
-                                   (sp-flt spt-scale-x (meters 18.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0044444446))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.42666668)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 1050)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 90 59 1)
-                                   (sp-launcher-by-id spt-next-launcher 676)
-                                   (sp-flt spt-rotate-y (degrees -124.99999))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 675 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.04)
+                           (sp-rnd-flt spt-x (meters 6) (meters 6) 1.0)
+                           (sp-flt spt-y (meters 6.5))
+                           (sp-rnd-flt spt-z (meters -8.5) (meters 16) 1.0)
+                           (sp-flt spt-scale-x (meters 18))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0044444446))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.42666668)
+                           (sp-flt spt-accel-y 0.13653333)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 1050)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int-plain-rnd spt-next-time 90 59 1)
+                           (sp-launcher-by-id spt-next-launcher 676)
+                           (sp-flt spt-rotate-y (degrees -124.99999))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 676)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
+(defpart 676 :init-specs ((sp-flt spt-fade-a -0.14222223)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 677) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                   (sp-flt spt-num 0.2)
-                                   (sp-rnd-flt spt-x (meters 2.0) (meters 10.0) 1.0)
-                                   (sp-flt spt-y (meters 8.0))
-                                   (sp-rnd-flt spt-z -43008.0 81920.0 1.0)
-                                   (sp-flt spt-scale-x (meters 18.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.008333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-fade-a 0.42666668)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 1050)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 90 59 1)
-                                   (sp-launcher-by-id spt-next-launcher 676)
-                                   (sp-flt spt-rotate-y (degrees -124.99999))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 677 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                           (sp-flt spt-num 0.2)
+                           (sp-rnd-flt spt-x (meters 2) (meters 10) 1.0)
+                           (sp-flt spt-y (meters 8))
+                           (sp-rnd-flt spt-z (meters -10.5) (meters 20) 1.0)
+                           (sp-flt spt-scale-x (meters 18))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-rnd-flt spt-g 150.0 42.0 1.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.06666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.008333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-flt spt-fade-a 0.42666668)
+                           (sp-flt spt-accel-y 0.13653333)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 1050)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int-plain-rnd spt-next-time 90 59 1)
+                           (sp-launcher-by-id spt-next-launcher 676)
+                           (sp-flt spt-rotate-y (degrees -124.99999))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 162) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags
-                                       (sp-group-flag always-draw unknown-bit-01)
-                                       :name "group-beach-waterfall"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 677 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         (sp-item 675)
-                                         (sp-item 675 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         (sp-item 672)
-                                         (sp-item 672 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 672 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 673 :fade-after (meters 300.0) :falloff-to (meters 300.0))
-                                         (sp-item 674 :fade-after (meters 90.0) :falloff-to (meters 90.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 225280.0 :w 225280.0)
-                                       )
-      )
+(defpartgroup group-beach-waterfall
+  :id 162
+  :flags (always-draw unknown-bit-01)
+  :bounds (static-bspherem 0 55 0 55)
+  :parts
+  ((sp-item 677 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 675)
+    (sp-item 675 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 672)
+    (sp-item 672 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 672 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 673 :fade-after (meters 300) :falloff-to (meters 300))
+    (sp-item 674 :fade-after (meters 90) :falloff-to (meters 90))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 163)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-24"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 678 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 1200)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-24
+  :id 163
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 678 :fade-after (meters 50) :period 2400 :length 1500 :offset 1200))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 164)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-23"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 679 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 600)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-23
+  :id 164
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 679 :fade-after (meters 50) :period 2400 :length 1500 :offset 600))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 165) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-beach-22"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 680 :fade-after (meters 80.0) :period 2400 :length 1500)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 12288.0 :w 204800.0)
-                                       )
-      )
+(defpartgroup group-beach-22
+  :id 165
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 680 :fade-after (meters 80) :period 2400 :length 1500))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 166)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-18"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 681 :fade-after (meters 100.0) :period 2400 :length 1500 :offset 1200)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-18
+  :id 166
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 681 :fade-after (meters 100) :period 2400 :length 1500 :offset 1200))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 167)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-17"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 682 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 600)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-17
+  :id 167
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 682 :fade-after (meters 50) :period 2400 :length 1500 :offset 600))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 168) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-beach-16"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 683 :fade-after (meters 50.0) :period 2400 :length 1500)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 12288.0 :w 204800.0)
-                                       )
-      )
+(defpartgroup group-beach-16
+  :id 168
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 683 :fade-after (meters 50) :period 2400 :length 1500))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 169)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-15"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 684 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 64936)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-15
+  :id 169
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 684 :fade-after (meters 50) :period 2400 :length 1500 :offset 64936))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 170)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-14"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 685 :fade-after (meters 50.0) :period 2400 :length 1500 :offset 64336)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 204800.0)
-        )
-      )
+(defpartgroup group-beach-14
+  :id 170
+  :bounds (static-bspherem 0 3 0 50)
+  :parts
+  ((sp-item 685 :fade-after (meters 50) :period 2400 :length 1500 :offset 64336))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 678) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.01 0.01 1.0)
-                                   (sp-rnd-flt spt-x (meters -85.0) (meters 60.0) 1.0)
-                                   (sp-flt spt-y (meters 13.0))
-                                   (sp-rnd-flt spt-z -122880.0 266240.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.008888889)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1800)
-                                   (sp-launcher-by-id spt-next-launcher 686)
-                                   (sp-flt spt-rotate-y (degrees 40.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 678 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-rnd-flt spt-num 0.01 0.01 1.0)
+                           (sp-rnd-flt spt-x (meters -85) (meters 60) 1.0)
+                           (sp-flt spt-y (meters 13))
+                           (sp-rnd-flt spt-z (meters -30) (meters 65) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 130.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 54.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.026666667))
+                           (sp-flt spt-rotvel-z (degrees -0.15))
+                           (sp-flt spt-fade-a 0.008888889)
+                           (sp-int spt-timer 3600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 1800)
+                           (sp-launcher-by-id spt-next-launcher 686)
+                           (sp-flt spt-rotate-y (degrees 40.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 686)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
-        )
-      )
+(defpart 686 :init-specs ((sp-flt spt-fade-a -0.07111111)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 679) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.01 0.01 1.0)
-                                   (sp-rnd-flt spt-x (meters -65.0) (meters 60.0) 1.0)
-                                   (sp-flt spt-y (meters 8.0))
-                                   (sp-rnd-flt spt-z -122880.0 204800.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.02))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.008888889)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1800)
-                                   (sp-launcher-by-id spt-next-launcher 687)
-                                   (sp-flt spt-rotate-y (degrees 40.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 679 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-rnd-flt spt-num 0.01 0.01 1.0)
+                           (sp-rnd-flt spt-x (meters -65) (meters 60) 1.0)
+                           (sp-flt spt-y (meters 8))
+                           (sp-rnd-flt spt-z (meters -30) (meters 50) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 130.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 54.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.02))
+                           (sp-flt spt-rotvel-z (degrees -0.15))
+                           (sp-flt spt-fade-a 0.008888889)
+                           (sp-int spt-timer 3600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 1800)
+                           (sp-launcher-by-id spt-next-launcher 687)
+                           (sp-flt spt-rotate-y (degrees 40.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 687)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
-        )
-      )
+(defpart 687 :init-specs ((sp-flt spt-fade-a -0.07111111)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 680) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.01 0.01 1.0)
-                                   (sp-rnd-flt spt-x (meters -50.0) (meters 20.0) 1.0)
-                                   (sp-flt spt-y (meters 0.0))
-                                   (sp-rnd-flt spt-z -163840.0 327680.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-vel-z (meters 0.016666668))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.010666667)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1500)
-                                   (sp-launcher-by-id spt-next-launcher 688)
-                                   (sp-flt spt-rotate-y (degrees 120.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 680 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-rnd-flt spt-num 0.01 0.01 1.0)
+                           (sp-rnd-flt spt-x (meters -50) (meters 20) 1.0)
+                           (sp-flt spt-y (meters 0))
+                           (sp-rnd-flt spt-z (meters -40) (meters 80) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 130.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 54.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.026666667))
+                           (sp-flt spt-vel-z (meters 0.016666668))
+                           (sp-flt spt-rotvel-z (degrees -0.15))
+                           (sp-flt spt-fade-a 0.010666667)
+                           (sp-int spt-timer 3600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 1500)
+                           (sp-launcher-by-id spt-next-launcher 688)
+                           (sp-flt spt-rotate-y (degrees 120.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 688)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.08533333) (sp-end))
-        )
-      )
+(defpart 688 :init-specs ((sp-flt spt-fade-a -0.08533333)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 681) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.03 0.04 1.0)
-                                   (sp-rnd-flt spt-x (meters -40.0) (meters 20.0) 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-z -163840.0 368640.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-vel-z (meters -0.016666668))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.008888889)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1800)
-                                   (sp-launcher-by-id spt-next-launcher 689)
-                                   (sp-flt spt-rotate-y (degrees -60.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 681 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-rnd-flt spt-num 0.03 0.04 1.0)
+                           (sp-rnd-flt spt-x (meters -40) (meters 20) 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-z (meters -40) (meters 90) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 130.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 54.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.026666667))
+                           (sp-flt spt-vel-z (meters -0.016666668))
+                           (sp-flt spt-rotvel-z (degrees -0.15))
+                           (sp-flt spt-fade-a 0.008888889)
+                           (sp-int spt-timer 3600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 1800)
+                           (sp-launcher-by-id spt-next-launcher 689)
+                           (sp-flt spt-rotate-y (degrees -60.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 689)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
-        )
-      )
+(defpart 689 :init-specs ((sp-flt spt-fade-a -0.07111111)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 682) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.015 0.02 1.0)
-                                   (sp-flt spt-x (meters -10.0))
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-z -40960.0 92160.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.017777778)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 900)
-                                   (sp-launcher-by-id spt-next-launcher 690)
-                                   (sp-flt spt-rotate-y (degrees -15.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 682 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-rnd-flt spt-num 0.015 0.02 1.0)
+                           (sp-flt spt-x (meters -10))
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-z (meters -10) (meters 22.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 130.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 54.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.026666667))
+                           (sp-flt spt-rotvel-z (degrees -0.15))
+                           (sp-flt spt-fade-a 0.017777778)
+                           (sp-int spt-timer 3600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 900)
+                           (sp-launcher-by-id spt-next-launcher 690)
+                           (sp-flt spt-rotate-y (degrees -15.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 690)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.017777778) (sp-end))
-        )
-      )
+(defpart 690 :init-specs ((sp-flt spt-fade-a -0.017777778)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 683) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.015 0.02 1.0)
-                                   (sp-flt spt-x (meters -25.0))
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-z -61440.0 204800.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.013333334)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1200)
-                                   (sp-launcher-by-id spt-next-launcher 691)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 683 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-rnd-flt spt-num 0.015 0.02 1.0)
+                           (sp-flt spt-x (meters -25))
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-z (meters -15) (meters 50) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 130.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 54.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.026666667))
+                           (sp-flt spt-rotvel-z (degrees -0.15))
+                           (sp-flt spt-fade-a 0.013333334)
+                           (sp-int spt-timer 3600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 1200)
+                           (sp-launcher-by-id spt-next-launcher 691)
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 691)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.013333334) (sp-end))
-        )
-      )
+(defpart 691 :init-specs ((sp-flt spt-fade-a -0.013333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 684) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.015 0.015 1.0)
-                                   (sp-flt spt-x (meters -35.0))
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-z -143360.0 245760.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.016410256)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 975)
-                                   (sp-launcher-by-id spt-next-launcher 692)
-                                   (sp-flt spt-rotate-y (degrees 45.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 684 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-rnd-flt spt-num 0.015 0.015 1.0)
+                           (sp-flt spt-x (meters -35))
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-z (meters -35) (meters 60) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 130.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 54.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.026666667))
+                           (sp-flt spt-rotvel-z (degrees -0.15))
+                           (sp-flt spt-fade-a 0.016410256)
+                           (sp-int spt-timer 3600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 975)
+                           (sp-launcher-by-id spt-next-launcher 692)
+                           (sp-flt spt-rotate-y (degrees 45.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 692)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.016410256) (sp-end))
-        )
-      )
+(defpart 692 :init-specs ((sp-flt spt-fade-a -0.016410256)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 685) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-rnd-flt spt-num 0.015 0.015 1.0)
-                                   (sp-flt spt-x (meters -25.0))
-                                   (sp-flt spt-y (meters 14.0))
-                                   (sp-rnd-flt spt-z -61440.0 286720.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 130.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 54.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-rotvel-z (degrees -0.15))
-                                   (sp-flt spt-fade-a 0.014222222)
-                                   (sp-int spt-timer 3600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 1125)
-                                   (sp-launcher-by-id spt-next-launcher 693)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 685 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-rnd-flt spt-num 0.015 0.015 1.0)
+                           (sp-flt spt-x (meters -25))
+                           (sp-flt spt-y (meters 14))
+                           (sp-rnd-flt spt-z (meters -15) (meters 70) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 130.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 54.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.026666667))
+                           (sp-flt spt-rotvel-z (degrees -0.15))
+                           (sp-flt spt-fade-a 0.014222222)
+                           (sp-int spt-timer 3600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 1125)
+                           (sp-launcher-by-id spt-next-launcher 693)
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 693)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.014222222) (sp-end))
-        )
-      )
+(defpart 693 :init-specs ((sp-flt spt-fade-a -0.014222222)))
 
 ;; definition for symbol sound-beach-waterfall, type sound-spec
 (define
@@ -816,233 +600,172 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 171)
-      (new 'static 'sparticle-launch-group
-        :length 13
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-butterflies"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 13
-          (sp-item 696 :fade-after (meters 120.0) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
-          (sp-item 696 :fade-after (meters 120.0) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
-          (sp-item 696 :fade-after (meters 120.0) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
-          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
-          (sp-item 695 :flags (is-3d start-dead))
-          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
-          (sp-item 695 :flags (is-3d start-dead))
-          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
-          (sp-item 695 :flags (is-3d start-dead))
-          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
-          (sp-item 695 :flags (is-3d start-dead))
-          (sp-item 694 :flags (start-dead launch-asap) :binding 695)
-          (sp-item 695 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 122880.0)
-        )
-      )
+(defpartgroup group-beach-butterflies
+  :id 171
+  :bounds (static-bspherem 0 0 0 30)
+  :parts
+  ((sp-item 696 :fade-after (meters 120) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
+    (sp-item 696 :fade-after (meters 120) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
+    (sp-item 696 :fade-after (meters 120) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 694)
+    (sp-item 694 :flags (start-dead launch-asap) :binding 695)
+    (sp-item 695 :flags (is-3d start-dead))
+    (sp-item 694 :flags (start-dead launch-asap) :binding 695)
+    (sp-item 695 :flags (is-3d start-dead))
+    (sp-item 694 :flags (start-dead launch-asap) :binding 695)
+    (sp-item 695 :flags (is-3d start-dead))
+    (sp-item 694 :flags (start-dead launch-asap) :binding 695)
+    (sp-item 695 :flags (is-3d start-dead))
+    (sp-item 694 :flags (start-dead launch-asap) :binding 695)
+    (sp-item 695 :flags (is-3d start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 696) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 7.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 14.0) (meters 3.0) 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-y (meters -0.036666665))
-                                   (sp-flt spt-accel-y 1.3653333)
-                                   (sp-int spt-timer 6000)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-int spt-next-time 555)
-                                   (sp-launcher-by-id spt-next-launcher 697)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 696 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 7.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 14) (meters 3) 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-y (meters -0.036666665))
+                           (sp-flt spt-accel-y 1.3653333)
+                           (sp-int spt-timer 6000)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-int spt-next-time 555)
+                           (sp-launcher-by-id spt-next-launcher 697)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 697)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-accel-y 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 2700 1499 1)
-                                                     (sp-launcher-by-id spt-next-launcher 698)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 697 :init-specs ((sp-flt spt-accel-y 0.0)
+                           (sp-int-plain-rnd spt-next-time 2700 1499 1)
+                           (sp-launcher-by-id spt-next-launcher 698)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 698)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-accel-y 1.3653333) (sp-end))
-        )
-      )
+(defpart 698 :init-specs ((sp-flt spt-accel-y 1.3653333)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 694) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 12288.0 4096.0 1.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-g 0.0 256.0 1.0)
-                                   (sp-rnd-int spt-b 1124073472 1 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 6000)
-                                   (sp-cpuinfo-flags bit3 bit7)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 699)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 694 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 3) (meters 1) 1.0)
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-g 0.0 256.0 1.0)
+                           (sp-rnd-int spt-b 1124073472 1 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer 6000)
+                           (sp-cpuinfo-flags bit3 bit7)
+                           (sp-int-plain-rnd spt-next-time 150 449 1)
+                           (sp-launcher-by-id spt-next-launcher 699)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 699) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 6
-                                   (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 699)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 699 :init-specs ((sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int-plain-rnd spt-next-time 150 449 1)
+                           (sp-launcher-by-id spt-next-launcher 699)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 695) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 0.9))
-                                   (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
-                                   (sp-flt spt-scale-y (meters 1.3))
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -8.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 695 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+                           (sp-func spt-birth-func 'birth-func-copy-rot-color)
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 0.9))
+                           (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
+                           (sp-flt spt-scale-y (meters 1.3))
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -8.0)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit9 bit12)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 172)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-beach-moth"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3
-          (sp-item 702 :fade-after (meters 120.0) :flags (bit1) :period 18030 :length 5 :hour-mask #b1111111110000000 :binding 700)
-          (sp-item 700 :flags (start-dead launch-asap) :binding 701)
-          (sp-item 701 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
+(defpartgroup group-beach-moth
+  :id 172
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 702 :fade-after (meters 120) :flags (bit1) :period 18030 :length 5 :hour-mask #b1111111110000000 :binding 700)
+    (sp-item 700 :flags (start-dead launch-asap) :binding 701)
+    (sp-item 701 :flags (is-3d start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 702) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 10
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 18000)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 702 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 18000)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 700) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 6144.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 18000)
-                                   (sp-cpuinfo-flags bit3 bit7)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 703)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 700 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 1.5))
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer 18000)
+                           (sp-cpuinfo-flags bit3 bit7)
+                           (sp-int-plain-rnd spt-next-time 150 449 1)
+                           (sp-launcher-by-id spt-next-launcher 703)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 703) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 6
-                                   (sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 703)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 703 :init-specs ((sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                           (sp-int-plain-rnd spt-next-time 150 449 1)
+                           (sp-launcher-by-id spt-next-launcher 703)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 701) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
-                                   (sp-flt spt-scale-y (meters 0.4))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 701 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+                           (sp-func spt-birth-func 'birth-func-copy-rot-color)
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 0.4))
+                           (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
+                           (sp-flt spt-scale-y (meters 0.4))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
+                           )
+             )
diff --git a/test/decompiler/reference/levels/beach/beach-rocks_REF.gc b/test/decompiler/reference/levels/beach/beach-rocks_REF.gc
index cd5dd88b40..2592551aa2 100644
--- a/test/decompiler/reference/levels/beach/beach-rocks_REF.gc
+++ b/test/decompiler/reference/levels/beach/beach-rocks_REF.gc
@@ -11,272 +11,224 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 553) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-beach-rocks-start"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2340 :period 75 :length 10)
-                                         (sp-item 2341 :period 75 :length 10)
-                                         (sp-item 2289 :period 75 :length 10)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-beach-rocks-start
+  :id 553
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2340 :period 75 :length 10)
+    (sp-item 2341 :period 75 :length 10)
+    (sp-item 2289 :period 75 :length 10)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2341) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 3.0 6.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -11.605333 -8.874666 1.0)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 200.00002) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 5.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2341 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-rnd-flt spt-num 3.0 6.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.25) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.25) (meters 1) 1.0)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -11.605333 -8.874666 1.0)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 200.00002) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2340) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.08533333)
-                                    (sp-rnd-flt spt-accel-y -3.4133334 -8.874666 1.0)
-                                    (sp-flt spt-friction 0.93)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 200.00002) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 5.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2340 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                            (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.08533333)
+                            (sp-rnd-flt spt-accel-y -3.4133334 -8.874666 1.0)
+                            (sp-flt spt-friction 0.93)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 200.00002) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2289) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 3.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.04))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.042666666)
-                                    (sp-flt spt-fade-g -0.061333332)
-                                    (sp-flt spt-fade-b -0.042666666)
-                                    (sp-flt spt-fade-a -0.032)
-                                    (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2289 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 3.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.04))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.042666666)
+                            (sp-flt spt-fade-g -0.061333332)
+                            (sp-flt spt-fade-b -0.042666666)
+                            (sp-flt spt-fade-a -0.032)
+                            (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 6) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 554)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-beach-rocks-fall"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2290 :period 15 :length 5))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-beach-rocks-fall
+  :id 554
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2290 :period 15 :length 5))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2290) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 3.0 3.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 7.0) (meters 9.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.10666667)
-                                    (sp-flt spt-fade-g -0.15333334)
-                                    (sp-flt spt-fade-b -0.10666667)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2290 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 3.0 3.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 7) (meters 9) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 16.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.026666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.10666667)
+                            (sp-flt spt-fade-g -0.15333334)
+                            (sp-flt spt-fade-b -0.10666667)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 555) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-beach-rocks-land"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2342 :period 900 :length 40)
-                                         (sp-item 2343 :period 900 :length 40)
-                                         (sp-item 2291 :period 900 :length 40)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-beach-rocks-land
+  :id 555
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2342 :period 900 :length 40)
+    (sp-item 2343 :period 900 :length 40)
+    (sp-item 2291 :period 900 :length 40)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2343) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-flt spt-y (meters -3.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 32.0) (meters 10.0) 1.0)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 3.4133334))
-                                    (sp-flt spt-fade-r -0.10666667)
-                                    (sp-flt spt-fade-g -0.15333334)
-                                    (sp-flt spt-fade-b -0.10666667)
-                                    (sp-flt spt-fade-a -3.2)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2343 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-flt spt-y (meters -3))
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 32) (meters 10) 1.0)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 3.4133334))
+                            (sp-flt spt-fade-r -0.10666667)
+                            (sp-flt spt-fade-g -0.15333334)
+                            (sp-flt spt-fade-b -0.10666667)
+                            (sp-flt spt-fade-a -3.2)
+                            (sp-int spt-timer 30)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2342) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.08533333)
-                                    (sp-rnd-flt spt-accel-y -3.4133334 -8.874666 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 5.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2342 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                            (sp-rnd-flt spt-num 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.08533333)
+                            (sp-rnd-flt spt-accel-y -3.4133334 -8.874666 1.0)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2291) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.32) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.033333335) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.10666667)
-                                    (sp-flt spt-fade-g -0.15333334)
-                                    (sp-flt spt-fade-b -0.10666667)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 100.00001) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2291 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters -4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 16.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.32) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.033333335) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.10666667)
+                            (sp-flt spt-fade-g -0.15333334)
+                            (sp-flt spt-fade-b -0.10666667)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-rnd-flt spt-accel-y -2.048 -7.5093336 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 100.00001) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
+                            )
+              )
 
 ;; definition of type beach-rock
 (deftype beach-rock (process-drawable)
diff --git a/test/decompiler/reference/levels/beach/lurkercrab_REF.gc b/test/decompiler/reference/levels/beach/lurkercrab_REF.gc
index ae376a0dbf..769a92a7e4 100644
--- a/test/decompiler/reference/levels/beach/lurkercrab_REF.gc
+++ b/test/decompiler/reference/levels/beach/lurkercrab_REF.gc
@@ -2,69 +2,54 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 159) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lurkercrab-slide"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 663 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-                                         (sp-item 664 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-lurkercrab-slide
+  :id 159
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 663 :fade-after (meters 40) :falloff-to (meters 40))
+    (sp-item 664 :fade-after (meters 40) :falloff-to (meters 40))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 663)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                                     (sp-flt spt-y (meters -2.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 100.0 30.0 1.0)
-                                                     (sp-rnd-flt spt-g 80.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-b 30.0 30.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-scalevel-x (meters 0.033333335))
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -0.13653333)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 663 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                           (sp-flt spt-y (meters -2))
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 30.0 1.0)
+                           (sp-rnd-flt spt-g 80.0 20.0 1.0)
+                           (sp-rnd-flt spt-b 30.0 30.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 48.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.0033333334))
+                           (sp-flt spt-scalevel-x (meters 0.033333335))
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-flt spt-accel-y -0.13653333)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 664) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                   (sp-flt spt-y (meters -2.0))
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 75.0 60.0 1.0)
-                                   (sp-rnd-flt spt-g 60.0 20.0 1.0)
-                                   (sp-rnd-flt spt-b 23.0 30.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.2))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 664 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                           (sp-flt spt-y (meters -2))
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 75.0 60.0 1.0)
+                           (sp-rnd-flt spt-g 60.0 20.0 1.0)
+                           (sp-rnd-flt spt-b 23.0 30.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-flt spt-accel-y -6.826667)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.2))
+                           )
+             )
 
 ;; definition of type lurkercrab
 (deftype lurkercrab (nav-enemy)
diff --git a/test/decompiler/reference/levels/beach/lurkerworm_REF.gc b/test/decompiler/reference/levels/beach/lurkerworm_REF.gc
index a30e3b68d7..c3b1f1ab0e 100644
--- a/test/decompiler/reference/levels/beach/lurkerworm_REF.gc
+++ b/test/decompiler/reference/levels/beach/lurkerworm_REF.gc
@@ -75,194 +75,147 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 157)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-beach-sandworm"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 656 :fade-after (meters 90.0) :period 900 :length 300)
-          (sp-item 657 :fade-after (meters 100.0) :period 900 :length 390)
-          (sp-item 658 :fade-after (meters 150.0) :period 900 :length 420 :offset 120)
-          (sp-item 659 :fade-after (meters 60.0) :period 900 :length 420 :offset 120)
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-beach-sandworm
+  :id 157
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 656 :fade-after (meters 90) :period 900 :length 300)
+    (sp-item 657 :fade-after (meters 100) :period 900 :length 390)
+    (sp-item 658 :fade-after (meters 150) :period 900 :length 420 :offset 120)
+    (sp-item 659 :fade-after (meters 60) :period 900 :length 420 :offset 120)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 158)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-beach-sandworm-norocks"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3
-          (sp-item 656 :fade-after (meters 90.0) :period 900 :length 300)
-          (sp-item 658 :fade-after (meters 150.0) :period 900 :length 420 :offset 120)
-          (sp-item 659 :fade-after (meters 60.0) :period 900 :length 420 :offset 120)
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-beach-sandworm-norocks
+  :id 158
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 656 :fade-after (meters 90) :period 900 :length 300)
+    (sp-item 658 :fade-after (meters 150) :period 900 :length 420 :offset 120)
+    (sp-item 659 :fade-after (meters 60) :period 900 :length 420 :offset 120)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 656) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-rnd-flt spt-x (meters 3.0) (meters 5.0) 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 130.0 20.0 1.0)
-                                   (sp-rnd-flt spt-g 90.0 20.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 8.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters -0.02))
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-fade-a 0.21333334)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int-plain-rnd spt-next-time 90 59 1)
-                                   (sp-launcher-by-id spt-next-launcher 660)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 656 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 4.0)
+                           (sp-rnd-flt spt-x (meters 3) (meters 5) 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 130.0 20.0 1.0)
+                           (sp-rnd-flt spt-g 90.0 20.0 1.0)
+                           (sp-rnd-flt spt-b 50.0 8.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters -0.02))
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-fade-a 0.21333334)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int-plain-rnd spt-next-time 90 59 1)
+                           (sp-launcher-by-id spt-next-launcher 660)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 660)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 660 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 658) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.4)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 90.0 60.0 1.0)
-                                   (sp-rnd-flt spt-g 90.0 10.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 8.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.026666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 658 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.4)
+                           (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 90.0 60.0 1.0)
+                           (sp-rnd-flt spt-g 90.0 10.0 1.0)
+                           (sp-rnd-flt spt-b 50.0 8.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0.026666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-flt spt-fade-a 0.32)
+                           (sp-flt spt-accel-y -4.096)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 659) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.6)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 45.0 30.0 1.0)
-                                   (sp-rnd-flt spt-g 45.0 5.0 1.0)
-                                   (sp-rnd-flt spt-b 25.0 4.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.026666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-fade-a 0.42666668)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 659 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.6)
+                           (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 45.0 30.0 1.0)
+                           (sp-rnd-flt spt-g 45.0 5.0 1.0)
+                           (sp-rnd-flt spt-b 25.0 4.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0.026666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-flt spt-fade-a 0.42666668)
+                           (sp-flt spt-accel-y -4.096)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 657) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 75.0 45.0 1.0)
-                                   (sp-rnd-flt spt-g 75.0 10.0 1.0)
-                                   (sp-rnd-flt spt-b 40.0 6.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.026666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 657 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 75.0 45.0 1.0)
+                           (sp-rnd-flt spt-g 75.0 10.0 1.0)
+                           (sp-rnd-flt spt-b 40.0 6.0 1.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.026666667) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-flt spt-accel-y -4.096)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 661) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.1)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 90.0 60.0 1.0)
-                                   (sp-rnd-flt spt-g 90.0 10.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 8.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.00083333335) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-fade-a 0.21333334)
-                                   (sp-flt spt-accel-y -0.54613334)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 662)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 661 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.1)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 90.0 60.0 1.0)
+                           (sp-rnd-flt spt-g 90.0 10.0 1.0)
+                           (sp-rnd-flt spt-b 50.0 8.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.00083333335) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-flt spt-fade-a 0.21333334)
+                           (sp-flt spt-accel-y -0.54613334)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 662)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 662)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.10666667) (sp-end))
-        )
-      )
+(defpart 662 :init-specs ((sp-flt spt-fade-a -0.10666667)))
 
 ;; definition for method 20 of type lurkerworm
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/levels/beach/seagull_REF.gc b/test/decompiler/reference/levels/beach/seagull_REF.gc
index 031ffaec23..74c44a0491 100644
--- a/test/decompiler/reference/levels/beach/seagull_REF.gc
+++ b/test/decompiler/reference/levels/beach/seagull_REF.gc
@@ -2,38 +2,27 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 160)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-seagull-takeoff"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 663 :fade-after (meters 20.0)))
-        :bounds
-        (new 'static 'sphere :y -49152.0 :w 57344.0)
-        )
-      )
+(defpartgroup group-seagull-takeoff
+  :id 160
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 663 :fade-after (meters 20)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 665) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.4))
-                                   (sp-flt spt-accel-y -819.2)
-                                   (sp-int spt-timer 1500)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 665 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.4))
+                           (sp-flt spt-accel-y -819.2)
+                           (sp-int spt-timer 1500)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; definition for symbol sound-seagull-squall, type sound-spec
 (define
diff --git a/test/decompiler/reference/levels/citadel/citadel-part_REF.gc b/test/decompiler/reference/levels/citadel/citadel-part_REF.gc
index ff135b6805..d70b06d5fc 100644
--- a/test/decompiler/reference/levels/citadel/citadel-part_REF.gc
+++ b/test/decompiler/reference/levels/citadel/citadel-part_REF.gc
@@ -19,63 +19,47 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 685)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-firehose-blast-smoke"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2879) (sp-item 2880))
-        :bounds
-        (new 'static 'sphere :y -32768.0 :w 32768.0)
-        )
-      )
+(defpartgroup group-firehose-blast-smoke
+  :id 685
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -8 0 8)
+  :parts
+  ((sp-item 2879) (sp-item 2880))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2880) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 28
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 2.5) 1.0)
-                                    (sp-flt spt-y (meters -13.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.56666666)
-                                    (sp-flt spt-fade-g -2.8333333)
-                                    (sp-flt spt-fade-b -2.8333333)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3)
-                                    (sp-flt spt-userdata -409600.0)
-                                    (sp-func spt-func 'check-drop-level-firehose-pops)
-                                    (sp-int-plain-rnd spt-next-time 120 599 1)
-                                    (sp-launcher-by-id spt-next-launcher 2881)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2880 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 8.0 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 2.5) 1.0)
+                            (sp-flt spt-y (meters -13))
+                            (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00083333335))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.56666666)
+                            (sp-flt spt-fade-g -2.8333333)
+                            (sp-flt spt-fade-b -2.8333333)
+                            (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int-plain-rnd spt-timer 30 299 1)
+                            (sp-cpuinfo-flags bit0 bit2 bit3)
+                            (sp-flt spt-userdata -409600.0)
+                            (sp-func spt-func 'check-drop-level-firehose-pops)
+                            (sp-int-plain-rnd spt-next-time 120 599 1)
+                            (sp-launcher-by-id spt-next-launcher 2881)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2881)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-userdata 409600.0) (sp-end))
-        )
-      )
+(defpart 2881 :init-specs ((sp-flt spt-userdata 409600.0)))
 
 ;; definition for function check-drop-level-firehose-pops
 (defun check-drop-level-firehose-pops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -105,623 +89,492 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2883) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -1.92)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2883 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-fade-a -1.92)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2882) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 4.0 4.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-fade-r -1.4166666)
-                                    (sp-flt spt-fade-g -8.5)
-                                    (sp-flt spt-fade-b -8.5)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int-plain-rnd spt-timer 15 119 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2882 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 4.0 4.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-flt spt-fade-r -1.4166666)
+                            (sp-flt spt-fade-g -8.5)
+                            (sp-flt spt-fade-b -8.5)
+                            (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int-plain-rnd spt-timer 15 119 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2879) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -2.0) (meters -1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.8) (meters 0.6) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.36666667))
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2879 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters -2) (meters -1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.8) (meters 0.6) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.36666667))
+                            (sp-int spt-timer 30)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2541) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-set-quat)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -11.0))
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 16.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2541 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-func spt-birth-func 'birth-func-set-quat)
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -11))
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 16) (meters 4) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 599)
-      (new 'static 'sparticle-launch-group
-        :length 23
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-generator-mushroom-on"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 23
-          (sp-item 2408 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 2409 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 2410 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 2411 :fade-after (meters 200.0) :falloff-to (meters 200.0) :binding 2407)
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          (sp-item 2407 :flags (bit1 start-dead launch-asap))
-          )
-        :bounds (new 'static 'sphere :w 51200.0)
-        )
-      )
+(defpartgroup group-citb-generator-mushroom-on
+  :id 599
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12.5)
+  :parts
+  ((sp-item 2408 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 2409 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 2410 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 2411 :fade-after (meters 200) :falloff-to (meters 200) :binding 2407)
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    (sp-item 2407 :flags (bit1 start-dead launch-asap))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 600)
-      (new 'static 'sparticle-launch-group
-        :length 28
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-generator-on"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 28
-          (sp-item 2413 :fade-after (meters 300.0) :falloff-to (meters 300.0))
-          (sp-item 2414 :fade-after (meters 200.0) :falloff-to (meters 200.0) :binding 2412)
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          (sp-item 2412 :flags (bit1 start-dead launch-asap))
-          )
-        :bounds (new 'static 'sphere :w 51200.0)
-        )
-      )
+(defpartgroup group-citb-generator-on
+  :id 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12.5)
+  :parts
+  ((sp-item 2413 :fade-after (meters 300) :falloff-to (meters 300))
+    (sp-item 2414 :fade-after (meters 200) :falloff-to (meters 200) :binding 2412)
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    (sp-item 2412 :flags (bit1 start-dead launch-asap))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2411) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.15)
-                                    (sp-rnd-flt spt-y (meters 4.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 10.4) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 6.4) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 8.0 16.0 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-rotate-y (degrees 3.0000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2411 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-y (meters 4.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 10.4) (meters 6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 6.4) (meters 6) 1.0)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 8.0 16.0 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees 3.0000002))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2407) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-z 14336.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.6) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 4 218.45334)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 0.8)
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-int spt-next-time 120)
-                                    (sp-launcher-by-id spt-next-launcher 2415)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2407 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-z (meters 3.5))
+                            (sp-rnd-flt spt-scale-x (meters 4.6) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 4 218.45334)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 0.8)
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 2415)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2408) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-flt spt-y (meters 5.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 6.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-flt spt-rotate-y (degrees 3.0000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2408 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-flt spt-y (meters 5))
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 6.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            (sp-flt spt-rotate-y (degrees 3.0000002))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2409) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-flt spt-y (meters 5.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 5.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 20.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-flt spt-rotate-y (degrees 3.0000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2409 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-flt spt-y (meters 5))
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 5.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 20.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            (sp-flt spt-rotate-y (degrees 3.0000002))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2410) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-flt spt-y (meters 5.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 4.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 20.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-flt spt-rotate-y (degrees 3.0000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2410 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-flt spt-y (meters 5))
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 4.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 20.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            (sp-flt spt-rotate-y (degrees 3.0000002))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2413) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.75))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 3.0))
-                                    (sp-flt spt-r 32.0)
-                                    (sp-flt spt-g 32.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 60)
-                                    (sp-launcher-by-id spt-next-launcher 2415)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2413 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0.75))
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+                            (sp-flt spt-scale-y (meters 3))
+                            (sp-flt spt-r 32.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2415)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2414) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 10
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.2)
-                                    (sp-rnd-flt spt-y (meters 0.2) (meters 1.4) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-flt spt-scale-y (meters 0.4))
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2414 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-y (meters 0.2) (meters 1.4) 1.0)
+                            (sp-flt spt-scale-x (meters 0.4))
+                            (sp-flt spt-scale-y (meters 0.4))
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2412) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-z 4096.0 81.92 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 4 218.45334)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 0.8)
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-int spt-next-time 120)
-                                    (sp-launcher-by-id spt-next-launcher 2415)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2412 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters 1) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 4 218.45334)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 0.8)
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 2415)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2415)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 360)
-                                                     (sp-launcher-by-id spt-next-launcher 2416)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2415
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 2416))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2416)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.8) (sp-end))
-        )
-      )
+(defpart 2416 :init-specs ((sp-flt spt-fade-a -0.8)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 598)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x258
-        :linger-duration #x258
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-generator-break"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 2423 :period 600 :length 5)
-          (sp-item 2424 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
-          (sp-item 2425 :period 600 :length 20)
-          (sp-item 2426 :fade-after (meters 120.0) :falloff-to (meters 120.0) :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-citb-generator-break
+  :id 598
+  :duration 600
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 2423 :period 600 :length 5)
+    (sp-item 2424 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
+    (sp-item 2425 :period 600 :length 20)
+    (sp-item 2426 :fade-after (meters 120) :falloff-to (meters 120) :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2424) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.42666668)
-                                    (sp-flt spt-fade-g -0.21333334)
-                                    (sp-flt spt-fade-b -0.21333334)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2427)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2424 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.42666668)
+                            (sp-flt spt-fade-g -0.21333334)
+                            (sp-flt spt-fade-b -0.21333334)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2427)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2427)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2427
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2426) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 0.2))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 8.0))
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.42666668))
-                                    (sp-flt spt-fade-r -2.1333334)
-                                    (sp-flt spt-fade-g -1.0666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2426 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 3.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-flt spt-scale-x (meters 0.2))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 8))
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.42666668))
+                            (sp-flt spt-fade-r -2.1333334)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2423) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-r -2.3272727)
-                                    (sp-flt spt-fade-g -1.1636363)
-                                    (sp-flt spt-fade-b -1.1636363)
-                                    (sp-flt spt-fade-a -1.7454545)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2423 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-flt spt-scale-x (meters 16))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-flt spt-fade-r -2.3272727)
+                            (sp-flt spt-fade-g -1.1636363)
+                            (sp-flt spt-fade-b -1.1636363)
+                            (sp-flt spt-fade-a -1.7454545)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2425) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.42666668)
-                                    (sp-flt spt-fade-g -0.21333334)
-                                    (sp-flt spt-fade-b -0.21333334)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2425 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.42666668)
+                            (sp-flt spt-fade-g -0.21333334)
+                            (sp-flt spt-fade-b -0.21333334)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 597) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-citb-generator-off"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2417 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 2418 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-citb-generator-off
+  :id 597
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 2417 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2418 :fade-after (meters 60) :falloff-to (meters 60))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2417) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.1) 1.0)
-                                    (sp-flt spt-y (meters 0.75))
-                                    (sp-rnd-flt spt-z -2048.0 4505.6 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.18962963)
-                                    (sp-flt spt-fade-g -0.094814815)
-                                    (sp-flt spt-fade-b -0.094814815)
-                                    (sp-flt spt-fade-a -0.047407407)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 675)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2417 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1.1) 1.0)
+                            (sp-flt spt-y (meters 0.75))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1.1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.18962963)
+                            (sp-flt spt-fade-g -0.094814815)
+                            (sp-flt spt-fade-b -0.094814815)
+                            (sp-flt spt-fade-a -0.047407407)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 675)
+                            (sp-cpuinfo-flags bit2)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2418)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters 0.2))
-                                                     (sp-flt spt-y (meters 1.75))
-                                                     (sp-int spt-rot-x 8)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2419)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2418 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters 0.2))
+                            (sp-flt spt-y (meters 1.75))
+                            (sp-int spt-rot-x 8)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 2867.2)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2419)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2419)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -1.3653333) (sp-end))
-        )
-      )
+(defpart 2419 :init-specs ((sp-flt spt-fade-b -1.3653333)))
 
 ;; definition for function birth-func-random-rot
 ;; INFO: Return type mismatch int vs none.
@@ -784,1986 +637,1601 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 601)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-robotboss-shield"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 2420 :fade-after (meters 220.0) :falloff-to (meters 250.0) :flags (is-3d))
-          )
-        :bounds
-        (new 'static 'sphere :y 94208.0 :w 139264.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2420) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-random-rot)
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 23.0))
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 6.0) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-flt spt-scale-y (meters 31.0))
-                                    (sp-rnd-flt spt-r 24.0 32.0 1.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 96.0 128.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-fade-a 0.85333335)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2421)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2421)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                                     (sp-flt spt-a 96.0)
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 2422)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2422)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 596)
-      (new 'static 'sparticle-launch-group
-        :length 36
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-coil-glow"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 36
-          (sp-item 2429 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 2430 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 2431 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 2432 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 2433 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 2434 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (is-3d))
-          (sp-item 2435 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 2436 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 2437 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 2438 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 2428)
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          (sp-item 2428 :flags (bit1 start-dead launch-asap))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2434) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -0.1))
-                                    (sp-flt spt-y (meters 1.0025))
-                                    (sp-flt spt-z 9420.8)
-                                    (sp-flt spt-scale-x (meters 4.1))
-                                    (sp-flt spt-rot-x 13653.333)
-                                    (sp-flt spt-rot-y (degrees -80.0))
-                                    (sp-flt spt-scale-y (meters 3.0))
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 64.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-rotate-y (degrees -72.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2433) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -0.1))
-                                    (sp-flt spt-y (meters 3.9))
-                                    (sp-flt spt-z 9420.8)
-                                    (sp-flt spt-scale-x (meters 4.1))
-                                    (sp-flt spt-rot-x 19114.666)
-                                    (sp-flt spt-rot-y (degrees -80.0))
-                                    (sp-flt spt-scale-y (meters 3.0))
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 64.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-rotate-y (degrees -72.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2432) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 3.2897))
-                                    (sp-flt spt-z 10178.56)
-                                    (sp-flt spt-scale-x (meters 3.1))
-                                    (sp-flt spt-rot-x 19114.666)
-                                    (sp-flt spt-rot-y (degrees 67.0))
-                                    (sp-flt spt-scale-y (meters 2.9))
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 64.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-rotate-y (degrees 72.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2431) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 0.8025))
-                                    (sp-flt spt-z 9830.4)
-                                    (sp-flt spt-scale-x (meters 3.1))
-                                    (sp-flt spt-rot-x 13653.333)
-                                    (sp-flt spt-rot-y (degrees 67.0))
-                                    (sp-flt spt-scale-y (meters 2.25))
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 64.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-rotate-y (degrees 72.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2430) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -0.2))
-                                    (sp-flt spt-y (meters 0.8025))
-                                    (sp-flt spt-z 11468.8)
-                                    (sp-flt spt-scale-x (meters 3.1))
-                                    (sp-flt spt-rot-x 13653.333)
-                                    (sp-flt spt-rot-y (degrees 10.0))
-                                    (sp-flt spt-scale-y (meters 3.0))
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 64.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2429) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -0.2))
-                                    (sp-flt spt-y (meters 3.7))
-                                    (sp-flt spt-z 11468.8)
-                                    (sp-flt spt-scale-x (meters 3.1))
-                                    (sp-flt spt-rot-x 19114.666)
-                                    (sp-flt spt-rot-y (degrees 10.0))
-                                    (sp-flt spt-scale-y (meters 3.0))
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 64.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2438) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 10
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.2)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 4.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-flt spt-scale-y (meters 0.4))
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2428) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-z 9011.2 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 4 218.45334)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 0.8)
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-int spt-next-time 120)
-                                    (sp-launcher-by-id spt-next-launcher 2439)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2439)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 360)
-                                                     (sp-launcher-by-id spt-next-launcher 2440)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2440)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.8) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2437) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 0.5 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.5) 1.0)
-                                    (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
-                                    (sp-rnd-flt spt-scale-y (meters 8.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2435) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2436) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 602) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-citb-coil-off"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2441 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 2442 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 24576.0 :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2442) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 29
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.06125)
-                                    (sp-rnd-flt spt-x (meters 1.5) (meters 0.5) 1.0)
-                                    (sp-flt spt-y (meters 4.5))
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0023333333))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.21333334)
-                                    (sp-flt spt-fade-g -0.10666667)
-                                    (sp-flt spt-fade-b -0.10666667)
-                                    (sp-flt spt-fade-a -0.026666667)
-                                    (sp-flt spt-accel-y 0.027306668)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 600)
-                                    (sp-launcher-by-id spt-next-launcher 2443)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2443)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.035555556)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2441)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters 1.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 196.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.18962963)
-                                                     (sp-flt spt-fade-g -0.094814815)
-                                                     (sp-flt spt-fade-b -0.094814815)
-                                                     (sp-flt spt-fade-a -0.047407407)
-                                                     (sp-flt spt-accel-y -0.027306668)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 675)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 603)
-      (new 'static 'sparticle-launch-group
-        :length 25
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-blue-sage-beam"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 25
-          (sp-item 2447 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 2444)
-          (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
-          (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
-          (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
-          (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
-          (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
-          (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
-          (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
-          (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
-          (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
-          (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
-          (sp-item 2445 :flags (bit1 start-dead))
-          (sp-item 2446 :flags (bit1 start-dead))
-          (sp-item 2445 :flags (bit1 start-dead))
-          (sp-item 2446 :flags (bit1 start-dead))
-          (sp-item 2445 :flags (bit1 start-dead))
-          (sp-item 2446 :flags (bit1 start-dead))
-          (sp-item 2445 :flags (bit1 start-dead))
-          (sp-item 2446 :flags (bit1 start-dead))
-          (sp-item 2445 :flags (bit1 start-dead))
-          (sp-item 2446 :flags (bit1 start-dead))
-          (sp-item 2445 :flags (bit1 start-dead))
-          (sp-item 2448)
-          (sp-item 2449)
-          (sp-item 2450)
-          )
-        :bounds (new 'static 'sphere :w 139264.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 607)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-blue-sage-beam-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2451 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2451) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 25.000002) (degrees 20.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 16.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2447) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.025)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.019444445))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 1800)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2444) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 4096.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 1800)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2445) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.0)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2446) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.0)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2448) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.8)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-r 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 16.0 48.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.11666667))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2450) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.8)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.058333334))
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2449) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.75)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 604)
-      (new 'static 'sparticle-launch-group
-        :length 25
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-red-sage-beam"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 25
-          (sp-item 2454 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 2452)
-          (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
-          (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
-          (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
-          (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
-          (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
-          (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
-          (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
-          (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
-          (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
-          (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2453 :flags (bit1 start-dead))
-          (sp-item 2455)
-          (sp-item 2456)
-          (sp-item 2457)
-          )
-        :bounds
-        (new 'static 'sphere :y 94208.0 :w 139264.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 608)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-red-sage-beam-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2458 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2458) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 68.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 192.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2454) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.05)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 3.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.062222224))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2452) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 5120.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 127.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2453) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.005555555))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.0)
-                                    (sp-flt spt-fade-a -0.22857143)
-                                    (sp-rnd-flt spt-accel-y 0.40960002 0.6144 1.0)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 171)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2455) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.75)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.5) (meters 0.75) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 16.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.18666667))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2457) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.4)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 3.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.093333334))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2456) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 192.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 605)
-      (new 'static 'sparticle-launch-group
-        :length 29
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-yellow-sage-beam"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 29
-          (sp-item 2461 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 2459)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2460 :flags (bit1 start-dead))
-          (sp-item 2462)
-          (sp-item 2463)
-          (sp-item 2464)
-          )
-        :bounds (new 'static 'sphere :w 139264.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 609)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-yellow-sage-beam-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2465 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2465) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 115.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2461) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.025)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.031111112))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 1800)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 85.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2459) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 5120.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 1800)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2460) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.4)
-                                    (sp-flt spt-fade-a -0.17777778)
-                                    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2462) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.8)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.18666667))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 85.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2464) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.75)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.093333334))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 85.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2463) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 606) (new 'static 'sparticle-launch-group
-                                       :length 29
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-citb-green-sage-beam"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 29
-                                         (sp-item 2468 :binding 2466)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2467 :flags (bit1 start-dead))
-                                         (sp-item 2469)
-                                         (sp-item 2470)
-                                         (sp-item 2471)
-                                         )
-                                       :bounds (new 'static 'sphere :w 139264.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 610)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-citb-green-sage-beam-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2472 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2472) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2468) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.025)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.027777778))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2466) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 5120.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 1800)
-                                    (sp-cpuinfo-flags bit2 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2467) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.17777778)
-                                    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2469) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.16666667))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2471) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.083333336))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2470) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2473) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-set-quat)
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.25) 1.0)
-                                    (sp-flt spt-scale-y (meters 5.6))
-                                    (sp-rnd-flt spt-r 24.0 32.0 1.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 96.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 662)
-      (new 'static 'sparticle-launch-group
-        :length #xac
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-citadel-warpgate"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 172
-          (sp-item 2689 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 2690 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 2687)
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2687 :flags (bit1 start-dead launch-asap))
-          (sp-item 2691 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 2688)
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2688 :flags (bit1 start-dead launch-asap))
-          (sp-item 2692 :fade-after (meters 100.0) :flags (is-3d))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2692) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 5.0))
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-flt spt-rot-z (degrees 82.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 255.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 0.0 64.0 1.0)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2691) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-scale-x (meters 0.25))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-x (meters 0.0033333334))
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit3 bit14)
-                                    (sp-flt spt-rotate-y (degrees -35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2688) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 4.3555555))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-z 22118.4 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 196.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-flt spt-accel-x 1.2136296)
-                                    (sp-flt spt-accel-z -0.75093335)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2689) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-rnd-flt spt-num 3.0 3.0 1.0)
-                                    (sp-flt spt-x (meters -0.5))
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 4096.0)
-                                    (sp-flt spt-g 3481.6)
-                                    (sp-flt spt-b 3481.6)
-                                    (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.02) 1.0)
-                                    (sp-flt spt-fade-b 2.968116)
-                                    (sp-int spt-timer 69)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 6.0000005))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2690) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.25))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-accel-x 0.06826667)
-                                    (sp-int spt-timer 690)
-                                    (sp-cpuinfo-flags bit3 bit14)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2687)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-x (meters 4.3555555))
-                                                     (sp-flt spt-y (meters 4.0))
-                                                     (sp-flt spt-z 9011.2)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 8.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                                     (sp-flt spt-vel-x (meters -0.0044444446))
-                                                     (sp-flt spt-vel-z (meters -0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees 0.0) (degrees 1.2) 1.0)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-flt spt-accel-x 4.247704)
-                                                     (sp-int spt-timer 690)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 683)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-citadel-torch"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 2832 :fade-after (meters 180.0) :falloff-to (meters 200.0))
-          (sp-item 2833 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 2834 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
-          (sp-item 2835 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
-          (sp-item 2836 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 710 :length 51)
-          (sp-item 2837 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2837)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.3)
-                                                     (sp-flt spt-x (meters 0.2))
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2867.2)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 2838)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2838)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -6.826667) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2832) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1069547520 1 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-                                    (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 13.066667)
-                                    (sp-flt spt-accel-y -0.8192)
-                                    (sp-int spt-timer 75)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2839)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2839)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2834)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 2839)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2835) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.5)
-                                    (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z 0.0 1638.4 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 13.066667)
-                                    (sp-flt spt-accel-y -0.8192)
-                                    (sp-int spt-timer 105)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2839)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2836)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 2839)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2833)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.3))
-                                                     (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0005))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.10666667)
-                                                     (sp-flt spt-fade-g -0.053333335)
-                                                     (sp-flt spt-fade-b -0.053333335)
-                                                     (sp-flt spt-fade-a -0.08)
-                                                     (sp-flt spt-accel-x 0.27306667)
-                                                     (sp-flt spt-accel-y 0.13653333)
-                                                     (sp-flt spt-friction 0.9975)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpartgroup group-citb-robotboss-shield
+  :id 601
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 23 0 34)
+  :parts
+  ((sp-item 2420 :fade-after (meters 220) :falloff-to (meters 250) :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2420 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
+                            (sp-func spt-birth-func 'birth-func-random-rot)
+                            (sp-flt spt-num 4.0)
+                            (sp-flt spt-y (meters 23))
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 6) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-flt spt-scale-y (meters 31))
+                            (sp-rnd-flt spt-r 24.0 32.0 1.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 96.0 128.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
+                            (sp-flt spt-userdata 0.0)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 2421)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2421 :init-specs ((sp-rnd-flt spt-g 32.0 32.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 2422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2422
+  :init-specs
+  ((sp-rnd-flt spt-g 0.0 32.0 1.0) (sp-flt spt-a 64.0) (sp-flt spt-fade-a -0.85333335))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-citb-coil-glow
+  :id 596
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 2429 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2430 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2431 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2432 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2433 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2434 :fade-after (meters 100) :falloff-to (meters 100) :flags (is-3d))
+    (sp-item 2435 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2436 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2437 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2438 :fade-after (meters 100) :falloff-to (meters 100) :binding 2428)
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    (sp-item 2428 :flags (bit1 start-dead launch-asap))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2434 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -0.1))
+                            (sp-flt spt-y (meters 1.0025))
+                            (sp-flt spt-z (meters 2.3))
+                            (sp-flt spt-scale-x (meters 4.1))
+                            (sp-flt spt-rot-x 13653.333)
+                            (sp-flt spt-rot-y (degrees -80.0))
+                            (sp-flt spt-scale-y (meters 3))
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 64.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees -72.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2433 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -0.1))
+                            (sp-flt spt-y (meters 3.9))
+                            (sp-flt spt-z (meters 2.3))
+                            (sp-flt spt-scale-x (meters 4.1))
+                            (sp-flt spt-rot-x 19114.666)
+                            (sp-flt spt-rot-y (degrees -80.0))
+                            (sp-flt spt-scale-y (meters 3))
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 64.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees -72.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2432 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 3.2897))
+                            (sp-flt spt-z (meters 2.485))
+                            (sp-flt spt-scale-x (meters 3.1))
+                            (sp-flt spt-rot-x 19114.666)
+                            (sp-flt spt-rot-y (degrees 67.0))
+                            (sp-flt spt-scale-y (meters 2.9))
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 64.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees 72.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2431 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 0.8025))
+                            (sp-flt spt-z (meters 2.4))
+                            (sp-flt spt-scale-x (meters 3.1))
+                            (sp-flt spt-rot-x 13653.333)
+                            (sp-flt spt-rot-y (degrees 67.0))
+                            (sp-flt spt-scale-y (meters 2.25))
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 64.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees 72.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2430 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -0.2))
+                            (sp-flt spt-y (meters 0.8025))
+                            (sp-flt spt-z (meters 2.8))
+                            (sp-flt spt-scale-x (meters 3.1))
+                            (sp-flt spt-rot-x 13653.333)
+                            (sp-flt spt-rot-y (degrees 10.0))
+                            (sp-flt spt-scale-y (meters 3))
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 64.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2429 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -0.2))
+                            (sp-flt spt-y (meters 3.7))
+                            (sp-flt spt-z (meters 2.8))
+                            (sp-flt spt-scale-x (meters 3.1))
+                            (sp-flt spt-rot-x 19114.666)
+                            (sp-flt spt-rot-y (degrees 10.0))
+                            (sp-flt spt-scale-y (meters 3))
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 64.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2438 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 4) 1.0)
+                            (sp-flt spt-scale-x (meters 0.4))
+                            (sp-flt spt-scale-y (meters 0.4))
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2428 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters 2.2) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.10666667) 4 218.45334)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 0.8)
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 2439)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2439
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 360) (sp-launcher-by-id spt-next-launcher 2440))
+  )
+
+;; failed to figure out what this is:
+(defpart 2440 :init-specs ((sp-flt spt-fade-a -0.8)))
+
+;; failed to figure out what this is:
+(defpart 2437 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.5 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 2.5) 1.0)
+                            (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
+                            (sp-rnd-flt spt-scale-y (meters 8.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.4)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2435 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 0.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.4)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2436 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 0.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.4)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-citb-coil-off
+  :id 602
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 6 0 8)
+  :parts
+  ((sp-item 2441 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 2442 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2442 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.06125)
+                            (sp-rnd-flt spt-x (meters 1.5) (meters 0.5) 1.0)
+                            (sp-flt spt-y (meters 4.5))
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0023333333))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.21333334)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-b -0.10666667)
+                            (sp-flt spt-fade-a -0.026666667)
+                            (sp-flt spt-accel-y 0.027306668)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 600)
+                            (sp-launcher-by-id spt-next-launcher 2443)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2443 :init-specs ((sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g 0.0)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.035555556)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2441 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters 1.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.18962963)
+                            (sp-flt spt-fade-g -0.094814815)
+                            (sp-flt spt-fade-b -0.094814815)
+                            (sp-flt spt-fade-a -0.047407407)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 675)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-citb-blue-sage-beam
+  :id 603
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 34)
+  :parts
+  ((sp-item 2447 :fade-after (meters 140) :falloff-to (meters 140) :binding 2444)
+    (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
+    (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
+    (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
+    (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
+    (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
+    (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
+    (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
+    (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
+    (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2445)
+    (sp-item 2444 :flags (bit1 start-dead launch-asap) :binding 2446)
+    (sp-item 2445 :flags (bit1 start-dead))
+    (sp-item 2446 :flags (bit1 start-dead))
+    (sp-item 2445 :flags (bit1 start-dead))
+    (sp-item 2446 :flags (bit1 start-dead))
+    (sp-item 2445 :flags (bit1 start-dead))
+    (sp-item 2446 :flags (bit1 start-dead))
+    (sp-item 2445 :flags (bit1 start-dead))
+    (sp-item 2446 :flags (bit1 start-dead))
+    (sp-item 2445 :flags (bit1 start-dead))
+    (sp-item 2446 :flags (bit1 start-dead))
+    (sp-item 2445 :flags (bit1 start-dead))
+    (sp-item 2448)
+    (sp-item 2449)
+    (sp-item 2450)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-citb-blue-sage-beam-impact
+  :id 607
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2451 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2451 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-rnd-flt spt-rot-y (degrees 25.000002) (degrees 20.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 16.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2447 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.025)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.019444445))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2444 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2445 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.0)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2446 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.0)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2448 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.8)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-r 16.0 48.0 1.0)
+                            (sp-rnd-flt spt-g 16.0 48.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0.11666667))
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2450 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.8)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.058333334))
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2449 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-citb-red-sage-beam
+  :id 604
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 23 0 34)
+  :parts
+  ((sp-item 2454 :fade-after (meters 140) :falloff-to (meters 140) :binding 2452)
+    (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
+    (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
+    (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
+    (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
+    (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
+    (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
+    (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
+    (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
+    (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
+    (sp-item 2452 :flags (bit1 start-dead launch-asap) :binding 2453)
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2453 :flags (bit1 start-dead))
+    (sp-item 2455)
+    (sp-item 2456)
+    (sp-item 2457)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-citb-red-sage-beam-impact
+  :id 608
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2458 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2458 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 68.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 192.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2454 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.05)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.062222224))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2452 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 127.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2453 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.005555555))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.0)
+                            (sp-flt spt-fade-a -0.22857143)
+                            (sp-rnd-flt spt-accel-y 0.40960002 0.6144 1.0)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 171)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2455 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.5) (meters 0.75) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 16.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0.18666667))
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2457 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.093333334))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2456 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 192.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-citb-yellow-sage-beam
+  :id 605
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 34)
+  :parts
+  ((sp-item 2461 :fade-after (meters 140) :falloff-to (meters 140) :binding 2459)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2459 :flags (bit1 start-dead launch-asap) :binding 2460)
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2460 :flags (bit1 start-dead))
+    (sp-item 2462)
+    (sp-item 2463)
+    (sp-item 2464)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-citb-yellow-sage-beam-impact
+  :id 609
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2465 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2465 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 115.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2461 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.025)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.031111112))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 85.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2459 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2460 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.4)
+                            (sp-flt spt-fade-a -0.17777778)
+                            (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+                            (sp-int-plain-rnd spt-timer 30 299 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2462 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.8)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0.18666667))
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 85.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2464 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.093333334))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 85.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2463 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-citb-green-sage-beam
+  :id 606
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 34)
+  :parts
+  ((sp-item 2468 :binding 2466)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2466 :flags (bit1 start-dead launch-asap) :binding 2467)
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2467 :flags (bit1 start-dead))
+    (sp-item 2469)
+    (sp-item 2470)
+    (sp-item 2471)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-citb-green-sage-beam-impact
+  :id 610
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2472 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2472 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2468 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.025)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.027777778))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2466 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2467 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.17777778)
+                            (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+                            (sp-int-plain-rnd spt-timer 30 299 1)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2469 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0.16666667))
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2471 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.083333336))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2470 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2473 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xc :page #x2))
+                            (sp-func spt-birth-func 'birth-func-set-quat)
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.25) 1.0)
+                            (sp-flt spt-scale-y (meters 5.6))
+                            (sp-rnd-flt spt-r 24.0 32.0 1.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 96.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-citadel-warpgate
+  :id 662
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2689 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 2690 :fade-after (meters 60) :falloff-to (meters 100) :binding 2687)
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2687 :flags (bit1 start-dead launch-asap))
+    (sp-item 2691 :fade-after (meters 60) :falloff-to (meters 100) :binding 2688)
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2688 :flags (bit1 start-dead launch-asap))
+    (sp-item 2692 :fade-after (meters 100) :flags (is-3d))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2692 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-scale-x (meters 5))
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-flt spt-rot-z (degrees 82.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 255.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 0.0 64.0 1.0)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2691 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-scale-x (meters 0.25))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-x (meters 0.0033333334))
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees -35.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2688 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 4.3555555))
+                            (sp-flt spt-y (meters 4))
+                            (sp-rnd-flt spt-z (meters 5.4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 196.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-flt spt-accel-x 1.2136296)
+                            (sp-flt spt-accel-z -0.75093335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2689 :init-specs ((sp-rnd-flt spt-num 3.0 3.0 1.0)
+                            (sp-flt spt-x (meters -0.5))
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 3481.6)
+                            (sp-flt spt-b 3481.6)
+                            (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.02) 1.0)
+                            (sp-flt spt-fade-b 2.968116)
+                            (sp-int spt-timer 69)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 4) (meters 3) 1.0)
+                            (sp-flt spt-rotate-y (degrees 6.0000005))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2690 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0.25))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-accel-x 0.06826667)
+                            (sp-int spt-timer 690)
+                            (sp-cpuinfo-flags bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2687 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 4.3555555))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 2.2))
+                            (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 32.0 1.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters -0.0044444446))
+                            (sp-flt spt-vel-z (meters -0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees 0.0) (degrees 1.2) 1.0)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-flt spt-accel-x 4.247704)
+                            (sp-int spt-timer 690)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-part-citadel-torch
+  :id 683
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 2832 :fade-after (meters 180) :falloff-to (meters 200))
+    (sp-item 2833 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 2834 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 90)
+    (sp-item 2835 :fade-after (meters 50) :falloff-to (meters 50) :period 369 :length 69)
+    (sp-item 2836 :fade-after (meters 40) :falloff-to (meters 40) :period 710 :length 51)
+    (sp-item 2837 :fade-after (meters 50) :falloff-to (meters 50))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2837 :init-specs ((sp-flt spt-num 0.3)
+                            (sp-flt spt-x (meters 0.2))
+                            (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2867.2)
+                            (sp-flt spt-b 3276.8)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                            (sp-flt spt-vel-y (meters 0.026666667))
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 2838)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2838 :init-specs ((sp-flt spt-fade-b -6.826667)))
+
+;; failed to figure out what this is:
+(defpart 2832 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1069547520 1 1.0)
+                            (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 75)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2839)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2839 :init-specs ((sp-flt spt-fade-a -1.3333334)))
+
+;; failed to figure out what this is:
+(defpart 2834 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2839)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2835 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2839)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2836 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2839)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2833 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 96.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0005))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.10666667)
+                            (sp-flt spt-fade-g -0.053333335)
+                            (sp-flt spt-fade-b -0.053333335)
+                            (sp-flt spt-fade-a -0.08)
+                            (sp-flt spt-accel-x 0.27306667)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-flt spt-friction 0.9975)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
diff --git a/test/decompiler/reference/levels/common/dark-eco-pool_REF.gc b/test/decompiler/reference/levels/common/dark-eco-pool_REF.gc
index 0df6e01687..e2a1ff2a1b 100644
--- a/test/decompiler/reference/levels/common/dark-eco-pool_REF.gc
+++ b/test/decompiler/reference/levels/common/dark-eco-pool_REF.gc
@@ -157,262 +157,207 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 444)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-eco-nasty"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2020 :fade-after (meters 50.0)))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-dark-eco-nasty
+  :id 444
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2020 :fade-after (meters 50)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2020) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.25))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.1875))
-                                    (sp-flt spt-scalevel-y (meters -0.001875))
-                                    (sp-flt spt-fade-a -3.2)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2021)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2020 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 4) 1.0)
+                            (sp-flt spt-scale-y (meters 0.25))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.1875))
+                            (sp-flt spt-scalevel-y (meters -0.001875))
+                            (sp-flt spt-fade-a -3.2)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2021)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2021)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-fade-a -1.28)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2021
+  :init-specs
+  ((sp-flt spt-r 255.0) (sp-rnd-flt spt-g 128.0 128.0 1.0) (sp-flt spt-b 0.0) (sp-flt spt-fade-a -1.28))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 445)
-      (new 'static 'sparticle-launch-group
-        :length 19
-        :duration #x258
-        :linger-duration #x258
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-eco-pool-nasty"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 19
-          (sp-item 2056 :fade-after (meters 100.0) :period 600 :length 5)
-          (sp-item 2057 :fade-after (meters 100.0) :period 600 :length 5 :binding 2052)
-          (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
-          (sp-item 2053 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
-          (sp-item 2053 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
-          (sp-item 2053 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
-          (sp-item 2053 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2058 :fade-after (meters 100.0) :period 600 :length 5 :binding 2054)
-          (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
-          (sp-item 2055 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
-          (sp-item 2055 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
-          (sp-item 2055 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
-          (sp-item 2055 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-dark-eco-pool-nasty
+  :id 445
+  :duration 600
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2056 :fade-after (meters 100) :period 600 :length 5)
+    (sp-item 2057 :fade-after (meters 100) :period 600 :length 5 :binding 2052)
+    (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
+    (sp-item 2053 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
+    (sp-item 2053 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
+    (sp-item 2053 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2052 :flags (start-dead launch-asap) :binding 2053)
+    (sp-item 2053 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2058 :fade-after (meters 100) :period 600 :length 5 :binding 2054)
+    (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
+    (sp-item 2055 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
+    (sp-item 2055 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
+    (sp-item 2055 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2054 :flags (start-dead launch-asap) :binding 2055)
+    (sp-item 2055 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2056) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 8.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-flt spt-fade-a -1.8285716)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2056 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 8))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-flt spt-fade-a -1.8285716)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2057) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 6.0 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-accel-y -3.4133334)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2057 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 6.0 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-accel-y -3.4133334)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 240)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2052) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 1228.8 1228.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.000909091))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.26666668)
-                                    (sp-flt spt-fade-a -0.19393939)
-                                    (sp-int-plain-rnd spt-timer 60 179 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2052 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.3) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.000909091))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.26666668)
+                            (sp-flt spt-fade-a -0.19393939)
+                            (sp-int-plain-rnd spt-timer 60 179 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2053) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0006190476))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.01904762)
-                                    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 239 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 198)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2053 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0006190476))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.01904762)
+                            (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+                            (sp-int-plain-rnd spt-timer 30 239 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 198)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2058) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 6.0 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-accel-y -3.4133334)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2058 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 6.0 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-accel-y -3.4133334)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 240)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2054) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 1228.8 1228.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.000909091))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.26666668)
-                                    (sp-flt spt-fade-a -0.19393939)
-                                    (sp-int-plain-rnd spt-timer 60 179 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2054 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.3) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.000909091))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.26666668)
+                            (sp-flt spt-fade-a -0.19393939)
+                            (sp-int-plain-rnd spt-timer 60 179 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2055) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0006190476))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.01904762)
-                                    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 239 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 198)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2055 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0006190476))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.01904762)
+                            (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+                            (sp-int-plain-rnd spt-timer 30 239 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 198)
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate water-vol-idle (dark-eco-pool)
diff --git a/test/decompiler/reference/levels/common/mistycannon_REF.gc b/test/decompiler/reference/levels/common/mistycannon_REF.gc
index a1e94111d2..74ab25e724 100644
--- a/test/decompiler/reference/levels/common/mistycannon_REF.gc
+++ b/test/decompiler/reference/levels/common/mistycannon_REF.gc
@@ -152,593 +152,472 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 117) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-beach-sack-fuse"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 517 :fade-after (meters 30.0))
-                                         (sp-item 518 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 519 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-beach-sack-fuse
+  :id 117
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 517 :fade-after (meters 30))
+    (sp-item 518 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 519 :fade-after (meters 80) :falloff-to (meters 80))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 517) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 4.0 24.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.013333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int-plain-rnd spt-timer 45 14 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 517 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 4.0)
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 4.0 24.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.013333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int-plain-rnd spt-timer 45 14 1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 518) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.25) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 518 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.25) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 48.0 48.0 1.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 519) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-flt spt-scale-x (meters 0.2))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-rnd-flt spt-b 8.0 24.0 1.0)
-                                   (sp-rnd-flt spt-a 160.0 95.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.016666668))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -8.366014)
-                                   (sp-flt spt-accel-y -8.192)
-                                   (sp-int spt-timer 15)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.6) (meters 0.2) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 519 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 4.0)
+                           (sp-flt spt-scale-x (meters 0.2))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 32.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-rnd-flt spt-b 8.0 24.0 1.0)
+                           (sp-rnd-flt spt-a 160.0 95.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.016666668))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -8.366014)
+                           (sp-flt spt-accel-y -8.192)
+                           (sp-int spt-timer 15)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0.6) (meters 0.2) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 118)
-      (new 'static 'sparticle-launch-group
-        :length 21
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-beach-sack-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 21
-          (sp-item 520 :period 1200 :length 30)
-          (sp-item 521 :fade-after (meters 60.0) :period 1200 :length 15)
-          (sp-item 522 :period 1200 :length 15 :offset 15)
-          (sp-item 523 :period 1200 :length 15)
-          (sp-item 524 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 30 :binding 525)
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          (sp-item 525 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 65536.0)
-        )
-      )
+(defpartgroup group-beach-sack-explosion
+  :id 118
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 520 :period 1200 :length 30)
+    (sp-item 521 :fade-after (meters 60) :period 1200 :length 15)
+    (sp-item 522 :period 1200 :length 15 :offset 15)
+    (sp-item 523 :period 1200 :length 15)
+    (sp-item 524 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 30 :binding 525)
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    (sp-item 525 :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 520) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 70.0)
-                                   (sp-flt spt-g 70.0)
-                                   (sp-rnd-flt spt-b 70.0 16.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.033333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-accel-y 0.2048)
-                                   (sp-flt spt-friction 0.92)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 30 299 1)
-                                   (sp-launcher-by-id spt-next-launcher 526)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 520 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 70.0)
+                           (sp-flt spt-g 70.0)
+                           (sp-rnd-flt spt-b 70.0 16.0 1.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.033333335) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-accel-y 0.2048)
+                           (sp-flt spt-friction 0.92)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int-plain-rnd spt-next-time 30 299 1)
+                           (sp-launcher-by-id spt-next-launcher 526)
+                           (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 2))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 526)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.32)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 526
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0)) (sp-copy-from-other spt-scalevel-y -4) (sp-flt spt-fade-a -0.32))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 521) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-rnd-flt spt-scale-x (meters 8.0) (meters 8.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3.0) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 30)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 527)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 521 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-flt spt-y (meters 0.75))
+                           (sp-rnd-flt spt-scale-x (meters 8) (meters 8) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 30)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 527)
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 527)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
+(defpart 527 :init-specs ((sp-flt spt-fade-a -1.3333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 522) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 522 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 523) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 32.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 523 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 32.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 524) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 5.0 10.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-rnd-int spt-g 1123942400 1 127.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 127.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-fade-g -4.266667)
-                                   (sp-flt spt-fade-b -2.8444445)
-                                   (sp-flt spt-accel-y -16.384)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int-plain-rnd spt-next-time 5 38 1)
-                                   (sp-launcher-by-id spt-next-launcher 528)
-                                   (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 524 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 5.0 10.0 1.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-rnd-int spt-g 1123942400 1 127.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+                           (sp-flt spt-fade-g -4.266667)
+                           (sp-flt spt-fade-b -2.8444445)
+                           (sp-flt spt-accel-y -16.384)
+                           (sp-flt spt-friction 0.97)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int-plain-rnd spt-next-time 5 38 1)
+                           (sp-launcher-by-id spt-next-launcher 528)
+                           (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 528)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -4.266667)
-                                                     (sp-flt spt-fade-g 0.7111111)
-                                                     (sp-flt spt-fade-b 1.4222223)
-                                                     (sp-flt spt-fade-a -2.8444445)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 528 :init-specs ((sp-flt spt-scalevel-x (meters -0.0033333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -4.266667)
+                           (sp-flt spt-fade-g 0.7111111)
+                           (sp-flt spt-fade-b 1.4222223)
+                           (sp-flt spt-fade-a -2.8444445)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 525)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 70.0)
-                                                     (sp-flt spt-g 70.0)
-                                                     (sp-rnd-flt spt-b 70.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-a 20.0 8.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.11666667)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 525 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 70.0)
+                           (sp-flt spt-g 70.0)
+                           (sp-rnd-flt spt-b 70.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 20.0 8.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.11666667)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 119)
-      (new 'static 'sparticle-launch-group
-        :length 30
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-beach-cannon-fire"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 30
-          (sp-item 529 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 1200 :length 30)
-          (sp-item 530 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 15)
-          (sp-item 531 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 1200 :length 15)
-          (sp-item 532 :period 1200 :length 15 :offset 15)
-          (sp-item 533 :period 1200 :length 15)
-          (sp-item 534 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 1200 :length 15 :binding 535)
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          (sp-item 535 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 98304.0)
-        )
-      )
+(defpartgroup group-beach-cannon-fire
+  :id 119
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 24)
+  :parts
+  ((sp-item 529 :fade-after (meters 200) :falloff-to (meters 200) :period 1200 :length 30)
+    (sp-item 530 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 15)
+    (sp-item 531 :fade-after (meters 40) :falloff-to (meters 40) :period 1200 :length 15)
+    (sp-item 532 :period 1200 :length 15 :offset 15)
+    (sp-item 533 :period 1200 :length 15)
+    (sp-item 534 :fade-after (meters 40) :falloff-to (meters 40) :period 1200 :length 15 :binding 535)
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    (sp-item 535 :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 529)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 26
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 6.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                                     (sp-flt spt-a 48.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.013333334) 1.0)
-                                                     (sp-flt spt-vel-z (meters -0.033333335))
-                                                     (sp-flt spt-scalevel-x (meters 0.016666668))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-y 0.27306667)
-                                                     (sp-flt spt-friction 0.92)
-                                                     (sp-int spt-timer 900)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-int-plain-rnd spt-next-time 30 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 536)
-                                                     (sp-flt spt-launchrot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-x (degrees 45.0))
-                                                     (sp-flt spt-conerot-radius (meters 2.0))
-                                                     (sp-flt spt-rotate-y (degrees 90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 529 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-flt spt-a 48.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-z (meters -0.033333335))
+                           (sp-flt spt-scalevel-x (meters 0.016666668))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-accel-y 0.27306667)
+                           (sp-flt spt-friction 0.92)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int-plain-rnd spt-next-time 30 299 1)
+                           (sp-launcher-by-id spt-next-launcher 536)
+                           (sp-flt spt-launchrot-x (degrees 90.0))
+                           (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-x (degrees 45.0))
+                           (sp-flt spt-conerot-radius (meters 2))
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 536)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 536 :init-specs ((sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.16)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 530) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 5.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-flt spt-a 48.0)
-                                   (sp-rnd-flt spt-vel-z (meters 0.3) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.026666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-accel-y -0.27306667)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int-plain-rnd spt-next-time 30 149 1)
-                                   (sp-launcher-by-id spt-next-launcher 536)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -83.0) (degrees -7.0000005) 1.0)
-                                   (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-x (degrees 45.0))
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 530 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 5.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-flt spt-a 48.0)
+                           (sp-rnd-flt spt-vel-z (meters 0.3) (meters 0.06666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.026666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-accel-y -0.27306667)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int-plain-rnd spt-next-time 30 149 1)
+                           (sp-launcher-by-id spt-next-launcher 536)
+                           (sp-rnd-flt spt-launchrot-x (degrees -83.0) (degrees -7.0000005) 1.0)
+                           (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-x (degrees 45.0))
+                           (sp-flt spt-conerot-radius (meters 2))
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 531) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-rnd-flt spt-scale-x (meters 16.0) (meters 16.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3.0) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 30)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 537)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 531 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-flt spt-y (meters 0.75))
+                           (sp-rnd-flt spt-scale-x (meters 16) (meters 16) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 30)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 537)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 537)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
+(defpart 537 :init-specs ((sp-flt spt-fade-a -1.3333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 532) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 532 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 533) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 32.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 533 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 32.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 534) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 5.0 10.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-z (meters 0.16666667) (meters 0.16666667) 1.0)
-                                   (sp-flt spt-fade-g -4.2222223)
-                                   (sp-flt spt-fade-b -2.8)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int-plain-rnd spt-next-time 10 89 1)
-                                   (sp-launcher-by-id spt-next-launcher 538)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -60.0) (degrees -60.0) 1.0)
-                                   (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-x (degrees 45.0))
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 534 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 5.0 10.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-z (meters 0.16666667) (meters 0.16666667) 1.0)
+                           (sp-flt spt-fade-g -4.2222223)
+                           (sp-flt spt-fade-b -2.8)
+                           (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                           (sp-flt spt-friction 0.95)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int-plain-rnd spt-next-time 10 89 1)
+                           (sp-launcher-by-id spt-next-launcher 538)
+                           (sp-rnd-flt spt-launchrot-x (degrees -60.0) (degrees -60.0) 1.0)
+                           (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-x (degrees 45.0))
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 538)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.6)
-                                                     (sp-flt spt-fade-g -1.8)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 538 :init-specs ((sp-flt spt-scalevel-x (meters -0.0033333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.6)
+                           (sp-flt spt-fade-g -1.8)
+                           (sp-flt spt-fade-a -0.85333335)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 535)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 64.0)
-                                                     (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.08)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 535 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 64.0)
+                           (sp-rnd-flt spt-a 16.0 8.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.08)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           )
+             )
 
 ;; definition of type mistycannon-missile
 (deftype mistycannon-missile (process-drawable)
diff --git a/test/decompiler/reference/levels/common/plat_REF.gc b/test/decompiler/reference/levels/common/plat_REF.gc
index 12e2a26f83..0fb3e3c80a 100644
--- a/test/decompiler/reference/levels/common/plat_REF.gc
+++ b/test/decompiler/reference/levels/common/plat_REF.gc
@@ -2,68 +2,53 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 107) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-standard-plat"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 363 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 364 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-standard-plat
+  :id 107
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 363 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 364 :fade-after (meters 160) :falloff-to (meters 160))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 363)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 5324.8)
-                                                     (sp-flt spt-g 4096.0)
-                                                     (sp-flt spt-b 3686.4)
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-fade-b -16.383999)
-                                                     (sp-int spt-timer 25)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 140.0) (degrees 40.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 3.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 363 :init-specs ((sp-flt spt-num 1.5)
+                           (sp-flt spt-y (meters 1))
+                           (sp-int spt-rot-x 5)
+                           (sp-flt spt-r 5324.8)
+                           (sp-flt spt-g 4096.0)
+                           (sp-flt spt-b 3686.4)
+                           (sp-flt spt-vel-y (meters 0.0033333334))
+                           (sp-flt spt-fade-b -16.383999)
+                           (sp-int spt-timer 25)
+                           (sp-cpuinfo-flags aux-list)
+                           (sp-rnd-flt spt-conerot-x (degrees 140.0) (degrees 40.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 3))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 364) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-y (meters 1.5))
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.01))
-                                   (sp-flt spt-fade-g -0.42666668)
-                                   (sp-flt spt-fade-a -0.32)
-                                   (sp-flt spt-accel-y -0.13653333)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 130.0) (degrees 100.00001) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 3.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 364 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-y (meters 1.5))
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.01))
+                           (sp-flt spt-fade-g -0.42666668)
+                           (sp-flt spt-fade-a -0.32)
+                           (sp-flt spt-accel-y -0.13653333)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 130.0) (degrees 100.00001) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 3))
+                           )
+             )
 
 ;; definition of type plat
 (deftype plat (baseplat)
diff --git a/test/decompiler/reference/levels/common/sharkey_REF.gc b/test/decompiler/reference/levels/common/sharkey_REF.gc
index 7230f4acb9..7ab14e719b 100644
--- a/test/decompiler/reference/levels/common/sharkey_REF.gc
+++ b/test/decompiler/reference/levels/common/sharkey_REF.gc
@@ -2,35 +2,31 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 106) (new 'static 'sparticle-launch-group
-                                       :length 16
-                                       :duration #x78
-                                       :linger-duration #x30c
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-sharkey-splash"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 16
-                                         (sp-item 124 :flags (is-3d) :period 900 :length 63)
-                                         (sp-item 125 :period 900 :length 15)
-                                         (sp-item 126 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 127 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 128 :period 900 :length 10 :binding 129)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-sharkey-splash
+  :id 106
+  :duration 120
+  :linger-duration 780
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 124 :flags (is-3d) :period 900 :length 63)
+    (sp-item 125 :period 900 :length 15)
+    (sp-item 126 :flags (is-3d) :period 900 :length 15)
+    (sp-item 127 :flags (is-3d) :period 900 :length 15)
+    (sp-item 128 :period 900 :length 10 :binding 129)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    )
+  )
 
 ;; definition of type sharkey
 (deftype sharkey (nav-enemy)
diff --git a/test/decompiler/reference/levels/common/static-screen_REF.gc b/test/decompiler/reference/levels/common/static-screen_REF.gc
index 5580c25f82..2766d16534 100644
--- a/test/decompiler/reference/levels/common/static-screen_REF.gc
+++ b/test/decompiler/reference/levels/common/static-screen_REF.gc
@@ -56,80 +56,58 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2966)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 12
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x5c6))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-y (meters 1.18))
-                                                     (sp-flt spt-scale-x (meters 15.0))
-                                                     (sp-flt spt-scale-y (meters 6.5))
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-int spt-timer -1)
-                                                     (sp-cpuinfo-flags bit2 bit9 bit13)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2966 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x5c6))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 1.18))
+                            (sp-flt spt-scale-x (meters 15))
+                            (sp-flt spt-scale-y (meters 6.5))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2967) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x5c6))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -1.264))
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-flt spt-scale-y (meters 3.25))
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2967 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x5c6))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -1.264))
+                            (sp-flt spt-scale-x (meters 15))
+                            (sp-flt spt-scale-y (meters 3.25))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2968) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x5c6))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -2.482))
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-flt spt-scale-y (meters 1.625))
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9 bit13)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2968 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x5c6))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -2.482))
+                            (sp-flt spt-scale-x (meters 15))
+                            (sp-flt spt-scale-y (meters 1.625))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9 bit13)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 707) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-part-screen1"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2966 :flags (launch-asap))
-                                         (sp-item 2967 :flags (launch-asap))
-                                         (sp-item 2968 :flags (launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-part-screen1
+  :id 707
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2966 :flags (launch-asap)) (sp-item 2967 :flags (launch-asap)) (sp-item 2968 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
 (defstate idle (static-screen)
diff --git a/test/decompiler/reference/levels/finalboss/green-eco-lurker_REF.gc b/test/decompiler/reference/levels/finalboss/green-eco-lurker_REF.gc
index 5fdf2c990c..c5460d15b6 100644
--- a/test/decompiler/reference/levels/finalboss/green-eco-lurker_REF.gc
+++ b/test/decompiler/reference/levels/finalboss/green-eco-lurker_REF.gc
@@ -127,244 +127,198 @@
         )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 643)
-      (new 'static 'sparticle-launch-group
-        :length 37
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-green-eco-lurker-death"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 37
-          (sp-item 2585 :fade-after (meters 100.0) :period 600 :length 5 :binding 2583)
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
-          (sp-item 2584 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2586 :period 600 :length 5)
-          (sp-item 2587 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
-          (sp-item 2588 :period 600 :length 20)
-          (sp-item 2589 :fade-after (meters 120.0) :falloff-to (meters 120.0) :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-green-eco-lurker-death
+  :id 643
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2585 :fade-after (meters 100) :period 600 :length 5 :binding 2583)
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2583 :flags (start-dead launch-asap) :binding 2584)
+    (sp-item 2584 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2586 :period 600 :length 5)
+    (sp-item 2587 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
+    (sp-item 2588 :period 600 :length 20)
+    (sp-item 2589 :fade-after (meters 120) :falloff-to (meters 120) :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2587) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2590)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2587 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2590)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2590)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2590
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2589) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-flt spt-scale-x (meters 0.2))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 8.0))
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.42666668))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2589 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 3.0)
+                            (sp-flt spt-scale-x (meters 0.2))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 8))
+                            (sp-rnd-flt spt-r 64.0 192.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.42666668))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2586) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -1.7454545)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2586 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 16))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 192.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-flt spt-fade-a -1.7454545)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2588) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2588 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 110.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2585) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2585 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 240)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2583) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 1228.8 1228.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.000909091))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.26666668)
-                                    (sp-flt spt-fade-a -0.19393939)
-                                    (sp-int-plain-rnd spt-timer 90 149 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2583 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.3) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.000909091))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.26666668)
+                            (sp-flt spt-fade-a -0.19393939)
+                            (sp-int-plain-rnd spt-timer 90 149 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2584) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0006190476))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.01904762)
-                                    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 198)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2584 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0006190476))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.01904762)
+                            (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+                            (sp-int-plain-rnd spt-timer 30 299 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 198)
+                            )
+              )
 
 ;; definition for method 43 of type green-eco-lurker
 (defmethod dummy-43 green-eco-lurker ((obj green-eco-lurker) (arg0 process) (arg1 event-message-block))
diff --git a/test/decompiler/reference/levels/finalboss/light-eco_REF.gc b/test/decompiler/reference/levels/finalboss/light-eco_REF.gc
index c41371ea8d..be7723e3ed 100644
--- a/test/decompiler/reference/levels/finalboss/light-eco_REF.gc
+++ b/test/decompiler/reference/levels/finalboss/light-eco_REF.gc
@@ -100,155 +100,116 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 690)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-light-eco-mother-growing"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2902) (sp-item 2900) (sp-item 2897) (sp-item 2898))
-        :bounds (new 'static 'sphere :w 131072.0)
-        )
-      )
+(defpartgroup group-light-eco-mother-growing
+  :id 690
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 2902) (sp-item 2900) (sp-item 2897) (sp-item 2898))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2897) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-scale-x (meters 10.5) (meters 4.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.1) (meters 1.8) 1.0)
-                                    (sp-rnd-int spt-r 0 1 255.0)
-                                    (sp-rnd-int spt-g 0 1 255.0)
-                                    (sp-rnd-int spt-b 0 1 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.009765625))
-                                    (sp-flt spt-fade-a 0.35555556)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 90)
-                                    (sp-launcher-by-id spt-next-launcher 2899)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2897 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-scale-x (meters 10.5) (meters 4.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2.1) (meters 1.8) 1.0)
+                            (sp-rnd-int spt-r 0 1 255.0)
+                            (sp-rnd-int spt-g 0 1 255.0)
+                            (sp-rnd-int spt-b 0 1 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.009765625))
+                            (sp-flt spt-fade-a 0.35555556)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 90)
+                            (sp-launcher-by-id spt-next-launcher 2899)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2899)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 2899 :init-specs ((sp-flt spt-fade-a -0.53333336)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2898) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-scale-x (meters 20.0) (meters 4.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 1.2))
-                                    (sp-rnd-int spt-r 0 1 255.0)
-                                    (sp-rnd-int spt-g 0 1 255.0)
-                                    (sp-rnd-int spt-b 0 1 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-fade-a 0.32)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 232)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2898 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-scale-x (meters 20) (meters 4.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 1.2))
+                            (sp-rnd-int spt-r 0 1 255.0)
+                            (sp-rnd-int spt-g 0 1 255.0)
+                            (sp-rnd-int spt-b 0 1 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                            (sp-flt spt-fade-a 0.32)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 232)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2900)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-z -4.096 8.192 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 10.0) (meters 5.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.016666668))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int-plain-rnd spt-next-time 240 59 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2901)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2900 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 10) (meters 5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.016666668))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 240 59 1)
+                            (sp-launcher-by-id spt-next-launcher 2901)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2901)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 2901 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2902) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 8.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int-plain-rnd spt-timer 30 149 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3)
-                                    (sp-flt spt-userdata 1638400.0)
-                                    (sp-func spt-func 'check-drop-level-lighteco-big-pops)
-                                    (sp-int-plain-rnd spt-next-time 45 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 2903)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2902 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 8.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00083333335))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int-plain-rnd spt-timer 30 149 1)
+                            (sp-cpuinfo-flags bit0 bit2 bit3)
+                            (sp-flt spt-userdata 1638400.0)
+                            (sp-func spt-func 'check-drop-level-lighteco-big-pops)
+                            (sp-int-plain-rnd spt-next-time 45 299 1)
+                            (sp-launcher-by-id spt-next-launcher 2903)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2903)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-userdata 2252800.0) (sp-end))
-        )
-      )
+(defpart 2903 :init-specs ((sp-flt spt-userdata 2252800.0)))
 
 ;; definition for function check-drop-level-lighteco-big-pops
 (defun check-drop-level-lighteco-big-pops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -278,152 +239,113 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2905) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -1.92)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2905 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-fade-a -1.92)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2904) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 4.0 4.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int-plain-rnd spt-timer 15 119 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2904 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 4.0 4.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int-plain-rnd spt-timer 15 119 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 691)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-light-eco-mother"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2902) (sp-item 2900) (sp-item 2897) (sp-item 2898))
-        :bounds (new 'static 'sphere :w 131072.0)
-        )
-      )
+(defpartgroup group-light-eco-mother
+  :id 691
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 2902) (sp-item 2900) (sp-item 2897) (sp-item 2898))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 692)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-light-eco-child"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2906) (sp-item 2907))
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
+(defpartgroup group-light-eco-child
+  :id 692
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 2906) (sp-item 2907))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2907)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.025 0.025 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-z -4.096 8.192 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int-plain-rnd spt-next-time 120 29 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2908)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2907 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.025 0.025 1.0)
+                            (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 120 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2908)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2908)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.85333335) (sp-end))
-        )
-      )
+(defpart 2908 :init-specs ((sp-flt spt-fade-a -0.85333335)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2906) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.5)
-                                    (sp-int-plain-rnd spt-timer 30 149 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3)
-                                    (sp-flt spt-userdata 1638400.0)
-                                    (sp-func spt-func 'check-drop-level-lighteco-pops)
-                                    (sp-int-plain-rnd spt-next-time 45 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 2909)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2906 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 2.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00083333335))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+                            (sp-flt spt-friction 0.5)
+                            (sp-int-plain-rnd spt-timer 30 149 1)
+                            (sp-cpuinfo-flags bit0 bit2 bit3)
+                            (sp-flt spt-userdata 1638400.0)
+                            (sp-func spt-func 'check-drop-level-lighteco-pops)
+                            (sp-int-plain-rnd spt-next-time 45 299 1)
+                            (sp-launcher-by-id spt-next-launcher 2909)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2909)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-userdata 2048000.0) (sp-end))
-        )
-      )
+(defpart 2909 :init-specs ((sp-flt spt-userdata 2048000.0)))
 
 ;; definition for function check-drop-level-lighteco-pops
 (defun check-drop-level-lighteco-pops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -453,49 +375,39 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2911) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -1.92)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2911 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-fade-a -1.92)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2910) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 4.0 4.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int-plain-rnd spt-timer 15 119 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2910 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 4.0 4.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int-plain-rnd spt-timer 15 119 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; definition for function light-eco-child-default-event-handler
 (defbehavior light-eco-child-default-event-handler light-eco-child ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
diff --git a/test/decompiler/reference/levels/finalboss/robotboss-part_REF.gc b/test/decompiler/reference/levels/finalboss/robotboss-part_REF.gc
index d56daa3d7b..acf3a6dce9 100644
--- a/test/decompiler/reference/levels/finalboss/robotboss-part_REF.gc
+++ b/test/decompiler/reference/levels/finalboss/robotboss-part_REF.gc
@@ -2,4050 +2,3146 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 636) (new 'static 'sparticle-launch-group
-                                       :length 26
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-blue-beam"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 26
-                                         (sp-item 2680)
-                                         (sp-item 2545 :binding 2542)
-                                         (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2543)
-                                         (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2544)
-                                         (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2543)
-                                         (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2544)
-                                         (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2543)
-                                         (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2544)
-                                         (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2543)
-                                         (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2544)
-                                         (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2543)
-                                         (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2544)
-                                         (sp-item 2543 :flags (bit1 start-dead))
-                                         (sp-item 2544 :flags (bit1 start-dead))
-                                         (sp-item 2543 :flags (bit1 start-dead))
-                                         (sp-item 2544 :flags (bit1 start-dead))
-                                         (sp-item 2543 :flags (bit1 start-dead))
-                                         (sp-item 2544 :flags (bit1 start-dead))
-                                         (sp-item 2543 :flags (bit1 start-dead))
-                                         (sp-item 2544 :flags (bit1 start-dead))
-                                         (sp-item 2543 :flags (bit1 start-dead))
-                                         (sp-item 2544 :flags (bit1 start-dead))
-                                         (sp-item 2543 :flags (bit1 start-dead))
-                                         (sp-item 2546)
-                                         (sp-item 2548)
-                                         (sp-item 2547)
-                                         )
-                                       :bounds (new 'static 'sphere :w 139264.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 637) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-blue-beam-impact"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 2681)
-                                         (sp-item 2682 :period 336 :length 5)
-                                         (sp-item 2682 :period 140 :length 5)
-                                         (sp-item 2682 :period 61 :length 5)
-                                         (sp-item 2683)
-                                         (sp-item 2549)
-                                         )
-                                       :bounds (new 'static 'sphere :w 139264.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2681) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.1 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 6.0) (meters 9.0) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.42666668))
-                                    (sp-flt spt-fade-r -2.1333334)
-                                    (sp-flt spt-fade-g -1.4222223)
-                                    (sp-flt spt-fade-b 0.7111111)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2683) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 30
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -2.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.2)
-                                    (sp-flt spt-fade-g 0.0)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-flt spt-fade-a -0.21333334)
-                                    (sp-rnd-flt spt-accel-x 2.7306666 1.3653333 1.0)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 810)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 2684)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 45.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2684)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2549) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 128.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2682) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 2.0 6.0 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.033333335) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r 0.0)
-                                    (sp-flt spt-fade-g -0.64)
-                                    (sp-flt spt-fade-b -0.64)
-                                    (sp-rnd-flt spt-accel-y -13.653334 -13.653334 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees -90.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2545) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.025)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.07777778))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2542) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 4096.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2543) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2544) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2546) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.24666667))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2548) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.25)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 4.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 16.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.12))
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2547) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2680) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 25)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 644) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-blue-blowup"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2591 :period 600 :length 5)
-                                         (sp-item 2592 :period 600 :length 40)
-                                         (sp-item 2593 :period 600 :length 40)
-                                         (sp-item 2594 :period 600 :length 40)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2592) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.8) (meters 1.6) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0053333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.6)
-                                    (sp-flt spt-fade-g -1.6)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 90 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2595)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2595)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2594) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.8))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 32.0))
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.7066667))
-                                    (sp-flt spt-fade-r -2.1333334)
-                                    (sp-flt spt-fade-g -1.4222223)
-                                    (sp-flt spt-fade-b 0.7111111)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2591) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 64.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2593)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 24
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.16) (meters 0.08) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.033333335))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2596)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2596)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -2.1333334)
-                                                     (sp-flt spt-fade-g -1.0666667)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2597)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2597)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g -0.28444445)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2598)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2598)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 645) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-blue-smoke"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2685 :period 36 :length 5)
-                                         (sp-item 2685 :period 140 :length 5)
-                                         (sp-item 2685 :period 61 :length 5)
-                                         (sp-item 2599 :period 15 :length 5)
-                                         (sp-item 2686)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2686) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 16.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2599)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 8.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.013333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 810)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int-plain-rnd spt-next-time 20 89 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2596)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2685) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-int spt-num 0 1 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.6)
-                                    (sp-flt spt-fade-g -1.6)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-rnd-flt spt-accel-y -7.5093336 -7.5093336 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 90 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2595)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 638) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-darkecobomb-launch"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2600 :period 600 :length 5)
-                                         (sp-item 2602 :period 600 :length 40)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2600) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 64.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 55)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2602)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 8.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 8.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-flt spt-g 255.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.21333334) (meters 0.08) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.053333335))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.14222223)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 639)
-      (new 'static 'sparticle-launch-group
-        :length 18
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-robotboss-darkecobomb-glow"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 18
-          (sp-item 2753)
-          (sp-item 2754)
-          (sp-item 2755 :fade-after (meters 120.0) :falloff-to (meters 140.0) :binding 2752)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
-          )
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2755) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-func spt-func 'sparticle-track-root-prim)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2752) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-z 9216.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.0) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-func spt-func 'sparticle-track-root-prim)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2753) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 8.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -1.0666667)
-                                    (sp-int-plain-rnd spt-timer 20 29 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-func spt-func 'sparticle-track-root-prim)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2754) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                    (sp-flt spt-y (meters -3.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-rnd-flt spt-scale-y (meters 8.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -1.0666667)
-                                    (sp-int-plain-rnd spt-timer 20 29 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-func spt-func 'sparticle-track-root-prim)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 663)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-robotboss-darkecobomb-tick"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2756) (sp-item 2757) (sp-item 2758) (sp-item 2759))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2759) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 10.0) (meters 16.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -2.1333334)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2758) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 16.0) (meters 6.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -160.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.3) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2757) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 16.0) (meters 6.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -160.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.3) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2756) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 16.0) (meters 6.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -160.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.3) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 619) (new 'static 'sparticle-launch-group
-                                       :length 22
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-final-boss-mine-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 22
-                                         (sp-item 2500 :flags (is-3d) :period 900 :length 5)
-                                         (sp-item 2501 :period 900 :length 5)
-                                         (sp-item 2502 :period 900 :length 40)
-                                         (sp-item 2503 :period 900 :length 20 :binding 2499)
-                                         (sp-item 2504 :period 900 :length 40)
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2499 :flags (start-dead))
-                                         (sp-item 2505 :period 900 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2503)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-flt spt-g 0.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.64) (meters 0.85333335) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-rnd-flt spt-accel-y -29.354668 -56.661335 1.0)
-                                                     (sp-rnd-flt spt-friction 0.88 0.04 1.0)
-                                                     (sp-int-plain-rnd spt-timer 300 299 1)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 35.0) (degrees 55.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 10.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2499)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.14222223)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2506)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2506)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r -0.14222223)
-                                                     (sp-flt spt-fade-g -0.14222223)
-                                                     (sp-flt spt-fade-b -0.14222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2502) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 64.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.6) (meters 2.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 112.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.64) (meters 1.28) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.009333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.4222223)
-                                    (sp-flt spt-fade-g -1.4222223)
-                                    (sp-rnd-flt spt-accel-y -4.7786665 -45.738667 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int spt-timer 750)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2507)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 12.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2507)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2505) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 256.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 6.0))
-                                    (sp-flt spt-fade-r -1.6)
-                                    (sp-flt spt-fade-g -1.0666667)
-                                    (sp-flt spt-fade-b 1.0666667)
-                                    (sp-flt spt-fade-a -1.0666667)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2501) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 160.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.7066667)
-                                    (sp-int spt-timer 75)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2504) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-flt spt-y (meters 10.0))
-                                    (sp-rnd-flt spt-scale-x (meters 20.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 16.0 80.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.21333334) (meters 0.42666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.06666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y 2.048 2.048 1.0)
-                                    (sp-flt spt-friction 0.87)
-                                    (sp-int spt-timer 750)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int spt-next-time 42)
-                                    (sp-launcher-by-id spt-next-launcher 2508)
-                                    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 40.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 20.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2508)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -1.6)
-                                                     (sp-flt spt-fade-g -1.6)
-                                                     (sp-flt spt-fade-b -1.0666667)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2509)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2509)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.26666668)
-                                                     (sp-flt spt-fade-g -0.26666668)
-                                                     (sp-flt spt-fade-b -0.17777778)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-int spt-next-time 180)
-                                                     (sp-launcher-by-id spt-next-launcher 2510)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2510)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r -0.114285715)
-                                                     (sp-flt spt-fade-g -0.114285715)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2500) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 10.0))
-                                    (sp-flt spt-scale-x (meters 30.0))
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.33333334) (meters 0.6666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 330)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 60)
-                                    (sp-launcher-by-id spt-next-launcher 2511)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2511)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.4222223) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 640) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-greenshot-launch"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2799 :period 600 :length 10)
-                                         (sp-item 2800 :period 600 :length 10)
-                                         (sp-item 2801 :period 600 :length 20)
-                                         (sp-item 2802 :period 600 :length 10)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2800) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-scale-x (meters 32.0) (meters 128.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01953125))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.01953125))
-                                    (sp-flt spt-fade-a 1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 5 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2803)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2803)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.6) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2801) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-scale-x (meters 32.0) (meters 32.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 4.0))
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01953125))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 5 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2803)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2802) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 100.0))
-                                    (sp-flt spt-rot-z (degrees 0.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-flt spt-rotvel-z (degrees -0.8))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 80)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 40)
-                                    (sp-launcher-by-id spt-next-launcher 2804)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2799) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 6.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters 0.4))
-                                    (sp-flt spt-rotvel-z (degrees 0.8))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.7066667)
-                                    (sp-int spt-timer 105)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 664) (new 'static 'sparticle-launch-group
-                                       :length 49
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-greenshot"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 49
-                                         (sp-item 2769 :binding 2766)
-                                         (sp-item 2766 :flags (bit1 start-dead launch-asap) :binding 2767)
-                                         (sp-item 2767 :flags (start-dead) :binding 2768)
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         (sp-item 2768 :flags (start-dead launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2769) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-func spt-func 'sparticle-track-root)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2766) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-z 9216.0)
-                                    (sp-flt spt-scale-x (meters 3.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.10666667))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-int spt-timer 1200)
-                                    (sp-cpuinfo-flags bit3 bit7)
-                                    (sp-func spt-func 'sparticle-track-root-prim)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 2770)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2770)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 9
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                                     (sp-int spt-next-time 10)
-                                                     (sp-launcher-by-id spt-next-launcher 2770)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2767) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 4.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.026666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.0666667)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 81)
-                                    (sp-launcher-by-id spt-next-launcher 2771)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.1))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2771)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2768) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 5.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.008333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.0666667)
-                                    (sp-flt spt-fade-g -3.2)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int-plain-rnd spt-timer 30 119 1)
-                                    (sp-cpuinfo-flags bit0 bit2)
-                                    (sp-int spt-next-time 60)
-                                    (sp-launcher-by-id spt-next-launcher 2771)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 646)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x384
-        :linger-duration #x5dc
-        :name "group-robotboss-redshot-charge"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 2699) (sp-item 2700) (sp-item 2701))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2699) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 1.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.009765625))
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-int spt-timer 100)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 5 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2703)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2703)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.4222221) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2700) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 32.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 2.5))
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-flt spt-fade-a 1.4222221)
-                                    (sp-int spt-timer 40)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 5 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2703)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2701) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters 0.4))
-                                    (sp-flt spt-rotvel-z (degrees -0.8))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 641) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-redshot-launch"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2805 :period 600 :length 10)
-                                         (sp-item 2806 :period 600 :length 10)
-                                         (sp-item 2807 :period 600 :length 20)
-                                         (sp-item 2808 :period 600 :length 10)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2806) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-scale-x (meters 32.0) (meters 128.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01953125))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.01953125))
-                                    (sp-flt spt-fade-a 1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 5 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2809)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2809)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.6) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2807) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-scale-x (meters 32.0) (meters 32.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 4.0))
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01953125))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 5 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2809)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2808) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 100.0))
-                                    (sp-flt spt-rot-z (degrees 0.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-flt spt-rotvel-z (degrees -0.8))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 80)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 40)
-                                    (sp-launcher-by-id spt-next-launcher 2810)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2805) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 6.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters 0.4))
-                                    (sp-flt spt-rotvel-z (degrees 0.8))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.7066667)
-                                    (sp-int spt-timer 105)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 665)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-robotboss-redshot-body"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 2709) (sp-item 2710) (sp-item 2711))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2710) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2711) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2709) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 0.6))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-fade-g -4.266667)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 1.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 647) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-redshot-warning"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2712)
-                                         (sp-item 2713)
-                                         (sp-item 2714 :period 45 :length 5)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2714) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-scale-x (meters 10.0) (meters 5.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.06666667))
-                                    (sp-flt spt-rotvel-z (degrees 0.8))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-a -2.1333334)
-                                    (sp-int spt-timer 45)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 75)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2712) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 8.0 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -720.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.08))
-                                    (sp-flt spt-fade-r 0.0)
-                                    (sp-flt spt-fade-g -6.4)
-                                    (sp-flt spt-fade-b -4.266667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2713) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-rnd-flt spt-num 2.0 16.0 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int-plain-rnd spt-timer 30 29 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees -180.0) (degrees 720.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 1.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 648)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-robotboss-redshot"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2626 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2626) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 10.0))
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 679) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-redshot-test"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2772))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2772) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-fade-a -2.8444443)
-                                    (sp-int spt-timer 40)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 649) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-red-blowup"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2629 :period 600 :length 5)
-                                         (sp-item 2630 :period 600 :length 40)
-                                         (sp-item 2631 :period 600 :length 40)
-                                         (sp-item 2632 :period 600 :length 40)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2630) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.8) (meters 1.6) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0053333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.6)
-                                    (sp-flt spt-fade-g -1.6)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 90 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2633)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2633)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2632) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.8))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 32.0))
-                                    (sp-flt spt-r 192.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.7066667))
-                                    (sp-flt spt-fade-r -2.1333334)
-                                    (sp-flt spt-fade-g -1.4222223)
-                                    (sp-flt spt-fade-b 0.7111111)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2629) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 64.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2631)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 24
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.16) (meters 0.08) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.033333335))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2634)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2634)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g -1.0666667)
-                                                     (sp-flt spt-fade-b -2.1333334)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2635)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2635)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g -0.28444445)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2636)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2636)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 650) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-red-smoke"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2776 :period 36 :length 5)
-                                         (sp-item 2776 :period 140 :length 5)
-                                         (sp-item 2776 :period 61 :length 5)
-                                         (sp-item 2637 :period 15 :length 5)
-                                         (sp-item 2777)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2777) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2637)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.013333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 810)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int-plain-rnd spt-next-time 20 89 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2596)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2776) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-int spt-num 0 1 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r 0.0)
-                                    (sp-flt spt-fade-g -1.6)
-                                    (sp-flt spt-fade-b -1.6)
-                                    (sp-rnd-flt spt-accel-y -7.5093336 -7.5093336 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 90 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2595)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 642) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-yellowshot-launch"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2778 :period 600 :length 10)
-                                         (sp-item 2779 :period 600 :length 10)
-                                         (sp-item 2780 :period 600 :length 20)
-                                         (sp-item 2781 :period 600 :length 10)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2779) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-scale-x (meters 32.0) (meters 128.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01953125))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.01953125))
-                                    (sp-flt spt-fade-a 1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 5 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2782)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2782)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.6) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2780) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-scale-x (meters 32.0) (meters 32.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 4.0))
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01953125))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 5 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2782)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2781) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 100.0))
-                                    (sp-flt spt-rot-z (degrees 0.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-flt spt-rotvel-z (degrees -0.8))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 80)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 40)
-                                    (sp-launcher-by-id spt-next-launcher 2783)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2778) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 6.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters 0.4))
-                                    (sp-flt spt-rotvel-z (degrees 0.8))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.7066667)
-                                    (sp-int spt-timer 105)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 651)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-robotboss-yellowshot-charge"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 2811) (sp-item 2812) (sp-item 2813))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2811) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-rnd-flt spt-scale-x (meters 16.0) (meters 1.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.009765625))
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-int spt-timer 100)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 5 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2814)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2814)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.4222221) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2812) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 32.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 2.5))
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-flt spt-fade-a 1.4222221)
-                                    (sp-int spt-timer 40)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 5 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2814)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2813) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 10.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.4))
-                                    (sp-flt spt-rotvel-z (degrees -0.8))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 652) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-yellowshot"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2815)
-                                         (sp-item 2816)
-                                         (sp-item 2817)
-                                         (sp-item 2818)
-                                         (sp-item 2819)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2816) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-fade-g -4.266667)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2819) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 8.0 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees -720.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.08))
-                                    (sp-flt spt-fade-r 0.0)
-                                    (sp-flt spt-fade-g -6.4)
-                                    (sp-flt spt-fade-b -4.266667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2815) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-rnd-flt spt-num 2.0 16.0 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-a -2.1333334)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int-plain-rnd spt-timer 30 29 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees -180.0) (degrees 720.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 1.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2817) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-scalevel-x (meters -0.10666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -1.7066667)
-                                    (sp-flt spt-fade-a -1.7066667)
-                                    (sp-int spt-timer 75)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2818) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 10.0) (meters 1.6) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 653) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-yellow-blowup"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2648 :period 600 :length 5)
-                                         (sp-item 2649 :period 600 :length 40)
-                                         (sp-item 2650 :period 600 :length 40)
-                                         (sp-item 2651 :period 600 :length 40)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2649) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.30666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.006666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.7111111)
-                                    (sp-flt spt-fade-g -1.4222223)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 90 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2652)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2652)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2651) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.8))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 64.0))
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.7066667))
-                                    (sp-flt spt-fade-r -0.7111111)
-                                    (sp-flt spt-fade-g -1.4222223)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2648) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 128.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 0.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2650)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 24
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 16.0) (meters 8.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.21333334) (meters 0.12) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.033333335))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2653)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 12.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2653)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g -1.0666667)
-                                                     (sp-flt spt-fade-b -2.1333334)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2654)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2654)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.28444445)
-                                                     (sp-flt spt-fade-g -0.28444445)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2655)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2655)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 654) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-yellow-smoke"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2820 :period 36 :length 5)
-                                         (sp-item 2820 :period 140 :length 5)
-                                         (sp-item 2820 :period 61 :length 5)
-                                         (sp-item 2656 :period 15 :length 5)
-                                         (sp-item 2821)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2821) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2656)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.026666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 810)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int-plain-rnd spt-next-time 20 89 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2596)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2820) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-int spt-num 0 2 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.0666667)
-                                    (sp-flt spt-fade-g -1.0666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-rnd-flt spt-accel-y -7.5093336 -7.5093336 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 90 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2595)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 655) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-white-eco"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2852))
-                                       :bounds
-                                       (new 'static 'sphere :y 2048.0 :w 6144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2852) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-flt spt-num 1.0)
-                                    (sp-int spt-rot-x 16)
-                                    (sp-flt spt-r 4096.0)
-                                    (sp-flt spt-g 3276.8)
-                                    (sp-flt spt-b 2457.6)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-rnd-flt spt-conerot-x (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 6.0000005))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2657) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 0.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.8) 1.0)
-                                    (sp-rnd-int spt-r 0 1 255.0)
-                                    (sp-rnd-int spt-g 0 1 255.0)
-                                    (sp-rnd-int spt-b 0 1 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.009765625))
-                                    (sp-flt spt-fade-a 0.35555556)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-func spt-func 'sparticle-track-root)
-                                    (sp-int spt-next-time 90)
-                                    (sp-launcher-by-id spt-next-launcher 2661)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2661)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2658) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 0.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.2))
-                                    (sp-rnd-int spt-r 0 1 255.0)
-                                    (sp-rnd-int spt-g 0 1 255.0)
-                                    (sp-rnd-int spt-b 0 1 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-fade-a 0.32)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-func spt-func 'sparticle-track-root)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2661)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2659) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.0)
-                                    (sp-flt spt-scale-x (meters 3.5))
-                                    (sp-flt spt-rot-z (degrees 0.0))
-                                    (sp-flt spt-scale-y (meters 3.0))
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-flt spt-rotvel-z (degrees -0.4))
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-func spt-func 'sparticle-track-root)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2660) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.0)
-                                    (sp-flt spt-scale-x (meters 4.0))
-                                    (sp-flt spt-rot-z (degrees 0.0))
-                                    (sp-flt spt-scale-y (meters 3.5))
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-flt spt-rotvel-z (degrees 0.3))
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-func spt-func 'sparticle-track-root)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 666) (new 'static 'sparticle-launch-group
-                                       :length 14
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-finalboss-blue-claw-beam"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 14
-                                         (sp-item 2719 :binding 2716)
-                                         (sp-item 2716 :flags (bit1 start-dead launch-asap) :binding 2717)
-                                         (sp-item 2716 :flags (bit1 start-dead launch-asap) :binding 2718)
-                                         (sp-item 2716 :flags (bit1 start-dead launch-asap) :binding 2717)
-                                         (sp-item 2716 :flags (bit1 start-dead launch-asap) :binding 2718)
-                                         (sp-item 2716 :flags (bit1 start-dead launch-asap) :binding 2717)
-                                         (sp-item 2717 :flags (bit1 start-dead))
-                                         (sp-item 2718 :flags (bit1 start-dead))
-                                         (sp-item 2717 :flags (bit1 start-dead))
-                                         (sp-item 2718 :flags (bit1 start-dead))
-                                         (sp-item 2717 :flags (bit1 start-dead))
-                                         (sp-item 2718 :flags (bit1 start-dead))
-                                         (sp-item 2721)
-                                         (sp-item 2722)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 667)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-finalboss-blue-claw-beam-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2723 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2723) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 25.000002) (degrees 20.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 16.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2719) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.01)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.019444445))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 1800)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2716) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 4096.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 1800)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2717) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2718) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2720) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.85)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-r 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 16.0 48.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.26666668))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2722) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.13333334))
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2721) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 668) (new 'static 'sparticle-launch-group
-                                       :length 13
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-finalboss-red-claw-beam"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 13
-                                         (sp-item 2726 :binding 2724)
-                                         (sp-item 2724 :flags (bit1 start-dead launch-asap) :binding 2725)
-                                         (sp-item 2724 :flags (bit1 start-dead launch-asap) :binding 2725)
-                                         (sp-item 2724 :flags (bit1 start-dead launch-asap) :binding 2725)
-                                         (sp-item 2724 :flags (bit1 start-dead launch-asap) :binding 2725)
-                                         (sp-item 2724 :flags (bit1 start-dead launch-asap) :binding 2725)
-                                         (sp-item 2725 :flags (bit1 start-dead))
-                                         (sp-item 2725 :flags (bit1 start-dead))
-                                         (sp-item 2725 :flags (bit1 start-dead))
-                                         (sp-item 2725 :flags (bit1 start-dead))
-                                         (sp-item 2725 :flags (bit1 start-dead))
-                                         (sp-item 2728)
-                                         (sp-item 2729)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 94208.0 :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2730) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 68.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 192.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2726) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.02)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 3.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.08888889))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2724) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 5120.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 127.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2725) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.005555555))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.0)
-                                    (sp-flt spt-fade-a -0.22857143)
-                                    (sp-rnd-flt spt-accel-y 0.40960002 0.6144 1.0)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 171)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2727) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.85)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 16.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.26666668))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2729) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.8)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.13333334))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2728) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 192.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 670) (new 'static 'sparticle-launch-group
-                                       :length 15
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-finalboss-yellow-claw-beam"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 15
-                                         (sp-item 2733 :binding 2731)
-                                         (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
-                                         (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
-                                         (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
-                                         (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
-                                         (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
-                                         (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
-                                         (sp-item 2732 :flags (bit1 start-dead))
-                                         (sp-item 2732 :flags (bit1 start-dead))
-                                         (sp-item 2732 :flags (bit1 start-dead))
-                                         (sp-item 2732 :flags (bit1 start-dead))
-                                         (sp-item 2732 :flags (bit1 start-dead))
-                                         (sp-item 2732 :flags (bit1 start-dead))
-                                         (sp-item 2735)
-                                         (sp-item 2736)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 671)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name
-        "group-finalboss-yellow-claw-beam-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2737 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2737) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 115.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2733) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.025)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.06666667))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 85.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2731) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 5120.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2732) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.4)
-                                    (sp-flt spt-fade-a -0.17777778)
-                                    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2734) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.85)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.26666668))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 85.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2736) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.7)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.13333334))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 85.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2735) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.7)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 672) (new 'static 'sparticle-launch-group
-                                       :length 15
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-finalboss-green-claw-beam"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 15
-                                         (sp-item 2740 :binding 2738)
-                                         (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
-                                         (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
-                                         (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
-                                         (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
-                                         (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
-                                         (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
-                                         (sp-item 2739 :flags (bit1 start-dead))
-                                         (sp-item 2739 :flags (bit1 start-dead))
-                                         (sp-item 2739 :flags (bit1 start-dead))
-                                         (sp-item 2739 :flags (bit1 start-dead))
-                                         (sp-item 2739 :flags (bit1 start-dead))
-                                         (sp-item 2739 :flags (bit1 start-dead))
-                                         (sp-item 2742)
-                                         (sp-item 2743)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 673)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name
-        "group-finalboss-green-claw-beam-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2744 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2744) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2740) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.025)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.06666667))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2738) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 5120.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2739) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.17777778)
-                                    (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2741) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.85)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.26666668))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2743) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.75)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.13333334))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2742) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 192.0 1.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 674) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-blue-claw-glow"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2324))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 675) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-green-claw-glow"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2324))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 676) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-red-claw-glow"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2324))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 677) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-yellow-claw-glow"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2324))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-robotboss-blue-beam
+  :id 636
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 34)
+  :parts
+  ((sp-item 2680)
+    (sp-item 2545 :binding 2542)
+    (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2543)
+    (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2544)
+    (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2543)
+    (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2544)
+    (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2543)
+    (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2544)
+    (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2543)
+    (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2544)
+    (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2543)
+    (sp-item 2542 :flags (bit1 start-dead launch-asap) :binding 2544)
+    (sp-item 2543 :flags (bit1 start-dead))
+    (sp-item 2544 :flags (bit1 start-dead))
+    (sp-item 2543 :flags (bit1 start-dead))
+    (sp-item 2544 :flags (bit1 start-dead))
+    (sp-item 2543 :flags (bit1 start-dead))
+    (sp-item 2544 :flags (bit1 start-dead))
+    (sp-item 2543 :flags (bit1 start-dead))
+    (sp-item 2544 :flags (bit1 start-dead))
+    (sp-item 2543 :flags (bit1 start-dead))
+    (sp-item 2544 :flags (bit1 start-dead))
+    (sp-item 2543 :flags (bit1 start-dead))
+    (sp-item 2546)
+    (sp-item 2548)
+    (sp-item 2547)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-blue-beam-impact
+  :id 637
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 34)
+  :parts
+  ((sp-item 2681)
+    (sp-item 2682 :period 336 :length 5)
+    (sp-item 2682 :period 140 :length 5)
+    (sp-item 2682 :period 61 :length 5)
+    (sp-item 2683)
+    (sp-item 2549)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2681 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.1 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 6) (meters 9) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.42666668))
+                            (sp-flt spt-fade-r -2.1333334)
+                            (sp-flt spt-fade-g -1.4222223)
+                            (sp-flt spt-fade-b 0.7111111)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2683 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters -2.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.2)
+                            (sp-flt spt-fade-g 0.0)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-rnd-flt spt-accel-x 2.7306666 1.3653333 1.0)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int spt-timer 810)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2684)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 45.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2684 :init-specs ((sp-flt spt-fade-a -0.07111111)))
+
+;; failed to figure out what this is:
+(defpart 2549 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-rnd-flt spt-scale-x (meters 5) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 1 128.0)
+                            (sp-rnd-int spt-g 1115684864 1 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2682 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 2.0 6.0 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.033333335) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g -0.64)
+                            (sp-flt spt-fade-b -0.64)
+                            (sp-rnd-flt spt-accel-y -13.653334 -13.653334 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees -90.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2545 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.025)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.07777778))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 1) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2542 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2543 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2544 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2546 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 2.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-r 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0.24666667))
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 1) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2548 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.25)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 4) (meters 3) 1.0)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 16.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.12))
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2547 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 5) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2680 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 25)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-blue-blowup
+  :id 644
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2591 :period 600 :length 5)
+    (sp-item 2592 :period 600 :length 40)
+    (sp-item 2593 :period 600 :length 40)
+    (sp-item 2594 :period 600 :length 40)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2592 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.8) (meters 1.6) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0053333333))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -1.6)
+                            (sp-flt spt-fade-g -1.6)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 90 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2595)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2595
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
+
+;; failed to figure out what this is:
+(defpart 2594 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.8))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 32))
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.7066667))
+                            (sp-flt spt-fade-r -2.1333334)
+                            (sp-flt spt-fade-g -1.4222223)
+                            (sp-flt spt-fade-b 0.7111111)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2591 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 64))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2593 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.16) (meters 0.08) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.033333335))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2596)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 6) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2596 :init-specs ((sp-flt spt-fade-r -2.1333334)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2597)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2597 :init-specs ((sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g -0.28444445)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2598)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2598 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-blue-smoke
+  :id 645
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2685 :period 36 :length 5)
+    (sp-item 2685 :period 140 :length 5)
+    (sp-item 2685 :period 61 :length 5)
+    (sp-item 2599 :period 15 :length 5)
+    (sp-item 2686)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2686 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 16) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2599 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 810)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 20 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2596)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2685 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-int spt-num 0 1 8.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -1.6)
+                            (sp-flt spt-fade-g -1.6)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-rnd-flt spt-accel-y -7.5093336 -7.5093336 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 90 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2595)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-darkecobomb-launch
+  :id 638
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2600 :period 600 :length 5) (sp-item 2602 :period 600 :length 40))
+  )
+
+;; failed to figure out what this is:
+(defpart 2600 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 64))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 55)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2602 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 8.0 8.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 16.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.21333334) (meters 0.08) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.053333335))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.14222223)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-darkecobomb-glow
+  :id 639
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2753)
+    (sp-item 2754)
+    (sp-item 2755 :fade-after (meters 120) :falloff-to (meters 140) :binding 2752)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2752 :flags (bit1 start-dead launch-asap) :binding 2671)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2755 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-func spt-func 'sparticle-track-root-prim)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2752 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-z (meters 2.25))
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2) (meters 0.2) 1.0)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            (sp-func spt-func 'sparticle-track-root-prim)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2753 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                            (sp-flt spt-y (meters 4))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 8) (meters 2) 1.0)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -1.0666667)
+                            (sp-int-plain-rnd spt-timer 20 29 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-func spt-func 'sparticle-track-root-prim)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2754 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                            (sp-flt spt-y (meters -3))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-rnd-flt spt-scale-y (meters 8) (meters 2) 1.0)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -1.0666667)
+                            (sp-int-plain-rnd spt-timer 20 29 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-func spt-func 'sparticle-track-root-prim)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-darkecobomb-tick
+  :id 663
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2756) (sp-item 2757) (sp-item 2758) (sp-item 2759))
+  )
+
+;; failed to figure out what this is:
+(defpart 2759 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 10) (meters 16) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -2.1333334)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2758 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 16) (meters 6) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees -160.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.3) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2757 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 16) (meters 6) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees -160.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.3) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2756 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 16) (meters 6) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees -160.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.3) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-final-boss-mine-explosion
+  :id 619
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2500 :flags (is-3d) :period 900 :length 5)
+    (sp-item 2501 :period 900 :length 5)
+    (sp-item 2502 :period 900 :length 40)
+    (sp-item 2503 :period 900 :length 20 :binding 2499)
+    (sp-item 2504 :period 900 :length 40)
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2499 :flags (start-dead))
+    (sp-item 2505 :period 900 :length 20)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2503 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.64) (meters 0.85333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -29.354668 -56.661335 1.0)
+                            (sp-rnd-flt spt-friction 0.88 0.04 1.0)
+                            (sp-int-plain-rnd spt-timer 300 299 1)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 35.0) (degrees 55.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 10) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2499 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.14222223)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2506)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2506
+  :init-specs
+  ((sp-flt spt-fade-r -0.14222223) (sp-flt spt-fade-g -0.14222223) (sp-flt spt-fade-b -0.14222223))
+  )
+
+;; failed to figure out what this is:
+(defpart 2502 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 64.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 2.6) (meters 2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 196.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 112.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.64) (meters 1.28) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.009333333))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -1.4222223)
+                            (sp-flt spt-fade-g -1.4222223)
+                            (sp-rnd-flt spt-accel-y -4.7786665 -45.738667 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int spt-timer 750)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2507)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 12) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2507
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.21333334))
+  )
+
+;; failed to figure out what this is:
+(defpart 2505 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 256))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 6))
+                            (sp-flt spt-fade-r -1.6)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b 1.0666667)
+                            (sp-flt spt-fade-a -1.0666667)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2501 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 160))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.7066667)
+                            (sp-int spt-timer 75)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2504 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-flt spt-y (meters 10))
+                            (sp-rnd-flt spt-scale-x (meters 20) (meters 16) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 16.0 80.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.21333334) (meters 0.42666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.06666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y 2.048 2.048 1.0)
+                            (sp-flt spt-friction 0.87)
+                            (sp-int spt-timer 750)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2508)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 40.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 20) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2508 :init-specs ((sp-flt spt-fade-r -1.6)
+                            (sp-flt spt-fade-g -1.6)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2509)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2509 :init-specs ((sp-flt spt-fade-r -0.26666668)
+                            (sp-flt spt-fade-g -0.26666668)
+                            (sp-flt spt-fade-b -0.17777778)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-int spt-next-time 180)
+                            (sp-launcher-by-id spt-next-launcher 2510)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2510
+  :init-specs
+  ((sp-flt spt-fade-r -0.114285715) (sp-flt spt-fade-g -0.114285715) (sp-flt spt-fade-b 0.0))
+  )
+
+;; failed to figure out what this is:
+(defpart 2500 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-flt spt-y (meters 10))
+                            (sp-flt spt-scale-x (meters 30))
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.33333334) (meters 0.6666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 330)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2511)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2511 :init-specs ((sp-flt spt-fade-a -1.4222223)))
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-greenshot-launch
+  :id 640
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2799 :period 600 :length 10)
+    (sp-item 2800 :period 600 :length 10)
+    (sp-item 2801 :period 600 :length 20)
+    (sp-item 2802 :period 600 :length 10)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2800 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-scale-x (meters 32) (meters 128) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.01953125))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.01953125))
+                            (sp-flt spt-fade-a 1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 5 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2803)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2803 :init-specs ((sp-flt spt-fade-a -1.6)))
+
+;; failed to figure out what this is:
+(defpart 2801 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-scale-x (meters 32) (meters 32) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 4))
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.01953125))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 5 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2803)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2802 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 100))
+                            (sp-flt spt-rot-z (degrees 0.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-flt spt-rotvel-z (degrees -0.8))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 80)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 40)
+                            (sp-launcher-by-id spt-next-launcher 2804)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2799 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 6))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters 0.4))
+                            (sp-flt spt-rotvel-z (degrees 0.8))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.7066667)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-greenshot
+  :id 664
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2769 :binding 2766)
+    (sp-item 2766 :flags (bit1 start-dead launch-asap) :binding 2767)
+    (sp-item 2767 :flags (start-dead) :binding 2768)
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    (sp-item 2768 :flags (start-dead launch-asap))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2769 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-func spt-func 'sparticle-track-root)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2766 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-flt spt-z (meters 2.25))
+                            (sp-flt spt-scale-x (meters 3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.10666667))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-int spt-timer 1200)
+                            (sp-cpuinfo-flags bit3 bit7)
+                            (sp-func spt-func 'sparticle-track-root-prim)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 2770)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2770 :init-specs ((sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 2770)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2767 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 4))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters -0.026666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -1.0666667)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 81)
+                            (sp-launcher-by-id spt-next-launcher 2771)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.1))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2771 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
+
+;; failed to figure out what this is:
+(defpart 2768 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 5.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.008333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -1.0666667)
+                            (sp-flt spt-fade-g -3.2)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int-plain-rnd spt-timer 30 119 1)
+                            (sp-cpuinfo-flags bit0 bit2)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2771)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 1) (meters 1) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-redshot-charge
+  :id 646
+  :duration 900
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2699) (sp-item 2700) (sp-item 2701))
+  )
+
+;; failed to figure out what this is:
+(defpart 2699 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 3.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 1) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.009765625))
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-int spt-timer 100)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 5 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2703)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2703 :init-specs ((sp-flt spt-fade-a -1.4222221)))
+
+;; failed to figure out what this is:
+(defpart 2700 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 32) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 2.5))
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-fade-a 1.4222221)
+                            (sp-int spt-timer 40)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 5 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2703)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2701 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters 0.4))
+                            (sp-flt spt-rotvel-z (degrees -0.8))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 15)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-redshot-launch
+  :id 641
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2805 :period 600 :length 10)
+    (sp-item 2806 :period 600 :length 10)
+    (sp-item 2807 :period 600 :length 20)
+    (sp-item 2808 :period 600 :length 10)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2806 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-scale-x (meters 32) (meters 128) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.01953125))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.01953125))
+                            (sp-flt spt-fade-a 1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 5 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2809)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2809 :init-specs ((sp-flt spt-fade-a -1.6)))
+
+;; failed to figure out what this is:
+(defpart 2807 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-scale-x (meters 32) (meters 32) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 4))
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.01953125))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 5 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2809)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2808 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 100))
+                            (sp-flt spt-rot-z (degrees 0.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-flt spt-rotvel-z (degrees -0.8))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 80)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 40)
+                            (sp-launcher-by-id spt-next-launcher 2810)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2805 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 6))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters 0.4))
+                            (sp-flt spt-rotvel-z (degrees 0.8))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.7066667)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-redshot-body
+  :id 665
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2709) (sp-item 2710) (sp-item 2711))
+  )
+
+;; failed to figure out what this is:
+(defpart 2710 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2711 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 0.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2709 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-flt spt-scale-x (meters 0.6))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-g -4.266667)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 1))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-redshot-warning
+  :id 647
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2712) (sp-item 2713) (sp-item 2714 :period 45 :length 5))
+  )
+
+;; failed to figure out what this is:
+(defpart 2714 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-scale-x (meters 10) (meters 5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters -0.06666667))
+                            (sp-flt spt-rotvel-z (degrees 0.8))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-a -2.1333334)
+                            (sp-int spt-timer 45)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 75)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2712 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 8.0 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees -720.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.08))
+                            (sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g -6.4)
+                            (sp-flt spt-fade-b -4.266667)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2713 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-rnd-flt spt-num 2.0 16.0 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int-plain-rnd spt-timer 30 29 1)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees -180.0) (degrees 720.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 1))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-redshot
+  :id 648
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2626 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2626 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 10))
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 1 127.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-redshot-test
+  :id 679
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2772))
+  )
+
+;; failed to figure out what this is:
+(defpart 2772 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 1 127.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -2.8444443)
+                            (sp-int spt-timer 40)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-red-blowup
+  :id 649
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2629 :period 600 :length 5)
+    (sp-item 2630 :period 600 :length 40)
+    (sp-item 2631 :period 600 :length 40)
+    (sp-item 2632 :period 600 :length 40)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2630 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.8) (meters 1.6) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0053333333))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -1.6)
+                            (sp-flt spt-fade-g -1.6)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 90 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2633)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2633
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
+
+;; failed to figure out what this is:
+(defpart 2632 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.8))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 32))
+                            (sp-flt spt-r 192.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.7066667))
+                            (sp-flt spt-fade-r -2.1333334)
+                            (sp-flt spt-fade-g -1.4222223)
+                            (sp-flt spt-fade-b 0.7111111)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2629 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 64))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2631 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.16) (meters 0.08) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.033333335))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2634)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 6) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2634 :init-specs ((sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b -2.1333334)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2635)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2635 :init-specs ((sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g -0.28444445)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2636)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2636 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-red-smoke
+  :id 650
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2776 :period 36 :length 5)
+    (sp-item 2776 :period 140 :length 5)
+    (sp-item 2776 :period 61 :length 5)
+    (sp-item 2637 :period 15 :length 5)
+    (sp-item 2777)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2777 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2637 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 810)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 20 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2596)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2776 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-int spt-num 0 1 8.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g -1.6)
+                            (sp-flt spt-fade-b -1.6)
+                            (sp-rnd-flt spt-accel-y -7.5093336 -7.5093336 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 90 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2595)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-yellowshot-launch
+  :id 642
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2778 :period 600 :length 10)
+    (sp-item 2779 :period 600 :length 10)
+    (sp-item 2780 :period 600 :length 20)
+    (sp-item 2781 :period 600 :length 10)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2779 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-scale-x (meters 32) (meters 128) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.01953125))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.01953125))
+                            (sp-flt spt-fade-a 1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 5 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2782)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2782 :init-specs ((sp-flt spt-fade-a -1.6)))
+
+;; failed to figure out what this is:
+(defpart 2780 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-scale-x (meters 32) (meters 32) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 4))
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.01953125))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 5 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2782)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2781 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 100))
+                            (sp-flt spt-rot-z (degrees 0.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-flt spt-rotvel-z (degrees -0.8))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 80)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 40)
+                            (sp-launcher-by-id spt-next-launcher 2783)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2778 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 6))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters 0.4))
+                            (sp-flt spt-rotvel-z (degrees 0.8))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.7066667)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-yellowshot-charge
+  :id 651
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2811) (sp-item 2812) (sp-item 2813))
+  )
+
+;; failed to figure out what this is:
+(defpart 2811 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 3.0)
+                            (sp-rnd-flt spt-scale-x (meters 16) (meters 1) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.009765625))
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-int spt-timer 100)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 5 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2814)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2814 :init-specs ((sp-flt spt-fade-a -1.4222221)))
+
+;; failed to figure out what this is:
+(defpart 2812 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 32) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 2.5))
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-fade-a 1.4222221)
+                            (sp-int spt-timer 40)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 5 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2814)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2813 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 10) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.4))
+                            (sp-flt spt-rotvel-z (degrees -0.8))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 15)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-yellowshot
+  :id 652
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2815) (sp-item 2816) (sp-item 2817) (sp-item 2818) (sp-item 2819))
+  )
+
+;; failed to figure out what this is:
+(defpart 2816 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 96.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-g -4.266667)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2819 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 8.0 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees -720.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.08))
+                            (sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g -6.4)
+                            (sp-flt spt-fade-b -4.266667)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2815 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-rnd-flt spt-num 2.0 16.0 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-a -2.1333334)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int-plain-rnd spt-timer 30 29 1)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees -180.0) (degrees 720.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 1))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2817 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 5) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-scalevel-x (meters -0.10666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -1.7066667)
+                            (sp-flt spt-fade-a -1.7066667)
+                            (sp-int spt-timer 75)
+                            (sp-cpuinfo-flags bit2)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2818 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 10) (meters 1.6) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-yellow-blowup
+  :id 653
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2648 :period 600 :length 5)
+    (sp-item 2649 :period 600 :length 40)
+    (sp-item 2650 :period 600 :length 40)
+    (sp-item 2651 :period 600 :length 40)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2649 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.30666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.006666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.7111111)
+                            (sp-flt spt-fade-g -1.4222223)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 90 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2652)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2652
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
+
+;; failed to figure out what this is:
+(defpart 2651 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.8))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 64))
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.7066667))
+                            (sp-flt spt-fade-r -0.7111111)
+                            (sp-flt spt-fade-g -1.4222223)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2648 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 128))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 0.0 32.0 1.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2650 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-scale-x (meters 16) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.21333334) (meters 0.12) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.033333335))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2653)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 12) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2653 :init-specs ((sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b -2.1333334)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2654)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2654 :init-specs ((sp-flt spt-fade-r -0.28444445)
+                            (sp-flt spt-fade-g -0.28444445)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2655)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2655 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-yellow-smoke
+  :id 654
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2820 :period 36 :length 5)
+    (sp-item 2820 :period 140 :length 5)
+    (sp-item 2820 :period 61 :length 5)
+    (sp-item 2656 :period 15 :length 5)
+    (sp-item 2821)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2821 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2656 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.026666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 810)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 20 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2596)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2820 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-int spt-num 0 2 8.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -1.0666667)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-rnd-flt spt-accel-y -7.5093336 -7.5093336 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 90 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2595)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-white-eco :id 655 :bounds (static-bspherem 0 0.5 0 1.5) :parts ((sp-item 2852)))
+
+;; failed to figure out what this is:
+(defpart 2852 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-int spt-rot-x 16)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 3276.8)
+                            (sp-flt spt-b 2457.6)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.02) 1.0)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-rnd-flt spt-conerot-x (degrees -1440.0) (degrees 2880.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 6.0000005))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2657 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 0.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.8) 1.0)
+                            (sp-rnd-int spt-r 0 1 255.0)
+                            (sp-rnd-int spt-g 0 1 255.0)
+                            (sp-rnd-int spt-b 0 1 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.009765625))
+                            (sp-flt spt-fade-a 0.35555556)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-func spt-func 'sparticle-track-root)
+                            (sp-int spt-next-time 90)
+                            (sp-launcher-by-id spt-next-launcher 2661)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2661 :init-specs ((sp-flt spt-fade-a -0.53333336)))
+
+;; failed to figure out what this is:
+(defpart 2658 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 0.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 0.2))
+                            (sp-rnd-int spt-r 0 1 255.0)
+                            (sp-rnd-int spt-g 0 1 255.0)
+                            (sp-rnd-int spt-b 0 1 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                            (sp-flt spt-fade-a 0.32)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-func spt-func 'sparticle-track-root)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 2661)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2659 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.0)
+                            (sp-flt spt-scale-x (meters 3.5))
+                            (sp-flt spt-rot-z (degrees 0.0))
+                            (sp-flt spt-scale-y (meters 3))
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-rnd-flt spt-b 0.0 128.0 1.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-flt spt-rotvel-z (degrees -0.4))
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-func spt-func 'sparticle-track-root)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2660 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.0)
+                            (sp-flt spt-scale-x (meters 4))
+                            (sp-flt spt-rot-z (degrees 0.0))
+                            (sp-flt spt-scale-y (meters 3.5))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-flt spt-rotvel-z (degrees 0.3))
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-func spt-func 'sparticle-track-root)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-finalboss-blue-claw-beam
+  :id 666
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2719 :binding 2716)
+    (sp-item 2716 :flags (bit1 start-dead launch-asap) :binding 2717)
+    (sp-item 2716 :flags (bit1 start-dead launch-asap) :binding 2718)
+    (sp-item 2716 :flags (bit1 start-dead launch-asap) :binding 2717)
+    (sp-item 2716 :flags (bit1 start-dead launch-asap) :binding 2718)
+    (sp-item 2716 :flags (bit1 start-dead launch-asap) :binding 2717)
+    (sp-item 2717 :flags (bit1 start-dead))
+    (sp-item 2718 :flags (bit1 start-dead))
+    (sp-item 2717 :flags (bit1 start-dead))
+    (sp-item 2718 :flags (bit1 start-dead))
+    (sp-item 2717 :flags (bit1 start-dead))
+    (sp-item 2718 :flags (bit1 start-dead))
+    (sp-item 2721)
+    (sp-item 2722)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-finalboss-blue-claw-beam-impact
+  :id 667
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2723 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2723 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-rnd-flt spt-rot-y (degrees 25.000002) (degrees 20.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 16.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2719 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.01)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.019444445))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2716 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2717 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2718 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2720 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.85)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-r 16.0 48.0 1.0)
+                            (sp-rnd-flt spt-g 16.0 48.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0.26666668))
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2722 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.13333334))
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2721 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-finalboss-red-claw-beam
+  :id 668
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 23 0 64)
+  :parts
+  ((sp-item 2726 :binding 2724)
+    (sp-item 2724 :flags (bit1 start-dead launch-asap) :binding 2725)
+    (sp-item 2724 :flags (bit1 start-dead launch-asap) :binding 2725)
+    (sp-item 2724 :flags (bit1 start-dead launch-asap) :binding 2725)
+    (sp-item 2724 :flags (bit1 start-dead launch-asap) :binding 2725)
+    (sp-item 2724 :flags (bit1 start-dead launch-asap) :binding 2725)
+    (sp-item 2725 :flags (bit1 start-dead))
+    (sp-item 2725 :flags (bit1 start-dead))
+    (sp-item 2725 :flags (bit1 start-dead))
+    (sp-item 2725 :flags (bit1 start-dead))
+    (sp-item 2725 :flags (bit1 start-dead))
+    (sp-item 2728)
+    (sp-item 2729)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2730 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 68.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 192.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2726 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.02)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.08888889))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2724 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.3) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 127.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2725 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.005555555))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.0)
+                            (sp-flt spt-fade-a -0.22857143)
+                            (sp-rnd-flt spt-accel-y 0.40960002 0.6144 1.0)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 171)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2727 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.85)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 16.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0.26666668))
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2729 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.8)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.13333334))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2728 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 192.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-finalboss-yellow-claw-beam
+  :id 670
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2733 :binding 2731)
+    (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
+    (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
+    (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
+    (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
+    (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
+    (sp-item 2731 :flags (bit1 start-dead launch-asap) :binding 2732)
+    (sp-item 2732 :flags (bit1 start-dead))
+    (sp-item 2732 :flags (bit1 start-dead))
+    (sp-item 2732 :flags (bit1 start-dead))
+    (sp-item 2732 :flags (bit1 start-dead))
+    (sp-item 2732 :flags (bit1 start-dead))
+    (sp-item 2732 :flags (bit1 start-dead))
+    (sp-item 2735)
+    (sp-item 2736)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-finalboss-yellow-claw-beam-impact
+  :id 671
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2737 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2737 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 115.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2733 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.025)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.06666667))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 85.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2731 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2732 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.4)
+                            (sp-flt spt-fade-a -0.17777778)
+                            (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+                            (sp-int-plain-rnd spt-timer 30 299 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2734 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.85)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0.26666668))
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 85.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2736 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.7)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.13333334))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 85.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2735 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.7)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-finalboss-green-claw-beam
+  :id 672
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2740 :binding 2738)
+    (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
+    (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
+    (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
+    (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
+    (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
+    (sp-item 2738 :flags (bit1 start-dead launch-asap) :binding 2739)
+    (sp-item 2739 :flags (bit1 start-dead))
+    (sp-item 2739 :flags (bit1 start-dead))
+    (sp-item 2739 :flags (bit1 start-dead))
+    (sp-item 2739 :flags (bit1 start-dead))
+    (sp-item 2739 :flags (bit1 start-dead))
+    (sp-item 2739 :flags (bit1 start-dead))
+    (sp-item 2742)
+    (sp-item 2743)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-finalboss-green-claw-beam-impact
+  :id 673
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2744 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2744 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 24) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-rnd-flt spt-rot-y (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2740 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.025)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.06666667))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2738 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit7 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2739 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.17777778)
+                            (sp-rnd-flt spt-accel-y -0.40960002 -0.6144 1.0)
+                            (sp-int-plain-rnd spt-timer 30 299 1)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2741 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.85)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0.26666668))
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2743 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.13333334))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2742 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 192.0 1.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-blue-claw-glow
+  :id 674
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2324))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-green-claw-glow
+  :id 675
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2324))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-red-claw-glow
+  :id 676
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2324))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-robotboss-yellow-claw-glow
+  :id 677
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2324))
+  )
 
 ;; failed to figure out what this is:
 0
diff --git a/test/decompiler/reference/levels/finalboss/sage-finalboss-part_REF.gc b/test/decompiler/reference/levels/finalboss/sage-finalboss-part_REF.gc
index 9e09512223..34906da34e 100644
--- a/test/decompiler/reference/levels/finalboss/sage-finalboss-part_REF.gc
+++ b/test/decompiler/reference/levels/finalboss/sage-finalboss-part_REF.gc
@@ -2,450 +2,345 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 682) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-2d-credits-mist"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 2825 :period 300 :length 5 :binding 2823)
-                                         (sp-item 2823 :flags (start-dead launch-asap) :binding 2824)
-                                         (sp-item 2823 :flags (start-dead launch-asap) :binding 2824)
-                                         (sp-item 2824 :flags (start-dead))
-                                         (sp-item 2824 :flags (start-dead))
-                                         (sp-item 2824 :flags (start-dead))
-                                         (sp-item 2826)
-                                         (sp-item 2827)
-                                         )
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
+(defpartgroup group-2d-credits-mist
+  :id 682
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2825 :period 300 :length 5 :binding 2823)
+    (sp-item 2823 :flags (start-dead launch-asap) :binding 2824)
+    (sp-item 2823 :flags (start-dead launch-asap) :binding 2824)
+    (sp-item 2824 :flags (start-dead))
+    (sp-item 2824 :flags (start-dead))
+    (sp-item 2824 :flags (start-dead))
+    (sp-item 2826)
+    (sp-item 2827)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2825) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.5) (meters 5.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2825 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -2.5) (meters 5) 1.0)
+                            (sp-rnd-flt spt-y (meters -1.5) (meters 3) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2823) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
-                                    (sp-flt spt-scalevel-x (meters -0.0012121212))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2823 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
+                            (sp-flt spt-scalevel-x (meters -0.0012121212))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2824) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0010952381))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y 0.0 -0.13653333 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 198)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2824 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0010952381))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y 0.0 -0.13653333 1.0)
+                            (sp-int-plain-rnd spt-timer 30 299 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 198)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2827) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-z -16000.0)
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit13 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2827 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-z (meters -3.90625))
+                            (sp-flt spt-scale-x (meters 15))
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit13 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2826)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 21
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 0.3)
-          (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
-          (sp-rnd-flt spt-z 0.0 14000.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 6.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-rnd-flt spt-scale-y (meters 6.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-r 16.0 80.0 1.0)
-          (sp-rnd-flt spt-g 0.0 16.0 1.0)
-          (sp-rnd-flt spt-b 16.0 150.0 1.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.0016666667) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.075) (degrees 0.15) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.21333334)
-          (sp-int spt-timer 1500)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 150 149 1)
-          (sp-launcher-by-id spt-next-launcher 2828)
-          (sp-end)
-          )
-        )
-      )
+(defpart 2826 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.3)
+                            (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-y (meters -3) (meters 6) 1.0)
+                            (sp-rnd-flt spt-z (meters 0) (meters 3.4179688) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 6) (meters 8) 1.0)
+                            (sp-rnd-flt spt-r 16.0 80.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 16.0 150.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters -0.0016666667) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.075) (degrees 0.15) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 150 149 1)
+                            (sp-launcher-by-id spt-next-launcher 2828)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2828)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 300 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2829)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2828 :init-specs ((sp-flt spt-fade-a 0.0)
+                            (sp-int-plain-rnd spt-next-time 300 299 1)
+                            (sp-launcher-by-id spt-next-launcher 2829)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2829)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 2829 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 699) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-target-white-eco-ground"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 2921)
-                                         (sp-item 2922 :flags (is-3d))
-                                         (sp-item 2923 :flags (is-3d))
-                                         (sp-item 2924 :flags (is-3d))
-                                         (sp-item 2925)
-                                         (sp-item 2926)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-target-white-eco-ground
+  :id 699
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2921)
+    (sp-item 2922 :flags (is-3d))
+    (sp-item 2923 :flags (is-3d))
+    (sp-item 2924 :flags (is-3d))
+    (sp-item 2925)
+    (sp-item 2926)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2921)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-flt spt-x (meters 2.5))
-                                                     (sp-flt spt-y (meters -0.5))
-                                                     (sp-int spt-rot-x 8)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2867.2)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-int spt-timer 270)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 180)
-                                                     (sp-launcher-by-id spt-next-launcher 2927)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2921 :init-specs ((sp-flt spt-num 1.5)
+                            (sp-flt spt-x (meters 2.5))
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-int spt-rot-x 8)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2867.2)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-vel-y (meters 0.026666667))
+                            (sp-int spt-timer 270)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 180)
+                            (sp-launcher-by-id spt-next-launcher 2927)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2927)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -4.551111) (sp-end))
-        )
-      )
+(defpart 2927 :init-specs ((sp-flt spt-fade-b -4.551111)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2924)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.1))
-                                                     (sp-flt spt-scale-x (meters 1.0))
-                                                     (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-flt spt-g 255.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.14648438))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-int spt-timer 81)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2924 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.1))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 8.0 8.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.14648438))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 81)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2922) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 8.0) (meters 8.0) 1.0)
-                                    (sp-rnd-int spt-r 0 1 128.0)
-                                    (sp-rnd-flt spt-g 64.0 196.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0025))
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.24414062) (meters 0.48828125) 1.0)
-                                    (sp-int spt-timer 81)
-                                    (sp-cpuinfo-flags bit3 bit14)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2922 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 8) (meters 8) 1.0)
+                            (sp-rnd-int spt-r 0 1 128.0)
+                            (sp-rnd-flt spt-g 64.0 196.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters -0.0025))
+                            (sp-rnd-flt spt-scalevel-y (meters 0.24414062) (meters 0.48828125) 1.0)
+                            (sp-int spt-timer 81)
+                            (sp-cpuinfo-flags bit3 bit14)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2923) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-rnd-flt spt-x (meters 1.8) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-int spt-r 0 1 128.0)
-                                    (sp-rnd-flt spt-g 64.0 196.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0025))
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.048828125) (meters 0.09765625) 1.0)
-                                    (sp-int spt-timer 81)
-                                    (sp-cpuinfo-flags bit3 bit14)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2923 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 2.0 1.0)
+                            (sp-rnd-flt spt-x (meters 1.8) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 3) 1.0)
+                            (sp-rnd-int spt-r 0 1 128.0)
+                            (sp-rnd-flt spt-g 64.0 196.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters -0.0025))
+                            (sp-rnd-flt spt-scalevel-y (meters 0.048828125) (meters 0.09765625) 1.0)
+                            (sp-int spt-timer 81)
+                            (sp-cpuinfo-flags bit3 bit14)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2925) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 3.0 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 5.5) 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-flt spt-accel-y 6.826667)
-                                    (sp-flt spt-friction 0.996)
-                                    (sp-int-plain-rnd spt-timer 180 119 1)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2925 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 3.0 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 5.5) 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-flt spt-accel-y 6.826667)
+                            (sp-flt spt-friction 0.996)
+                            (sp-int-plain-rnd spt-timer 180 119 1)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2926) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 3.0 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 5.0) 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 10.0 5.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                    (sp-flt spt-fade-a 0.6)
-                                    (sp-flt spt-accel-y 6.826667)
-                                    (sp-flt spt-friction 0.996)
-                                    (sp-int spt-timer 270)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 45)
-                                    (sp-launcher-by-id spt-next-launcher 2928)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2926 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 3.0 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 5) 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 10.0 5.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.011666667) (meters -0.0033333334) 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+                            (sp-flt spt-fade-a 0.6)
+                            (sp-flt spt-accel-y 6.826667)
+                            (sp-flt spt-friction 0.996)
+                            (sp-int spt-timer 270)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 45)
+                            (sp-launcher-by-id spt-next-launcher 2928)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2928)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.18) (sp-end))
-        )
-      )
+(defpart 2928 :init-specs ((sp-flt spt-fade-a -0.18)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 700)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-target-white-eco-joints"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2929) (sp-item 2930))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-target-white-eco-joints
+  :id 700
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2929) (sp-item 2930))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2930)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.3 0.2 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-z -4.096 8.192 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.10666667)
-                                                     (sp-rnd-flt spt-accel-y 0.0 1.3653333 1.0)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-int-plain-rnd spt-next-time 120 29 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2931)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2930 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.2 1.0)
+                            (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.10666667)
+                            (sp-rnd-flt spt-accel-y 0.0 1.3653333 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 120 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2931)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2931)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.10666667) (sp-end))
-        )
-      )
+(defpart 2931 :init-specs ((sp-flt spt-fade-a -0.10666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2929) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 8.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00083333335))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y 6.826667 2.7306666 1.0)
-                                    (sp-flt spt-friction 0.5)
-                                    (sp-int-plain-rnd spt-timer 30 149 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 1638400.0)
-                                    (sp-func spt-func 'check-drop-level-eichar-lighteco-pops)
-                                    (sp-int-plain-rnd spt-next-time 30 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 2932)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2929 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 8.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00083333335))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y 6.826667 2.7306666 1.0)
+                            (sp-flt spt-friction 0.5)
+                            (sp-int-plain-rnd spt-timer 30 149 1)
+                            (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
+                            (sp-flt spt-userdata 1638400.0)
+                            (sp-func spt-func 'check-drop-level-eichar-lighteco-pops)
+                            (sp-int-plain-rnd spt-next-time 30 299 1)
+                            (sp-launcher-by-id spt-next-launcher 2932)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2932)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-userdata 2048000.0) (sp-end))
-        )
-      )
+(defpart 2932 :init-specs ((sp-flt spt-userdata 2048000.0)))
 
 ;; definition for function check-drop-level-eichar-lighteco-pops
 (defun check-drop-level-eichar-lighteco-pops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -475,858 +370,675 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2934) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-flt spt-fade-a -1.92)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2934 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-flt spt-fade-a -1.92)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2933) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 4.0 4.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-accel-y 6.826667 2.7306666 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int-plain-rnd spt-timer 15 119 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2933 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 4.0 4.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-accel-y 6.826667 2.7306666 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int-plain-rnd spt-timer 15 119 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 701) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-target-white-eco-hand-glow"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2892))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-target-white-eco-hand-glow
+  :id 701
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2892))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2892)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 4.0 3.0 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.2) (meters -0.1) 1.0)
-                                                     (sp-rnd-flt spt-z 819.2 409.6 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-flt spt-g 255.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters -0.005))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-flt spt-accel-y 6.826667)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2892 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 4.0 3.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.2) (meters -0.1) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.2) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-scalevel-x (meters -0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-flt spt-accel-y 6.826667)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 702)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-target-white-eco-hand-shot"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2893) (sp-item 2935))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-target-white-eco-hand-shot
+  :id 702
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2893) (sp-item 2935))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2935) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-x (meters -0.2) (meters -0.1) 1.0)
-                                    (sp-rnd-flt spt-z 819.2 409.6 1.0)
-                                    (sp-flt spt-scale-x (meters 0.05))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 6.0) (meters 9.0) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.42666668))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2935 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-x (meters -0.2) (meters -0.1) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-scale-x (meters 0.05))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 6) (meters 9) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.42666668))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2893) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.2) (meters -0.1) 1.0)
-                                    (sp-rnd-flt spt-z 819.2 409.6 1.0)
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-flt spt-vel-x (meters -0.033333335))
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-scalevel-x (meters 0.21333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2893 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -0.2) (meters -0.1) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-flt spt-vel-x (meters -0.033333335))
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.21333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 703) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-joints"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2936 :period 36 :length 5)
-                                         (sp-item 2936 :period 140 :length 5)
-                                         (sp-item 2936 :period 61 :length 5)
-                                         (sp-item 2894 :period 15 :length 5)
-                                         (sp-item 2937)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-robotboss-joints
+  :id 703
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2936 :period 36 :length 5)
+    (sp-item 2936 :period 140 :length 5)
+    (sp-item 2936 :period 61 :length 5)
+    (sp-item 2894 :period 15 :length 5)
+    (sp-item 2937)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2937) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 16.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2937 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 16) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2894)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 8.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.013333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 810)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int-plain-rnd spt-next-time 20 89 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2596)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2894 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 810)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 20 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2596)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2936) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-int spt-num 0 1 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.6)
-                                    (sp-flt spt-fade-g -1.6)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-rnd-flt spt-accel-y -7.5093336 -7.5093336 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 90 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2595)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2936 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-int spt-num 0 1 8.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -1.6)
+                            (sp-flt spt-fade-g -1.6)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-rnd-flt spt-accel-y -7.5093336 -7.5093336 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 90 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2595)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 696) (new 'static 'sparticle-launch-group
-                                       :length 23
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-robotboss-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 23
-                                         (sp-item 2939 :period 1200 :length 20 :binding 2938)
-                                         (sp-item 2940 :period 1200 :length 5)
-                                         (sp-item 2941 :period 1200 :length 40)
-                                         (sp-item 2942 :period 1200 :length 20)
-                                         (sp-item 2943 :period 1200 :length 20)
-                                         (sp-item 2944 :period 1200 :length 20)
-                                         (sp-item 2945 :flags (is-3d) :period 1200 :length 5)
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         (sp-item 2938 :flags (start-dead))
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-robotboss-explode
+  :id 696
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2939 :period 1200 :length 20 :binding 2938)
+    (sp-item 2940 :period 1200 :length 5)
+    (sp-item 2941 :period 1200 :length 40)
+    (sp-item 2942 :period 1200 :length 20)
+    (sp-item 2943 :period 1200 :length 20)
+    (sp-item 2944 :period 1200 :length 20)
+    (sp-item 2945 :flags (is-3d) :period 1200 :length 5)
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    (sp-item 2938 :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2939) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.33333334) (meters 0.85333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -15.701333 -70.31467 1.0)
-                                    (sp-rnd-flt spt-friction 0.96 0.06 1.0)
-                                    (sp-int spt-timer 1050)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees -120.0) (degrees 240.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2939 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.33333334) (meters 0.85333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -15.701333 -70.31467 1.0)
+                            (sp-rnd-flt spt-friction 0.96 0.06 1.0)
+                            (sp-int spt-timer 1050)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees -120.0) (degrees 240.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 40) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2938)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 8.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.02) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.053333335)
-                                                     (sp-int spt-timer 1050)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2946)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2938 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 16.0 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.053333335)
+                            (sp-int spt-timer 1050)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2946)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2946)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-fade-g -0.14222223)
-                                                     (sp-flt spt-fade-b -0.14222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2946 :init-specs ((sp-flt spt-fade-g -0.14222223) (sp-flt spt-fade-b -0.14222223)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2945) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 10.0))
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 60.0) 1.0)
-                                    (sp-rnd-flt spt-rot-x 0.0 262144.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 48.0 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.33333334) (meters 0.6666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14 left-multiply-quat)
-                                    (sp-int-plain-rnd spt-next-time 60 149 1)
-                                    (sp-launcher-by-id spt-next-launcher 2947)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2945 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-flt spt-y (meters 10))
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 60) 1.0)
+                            (sp-rnd-flt spt-rot-x 0.0 262144.0 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 48.0 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.33333334) (meters 0.6666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14 left-multiply-quat)
+                            (sp-int-plain-rnd spt-next-time 60 149 1)
+                            (sp-launcher-by-id spt-next-launcher 2947)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2947)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 2947 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2941) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 128.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.85333335) (meters 0.85333335) 1.0)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -6.826667 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2948)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2941 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 128.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.85333335) (meters 0.85333335) 1.0)
+                            (sp-rnd-flt spt-accel-y -6.826667 -6.826667 1.0)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2948)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2948)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2948 :init-specs ((sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2944) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 128.0))
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 88.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 3.4133334))
-                                    (sp-flt spt-fade-a -0.64)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2944 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 128))
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 88.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 3.4133334))
+                            (sp-flt spt-fade-a -0.64)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2940) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 256.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2940 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 256))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2942) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters -8.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 20.0) (meters 40.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 90.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.21333334) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.04))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.32666665)
-                                    (sp-rnd-flt spt-accel-y 5.4613333 5.4613333 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 32.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2942 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters -8) (meters 16) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 20) (meters 40) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 90.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.21333334) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.04))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.32666665)
+                            (sp-rnd-flt spt-accel-y 5.4613333 5.4613333 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 32) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2943) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 20.0)
-                                    (sp-rnd-flt spt-y (meters -8.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 40.0) (meters 40.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.85333335) (meters 0.85333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.04))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.068571426)
-                                    (sp-rnd-flt spt-accel-y 5.4613333 5.4613333 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 1050)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 32.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2943 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 20.0)
+                            (sp-rnd-flt spt-y (meters -8) (meters 16) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 40) (meters 40) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.85333335) (meters 0.85333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.04))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.068571426)
+                            (sp-rnd-flt spt-accel-y 5.4613333 5.4613333 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 1050)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 32) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 704)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-robotboss-splash"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2949) (sp-item 2950))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-robotboss-splash
+  :id 704
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2949) (sp-item 2950))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2950) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 128.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 5.0) 1.0)
-                                    (sp-flt spt-y (meters -8.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.42666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -2.7306666 -6.826667 1.0)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 1050)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 150 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 2951)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2950 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 128.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 5) 1.0)
+                            (sp-flt spt-y (meters -8))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.42666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -2.7306666 -6.826667 1.0)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 1050)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 150 299 1)
+                            (sp-launcher-by-id spt-next-launcher 2951)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2951)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2951
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.21333334))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2949) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters -10.0))
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 6.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 1050)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 150 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 2951)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2949 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 10) 1.0)
+                            (sp-flt spt-y (meters -10))
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 6) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 1050)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 150 299 1)
+                            (sp-launcher-by-id spt-next-launcher 2951)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 698) (new 'static 'sparticle-launch-group
-                                       :length 7
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-bigdoor-open"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 7
-                                         (sp-item 2952 :flags (is-3d))
-                                         (sp-item 2953 :flags (is-3d))
-                                         (sp-item 2954 :flags (is-3d))
-                                         (sp-item 2955)
-                                         (sp-item 2956)
-                                         (sp-item 2957)
-                                         (sp-item 2958)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-bigdoor-open
+  :id 698
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2952 :flags (is-3d))
+    (sp-item 2953 :flags (is-3d))
+    (sp-item 2954 :flags (is-3d))
+    (sp-item 2955)
+    (sp-item 2956)
+    (sp-item 2957)
+    (sp-item 2958)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2952) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-flt spt-y (meters 10.0))
-                                    (sp-flt spt-z 16384.0)
-                                    (sp-flt spt-scale-x (meters 48.0))
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-rotvel-y (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 2959)
-                                    (sp-flt spt-rotate-y (degrees 40.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2952 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-flt spt-y (meters 10))
+                            (sp-flt spt-z (meters 4))
+                            (sp-flt spt-scale-x (meters 48))
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-rotvel-y (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2959)
+                            (sp-flt spt-rotate-y (degrees 40.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2959)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.16) (sp-end))
-        )
-      )
+(defpart 2959 :init-specs ((sp-flt spt-fade-a -0.16)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2953) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-flt spt-y (meters 10.0))
-                                    (sp-flt spt-z 16384.0)
-                                    (sp-flt spt-scale-x (meters 48.0))
-                                    (sp-flt spt-rot-z (degrees -90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-rotvel-y (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 2959)
-                                    (sp-flt spt-rotate-y (degrees 40.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2953 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-flt spt-y (meters 10))
+                            (sp-flt spt-z (meters 4))
+                            (sp-flt spt-scale-x (meters 48))
+                            (sp-flt spt-rot-z (degrees -90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-rotvel-y (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2959)
+                            (sp-flt spt-rotate-y (degrees 40.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2954) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-z 16384.0)
-                                    (sp-flt spt-scale-x (meters 40.0))
-                                    (sp-flt spt-rot-y (degrees -50.000004))
-                                    (sp-flt spt-rot-z (degrees 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-rotvel-y (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 2959)
-                                    (sp-flt spt-rotate-y (degrees 40.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2954 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-z (meters 4))
+                            (sp-flt spt-scale-x (meters 40))
+                            (sp-flt spt-rot-y (degrees -50.000004))
+                            (sp-flt spt-rot-z (degrees 1.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-rotvel-y (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2959)
+                            (sp-flt spt-rotate-y (degrees 40.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2955) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-flt spt-y (meters 10.0))
-                                    (sp-flt spt-z 32768.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 32.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 5.5) 1.0)
-                                    (sp-rnd-int spt-r 1124073472 1 128.0)
-                                    (sp-rnd-int spt-g 1124073472 1 128.0)
-                                    (sp-rnd-int spt-b 1124073472 1 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 0.21333334)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 75 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 2959)
-                                    (sp-flt spt-rotate-y (degrees 40.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2955 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 2.0 1.0)
+                            (sp-flt spt-y (meters 10))
+                            (sp-flt spt-z (meters 8))
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 32) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2.5) (meters 5.5) 1.0)
+                            (sp-rnd-int spt-r 1124073472 1 128.0)
+                            (sp-rnd-int spt-g 1124073472 1 128.0)
+                            (sp-rnd-int spt-b 1124073472 1 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 75 74 1)
+                            (sp-launcher-by-id spt-next-launcher 2959)
+                            (sp-flt spt-rotate-y (degrees 40.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2956) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-flt spt-y (meters 10.0))
-                                    (sp-flt spt-z 32768.0)
-                                    (sp-flt spt-scale-x (meters 64.0))
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 1.5))
-                                    (sp-rnd-int spt-r 1124073472 1 128.0)
-                                    (sp-rnd-int spt-g 1124073472 1 128.0)
-                                    (sp-rnd-int spt-b 1124073472 1 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 0.21333334)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 75 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 2959)
-                                    (sp-flt spt-rotate-y (degrees 40.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2956 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-flt spt-y (meters 10))
+                            (sp-flt spt-z (meters 8))
+                            (sp-flt spt-scale-x (meters 64))
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 1.5))
+                            (sp-rnd-int spt-r 1124073472 1 128.0)
+                            (sp-rnd-int spt-g 1124073472 1 128.0)
+                            (sp-rnd-int spt-b 1124073472 1 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 75 74 1)
+                            (sp-launcher-by-id spt-next-launcher 2959)
+                            (sp-flt spt-rotate-y (degrees 40.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2957) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters 10.0) (meters 40.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 20.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.00066666666) (meters -0.0026666666) 1.0)
-                                    (sp-flt spt-fade-a 0.85333335)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 75 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 2960)
-                                    (sp-rnd-flt spt-rotate-y (degrees -135.0) (degrees 1440.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2957 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-x (meters 10) (meters 40) 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.00066666666) (meters -0.0026666666) 1.0)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 75 74 1)
+                            (sp-launcher-by-id spt-next-launcher 2960)
+                            (sp-rnd-flt spt-rotate-y (degrees -135.0) (degrees 1440.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2960)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.85333335) (sp-end))
-        )
-      )
+(defpart 2960 :init-specs ((sp-flt spt-fade-a -0.85333335)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2958) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 10.0) (meters 30.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 20.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.00066666666) (meters -0.0026666666) 1.0)
-                                    (sp-flt spt-fade-a 0.85333335)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata -4096000.0)
-                                    (sp-func spt-func 'check-drop-level-bigdoor-open-pops)
-                                    (sp-int-plain-rnd spt-next-time 75 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 2961)
-                                    (sp-rnd-flt spt-rotate-y (degrees -135.0) (degrees 1440.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2958 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 10) (meters 30) 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.00066666666) (meters -0.0026666666) 1.0)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata -4096000.0)
+                            (sp-func spt-func 'check-drop-level-bigdoor-open-pops)
+                            (sp-int-plain-rnd spt-next-time 75 74 1)
+                            (sp-launcher-by-id spt-next-launcher 2961)
+                            (sp-rnd-flt spt-rotate-y (degrees -135.0) (degrees 1440.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2961)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-userdata 4096000.0) (sp-end))
-        )
-      )
+(defpart 2961 :init-specs ((sp-flt spt-userdata 4096000.0)))
 
 ;; definition for function check-drop-level-bigdoor-open-pops
 (defun check-drop-level-bigdoor-open-pops ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -1356,82 +1068,63 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2963) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -1.92)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2963 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-fade-a -1.92)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2962) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 4.0 4.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2962 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 4.0 4.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-accel-y -6.826667 -2.7306666 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 706) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-2d-big-door-whiteout"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2965))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
+(defpartgroup group-2d-big-door-whiteout
+  :id 706
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2965))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2965) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-z -16000.0)
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2965 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-z (meters -3.90625))
+                            (sp-flt spt-scale-x (meters 15))
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
 0
diff --git a/test/decompiler/reference/levels/firecanyon/firecanyon-obs_REF.gc b/test/decompiler/reference/levels/firecanyon/firecanyon-obs_REF.gc
index c0a0912d95..93627ea7cb 100644
--- a/test/decompiler/reference/levels/firecanyon/firecanyon-obs_REF.gc
+++ b/test/decompiler/reference/levels/firecanyon/firecanyon-obs_REF.gc
@@ -24,90 +24,73 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 227)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x5dc
-        :name "group-balloon"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 1006) (sp-item 1007) (sp-item 1008))
-        :bounds (new 'static 'sphere :w 61440.0)
-        )
-      )
+(defpartgroup group-balloon
+  :id 227
+  :duration 5
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 1006) (sp-item 1007) (sp-item 1008))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1007)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 8.0)
-                                                     (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1007 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 96.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1008)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-flt spt-y (meters 2.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.08) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-friction 0.98)
-                                                     (sp-int spt-timer 75)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 1.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1008 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 96.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.08) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 75)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 1.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1006) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 80.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -0.08)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1006 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 80.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-flt spt-fade-a -0.08)
+                            (sp-int spt-timer 15)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate balloon-popping (balloon)
@@ -541,224 +524,190 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 228)
-      (new 'static 'sparticle-launch-group
-        :length 69
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-cluster-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 69
-          (sp-item 2100 :period 600 :length 5)
-          (sp-item 2101 :period 600 :length 40)
-          (sp-item 2102 :period 600 :length 20)
-          (sp-item 2103 :period 600 :length 20)
-          (sp-item 2104 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-dark-cluster-explosion
+  :id 228
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2100 :period 600 :length 5)
+    (sp-item 2101 :period 600 :length 40)
+    (sp-item 2102 :period 600 :length 20)
+    (sp-item 2103 :period 600 :length 20)
+    (sp-item 2104 :fade-after (meters 100) :period 600 :length 5 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2104) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2104 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 240)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2101) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2105)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2101 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2105)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2105)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2105 :init-specs ((sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2103) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2103 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.04))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2100) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 24.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2100 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 24))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2102)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2102 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.02))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate die (crate-darkeco-cluster)
diff --git a/test/decompiler/reference/levels/firecanyon/firecanyon-part_REF.gc b/test/decompiler/reference/levels/firecanyon/firecanyon-part_REF.gc
index f13f31a21c..eaff5cabe6 100644
--- a/test/decompiler/reference/levels/firecanyon/firecanyon-part_REF.gc
+++ b/test/decompiler/reference/levels/firecanyon/firecanyon-part_REF.gc
@@ -19,3723 +19,2997 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 229)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-1"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1011 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1012 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1013 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1014 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1014 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1014 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1012)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-rnd-flt spt-x (meters -9.0) (meters 19.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -28672.0 24576.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -165.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1014) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.0) (meters 17.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -24576.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -165.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1013) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.03 0.03 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.0) (meters 17.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -24576.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -165.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1011)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters -9.0) (meters 19.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -28672.0 24576.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -165.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 230)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1017 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1018 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1019 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1020 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1020 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1020 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1018)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 19.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -20480.0 49152.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1020) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -9.0) (meters 17.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -16384.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1019) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -9.0) (meters 17.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -16384.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1017)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 19.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -20480.0 49152.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 231)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1021 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1022 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1023 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1024 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1024 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1024 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1022)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters -10.5) (meters 20.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -81920.0 147456.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -120.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1024) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.5)
-                                    (sp-rnd-flt spt-x (meters -9.5) (meters 18.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -77824.0 139264.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.1333333) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -120.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1023) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -9.5) (meters 18.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -77824.0 139264.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -120.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1021)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.6)
-                                                     (sp-rnd-flt spt-x (meters -10.5) (meters 20.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -81920.0 147456.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -120.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 232)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-5"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1025 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1026 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1027 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1028 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1028 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1028 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :x -8192.0 :z -8192.0 :w 57344.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1028) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -6.0) (meters 13.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-z -45056.0 69632.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1010) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 6.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0023333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-int spt-timer 360)
-                                    (sp-cpuinfo-flags bit0 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1027) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -6.0) (meters 13.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-z -45056.0 69632.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1009) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0029166667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-int-plain-rnd spt-timer 30 179 1)
-                                    (sp-cpuinfo-flags bit0 bit3)
-                                    (sp-flt spt-rotate-y (degrees 45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1025)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -8.0) (meters 16.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -53248.0 81920.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -45.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1016)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -6.826667) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1026)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -8.0) (meters 16.0) 1.0)
-                                                     (sp-flt spt-y (meters -0.5))
-                                                     (sp-rnd-flt spt-z -53248.0 81920.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -45.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1015)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 1029)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1029)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r -0.8)
-                                                     (sp-flt spt-fade-b 0.8)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 1030)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1030)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.14222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 233)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-6"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1031 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1032 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1033 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1034 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1034 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1034 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :x 8192.0 :z 8192.0 :w 57344.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1034) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -5.0) (meters 17.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -22528.0 53248.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1032)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -6.0) (meters 19.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -26624.0 61440.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -110.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1033) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -5.0) (meters 17.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -22528.0 53248.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1031)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.3)
-                                                     (sp-rnd-flt spt-x (meters -6.0) (meters 19.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -26624.0 61440.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -110.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 234)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-7"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1035 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1036 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1037 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1038 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1038 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1038 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 57344.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1036)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -6.5) (meters 12.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -6144.0 61440.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -170.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1038) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -5.5) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -2048.0 53248.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -170.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1037) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -5.5) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -2048.0 53248.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -170.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1035)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.1)
-                                                     (sp-rnd-flt spt-x (meters -6.5) (meters 12.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -6144.0 61440.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -170.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 235)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-8"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1039 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1040 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1041 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1042 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1042 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1042 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 65536.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1040)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -9.5) (meters 14.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -53248.0 114688.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1042) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.5) (meters 12.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -49152.0 106496.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1041) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.5) (meters 12.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -49152.0 106496.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1039)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.4)
-                                                     (sp-rnd-flt spt-x (meters -9.5) (meters 14.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -53248.0 114688.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 236)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-9"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1043 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1044 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1045 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1046 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1046 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1046 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 36864.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1044)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.08)
-                                                     (sp-rnd-flt spt-x (meters -3.5) (meters 7.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -28672.0 61440.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -30.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1046) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.6)
-                                    (sp-rnd-flt spt-x (meters -2.5) (meters 5.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -24576.0 53248.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1045) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.03 0.03 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.5) (meters 5.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -24576.0 53248.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1043)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.6)
-                                                     (sp-rnd-flt spt-x (meters -3.5) (meters 7.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -28672.0 61440.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -30.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 237)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-10"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1047 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1048 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1049 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1050 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1050 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1050 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :x -16384.0 :w 61440.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1048)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -13.5) (meters 20.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -57344.0 90112.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -35.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1050) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -12.5) (meters 18.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -53248.0 81920.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1049) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -12.5) (meters 18.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -53248.0 81920.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1047)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -13.5) (meters 20.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -57344.0 90112.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -35.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 238)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-11"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1051 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1052 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1053 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1054 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1054 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1054 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :x -16384.0 :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1052)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -10.5) (meters 12.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -45056.0 57344.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -55.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1054) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -9.5) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -40960.0 49152.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.8000002) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -55.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1053) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -9.5) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -40960.0 49152.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -55.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1051)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.7)
-                                                     (sp-rnd-flt spt-x (meters -10.5) (meters 12.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -45056.0 57344.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -55.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 239)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-14"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1055 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1056 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1057 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1058 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1058 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1058 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :x -16384.0 :w 61440.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1056)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -17.5) (meters 25.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -49152.0 98304.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -55.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1058) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -16.5) (meters 23.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -45056.0 90112.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -4.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -55.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1057) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -16.5) (meters 23.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -45056.0 90112.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -55.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1055)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -17.5) (meters 25.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -49152.0 98304.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -55.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 240)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-15"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1059 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1060 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1061 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1062 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1062 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1062 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :x -16384.0 :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1060)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-rnd-flt spt-x (meters -10.5) (meters 12.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -45056.0 98304.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -55.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1062) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -9.5) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -40960.0 90112.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -5.133333) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -55.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1061) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.04 0.04 1.0)
-                                    (sp-rnd-flt spt-x (meters -9.5) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -40960.0 90112.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -55.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1059)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -10.5) (meters 12.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -45056.0 98304.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -55.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 241)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-16"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1063 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1064 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1065 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1066 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1066 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1066 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 57344.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1064)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -9.5) (meters 16.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -49152.0 106496.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -130.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1066) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.5) (meters 14.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -45056.0 98304.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -130.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1065) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.5) (meters 14.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -45056.0 98304.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -130.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1063)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.1)
-                                                     (sp-rnd-flt spt-x (meters -9.5) (meters 16.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -49152.0 106496.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -130.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 242)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-18"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1067 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1068 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1069 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1070 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1070 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1070 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :x -16384.0 :z -16384.0 :w 106496.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1068)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters -11.0) (meters 24.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -114688.0 172032.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -55.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1070) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 22.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -110592.0 163840.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -55.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1069) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.07 0.07 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 22.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -110592.0 163840.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -55.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1067)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.9)
-                                                     (sp-rnd-flt spt-x (meters -11.0) (meters 24.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -114688.0 172032.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -55.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 243)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-19"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1071 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1072 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1073 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1074 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1074 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1074 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1072)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.3)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 23.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -73728.0 114688.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -55.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1074) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.5)
-                                    (sp-rnd-flt spt-x (meters -9.0) (meters 21.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -69632.0 106496.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -55.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1073) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -9.0) (meters 21.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -69632.0 106496.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -55.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1071)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.4)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 23.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -73728.0 114688.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -55.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 244)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-21"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1075 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1076 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1077 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1078 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1078 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1078 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :x -16384.0 :z 16384.0 :w 90112.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1076)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.17)
-                                                     (sp-rnd-flt spt-x (meters -23.0) (meters 32.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -20480.0 16384.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -30.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1078) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.8)
-                                    (sp-rnd-flt spt-x (meters -22.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -16384.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1077) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.03 0.03 1.0)
-                                    (sp-rnd-flt spt-x (meters -22.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -16384.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1075)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.7)
-                                                     (sp-rnd-flt spt-x (meters -23.0) (meters 32.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -20480.0 16384.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -30.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 245)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-22"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1079 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1080 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1081 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1082 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1082 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1082 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1080)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -7.0) (meters 25.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -16384.0 24576.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees -120.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1082) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -6.0) (meters 23.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -12288.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -120.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1081) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -6.0) (meters 23.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -12288.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -120.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1079)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters -7.0) (meters 25.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -16384.0 24576.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees -120.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 246)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-60"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1083 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1084 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1085 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1086 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1086 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1086 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1084)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -11.0) (meters 21.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -69632.0 122880.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 50.000004))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1086) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.3)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 19.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -65536.0 114688.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 50.000004))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1085) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 19.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -65536.0 114688.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 50.000004))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1083)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -11.0) (meters 21.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -69632.0 122880.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 50.000004))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 247)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-62"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1087 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1088 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1089 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1090 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1090 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1090 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1088)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-rnd-flt spt-x (meters -9.0) (meters 17.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -32768.0 57344.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 100.00001))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1090) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.0) (meters 15.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -28672.0 49152.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 100.00001))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1089) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.04 0.04 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.0) (meters 15.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -28672.0 49152.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 100.00001))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1087)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.7)
-                                                     (sp-rnd-flt spt-x (meters -9.0) (meters 17.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -32768.0 57344.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 100.00001))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 248)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-63"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1091 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1092 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1093 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1094 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1094 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1094 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1092)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-rnd-flt spt-x (meters -8.0) (meters 12.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -40960.0 65536.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 110.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1094) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -7.0) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -32768.0 57344.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1093) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.04 0.04 1.0)
-                                    (sp-rnd-flt spt-x (meters -7.0) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -32768.0 57344.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1091)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.7)
-                                                     (sp-rnd-flt spt-x (meters -8.0) (meters 12.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -40960.0 65536.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 110.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 249)
-      (new 'static 'sparticle-launch-group
-        :length 11
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-firecanyon-lava-64"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 11
-          (sp-item 1095 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1096 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1097 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 1009)
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1009 :flags (start-dead))
-          (sp-item 1098 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 137 :length 5 :binding 1010)
-          (sp-item 1098 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 234 :length 5 :binding 1010)
-          (sp-item 1098 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 92 :length 5 :binding 1010)
-          (sp-item 1010 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1096)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.1)
-                                                     (sp-rnd-flt spt-x (meters -3.0) (meters 10.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -20480.0 36864.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 110.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1098) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.6)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 8.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -16384.0 28672.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1097) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.02 0.02 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 8.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -16384.0 28672.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1095)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters -3.0) (meters 10.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -20480.0 36864.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 3686.4)
-                                                     (sp-flt spt-b 4096.0)
-                                                     (sp-flt spt-vel-y (meters 0.016666668))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 110.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 250) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-44"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1099 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1100 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1100)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 14.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -65536.0 73728.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1099)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.25)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 14.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -65536.0 73728.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 251) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-45"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1101 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1102 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1102)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 12.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -16384.0 65536.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1101)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 12.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -16384.0 65536.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 252) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-46"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1103 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1104 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1104)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.1)
-                                                     (sp-rnd-flt spt-x (meters -3.0) (meters 5.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z 0.0 57344.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 5.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1103)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters -3.0) (meters 5.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z 0.0 57344.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 5.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 253) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-47"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1105 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1106 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1106)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.08)
-                                                     (sp-rnd-flt spt-x (meters 2.0) (meters 5.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -49152.0 57344.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 5.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1105)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters 2.0) (meters 5.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -49152.0 57344.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 5.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 254) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-48"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1107 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1108 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 81920.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1108)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters -13.0) (meters 17.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -77824.0 94208.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1107)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters -13.0) (meters 17.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -77824.0 94208.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 255) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-50"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1109 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1110 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 57344.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1110)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-rnd-flt spt-x (meters -6.0) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z 0.0 73728.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 20.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1109)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.7)
-                                                     (sp-rnd-flt spt-x (meters -6.0) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z 0.0 73728.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 20.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 256) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-52"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1111 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1112 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1112)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-rnd-flt spt-x (meters -12.0) (meters 18.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -49152.0 65536.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 150.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1111)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.75)
-                                                     (sp-rnd-flt spt-x (meters -12.0) (meters 18.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -49152.0 65536.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 150.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 257) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-53"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1113 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1114 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1114)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 18.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -12288.0 65536.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 150.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1113)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.75)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 18.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -12288.0 65536.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 150.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 258) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-54"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1115 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1116 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1116)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.3)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 13.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -73728.0 81920.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 155.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1115)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 13.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -73728.0 81920.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 155.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 259) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-55"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1117 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1118 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 81920.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1118)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.35)
-                                                     (sp-rnd-flt spt-x (meters -3.0) (meters 10.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -12288.0 131072.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 155.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1117)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.9)
-                                                     (sp-rnd-flt spt-x (meters -3.0) (meters 10.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -12288.0 131072.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 155.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 260) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-56"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1119 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1120 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1120)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -7.0) (meters 16.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -32768.0 61440.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 256.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.21333334)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 110.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1119)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -7.0) (meters 16.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -32768.0 61440.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 110.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 261) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-57"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1121 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1122 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1122)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-rnd-flt spt-x (meters -6.0) (meters 8.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -8192.0 81920.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 135.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1121)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.75)
-                                                     (sp-rnd-flt spt-x (meters -6.0) (meters 8.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -8192.0 81920.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 135.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 262) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-58"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1123 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1124 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1124)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-rnd-flt spt-x (meters -1.0) (meters 8.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -73728.0 81920.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 170.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1123)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.75)
-                                                     (sp-rnd-flt spt-x (meters -1.0) (meters 8.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -73728.0 81920.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 170.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 263) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-firecanyon-heat-59"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1125 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1126 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1126)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -16384.0 81920.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.10666667)
-                                                     (sp-flt spt-fade-a 0.85333335)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1015)
-                                                     (sp-flt spt-rotate-y (degrees 135.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1125)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.75)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-y (meters -6.0))
-                                                     (sp-rnd-flt spt-z -16384.0 81920.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5324.8)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 1016)
-                                                     (sp-flt spt-rotate-y (degrees 135.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpartgroup group-firecanyon-lava-1
+  :id 229
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1011 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1012 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1013 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1014 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1014 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1014 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1012 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -9) (meters 19) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -7) (meters 6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -165.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1014 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -8) (meters 17) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -165.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1013 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.03 0.03 1.0)
+                            (sp-rnd-flt spt-x (meters -8) (meters 17) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -165.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1011 :init-specs ((sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -9) (meters 19) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -7) (meters 6) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -165.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-2
+  :id 230
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1017 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1018 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1019 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1020 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1020 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1020 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1018 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -10) (meters 19) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -5) (meters 12) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1020 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -9) (meters 17) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -4) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1019 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -9) (meters 17) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -4) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1017 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 19) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -5) (meters 12) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-3
+  :id 231
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1021 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1022 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1023 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1024 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1024 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1024 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1022 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-x (meters -10.5) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -20) (meters 36) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1024 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -9.5) (meters 18) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -19) (meters 34) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.1333333) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1023 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -9.5) (meters 18) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -19) (meters 34) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1021 :init-specs ((sp-flt spt-num 1.6)
+                            (sp-rnd-flt spt-x (meters -10.5) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -20) (meters 36) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-5
+  :id 232
+  :bounds (static-bspherem -2 0 -2 14)
+  :parts
+  ((sp-item 1025 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1026 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1027 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1028 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1028 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1028 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1028 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -6) (meters 13) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters -11) (meters 17) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1010 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 6.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0023333333))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-int spt-timer 360)
+                            (sp-cpuinfo-flags bit0 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1027 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -6) (meters 13) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters -11) (meters 17) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1009 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0029166667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-int-plain-rnd spt-timer 30 179 1)
+                            (sp-cpuinfo-flags bit0 bit3)
+                            (sp-flt spt-rotate-y (degrees 45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1025 :init-specs ((sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -8) (meters 16) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -13) (meters 20) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1016 :init-specs ((sp-flt spt-fade-b -6.826667)))
+
+;; failed to figure out what this is:
+(defpart 1026 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -8) (meters 16) 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-z (meters -13) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1015
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 75) (sp-launcher-by-id spt-next-launcher 1029))
+  )
+
+;; failed to figure out what this is:
+(defpart 1029 :init-specs ((sp-flt spt-fade-r -0.8)
+                            (sp-flt spt-fade-b 0.8)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1030)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1030 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.14222223)))
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-6
+  :id 233
+  :bounds (static-bspherem 2 0 2 14)
+  :parts
+  ((sp-item 1031 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1032 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1033 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1034 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1034 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1034 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1034 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -5) (meters 17) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -5.5) (meters 13) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1032 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -6) (meters 19) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -6.5) (meters 15) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1033 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -5) (meters 17) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -5.5) (meters 13) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1031 :init-specs ((sp-flt spt-num 1.3)
+                            (sp-rnd-flt spt-x (meters -6) (meters 19) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -6.5) (meters 15) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-7
+  :id 234
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 1035 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1036 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1037 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1038 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1038 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1038 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1036 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -6.5) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1.5) (meters 15) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -170.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1038 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -5.5) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 13) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -170.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1037 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -5.5) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 13) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -170.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1035 :init-specs ((sp-flt spt-num 1.1)
+                            (sp-rnd-flt spt-x (meters -6.5) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1.5) (meters 15) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -170.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-8
+  :id 235
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 1039 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1040 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1041 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1042 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1042 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1042 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1040 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -9.5) (meters 14) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -13) (meters 28) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1042 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -8.5) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -12) (meters 26) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1041 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -8.5) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -12) (meters 26) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1039 :init-specs ((sp-flt spt-num 1.4)
+                            (sp-rnd-flt spt-x (meters -9.5) (meters 14) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -13) (meters 28) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-9
+  :id 236
+  :bounds (static-bspherem 0 0 0 9)
+  :parts
+  ((sp-item 1043 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1044 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1045 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1046 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1046 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1046 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1044 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.08)
+                            (sp-rnd-flt spt-x (meters -3.5) (meters 7) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -7) (meters 15) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1046 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.6)
+                            (sp-rnd-flt spt-x (meters -2.5) (meters 5) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -6) (meters 13) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1045 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.03 0.03 1.0)
+                            (sp-rnd-flt spt-x (meters -2.5) (meters 5) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -6) (meters 13) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1043 :init-specs ((sp-flt spt-num 0.6)
+                            (sp-rnd-flt spt-x (meters -3.5) (meters 7) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -7) (meters 15) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-10
+  :id 237
+  :bounds (static-bspherem -4 0 0 15)
+  :parts
+  ((sp-item 1047 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1048 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1049 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1050 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1050 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1050 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1048 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -13.5) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -14) (meters 22) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -35.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1050 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -12.5) (meters 18) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -13) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -35.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1049 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -12.5) (meters 18) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -13) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -35.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1047 :init-specs ((sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -13.5) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -14) (meters 22) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -35.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-11
+  :id 238
+  :bounds (static-bspherem -4 0 0 12)
+  :parts
+  ((sp-item 1051 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1052 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1053 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1054 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1054 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1054 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1052 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -10.5) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -11) (meters 14) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1054 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -9.5) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 12) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.8000002) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1053 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -9.5) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 12) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1051 :init-specs ((sp-flt spt-num 0.7)
+                            (sp-rnd-flt spt-x (meters -10.5) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -11) (meters 14) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-14
+  :id 239
+  :bounds (static-bspherem -4 0 0 15)
+  :parts
+  ((sp-item 1055 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1056 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1057 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1058 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1058 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1058 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1056 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -17.5) (meters 25) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -12) (meters 24) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1058 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -16.5) (meters 23) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -11) (meters 22) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -4.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1057 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -16.5) (meters 23) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -11) (meters 22) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1055 :init-specs ((sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -17.5) (meters 25) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -12) (meters 24) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-15
+  :id 240
+  :bounds (static-bspherem -4 0 0 12)
+  :parts
+  ((sp-item 1059 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1060 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1061 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1062 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1062 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1062 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1060 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -10.5) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -11) (meters 24) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1062 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -9.5) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 22) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -5.133333) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1061 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.04 0.04 1.0)
+                            (sp-rnd-flt spt-x (meters -9.5) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 22) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1059 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -10.5) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -11) (meters 24) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-16
+  :id 241
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 1063 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1064 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1065 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1066 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1066 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1066 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1064 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -9.5) (meters 16) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -12) (meters 26) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -130.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1066 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -8.5) (meters 14) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -11) (meters 24) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.4666667) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -130.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1065 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -8.5) (meters 14) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -11) (meters 24) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -130.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1063 :init-specs ((sp-flt spt-num 1.1)
+                            (sp-rnd-flt spt-x (meters -9.5) (meters 16) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -12) (meters 26) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -130.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-18
+  :id 242
+  :bounds (static-bspherem -4 0 -4 26)
+  :parts
+  ((sp-item 1067 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1068 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1069 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1070 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1070 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1070 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1068 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -11) (meters 24) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -28) (meters 42) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1070 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 22) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -27) (meters 40) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1069 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.07 0.07 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 22) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -27) (meters 40) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1067 :init-specs ((sp-flt spt-num 1.9)
+                            (sp-rnd-flt spt-x (meters -11) (meters 24) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -28) (meters 42) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-19
+  :id 243
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1071 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1072 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1073 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1074 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1074 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1074 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1072 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.3)
+                            (sp-rnd-flt spt-x (meters -10) (meters 23) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -18) (meters 28) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1074 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -9) (meters 21) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -17) (meters 26) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1073 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -9) (meters 21) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -17) (meters 26) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1071 :init-specs ((sp-flt spt-num 1.4)
+                            (sp-rnd-flt spt-x (meters -10) (meters 23) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -18) (meters 28) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -55.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-21
+  :id 244
+  :bounds (static-bspherem -4 0 4 22)
+  :parts
+  ((sp-item 1075 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1076 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1077 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1078 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1078 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1078 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1076 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.17)
+                            (sp-rnd-flt spt-x (meters -23) (meters 32) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -5) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1078 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.8)
+                            (sp-rnd-flt spt-x (meters -22) (meters 30) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1077 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.03 0.03 1.0)
+                            (sp-rnd-flt spt-x (meters -22) (meters 30) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1075 :init-specs ((sp-flt spt-num 0.7)
+                            (sp-rnd-flt spt-x (meters -23) (meters 32) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -5) (meters 4) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-22
+  :id 245
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1079 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1080 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1081 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1082 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1082 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1082 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1080 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -7) (meters 25) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -4) (meters 6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees -120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1082 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -6) (meters 23) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -3) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1081 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -6) (meters 23) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -3) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1079 :init-specs ((sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -7) (meters 25) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -4) (meters 6) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees -120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-60
+  :id 246
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1083 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1084 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1085 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1086 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1086 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1086 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1084 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -11) (meters 21) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -17) (meters 30) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 50.000004))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1086 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.3)
+                            (sp-rnd-flt spt-x (meters -10) (meters 19) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -16) (meters 28) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 50.000004))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1085 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 19) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -16) (meters 28) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 50.000004))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1083 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -11) (meters 21) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -17) (meters 30) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 50.000004))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-62
+  :id 247
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1087 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1088 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1089 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1090 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1090 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1090 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1088 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -9) (meters 17) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -8) (meters 14) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 100.00001))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1090 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -8) (meters 15) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -7) (meters 12) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 100.00001))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1089 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.04 0.04 1.0)
+                            (sp-rnd-flt spt-x (meters -8) (meters 15) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -7) (meters 12) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 100.00001))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1087 :init-specs ((sp-flt spt-num 0.7)
+                            (sp-rnd-flt spt-x (meters -9) (meters 17) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -8) (meters 14) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 100.00001))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-63
+  :id 248
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1091 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1092 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1093 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1094 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1094 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1094 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1092 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -8) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 16) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1094 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -7) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -8) (meters 14) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1093 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.04 0.04 1.0)
+                            (sp-rnd-flt spt-x (meters -7) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -8) (meters 14) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1091 :init-specs ((sp-flt spt-num 0.7)
+                            (sp-rnd-flt spt-x (meters -8) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 16) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-lava-64
+  :id 249
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1095 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1096 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1097 :fade-after (meters 100) :falloff-to (meters 100) :binding 1009)
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1009 :flags (start-dead))
+    (sp-item 1098 :fade-after (meters 100) :falloff-to (meters 100) :period 137 :length 5 :binding 1010)
+    (sp-item 1098 :fade-after (meters 100) :falloff-to (meters 100) :period 234 :length 5 :binding 1010)
+    (sp-item 1098 :fade-after (meters 100) :falloff-to (meters 100) :period 92 :length 5 :binding 1010)
+    (sp-item 1010 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1096 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -3) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -5) (meters 9) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1098 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.6)
+                            (sp-rnd-flt spt-x (meters -2) (meters 8) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -4) (meters 7) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1097 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.02 0.02 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 8) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -4) (meters 7) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1095 :init-specs ((sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-x (meters -3) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -5) (meters 9) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 3686.4)
+                            (sp-flt spt-b 4096.0)
+                            (sp-flt spt-vel-y (meters 0.016666668))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-44
+  :id 250
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1099 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1100 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1100 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters 0) (meters 14) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -16) (meters 18) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1099 :init-specs ((sp-flt spt-num 1.25)
+                            (sp-rnd-flt spt-x (meters 0) (meters 14) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -16) (meters 18) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-45
+  :id 251
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1101 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1102 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1102 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters 0) (meters 12) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -4) (meters 16) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1101 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 12) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -4) (meters 16) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-46
+  :id 252
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1103 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1104 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1104 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -3) (meters 5) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters 0) (meters 14) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 5.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1103 :init-specs ((sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -3) (meters 5) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters 0) (meters 14) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 5.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-47
+  :id 253
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1105 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1106 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1106 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.08)
+                            (sp-rnd-flt spt-x (meters 2) (meters 5) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -12) (meters 14) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 5.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1105 :init-specs ((sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-x (meters 2) (meters 5) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -12) (meters 14) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 5.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-48
+  :id 254
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1107 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1108 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1108 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-x (meters -13) (meters 17) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -19) (meters 23) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1107 :init-specs ((sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-x (meters -13) (meters 17) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -19) (meters 23) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-50
+  :id 255
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 1109 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1110 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1110 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -6) (meters 1) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters 0) (meters 18) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 20.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1109 :init-specs ((sp-flt spt-num 0.7)
+                            (sp-rnd-flt spt-x (meters -6) (meters 1) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters 0) (meters 18) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 20.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-52
+  :id 256
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1111 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1112 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1112 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -12) (meters 18) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -12) (meters 16) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 150.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1111 :init-specs ((sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-x (meters -12) (meters 18) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -12) (meters 16) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 150.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-53
+  :id 257
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1113 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1114 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1114 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -10) (meters 18) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -3) (meters 16) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 150.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1113 :init-specs ((sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-x (meters -10) (meters 18) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -3) (meters 16) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 150.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-54
+  :id 258
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1115 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1116 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1116 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.3)
+                            (sp-rnd-flt spt-x (meters -10) (meters 13) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -18) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 155.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1115 :init-specs ((sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -10) (meters 13) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -18) (meters 20) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 155.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-55
+  :id 259
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1117 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1118 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1118 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.35)
+                            (sp-rnd-flt spt-x (meters -3) (meters 10) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -3) (meters 32) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 155.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1117 :init-specs ((sp-flt spt-num 1.9)
+                            (sp-rnd-flt spt-x (meters -3) (meters 10) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -3) (meters 32) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 155.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-56
+  :id 260
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1119 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1120 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1120 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -7) (meters 16) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -8) (meters 15) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 256.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.21333334)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1119 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -7) (meters 16) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -8) (meters 15) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-57
+  :id 261
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1121 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1122 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1122 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -6) (meters 8) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -2) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 135.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1121 :init-specs ((sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-x (meters -6) (meters 8) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -2) (meters 20) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 135.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-58
+  :id 262
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1123 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1124 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1124 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -1) (meters 8) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -18) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 170.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1123 :init-specs ((sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-x (meters -1) (meters 8) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -18) (meters 20) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 170.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-firecanyon-heat-59
+  :id 263
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1125 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1126 :fade-after (meters 150) :falloff-to (meters 150))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1126 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -4) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1015)
+                            (sp-flt spt-rotate-y (degrees 135.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1125 :init-specs ((sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -4) (meters 20) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1016)
+                            (sp-flt spt-rotate-y (degrees 135.0))
+                            )
+              )
diff --git a/test/decompiler/reference/levels/flut_common/flut-part_REF.gc b/test/decompiler/reference/levels/flut_common/flut-part_REF.gc
index 4c7b870b91..2c2c8412d3 100644
--- a/test/decompiler/reference/levels/flut_common/flut-part_REF.gc
+++ b/test/decompiler/reference/levels/flut_common/flut-part_REF.gc
@@ -2,163 +2,129 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 120)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-flut-trans-pad"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3
-          (sp-item 746 :fade-after (meters 160.0))
-          (sp-item 747 :fade-after (meters 160.0))
-          (sp-item 748 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (is-3d))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-flut-trans-pad
+  :id 120
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 746 :fade-after (meters 160))
+    (sp-item 747 :fade-after (meters 160))
+    (sp-item 748 :fade-after (meters 60) :falloff-to (meters 60) :flags (is-3d))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 746) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-y (meters 7.0))
-                                   (sp-rnd-flt spt-scale-x (meters 14.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 14.0))
-                                   (sp-flt spt-r 40.0)
-                                   (sp-rnd-flt spt-g 60.0 60.0 1.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 746 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-flt spt-y (meters 7))
+                           (sp-rnd-flt spt-scale-x (meters 14) (meters 1) 1.0)
+                           (sp-flt spt-scale-y (meters 14))
+                           (sp-flt spt-r 40.0)
+                           (sp-rnd-flt spt-g 60.0 60.0 1.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 747) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-y (meters 4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 14.0))
-                                   (sp-flt spt-r 40.0)
-                                   (sp-rnd-flt spt-g 60.0 60.0 1.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-flt spt-fade-a -8.533334)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 747 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-flt spt-y (meters 4))
+                           (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
+                           (sp-flt spt-scale-y (meters 14))
+                           (sp-flt spt-r 40.0)
+                           (sp-rnd-flt spt-g 60.0 60.0 1.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-flt spt-fade-a -8.533334)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 748) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
-                                   (sp-flt spt-scale-x (meters 0.0))
-                                   (sp-rnd-flt spt-rot-x 0.0 2730.6667 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 16.0)
-                                   (sp-rnd-flt spt-g 0.0 127.0 1.0)
-                                   (sp-flt spt-b 127.0)
-                                   (sp-flt spt-a 127.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-scalevel-x (meters 0.02))
-                                   (sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-flt spt-accel-y -0.6144)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 748 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
+                           (sp-flt spt-scale-x (meters 0))
+                           (sp-rnd-flt spt-rot-x 0.0 2730.6667 1.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 16.0)
+                           (sp-rnd-flt spt-g 0.0 127.0 1.0)
+                           (sp-flt spt-b 127.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-scalevel-x (meters 0.02))
+                           (sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-flt spt-accel-y -0.6144)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 121)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xa
-        :linger-duration #x1c2
-        :name "group-flut-attack-strike-ground"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 749) (sp-item 750))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
+(defpartgroup group-flut-attack-strike-ground
+  :id 121
+  :duration 10
+  :linger-duration 450
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 749) (sp-item 750))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 749) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 24.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 8.0 56.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.13333334) (meters 0.16666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.013333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -1.4222223)
-                                   (sp-flt spt-fade-a -0.35555556)
-                                   (sp-flt spt-accel-y 0.34133333)
-                                   (sp-flt spt-friction 0.7)
-                                   (sp-int spt-timer 180)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 751)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 749 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 24.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 8.0 56.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.13333334) (meters 0.16666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.013333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -1.4222223)
+                           (sp-flt spt-fade-a -0.35555556)
+                           (sp-flt spt-accel-y 0.34133333)
+                           (sp-flt spt-friction 0.7)
+                           (sp-int spt-timer 180)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 751)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 750) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 32.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 64.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.3))
-                                   (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -2.8444445)
-                                   (sp-flt spt-fade-a -0.82222223)
-                                   (sp-flt spt-friction 0.7)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 45)
-                                   (sp-launcher-by-id spt-next-launcher 751)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 750 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 32.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 64.0 8.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.3))
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -2.8444445)
+                           (sp-flt spt-fade-a -0.82222223)
+                           (sp-flt spt-friction 0.7)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 45)
+                           (sp-launcher-by-id spt-next-launcher 751)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
diff --git a/test/decompiler/reference/levels/jungle/darkvine_REF.gc b/test/decompiler/reference/levels/jungle/darkvine_REF.gc
index 0ea6d7874a..9b28145712 100644
--- a/test/decompiler/reference/levels/jungle/darkvine_REF.gc
+++ b/test/decompiler/reference/levels/jungle/darkvine_REF.gc
@@ -63,98 +63,78 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 175)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x96
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-darkvine-puffs"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 800) (sp-item 801) (sp-item 802))
-        :bounds
-        (new 'static 'sphere :y 8192.0 :w 12288.0)
-        )
-      )
+(defpartgroup group-darkvine-puffs
+  :id 175
+  :duration 150
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 2 0 3)
+  :parts
+  ((sp-item 800) (sp-item 801) (sp-item 802))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 800) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.8)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 30.0 20.0 1.0)
-                                   (sp-rnd-flt spt-g 25.0 10.0 1.0)
-                                   (sp-rnd-flt spt-b 10.0 5.0 1.0)
-                                   (sp-rnd-flt spt-a 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.013333334))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-fade-a 0.1882353)
-                                   (sp-flt spt-accel-y -2.048)
-                                   (sp-int spt-timer 255)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 800 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.8)
+                           (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 30.0 20.0 1.0)
+                           (sp-rnd-flt spt-g 25.0 10.0 1.0)
+                           (sp-rnd-flt spt-b 10.0 5.0 1.0)
+                           (sp-rnd-flt spt-a 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0.013333334))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-flt spt-fade-a 0.1882353)
+                           (sp-flt spt-accel-y -2.048)
+                           (sp-int spt-timer 255)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 802) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-flt spt-num 0.25)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 0.6) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 45.0 45.0 1.0)
-                                   (sp-rnd-flt spt-g 45.0 10.0 1.0)
-                                   (sp-rnd-flt spt-b 20.0 6.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                   (sp-flt spt-accel-y -2.7306666)
-                                   (sp-int spt-timer 375)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 802 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                           (sp-flt spt-num 0.25)
+                           (sp-rnd-flt spt-x (meters 0) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 45.0 45.0 1.0)
+                           (sp-rnd-flt spt-g 45.0 10.0 1.0)
+                           (sp-rnd-flt spt-b 20.0 6.0 1.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                           (sp-flt spt-accel-y -2.7306666)
+                           (sp-int spt-timer 375)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 801) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 0.6) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-r 10.0 6.0 1.0)
-                                   (sp-rnd-flt spt-g 40.0 90.0 1.0)
-                                   (sp-rnd-flt spt-b 10.0 6.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.013333334) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
-                                   (sp-flt spt-accel-y -1.3653333)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 801 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-rnd-flt spt-x (meters 0) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.1) (meters 0.1) 1.0)
+                           (sp-rnd-flt spt-r 10.0 6.0 1.0)
+                           (sp-rnd-flt spt-g 40.0 90.0 1.0)
+                           (sp-rnd-flt spt-b 10.0 6.0 1.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0016666667) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.013333334) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -1.2) 1 436.90668)
+                           (sp-flt spt-accel-y -1.3653333)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; definition for function darkvine-event-handler
 ;; INFO: Return type mismatch none vs object.
diff --git a/test/decompiler/reference/levels/jungle/fisher-JUN_REF.gc b/test/decompiler/reference/levels/jungle/fisher-JUN_REF.gc
index 5602d2a321..e1d85b6888 100644
--- a/test/decompiler/reference/levels/jungle/fisher-JUN_REF.gc
+++ b/test/decompiler/reference/levels/jungle/fisher-JUN_REF.gc
@@ -30,179 +30,136 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 177)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x1c2
-        :flags (sp-group-flag use-local-clock)
-        :name "group-bad-fish"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 828) (sp-item 2013))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
+(defpartgroup group-bad-fish
+  :id 177
+  :duration 5
+  :linger-duration 450
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 828) (sp-item 2013))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 828) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-y (meters 0.2))
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.53333336)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-int-plain-rnd spt-next-time 10 53 1)
-                                   (sp-launcher-by-id spt-next-launcher 829)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 828 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-y (meters 0.2))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.53333336)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-int-plain-rnd spt-next-time 10 53 1)
+                           (sp-launcher-by-id spt-next-launcher 829)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 829)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 829 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2013) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.7) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -409.6 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-flt spt-accel-y 1.3653333)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2013 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.7) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.1) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 178) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x1c2
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-normal-fish"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2001))
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
+(defpartgroup group-normal-fish
+  :id 178
+  :duration 5
+  :linger-duration 450
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2001))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2001) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-flt spt-accel-y 1.3653333)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2001 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 179)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x4b0
-        :flags (sp-group-flag use-local-clock)
-        :name "group-fish-collect"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 830) (sp-item 831))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-fish-collect
+  :id 179
+  :duration 5
+  :linger-duration 1200
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 830) (sp-item 831))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 831) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-scale-x (meters 5.0) (meters 1.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-a 16.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 25)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 831 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-scale-x (meters 5) (meters 1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-a 16.0)
+                           (sp-flt spt-fade-a -1.6)
+                           (sp-int spt-timer 25)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 830) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 16.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-r 32.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 1.2)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-func spt-func 'sparticle-track-root)
-                                   (sp-int-plain-rnd spt-next-time 10 9 1)
-                                   (sp-launcher-by-id spt-next-launcher 832)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 830 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 16.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-r 32.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 1.2)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-func spt-func 'sparticle-track-root)
+                           (sp-int-plain-rnd spt-next-time 10 9 1)
+                           (sp-launcher-by-id spt-next-launcher 832)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 832)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.8) (sp-end))
-        )
-      )
+(defpart 832 :init-specs ((sp-flt spt-fade-a -0.8)))
 
 ;; definition of type fisher-params
 (deftype fisher-params (structure)
diff --git a/test/decompiler/reference/levels/jungle/jungle-mirrors_REF.gc b/test/decompiler/reference/levels/jungle/jungle-mirrors_REF.gc
index ec512dfb15..469ee7586a 100644
--- a/test/decompiler/reference/levels/jungle/jungle-mirrors_REF.gc
+++ b/test/decompiler/reference/levels/jungle/jungle-mirrors_REF.gc
@@ -2,627 +2,482 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 176) (new 'static 'sparticle-launch-group
-                                       :length 21
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-jungle-binoculars"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 21
-                                         (sp-item 803)
-                                         (sp-item 804)
-                                         (sp-item 805)
-                                         (sp-item 806)
-                                         (sp-item 807)
-                                         (sp-item 808)
-                                         (sp-item 809)
-                                         (sp-item 810)
-                                         (sp-item 811)
-                                         (sp-item 812)
-                                         (sp-item 813)
-                                         (sp-item 814)
-                                         (sp-item 815)
-                                         (sp-item 816)
-                                         (sp-item 817)
-                                         (sp-item 818)
-                                         (sp-item 819)
-                                         (sp-item 820)
-                                         (sp-item 821)
-                                         (sp-item 822)
-                                         (sp-item 823)
-                                         )
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-jungle-binoculars
+  :id 176
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 803)
+    (sp-item 804)
+    (sp-item 805)
+    (sp-item 806)
+    (sp-item 807)
+    (sp-item 808)
+    (sp-item 809)
+    (sp-item 810)
+    (sp-item 811)
+    (sp-item 812)
+    (sp-item 813)
+    (sp-item 814)
+    (sp-item 815)
+    (sp-item 816)
+    (sp-item 817)
+    (sp-item 818)
+    (sp-item 819)
+    (sp-item 820)
+    (sp-item 821)
+    (sp-item 822)
+    (sp-item 823)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 823) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x28 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-z (degrees -45.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 0.0))
-                                   (sp-flt spt-conerot-radius (meters 1.45))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 823 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x28 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-z (degrees -45.0))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 0.0))
+                           (sp-flt spt-conerot-radius (meters 1.45))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 815) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees -15.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 30.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 815 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-z (degrees -15.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 30.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 816) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 15.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 60.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 816 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-z (degrees 15.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 60.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 817) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 75.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 120.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 817 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-z (degrees 75.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 120.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 818) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 105.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 150.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 818 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-z (degrees 105.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 150.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 819) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 165.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 210.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 819 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-z (degrees 165.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 210.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 820) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 195.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 240.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 820 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-z (degrees 195.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 240.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 821) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 255.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 300.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 821 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-z (degrees 255.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 300.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 822) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-z (degrees 285.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 330.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 822 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x26 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-z (degrees 285.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 330.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 811) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.75))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 0.75))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 0.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 811 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.75))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-scale-y (meters 0.75))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 0.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 812) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.75))
-                                   (sp-flt spt-rot-z (degrees 90.0))
-                                   (sp-flt spt-scale-y (meters 0.75))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 90.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 812 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.75))
+                           (sp-flt spt-rot-z (degrees 90.0))
+                           (sp-flt spt-scale-y (meters 0.75))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 90.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 813) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.75))
-                                   (sp-flt spt-rot-z (degrees 180.0))
-                                   (sp-flt spt-scale-y (meters 0.75))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 180.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 813 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.75))
+                           (sp-flt spt-rot-z (degrees 180.0))
+                           (sp-flt spt-scale-y (meters 0.75))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 180.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 814) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.75))
-                                   (sp-flt spt-rot-z (degrees 270.0))
-                                   (sp-flt spt-scale-y (meters 0.75))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-flt spt-conerot-z (degrees 270.0))
-                                   (sp-flt spt-conerot-radius (meters 1.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 814 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x27 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.75))
+                           (sp-flt spt-rot-z (degrees 270.0))
+                           (sp-flt spt-scale-y (meters 0.75))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-flt spt-conerot-z (degrees 270.0))
+                           (sp-flt spt-conerot-radius (meters 1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 803) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -2.9))
-                                   (sp-flt spt-y (meters 2.1))
-                                   (sp-flt spt-scale-x (meters 4.5))
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 803 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -2.9))
+                           (sp-flt spt-y (meters 2.1))
+                           (sp-flt spt-scale-x (meters 4.5))
+                           (sp-flt spt-scale-y (meters 3))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 804) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 1.11))
-                                   (sp-flt spt-y (meters 2.1))
-                                   (sp-flt spt-scale-x (meters 4.5))
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 804 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 1.11))
+                           (sp-flt spt-y (meters 2.1))
+                           (sp-flt spt-scale-x (meters 4.5))
+                           (sp-flt spt-scale-y (meters 3))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 805) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -1.11))
-                                   (sp-flt spt-y (meters 2.1))
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-flt spt-rot-z (degrees -90.0))
-                                   (sp-flt spt-scale-y (meters 4.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 805 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -1.11))
+                           (sp-flt spt-y (meters 2.1))
+                           (sp-flt spt-scale-x (meters 3))
+                           (sp-flt spt-rot-z (degrees -90.0))
+                           (sp-flt spt-scale-y (meters 4.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 806) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 2.9))
-                                   (sp-flt spt-y (meters 2.1))
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-flt spt-rot-z (degrees -90.0))
-                                   (sp-flt spt-scale-y (meters 4.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 806 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 2.9))
+                           (sp-flt spt-y (meters 2.1))
+                           (sp-flt spt-scale-x (meters 3))
+                           (sp-flt spt-rot-z (degrees -90.0))
+                           (sp-flt spt-scale-y (meters 4.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 807) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -2.9))
-                                   (sp-flt spt-y (meters -2.1))
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-flt spt-rot-z (degrees 90.0))
-                                   (sp-flt spt-scale-y (meters 4.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 807 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -2.9))
+                           (sp-flt spt-y (meters -2.1))
+                           (sp-flt spt-scale-x (meters 3))
+                           (sp-flt spt-rot-z (degrees 90.0))
+                           (sp-flt spt-scale-y (meters 4.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 808) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 1.11))
-                                   (sp-flt spt-y (meters -2.1))
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-flt spt-rot-z (degrees 90.0))
-                                   (sp-flt spt-scale-y (meters 4.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 808 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 1.11))
+                           (sp-flt spt-y (meters -2.1))
+                           (sp-flt spt-scale-x (meters 3))
+                           (sp-flt spt-rot-z (degrees 90.0))
+                           (sp-flt spt-scale-y (meters 4.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 809) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -1.11))
-                                   (sp-flt spt-y (meters -2.1))
-                                   (sp-flt spt-scale-x (meters 4.5))
-                                   (sp-flt spt-rot-z (degrees 180.0))
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 809 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -1.11))
+                           (sp-flt spt-y (meters -2.1))
+                           (sp-flt spt-scale-x (meters 4.5))
+                           (sp-flt spt-rot-z (degrees 180.0))
+                           (sp-flt spt-scale-y (meters 3))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 810) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 2.9))
-                                   (sp-flt spt-y (meters -2.1))
-                                   (sp-flt spt-scale-x (meters 4.5))
-                                   (sp-flt spt-rot-z (degrees 180.0))
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 810 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x25 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 2.9))
+                           (sp-flt spt-y (meters -2.1))
+                           (sp-flt spt-scale-x (meters 4.5))
+                           (sp-flt spt-rot-z (degrees 180.0))
+                           (sp-flt spt-scale-y (meters 3))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 689)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-jungle-binoculars-aligned"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2840) (sp-item 2863) (sp-item 2864) (sp-item 2865))
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
+(defpartgroup group-jungle-binoculars-aligned
+  :id 689
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 2840) (sp-item 2863) (sp-item 2864) (sp-item 2865))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2865) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 5.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 96.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.85333335)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 75 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 2866)
-                                    (sp-rnd-flt spt-conerot-x (degrees -360.0) (degrees 720.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2865 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 5.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 96.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 75 74 1)
+                            (sp-launcher-by-id spt-next-launcher 2866)
+                            (sp-rnd-flt spt-conerot-x (degrees -360.0) (degrees 720.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -1440.0) (degrees 2880.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2866)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.85333335) (sp-end))
-        )
-      )
+(defpart 2866 :init-specs ((sp-flt spt-fade-a -0.85333335)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2864) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 96.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 15 14 1)
-                                    (sp-launcher-by-id spt-next-launcher 2867)
-                                    (sp-rnd-flt spt-conerot-x (degrees -360.0) (degrees 720.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -360.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2864 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 96.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 15 14 1)
+                            (sp-launcher-by-id spt-next-launcher 2867)
+                            (sp-rnd-flt spt-conerot-x (degrees -360.0) (degrees 720.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -360.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters -2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2867)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -4.266667) (sp-end))
-        )
-      )
+(defpart 2867 :init-specs ((sp-flt spt-fade-a -4.266667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2863) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.15)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 96.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0125))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.8)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2863 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 96.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters -0.0125))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.8)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2840) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 13.0) (meters 5.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2840 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 13) (meters 5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; definition of type periscope
 (deftype periscope (process-drawable)
@@ -1119,35 +974,30 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 825) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 4.5)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-flt spt-vel-y (meters 0.010666667))
-                                   (sp-flt spt-scalevel-x (meters -0.008333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.17777778)
-                                   (sp-flt spt-fade-a -0.53333336)
-                                   (sp-flt spt-accel-y 0.68266666)
-                                   (sp-int spt-timer 165)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-z (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.3) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 825 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 4.5)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 32.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-flt spt-vel-y (meters 0.010666667))
+                           (sp-flt spt-scalevel-x (meters -0.008333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.17777778)
+                           (sp-flt spt-fade-a -0.53333336)
+                           (sp-flt spt-accel-y 0.68266666)
+                           (sp-int spt-timer 165)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-z (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.3) 1.0)
+                           )
+             )
 
 ;; definition for function periscope-find-next
 ;; Used lq/sq
diff --git a/test/decompiler/reference/levels/jungle/jungle-part_REF.gc b/test/decompiler/reference/levels/jungle/jungle-part_REF.gc
index cf383848de..e90d92cf02 100644
--- a/test/decompiler/reference/levels/jungle/jungle-part_REF.gc
+++ b/test/decompiler/reference/levels/jungle/jungle-part_REF.gc
@@ -19,2126 +19,1757 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 833) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-rnd-flt spt-num 0.9 0.9 1.0)
-                                   (sp-rnd-flt spt-x (meters -8.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 47.5))
-                                   (sp-rnd-flt spt-z -14336.0 28672.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.06666667))
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-flt spt-accel-x -3.7304192)
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 366)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 834) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.06)
-                                   (sp-rnd-flt spt-x (meters 6.0) (meters 6.0) 1.0)
-                                   (sp-flt spt-y (meters -6.5))
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-flt spt-scale-x (meters 12.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.033333335))
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.14222223)
-                                   (sp-flt spt-accel-y 0.013653334)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 835) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters 4.0) (meters 8.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-z -28672.0 57344.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.07666667))
-                                   (sp-flt spt-fade-r -0.42666668)
-                                   (sp-flt spt-fade-g -0.42666668)
-                                   (sp-flt spt-fade-b -0.21333334)
-                                   (sp-flt spt-fade-a -0.28444445)
-                                   (sp-flt spt-accel-y -9.102222)
-                                   (sp-int spt-timer 225)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 836) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -8.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 47.5))
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                   (sp-flt spt-scalevel-y (meters 0.001953125))
-                                   (sp-flt spt-fade-a 0.0)
-                                   (sp-flt spt-accel-x -2.5600002)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                   (sp-int spt-timer 540)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 837) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -7.0) (meters 3.5) 1.0)
-                                   (sp-flt spt-y (meters 47.5))
-                                   (sp-rnd-flt spt-z -16384.0 32768.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.038333334))
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                   (sp-flt spt-accel-x -1.189495)
-                                   (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                   (sp-int spt-timer 660)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 838) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-rnd-flt spt-num 0.8 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -10.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 20.0))
-                                   (sp-rnd-flt spt-z -22528.0 34816.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.06666667))
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-flt spt-accel-x -3.7304192)
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 135.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 839) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.6 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 3.5) 1.0)
-                                   (sp-flt spt-y (meters 20.0))
-                                   (sp-rnd-flt spt-z -22528.0 34816.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.038333334))
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                   (sp-flt spt-accel-x -1.189495)
-                                   (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-flt spt-rotate-y (degrees 135.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 840) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -10.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 20.0))
-                                   (sp-rnd-flt spt-z -26624.0 45056.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                   (sp-flt spt-scalevel-y (meters 0.001953125))
-                                   (sp-flt spt-fade-a 0.0)
-                                   (sp-flt spt-accel-x -2.5600002)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                   (sp-int spt-timer 330)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 135.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 841) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.06)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 6.0) 1.0)
-                                   (sp-flt spt-y (meters -4.5))
-                                   (sp-rnd-flt spt-z -22528.0 38912.0 1.0)
-                                   (sp-flt spt-scale-x (meters 10.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.033333335))
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0055555557))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.17066666)
-                                   (sp-flt spt-accel-y 0.013653334)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 750)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-flt spt-rotate-y (degrees 135.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 842) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-rnd-flt spt-x (meters 1.0) (meters 7.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-z -24576.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.07666667))
-                                   (sp-flt spt-fade-r -0.42666668)
-                                   (sp-flt spt-fade-g -0.42666668)
-                                   (sp-flt spt-fade-b -0.21333334)
-                                   (sp-flt spt-fade-a -0.28444445)
-                                   (sp-flt spt-accel-y -9.102222)
-                                   (sp-int spt-timer 225)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 135.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 843) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 0.6 1.0)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 20.0))
-                                   (sp-rnd-flt spt-z -18432.0 55296.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.06666667))
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-flt spt-accel-x -3.7304192)
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 225)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees -150.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 844) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.9 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -8.0) (meters 3.5) 1.0)
-                                   (sp-flt spt-y (meters 20.0))
-                                   (sp-rnd-flt spt-z -18432.0 55296.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.038333334))
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                   (sp-flt spt-accel-x -1.189495)
-                                   (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                   (sp-int spt-timer 390)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-flt spt-rotate-y (degrees -150.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 845) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 20.0))
-                                   (sp-rnd-flt spt-z -18432.0 55296.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                   (sp-flt spt-scalevel-y (meters 0.001953125))
-                                   (sp-flt spt-fade-a 0.0)
-                                   (sp-flt spt-accel-x -2.5600002)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                   (sp-int spt-timer 270)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees -150.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 846) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.15)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 6.0) 1.0)
-                                   (sp-flt spt-y (meters -3.4))
-                                   (sp-rnd-flt spt-z -20480.0 59392.0 1.0)
-                                   (sp-flt spt-scale-x (meters 10.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.033333335))
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0055555557))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-flt spt-accel-y 0.013653334)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-flt spt-rotate-y (degrees -150.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 847) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 7.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-z -20480.0 59392.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.07666667))
-                                   (sp-flt spt-fade-r -0.42666668)
-                                   (sp-flt spt-fade-g -0.42666668)
-                                   (sp-flt spt-fade-b -0.21333334)
-                                   (sp-flt spt-fade-a -0.28444445)
-                                   (sp-flt spt-accel-y -9.102222)
-                                   (sp-int spt-timer 225)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees -150.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 848) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-rnd-flt spt-num 0.8 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -12.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 25.0))
-                                   (sp-rnd-flt spt-z -26624.0 14336.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.06666667))
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-flt spt-accel-x -3.7304192)
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 135.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 849) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.6 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -11.0) (meters 3.5) 1.0)
-                                   (sp-flt spt-y (meters 25.0))
-                                   (sp-rnd-flt spt-z -26624.0 14336.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.038333334))
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                   (sp-flt spt-accel-x -1.189495)
-                                   (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                   (sp-int spt-timer 450)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-flt spt-rotate-y (degrees 135.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 850) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -12.0) (meters 4.0) 1.0)
-                                   (sp-flt spt-y (meters 25.0))
-                                   (sp-rnd-flt spt-z -26624.0 14336.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                   (sp-flt spt-scalevel-y (meters 0.001953125))
-                                   (sp-flt spt-fade-a 0.0)
-                                   (sp-flt spt-accel-x -2.5600002)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                   (sp-int spt-timer 330)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 135.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 851) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.05)
-                                   (sp-rnd-flt spt-x (meters -3.0) (meters 6.0) 1.0)
-                                   (sp-flt spt-y (meters -4.5))
-                                   (sp-rnd-flt spt-z -28672.0 18432.0 1.0)
-                                   (sp-flt spt-scale-x (meters 10.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.033333335))
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0055555557))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-flt spt-accel-y 0.013653334)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-flt spt-rotate-y (degrees 135.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 852) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -2.0) (meters 7.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-z -26624.0 14336.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-flt spt-vel-y (meters 0.07666667))
-                                   (sp-flt spt-fade-r -0.42666668)
-                                   (sp-flt spt-fade-g -0.42666668)
-                                   (sp-flt spt-fade-b -0.21333334)
-                                   (sp-flt spt-fade-a -0.28444445)
-                                   (sp-flt spt-accel-y -9.102222)
-                                   (sp-int spt-timer 225)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 135.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 180) (new 'static 'sparticle-launch-group
-                                       :length 7
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag always-draw)
-                                       :name "group-jungle-waterfall-1"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 7
-                                         (sp-item 833)
-                                         (sp-item 833 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 834)
-                                         (sp-item 834 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 837 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 835 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-                                         (sp-item 836 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 102400.0 :w 409600.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 181) (new 'static 'sparticle-launch-group
-                                       :length 7
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag always-draw)
-                                       :name "group-jungle-waterfall-2"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 7
-                                         (sp-item 838)
-                                         (sp-item 838 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 841)
-                                         (sp-item 841 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 839 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 842 :fade-after (meters 90.0))
-                                         (sp-item 840 :fade-after (meters 90.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :x 8192.0 :y 36864.0 :z 16384.0 :w 368640.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 182) (new 'static 'sparticle-launch-group
-                                       :length 7
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag always-draw)
-                                       :name "group-jungle-waterfall-3"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 7
-                                         (sp-item 843)
-                                         (sp-item 843 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 846)
-                                         (sp-item 846 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 844)
-                                         (sp-item 847 :fade-after (meters 90.0))
-                                         (sp-item 845 :fade-after (meters 90.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 32768.0 :w 368640.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 183) (new 'static 'sparticle-launch-group
-                                       :length 7
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag always-draw)
-                                       :name "group-jungle-waterfall-4"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 7
-                                         (sp-item 848)
-                                         (sp-item 848 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 851)
-                                         (sp-item 851 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 849 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 852 :fade-after (meters 90.0))
-                                         (sp-item 850 :fade-after (meters 90.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 40960.0 :z 32768.0 :w 368640.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 853) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 0.1)
-                                   (sp-rnd-flt spt-x (meters -70.0) (meters 100.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 3.5) (meters 4.0) 1.0)
-                                   (sp-rnd-flt spt-z -122880.0 215040.0 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 96.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-int-flt spt-vel-x (meters -0.005) 1 40.96)
-                                   (sp-flt spt-vel-y (meters 0.0013333333))
-                                   (sp-rnd-int-flt spt-vel-z (meters -0.005) 1 40.96)
-                                   (sp-flt spt-fade-a 0.85333335)
-                                   (sp-int spt-timer 3300)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 150)
-                                   (sp-launcher-by-id spt-next-launcher 854)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 854)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 9
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-flt spt-accel-y -0.20480001)
-                                                     (sp-int spt-next-time 600)
-                                                     (sp-launcher-by-id spt-next-launcher 855)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 855)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 8
-                                                     (sp-flt spt-scalevel-x (meters -0.0023333333))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.64)
-                                                     (sp-flt spt-fade-g -0.85333335)
-                                                     (sp-flt spt-accel-y 0.20480001)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 856)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 856)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-int spt-next-time 300)
-                                                     (sp-launcher-by-id spt-next-launcher 857)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 857)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-scalevel-x (meters 0.0023333333))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.64)
-                                                     (sp-flt spt-fade-g 0.85333335)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 858)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 858)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 9
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-flt spt-accel-y -0.20480001)
-                                                     (sp-int spt-next-time 300)
-                                                     (sp-launcher-by-id spt-next-launcher 859)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 859)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 8
-                                                     (sp-flt spt-scalevel-x (meters -0.0023333333))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.64)
-                                                     (sp-flt spt-fade-g -0.85333335)
-                                                     (sp-flt spt-accel-y 0.20480001)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 860)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 860)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-int spt-next-time 300)
-                                                     (sp-launcher-by-id spt-next-launcher 861)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 861)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-scalevel-x (meters 0.0023333333))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.64)
-                                                     (sp-flt spt-fade-g 0.85333335)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 862)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 862)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 9
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-flt spt-accel-y -0.20480001)
-                                                     (sp-int spt-next-time 600)
-                                                     (sp-launcher-by-id spt-next-launcher 863)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 863)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-a -0.8)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 864)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-          (sp-flt spt-num 0.02)
-          (sp-rnd-flt spt-x (meters -55.0) (meters 75.0) 1.0)
-          (sp-flt spt-y (meters 28.0))
-          (sp-rnd-flt spt-z -143360.0 245760.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 15.0) (meters 15.0) 1.0)
-          (sp-int spt-rot-x 4)
-          (sp-rnd-flt spt-rot-z (degrees -120.0) (degrees 20.0) 1.0)
-          (sp-rnd-flt spt-scale-y (meters 2.0) (meters 2.0) 1.0)
-          (sp-flt spt-r 192.0)
-          (sp-flt spt-g 192.0)
-          (sp-rnd-flt spt-b 64.0 128.0 1.0)
-          (sp-flt spt-a 0.0)
-          (sp-flt spt-scalevel-x (meters 0.0007324219))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.0033333332) (degrees 0.0066666664) 1.0)
-          (sp-flt spt-scalevel-y (meters 0.0007324219))
-          (sp-flt spt-fade-a 0.02)
-          (sp-int spt-timer 2400)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-int spt-next-time 1200)
-          (sp-launcher-by-id spt-next-launcher 865)
-          (sp-flt spt-rotate-y (degrees 0.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 865)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.02) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 184)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-jungle-dapple-light-1"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2
-          (sp-item 864 :hour-mask #b111111100000000000111111)
-          (sp-item 853 :fade-after (meters 130.0) :falloff-to (meters 160.0) :hour-mask #b11111111111000000)
-          )
-        :bounds (new 'static 'sphere :w 225280.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 185) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-jungle-tower-spewer"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 866 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 866 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         (sp-item 867 :fade-after (meters 300.0) :falloff-to (meters 300.0))
-                                         (sp-item 868 :fade-after (meters 400.0) :falloff-to (meters 400.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 866) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 0.25 1.0 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.6) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 5.0) (meters 1.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-flt spt-rot-z (degrees -90.0))
-                                   (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.7) 1.0)
-                                   (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -0.8)
-                                   (sp-int spt-timer 180)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 20)
-                                   (sp-launcher-by-id spt-next-launcher 869)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 5.0) (meters 2.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 869)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -0.4)
-                                                     (sp-flt spt-fade-g -0.4)
-                                                     (sp-flt spt-fade-a -0.93333334)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 867) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 2.5 1.0)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 6.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-rnd-flt spt-g 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                   (sp-flt spt-fade-a -1.28)
-                                   (sp-int spt-timer 75)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 7.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 868) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 1.25 1.0)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-rnd-flt spt-scale-x (meters 3.5) (meters 2.0) 1.0)
-                                   (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
-                                   (sp-rnd-flt spt-scale-y (meters 6.5) (meters 1.25) 1.0)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 128.0 64.0 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                   (sp-flt spt-fade-a -0.64)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 7.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 870) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-flt spt-scale-x (meters 4.0))
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1.0) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 0.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 0.35555556)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 871)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 871)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 186)
-      (new 'static 'sparticle-launch-group
-        :length 55
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-jungle-lurkermachine-3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 55
-          (sp-item 872 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 300 :length 258)
-          (sp-item 872 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 202 :length 36)
-          (sp-item 872 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38)
-          (sp-item 872 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106)
-          (sp-item 872 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41)
-          (sp-item 873 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 300 :length 233 :offset 150)
-          (sp-item 873 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 202 :length 36 :offset 150)
-          (sp-item 873 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38 :offset 150)
-          (sp-item 873 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106 :offset 150)
-          (sp-item 873 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41 :offset 150)
-          (sp-item 874 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 300 :length 237 :offset 255)
-          (sp-item 874 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 202 :length 36 :offset 255)
-          (sp-item 874 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38 :offset 255)
-          (sp-item 874 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106 :offset 255)
-          (sp-item 874 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41 :offset 255)
-          (sp-item 875 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-          (sp-item 875 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-          (sp-item 875 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-          (sp-item 876 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 877 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 937 :length 75)
-          (sp-item 877 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1280 :length 96)
-          (sp-item 877 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1776 :length 60)
-          (sp-item 878 :fade-after (meters 100.0) :falloff-to (meters 120.0))
-          (sp-item 879 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1194 :length 75)
-          (sp-item 879 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1850 :length 96)
-          (sp-item 879 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1215 :length 60)
-          (sp-item 880 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 881 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 894 :length 75)
-          (sp-item 881 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1700 :length 96)
-          (sp-item 881 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1575 :length 60)
-          (sp-item 882 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 883 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 918 :length 75)
-          (sp-item 883 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1381 :length 96)
-          (sp-item 883 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1754 :length 60)
-          (sp-item 884 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 885 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1398 :length 75)
-          (sp-item 885 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 961 :length 96)
-          (sp-item 885 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1544 :length 60)
-          (sp-item 886 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 887 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-          (sp-item 887 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-          (sp-item 887 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-          (sp-item 888 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 889 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1194 :length 75)
-          (sp-item 889 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1850 :length 96)
-          (sp-item 889 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1215 :length 60)
-          (sp-item 890 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 891 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 894 :length 75)
-          (sp-item 891 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1700 :length 96)
-          (sp-item 891 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1575 :length 60)
-          (sp-item 892 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 893 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 937 :length 75)
-          (sp-item 893 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1280 :length 96)
-          (sp-item 893 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1776 :length 60)
-          (sp-item 894 :fade-after (meters 100.0) :falloff-to (meters 120.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 24576.0 :z 24576.0 :w 65536.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 894) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-flt spt-x (meters 3.8))
-                                   (sp-flt spt-y (meters 4.5))
-                                   (sp-flt spt-z 24576.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.006666667))
-                                   (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 893) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters 3.8))
-                                   (sp-flt spt-y (meters 4.5))
-                                   (sp-flt spt-z 24576.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.02))
-                                   (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 892) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-flt spt-x (meters -2.0))
-                                   (sp-flt spt-y (meters 4.7))
-                                   (sp-flt spt-z 27443.2)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-b -1.3066666)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 891) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 28
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters -2.0))
-                                   (sp-flt spt-y (meters 4.7))
-                                   (sp-flt spt-z 27443.2)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.01))
-                                   (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.21333334)
-                                   (sp-flt spt-fade-g 0.21333334)
-                                   (sp-flt spt-fade-b -0.6533333)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 890) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-flt spt-x (meters -6.5))
-                                   (sp-flt spt-y (meters 2.3))
-                                   (sp-flt spt-z 24166.4)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.013333334))
-                                   (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-b -1.3066666)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 889) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 30
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters -6.5))
-                                   (sp-flt spt-y (meters 2.3))
-                                   (sp-flt spt-z 24166.4)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.06666667))
-                                   (sp-rnd-flt spt-vel-z (meters 0.026666667) (meters 0.053333335) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.21333334)
-                                   (sp-flt spt-fade-g 0.21333334)
-                                   (sp-flt spt-fade-b -0.6533333)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 36)
-                                   (sp-launcher-by-id spt-next-launcher 895)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 888) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-flt spt-x (meters -6.3))
-                                   (sp-flt spt-y (meters 6.8))
-                                   (sp-flt spt-z 32768.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 887) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters -6.3))
-                                   (sp-flt spt-y (meters 6.8))
-                                   (sp-flt spt-z 32768.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 886) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-flt spt-x (meters 8.7))
-                                   (sp-flt spt-y (meters 6.8))
-                                   (sp-flt spt-z 10240.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-rnd-flt spt-vel-z (meters 0.0) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-b -1.3066666)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 885) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 28
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters 8.7))
-                                   (sp-flt spt-y (meters 6.8))
-                                   (sp-flt spt-z 10240.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.053333335) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-rnd-flt spt-vel-z (meters -0.01) (meters -0.01) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.21333334)
-                                   (sp-flt spt-fade-g 0.21333334)
-                                   (sp-flt spt-fade-b -0.6533333)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 884) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-flt spt-x (meters 6.9))
-                                   (sp-flt spt-y (meters 5.3))
-                                   (sp-flt spt-z -21299.2)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-rnd-flt spt-vel-z (meters -0.01) (meters -0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 883) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters 6.9))
-                                   (sp-flt spt-y (meters 5.3))
-                                   (sp-flt spt-z -21299.2)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.04) (meters 0.02) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.01))
-                                   (sp-rnd-flt spt-vel-z (meters -0.04) (meters -0.02) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 882) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-flt spt-x (meters 2.9))
-                                   (sp-flt spt-y (meters 8.9))
-                                   (sp-flt spt-z -30720.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.01))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-b -1.3066666)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 881) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 28
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters 2.9))
-                                   (sp-flt spt-y (meters 8.9))
-                                   (sp-flt spt-z -30720.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.016666668) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.025))
-                                   (sp-rnd-flt spt-vel-z (meters -0.026666667) (meters -0.053333335) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.21333334)
-                                   (sp-flt spt-fade-g 0.21333334)
-                                   (sp-flt spt-fade-b -0.6533333)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 880) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-flt spt-x (meters -7.7))
-                                   (sp-flt spt-y (meters 2.3))
-                                   (sp-flt spt-z -20889.6)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.013333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-b -1.3066666)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 879) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 30
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters -7.7))
-                                   (sp-flt spt-y (meters 2.3))
-                                   (sp-flt spt-z -20889.6)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.086666666))
-                                   (sp-rnd-flt spt-vel-z (meters -0.026666667) (meters -0.053333335) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.21333334)
-                                   (sp-flt spt-fade-g 0.21333334)
-                                   (sp-flt spt-fade-b -0.6533333)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 25)
-                                   (sp-launcher-by-id spt-next-launcher 895)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 895)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-vel-y (meters 0.0)) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 878) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-flt spt-x (meters -4.2))
-                                   (sp-flt spt-y (meters 10.9))
-                                   (sp-flt spt-z -22528.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.013333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 877) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters -4.2))
-                                   (sp-flt spt-y (meters 10.9))
-                                   (sp-flt spt-z -22528.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.06666667))
-                                   (sp-rnd-flt spt-vel-z (meters -0.026666667) (meters -0.053333335) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 876) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-flt spt-x (meters -8.2))
-                                   (sp-flt spt-y (meters 6.8))
-                                   (sp-flt spt-z -28672.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.42666668)
-                                   (sp-flt spt-fade-g 0.42666668)
-                                   (sp-flt spt-fade-b -1.3066666)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 875) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 28
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters -8.2))
-                                   (sp-flt spt-y (meters 6.8))
-                                   (sp-flt spt-z -28672.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r 0.21333334)
-                                   (sp-flt spt-fade-g 0.21333334)
-                                   (sp-flt spt-fade-b -0.6533333)
-                                   (sp-flt spt-fade-a -0.42666668)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 872) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 28
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-rnd-flt spt-x (meters -2.2) (meters 2.4) 1.0)
-                                   (sp-rnd-flt spt-y (meters 5.5) (meters 1.3) 1.0)
-                                   (sp-flt spt-z -30310.4)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 53.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 873) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 28
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-rnd-flt spt-x (meters -3.75) (meters 2.4) 1.0)
-                                   (sp-rnd-flt spt-y (meters 8.5) (meters 1.3) 1.0)
-                                   (sp-flt spt-z 24576.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.013333334))
-                                   (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 40.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 874) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 28
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                   (sp-rnd-flt spt-x (meters -10.5) (meters 0.8) 1.0)
-                                   (sp-flt spt-y (meters 1.3))
-                                   (sp-flt spt-z -5324.8)
-                                   (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.013333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 187)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-jungle-lurkermachine-1"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 896 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 300 :length 258)
-          (sp-item 896 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 202 :length 36)
-          (sp-item 896 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38)
-          (sp-item 896 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106)
-          (sp-item 896 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41)
-          (sp-item 897 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 300 :length 233 :offset 198)
-          (sp-item 897 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 202 :length 36 :offset 198)
-          (sp-item 897 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38 :offset 198)
-          (sp-item 897 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106 :offset 198)
-          (sp-item 897 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41 :offset 198)
-          (sp-item 898 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 300 :length 233 :offset 99)
-          (sp-item 898 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 202 :length 36 :offset 99)
-          (sp-item 898 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 38 :offset 99)
-          (sp-item 898 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 857 :length 106 :offset 99)
-          (sp-item 898 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1238 :length 41 :offset 99)
-          )
-        :bounds
-        (new 'static 'sphere :y 40960.0 :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 896) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 28
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-rnd-flt spt-x (meters 1.0) (meters 2.2) 1.0)
-                                   (sp-rnd-flt spt-y (meters 9.4) (meters 1.3) 1.0)
-                                   (sp-flt spt-z -27852.8)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 53.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 897) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 28
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.2) (meters 2.4) 1.0)
-                                   (sp-rnd-flt spt-y (meters 8.5) (meters 1.3) 1.0)
-                                   (sp-flt spt-z 29900.8)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.013333334))
-                                   (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 40.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 898) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 28
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                   (sp-flt spt-x (meters 4.4))
-                                   (sp-rnd-flt spt-y (meters 8.5) (meters 1.3) 1.0)
-                                   (sp-rnd-flt spt-z -4915.2 9830.4 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.013333334) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.013333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 40.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 833 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-rnd-flt spt-num 0.9 0.9 1.0)
+                           (sp-rnd-flt spt-x (meters -8) (meters 4) 1.0)
+                           (sp-flt spt-y (meters 47.5))
+                           (sp-rnd-flt spt-z (meters -3.5) (meters 7) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.06666667))
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0073242188))
+                           (sp-flt spt-scalevel-y (meters 0.029296875))
+                           (sp-flt spt-accel-x -3.7304192)
+                           (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                           (sp-int spt-timer 366)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 834 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.06)
+                           (sp-rnd-flt spt-x (meters 6) (meters 6) 1.0)
+                           (sp-flt spt-y (meters -6.5))
+                           (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+                           (sp-flt spt-scale-x (meters 12))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.033333335))
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.14222223)
+                           (sp-flt spt-accel-y 0.013653334)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 835 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters 4) (meters 8) 1.0)
+                           (sp-rnd-flt spt-y (meters -1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-z (meters -7) (meters 14) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.07666667))
+                           (sp-flt spt-fade-r -0.42666668)
+                           (sp-flt spt-fade-g -0.42666668)
+                           (sp-flt spt-fade-b -0.21333334)
+                           (sp-flt spt-fade-a -0.28444445)
+                           (sp-flt spt-accel-y -9.102222)
+                           (sp-int spt-timer 225)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 836 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -8) (meters 4) 1.0)
+                           (sp-flt spt-y (meters 47.5))
+                           (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00024414062))
+                           (sp-flt spt-scalevel-y (meters 0.001953125))
+                           (sp-flt spt-fade-a 0.0)
+                           (sp-flt spt-accel-x -2.5600002)
+                           (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                           (sp-int spt-timer 540)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 837 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.4 1.0)
+                           (sp-rnd-flt spt-x (meters -7) (meters 3.5) 1.0)
+                           (sp-flt spt-y (meters 47.5))
+                           (sp-rnd-flt spt-z (meters -4) (meters 8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.038333334))
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0146484375))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0146484375))
+                           (sp-flt spt-accel-x -1.189495)
+                           (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                           (sp-int spt-timer 660)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 838 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-rnd-flt spt-num 0.8 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -10) (meters 4) 1.0)
+                           (sp-flt spt-y (meters 20))
+                           (sp-rnd-flt spt-z (meters -5.5) (meters 8.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.06666667))
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0073242188))
+                           (sp-flt spt-scalevel-y (meters 0.029296875))
+                           (sp-flt spt-accel-x -3.7304192)
+                           (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 135.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 839 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.6 0.4 1.0)
+                           (sp-rnd-flt spt-x (meters -9) (meters 3.5) 1.0)
+                           (sp-flt spt-y (meters 20))
+                           (sp-rnd-flt spt-z (meters -5.5) (meters 8.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.038333334))
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0146484375))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0146484375))
+                           (sp-flt spt-accel-x -1.189495)
+                           (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-rotate-y (degrees 135.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 840 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -10) (meters 4) 1.0)
+                           (sp-flt spt-y (meters 20))
+                           (sp-rnd-flt spt-z (meters -6.5) (meters 11) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00024414062))
+                           (sp-flt spt-scalevel-y (meters 0.001953125))
+                           (sp-flt spt-fade-a 0.0)
+                           (sp-flt spt-accel-x -2.5600002)
+                           (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                           (sp-int spt-timer 330)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 135.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 841 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.06)
+                           (sp-rnd-flt spt-x (meters 0) (meters 6) 1.0)
+                           (sp-flt spt-y (meters -4.5))
+                           (sp-rnd-flt spt-z (meters -5.5) (meters 9.5) 1.0)
+                           (sp-flt spt-scale-x (meters 10))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.033333335))
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0055555557))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.17066666)
+                           (sp-flt spt-accel-y 0.013653334)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 750)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-rotate-y (degrees 135.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 842 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-rnd-flt spt-x (meters 1) (meters 7) 1.0)
+                           (sp-rnd-flt spt-y (meters -1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-z (meters -6) (meters 10) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.07666667))
+                           (sp-flt spt-fade-r -0.42666668)
+                           (sp-flt spt-fade-g -0.42666668)
+                           (sp-flt spt-fade-b -0.21333334)
+                           (sp-flt spt-fade-a -0.28444445)
+                           (sp-flt spt-accel-y -9.102222)
+                           (sp-int spt-timer 225)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 135.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 843 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-rnd-flt spt-num 1.0 0.6 1.0)
+                           (sp-rnd-flt spt-x (meters -9) (meters 4) 1.0)
+                           (sp-flt spt-y (meters 20))
+                           (sp-rnd-flt spt-z (meters -4.5) (meters 13.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.06666667))
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0073242188))
+                           (sp-flt spt-scalevel-y (meters 0.029296875))
+                           (sp-flt spt-accel-x -3.7304192)
+                           (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                           (sp-int spt-timer 225)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees -150.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 844 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.9 0.4 1.0)
+                           (sp-rnd-flt spt-x (meters -8) (meters 3.5) 1.0)
+                           (sp-flt spt-y (meters 20))
+                           (sp-rnd-flt spt-z (meters -4.5) (meters 13.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.038333334))
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0146484375))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0146484375))
+                           (sp-flt spt-accel-x -1.189495)
+                           (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                           (sp-int spt-timer 390)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-rotate-y (degrees -150.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 845 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -9) (meters 4) 1.0)
+                           (sp-flt spt-y (meters 20))
+                           (sp-rnd-flt spt-z (meters -4.5) (meters 13.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00024414062))
+                           (sp-flt spt-scalevel-y (meters 0.001953125))
+                           (sp-flt spt-fade-a 0.0)
+                           (sp-flt spt-accel-x -2.5600002)
+                           (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                           (sp-int spt-timer 270)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees -150.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 846 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.15)
+                           (sp-rnd-flt spt-x (meters 0) (meters 6) 1.0)
+                           (sp-flt spt-y (meters -3.4))
+                           (sp-rnd-flt spt-z (meters -5) (meters 14.5) 1.0)
+                           (sp-flt spt-scale-x (meters 10))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.033333335))
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0055555557))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-flt spt-accel-y 0.013653334)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-rotate-y (degrees -150.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 847 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 7) 1.0)
+                           (sp-rnd-flt spt-y (meters -1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-z (meters -5) (meters 14.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.07666667))
+                           (sp-flt spt-fade-r -0.42666668)
+                           (sp-flt spt-fade-g -0.42666668)
+                           (sp-flt spt-fade-b -0.21333334)
+                           (sp-flt spt-fade-a -0.28444445)
+                           (sp-flt spt-accel-y -9.102222)
+                           (sp-int spt-timer 225)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees -150.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 848 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-rnd-flt spt-num 0.8 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -12) (meters 4) 1.0)
+                           (sp-flt spt-y (meters 25))
+                           (sp-rnd-flt spt-z (meters -6.5) (meters 3.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.06666667))
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0073242188))
+                           (sp-flt spt-scalevel-y (meters 0.029296875))
+                           (sp-flt spt-accel-x -3.7304192)
+                           (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 135.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 849 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.6 0.4 1.0)
+                           (sp-rnd-flt spt-x (meters -11) (meters 3.5) 1.0)
+                           (sp-flt spt-y (meters 25))
+                           (sp-rnd-flt spt-z (meters -6.5) (meters 3.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.038333334))
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0146484375))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0146484375))
+                           (sp-flt spt-accel-x -1.189495)
+                           (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                           (sp-int spt-timer 450)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-rotate-y (degrees 135.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 850 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -12) (meters 4) 1.0)
+                           (sp-flt spt-y (meters 25))
+                           (sp-rnd-flt spt-z (meters -6.5) (meters 3.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00024414062))
+                           (sp-flt spt-scalevel-y (meters 0.001953125))
+                           (sp-flt spt-fade-a 0.0)
+                           (sp-flt spt-accel-x -2.5600002)
+                           (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                           (sp-int spt-timer 330)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 135.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 851 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.05)
+                           (sp-rnd-flt spt-x (meters -3) (meters 6) 1.0)
+                           (sp-flt spt-y (meters -4.5))
+                           (sp-rnd-flt spt-z (meters -7) (meters 4.5) 1.0)
+                           (sp-flt spt-scale-x (meters 10))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.033333335))
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0055555557))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-flt spt-accel-y 0.013653334)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-rotate-y (degrees 135.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 852 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -2) (meters 7) 1.0)
+                           (sp-rnd-flt spt-y (meters -1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-z (meters -6.5) (meters 3.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.07666667))
+                           (sp-flt spt-fade-r -0.42666668)
+                           (sp-flt spt-fade-g -0.42666668)
+                           (sp-flt spt-fade-b -0.21333334)
+                           (sp-flt spt-fade-a -0.28444445)
+                           (sp-flt spt-accel-y -9.102222)
+                           (sp-int spt-timer 225)
+                           (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 80.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 135.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-jungle-waterfall-1
+  :id 180
+  :flags (always-draw)
+  :bounds (static-bspherem 0 25 0 100)
+  :parts
+  ((sp-item 833)
+    (sp-item 833 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 834)
+    (sp-item 834 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 837 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 835 :fade-after (meters 70) :falloff-to (meters 70))
+    (sp-item 836 :fade-after (meters 70) :falloff-to (meters 70))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-jungle-waterfall-2
+  :id 181
+  :flags (always-draw)
+  :bounds (static-bspherem 2 9 4 90)
+  :parts
+  ((sp-item 838)
+    (sp-item 838 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 841)
+    (sp-item 841 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 839 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 842 :fade-after (meters 90))
+    (sp-item 840 :fade-after (meters 90))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-jungle-waterfall-3
+  :id 182
+  :flags (always-draw)
+  :bounds (static-bspherem 0 8 0 90)
+  :parts
+  ((sp-item 843)
+    (sp-item 843 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 846)
+    (sp-item 846 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 844)
+    (sp-item 847 :fade-after (meters 90))
+    (sp-item 845 :fade-after (meters 90))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-jungle-waterfall-4
+  :id 183
+  :flags (always-draw)
+  :bounds (static-bspherem 0 10 8 90)
+  :parts
+  ((sp-item 848)
+    (sp-item 848 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 851)
+    (sp-item 851 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 849 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 852 :fade-after (meters 90))
+    (sp-item 850 :fade-after (meters 90))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 853 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 0.1)
+                           (sp-rnd-flt spt-x (meters -70) (meters 100) 1.0)
+                           (sp-rnd-flt spt-y (meters 3.5) (meters 4) 1.0)
+                           (sp-rnd-flt spt-z (meters -30) (meters 52.5) 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 96.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-int-flt spt-vel-x (meters -0.005) 1 40.96)
+                           (sp-flt spt-vel-y (meters 0.0013333333))
+                           (sp-rnd-int-flt spt-vel-z (meters -0.005) 1 40.96)
+                           (sp-flt spt-fade-a 0.85333335)
+                           (sp-int spt-timer 3300)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 854)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 854 :init-specs ((sp-flt spt-scalevel-x (meters 0))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.0)
+                           (sp-flt spt-fade-g 0.0)
+                           (sp-flt spt-fade-a 0.0)
+                           (sp-flt spt-accel-y -0.20480001)
+                           (sp-int spt-next-time 600)
+                           (sp-launcher-by-id spt-next-launcher 855)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 855 :init-specs ((sp-flt spt-scalevel-x (meters -0.0023333333))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.64)
+                           (sp-flt spt-fade-g -0.85333335)
+                           (sp-flt spt-accel-y 0.20480001)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 856)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 856 :init-specs ((sp-flt spt-scalevel-x (meters 0))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.0)
+                           (sp-flt spt-fade-g 0.0)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 857)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 857 :init-specs ((sp-flt spt-scalevel-x (meters 0.0023333333))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.64)
+                           (sp-flt spt-fade-g 0.85333335)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 858)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 858 :init-specs ((sp-flt spt-scalevel-x (meters 0))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.0)
+                           (sp-flt spt-fade-g 0.0)
+                           (sp-flt spt-fade-a 0.0)
+                           (sp-flt spt-accel-y -0.20480001)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 859)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 859 :init-specs ((sp-flt spt-scalevel-x (meters -0.0023333333))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.64)
+                           (sp-flt spt-fade-g -0.85333335)
+                           (sp-flt spt-accel-y 0.20480001)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 860)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 860 :init-specs ((sp-flt spt-scalevel-x (meters 0))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.0)
+                           (sp-flt spt-fade-g 0.0)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 861)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 861 :init-specs ((sp-flt spt-scalevel-x (meters 0.0023333333))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.64)
+                           (sp-flt spt-fade-g 0.85333335)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 862)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 862 :init-specs ((sp-flt spt-scalevel-x (meters 0))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.0)
+                           (sp-flt spt-fade-g 0.0)
+                           (sp-flt spt-fade-a 0.0)
+                           (sp-flt spt-accel-y -0.20480001)
+                           (sp-int spt-next-time 600)
+                           (sp-launcher-by-id spt-next-launcher 863)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 863 :init-specs ((sp-flt spt-scalevel-x (meters 0))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.0)
+                           (sp-flt spt-fade-g 0.0)
+                           (sp-flt spt-fade-a -0.8)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 864 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.02)
+                           (sp-rnd-flt spt-x (meters -55) (meters 75) 1.0)
+                           (sp-flt spt-y (meters 28))
+                           (sp-rnd-flt spt-z (meters -35) (meters 60) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 15) (meters 15) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees -120.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 2) (meters 2) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.0007324219))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.0033333332) (degrees 0.0066666664) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0007324219))
+                           (sp-flt spt-fade-a 0.02)
+                           (sp-int spt-timer 2400)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 1200)
+                           (sp-launcher-by-id spt-next-launcher 865)
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 865 :init-specs ((sp-flt spt-fade-a -0.02)))
+
+;; failed to figure out what this is:
+(defpartgroup group-jungle-dapple-light-1
+  :id 184
+  :bounds (static-bspherem 0 0 0 55)
+  :parts
+  ((sp-item 864 :hour-mask #b111111100000000000111111)
+    (sp-item 853 :fade-after (meters 130) :falloff-to (meters 160) :hour-mask #b11111111111000000)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-jungle-tower-spewer
+  :id 185
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 866 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 866 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 867 :fade-after (meters 300) :falloff-to (meters 300))
+    (sp-item 868 :fade-after (meters 400) :falloff-to (meters 400))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 866 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                           (sp-rnd-flt spt-num 0.25 1.0 1.0)
+                           (sp-rnd-flt spt-y (meters 1.6) (meters 2) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 5) (meters 1) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-flt spt-rot-z (degrees -90.0))
+                           (sp-rnd-flt spt-scale-y (meters 1) (meters 0.7) 1.0)
+                           (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -0.8)
+                           (sp-int spt-timer 180)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 20)
+                           (sp-launcher-by-id spt-next-launcher 869)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 5) (meters 2) 1.0)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 869 :init-specs ((sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-fade-r -0.4)
+                           (sp-flt spt-fade-g -0.4)
+                           (sp-flt spt-fade-a -0.93333334)
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 867 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-rnd-flt spt-num 1.0 2.5 1.0)
+                           (sp-flt spt-y (meters 0.75))
+                           (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 6.5) (meters 1) 1.0)
+                           (sp-flt spt-r 32.0)
+                           (sp-rnd-flt spt-g 32.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                           (sp-flt spt-fade-a -1.28)
+                           (sp-int spt-timer 75)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 7))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 868 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-rnd-flt spt-num 0.1 1.25 1.0)
+                           (sp-flt spt-y (meters 0.75))
+                           (sp-rnd-flt spt-scale-x (meters 3.5) (meters 2) 1.0)
+                           (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
+                           (sp-rnd-flt spt-scale-y (meters 6.5) (meters 1.25) 1.0)
+                           (sp-flt spt-r 32.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 128.0 64.0 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a -0.64)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 7))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 870 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-flt spt-y (meters 0.75))
+                           (sp-flt spt-scale-x (meters 4))
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 0.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 0.35555556)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 871)
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 871 :init-specs ((sp-flt spt-fade-a -0.53333336)))
+
+;; failed to figure out what this is:
+(defpartgroup group-jungle-lurkermachine-3
+  :id 186
+  :bounds (static-bspherem 0 6 6 16)
+  :parts
+  ((sp-item 872 :fade-after (meters 140) :falloff-to (meters 160) :period 300 :length 258)
+    (sp-item 872 :fade-after (meters 140) :falloff-to (meters 160) :period 202 :length 36)
+    (sp-item 872 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38)
+    (sp-item 872 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106)
+    (sp-item 872 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41)
+    (sp-item 873 :fade-after (meters 100) :falloff-to (meters 120) :period 300 :length 233 :offset 150)
+    (sp-item 873 :fade-after (meters 100) :falloff-to (meters 120) :period 202 :length 36 :offset 150)
+    (sp-item 873 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38 :offset 150)
+    (sp-item 873 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106 :offset 150)
+    (sp-item 873 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41 :offset 150)
+    (sp-item 874 :fade-after (meters 100) :falloff-to (meters 120) :period 300 :length 237 :offset 255)
+    (sp-item 874 :fade-after (meters 100) :falloff-to (meters 120) :period 202 :length 36 :offset 255)
+    (sp-item 874 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38 :offset 255)
+    (sp-item 874 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106 :offset 255)
+    (sp-item 874 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41 :offset 255)
+    (sp-item 875 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 875 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 875 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 876 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 877 :fade-after (meters 100) :falloff-to (meters 120) :period 937 :length 75)
+    (sp-item 877 :fade-after (meters 100) :falloff-to (meters 120) :period 1280 :length 96)
+    (sp-item 877 :fade-after (meters 140) :falloff-to (meters 160) :period 1776 :length 60)
+    (sp-item 878 :fade-after (meters 100) :falloff-to (meters 120))
+    (sp-item 879 :fade-after (meters 100) :falloff-to (meters 120) :period 1194 :length 75)
+    (sp-item 879 :fade-after (meters 140) :falloff-to (meters 160) :period 1850 :length 96)
+    (sp-item 879 :fade-after (meters 100) :falloff-to (meters 120) :period 1215 :length 60)
+    (sp-item 880 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 881 :fade-after (meters 100) :falloff-to (meters 120) :period 894 :length 75)
+    (sp-item 881 :fade-after (meters 140) :falloff-to (meters 160) :period 1700 :length 96)
+    (sp-item 881 :fade-after (meters 100) :falloff-to (meters 120) :period 1575 :length 60)
+    (sp-item 882 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 883 :fade-after (meters 100) :falloff-to (meters 120) :period 918 :length 75)
+    (sp-item 883 :fade-after (meters 100) :falloff-to (meters 120) :period 1381 :length 96)
+    (sp-item 883 :fade-after (meters 140) :falloff-to (meters 160) :period 1754 :length 60)
+    (sp-item 884 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 885 :fade-after (meters 100) :falloff-to (meters 120) :period 1398 :length 75)
+    (sp-item 885 :fade-after (meters 100) :falloff-to (meters 120) :period 961 :length 96)
+    (sp-item 885 :fade-after (meters 140) :falloff-to (meters 160) :period 1544 :length 60)
+    (sp-item 886 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 887 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 887 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 887 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 888 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 889 :fade-after (meters 100) :falloff-to (meters 120) :period 1194 :length 75)
+    (sp-item 889 :fade-after (meters 140) :falloff-to (meters 160) :period 1850 :length 96)
+    (sp-item 889 :fade-after (meters 100) :falloff-to (meters 120) :period 1215 :length 60)
+    (sp-item 890 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 891 :fade-after (meters 100) :falloff-to (meters 120) :period 894 :length 75)
+    (sp-item 891 :fade-after (meters 140) :falloff-to (meters 160) :period 1700 :length 96)
+    (sp-item 891 :fade-after (meters 100) :falloff-to (meters 120) :period 1575 :length 60)
+    (sp-item 892 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 893 :fade-after (meters 100) :falloff-to (meters 120) :period 937 :length 75)
+    (sp-item 893 :fade-after (meters 100) :falloff-to (meters 120) :period 1280 :length 96)
+    (sp-item 893 :fade-after (meters 140) :falloff-to (meters 160) :period 1776 :length 60)
+    (sp-item 894 :fade-after (meters 100) :falloff-to (meters 120))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 894 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-flt spt-x (meters 3.8))
+                           (sp-flt spt-y (meters 4.5))
+                           (sp-flt spt-z (meters 6))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.006666667))
+                           (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 893 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters 3.8))
+                           (sp-flt spt-y (meters 4.5))
+                           (sp-flt spt-z (meters 6))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.02))
+                           (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 892 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-flt spt-x (meters -2))
+                           (sp-flt spt-y (meters 4.7))
+                           (sp-flt spt-z (meters 6.7))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-b -1.3066666)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 891 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters -2))
+                           (sp-flt spt-y (meters 4.7))
+                           (sp-flt spt-z (meters 6.7))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.01))
+                           (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.21333334)
+                           (sp-flt spt-fade-g 0.21333334)
+                           (sp-flt spt-fade-b -0.6533333)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 890 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-flt spt-x (meters -6.5))
+                           (sp-flt spt-y (meters 2.3))
+                           (sp-flt spt-z (meters 5.9))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.013333334))
+                           (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-b -1.3066666)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 889 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters -6.5))
+                           (sp-flt spt-y (meters 2.3))
+                           (sp-flt spt-z (meters 5.9))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.06666667))
+                           (sp-rnd-flt spt-vel-z (meters 0.026666667) (meters 0.053333335) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.21333334)
+                           (sp-flt spt-fade-g 0.21333334)
+                           (sp-flt spt-fade-b -0.6533333)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 36)
+                           (sp-launcher-by-id spt-next-launcher 895)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 888 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-flt spt-x (meters -6.3))
+                           (sp-flt spt-y (meters 6.8))
+                           (sp-flt spt-z (meters 8))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 887 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters -6.3))
+                           (sp-flt spt-y (meters 6.8))
+                           (sp-flt spt-z (meters 8))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 886 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-flt spt-x (meters 8.7))
+                           (sp-flt spt-y (meters 6.8))
+                           (sp-flt spt-z (meters 2.5))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-rnd-flt spt-vel-z (meters 0) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-b -1.3066666)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 885 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters 8.7))
+                           (sp-flt spt-y (meters 6.8))
+                           (sp-flt spt-z (meters 2.5))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.053333335) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-rnd-flt spt-vel-z (meters -0.01) (meters -0.01) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.21333334)
+                           (sp-flt spt-fade-g 0.21333334)
+                           (sp-flt spt-fade-b -0.6533333)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 884 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-flt spt-x (meters 6.9))
+                           (sp-flt spt-y (meters 5.3))
+                           (sp-flt spt-z (meters -5.2))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-rnd-flt spt-vel-z (meters -0.01) (meters -0.0033333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 883 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters 6.9))
+                           (sp-flt spt-y (meters 5.3))
+                           (sp-flt spt-z (meters -5.2))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.04) (meters 0.02) 1.0)
+                           (sp-flt spt-vel-y (meters -0.01))
+                           (sp-rnd-flt spt-vel-z (meters -0.04) (meters -0.02) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 882 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-flt spt-x (meters 2.9))
+                           (sp-flt spt-y (meters 8.9))
+                           (sp-flt spt-z (meters -7.5))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0.01))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.0033333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-b -1.3066666)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 881 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters 2.9))
+                           (sp-flt spt-y (meters 8.9))
+                           (sp-flt spt-z (meters -7.5))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.016666668) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0.025))
+                           (sp-rnd-flt spt-vel-z (meters -0.026666667) (meters -0.053333335) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.21333334)
+                           (sp-flt spt-fade-g 0.21333334)
+                           (sp-flt spt-fade-b -0.6533333)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 880 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-flt spt-x (meters -7.7))
+                           (sp-flt spt-y (meters 2.3))
+                           (sp-flt spt-z (meters -5.1))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.013333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.0033333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-b -1.3066666)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 879 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters -7.7))
+                           (sp-flt spt-y (meters 2.3))
+                           (sp-flt spt-z (meters -5.1))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.086666666))
+                           (sp-rnd-flt spt-vel-z (meters -0.026666667) (meters -0.053333335) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.21333334)
+                           (sp-flt spt-fade-g 0.21333334)
+                           (sp-flt spt-fade-b -0.6533333)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 25)
+                           (sp-launcher-by-id spt-next-launcher 895)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 895 :init-specs ((sp-flt spt-vel-y (meters 0))))
+
+;; failed to figure out what this is:
+(defpart 878 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-flt spt-x (meters -4.2))
+                           (sp-flt spt-y (meters 10.9))
+                           (sp-flt spt-z (meters -5.5))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0.013333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.0033333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 877 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters -4.2))
+                           (sp-flt spt-y (meters 10.9))
+                           (sp-flt spt-z (meters -5.5))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0.06666667))
+                           (sp-rnd-flt spt-vel-z (meters -0.026666667) (meters -0.053333335) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 876 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-flt spt-x (meters -8.2))
+                           (sp-flt spt-y (meters 6.8))
+                           (sp-flt spt-z (meters -7))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.0033333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.42666668)
+                           (sp-flt spt-fade-g 0.42666668)
+                           (sp-flt spt-fade-b -1.3066666)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 875 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters -8.2))
+                           (sp-flt spt-y (meters 6.8))
+                           (sp-flt spt-z (meters -7))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r 0.21333334)
+                           (sp-flt spt-fade-g 0.21333334)
+                           (sp-flt spt-fade-b -0.6533333)
+                           (sp-flt spt-fade-a -0.42666668)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 872 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-rnd-flt spt-x (meters -2.2) (meters 2.4) 1.0)
+                           (sp-rnd-flt spt-y (meters 5.5) (meters 1.3) 1.0)
+                           (sp-flt spt-z (meters -7.4))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 53.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 873 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-rnd-flt spt-x (meters -3.75) (meters 2.4) 1.0)
+                           (sp-rnd-flt spt-y (meters 8.5) (meters 1.3) 1.0)
+                           (sp-flt spt-z (meters 6))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0.013333334))
+                           (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 40.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 874 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                           (sp-rnd-flt spt-x (meters -10.5) (meters 0.8) 1.0)
+                           (sp-flt spt-y (meters 1.3))
+                           (sp-flt spt-z (meters -1.3))
+                           (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.013333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpartgroup group-jungle-lurkermachine-1
+  :id 187
+  :bounds (static-bspherem 0 10 0 12)
+  :parts
+  ((sp-item 896 :fade-after (meters 140) :falloff-to (meters 160) :period 300 :length 258)
+    (sp-item 896 :fade-after (meters 140) :falloff-to (meters 160) :period 202 :length 36)
+    (sp-item 896 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38)
+    (sp-item 896 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106)
+    (sp-item 896 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41)
+    (sp-item 897 :fade-after (meters 100) :falloff-to (meters 120) :period 300 :length 233 :offset 198)
+    (sp-item 897 :fade-after (meters 100) :falloff-to (meters 120) :period 202 :length 36 :offset 198)
+    (sp-item 897 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38 :offset 198)
+    (sp-item 897 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106 :offset 198)
+    (sp-item 897 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41 :offset 198)
+    (sp-item 898 :fade-after (meters 100) :falloff-to (meters 120) :period 300 :length 233 :offset 99)
+    (sp-item 898 :fade-after (meters 100) :falloff-to (meters 120) :period 202 :length 36 :offset 99)
+    (sp-item 898 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 38 :offset 99)
+    (sp-item 898 :fade-after (meters 100) :falloff-to (meters 120) :period 857 :length 106 :offset 99)
+    (sp-item 898 :fade-after (meters 100) :falloff-to (meters 120) :period 1238 :length 41 :offset 99)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 896 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-rnd-flt spt-x (meters 1) (meters 2.2) 1.0)
+                           (sp-rnd-flt spt-y (meters 9.4) (meters 1.3) 1.0)
+                           (sp-flt spt-z (meters -6.8))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 53.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 897 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-rnd-flt spt-x (meters -1.2) (meters 2.4) 1.0)
+                           (sp-rnd-flt spt-y (meters 8.5) (meters 1.3) 1.0)
+                           (sp-flt spt-z (meters 7.3))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters 0.013333334))
+                           (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 40.0))
+                           )
+             )
+
+;; failed to figure out what this is:
+(defpart 898 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                           (sp-flt spt-x (meters 4.4))
+                           (sp-rnd-flt spt-y (meters 8.5) (meters 1.3) 1.0)
+                           (sp-rnd-flt spt-z (meters -1.2) (meters 2.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.013333334) (meters 0.026666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.013333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 40.0))
+                           )
+             )
diff --git a/test/decompiler/reference/levels/jungle/junglesnake_REF.gc b/test/decompiler/reference/levels/jungle/junglesnake_REF.gc
index fb9cbf0bd5..a7cc22c926 100644
--- a/test/decompiler/reference/levels/jungle/junglesnake_REF.gc
+++ b/test/decompiler/reference/levels/jungle/junglesnake_REF.gc
@@ -11,47 +11,36 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 173)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-junglesnake-dropping-down"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 799 :period 300 :length 150))
-        :bounds
-        (new 'static 'sphere :y -49152.0 :w 57344.0)
-        )
-      )
+(defpartgroup group-junglesnake-dropping-down
+  :id 173
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 799 :period 300 :length 150))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 799) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 18.0) 1.0)
-                                   (sp-flt spt-y (meters -6.0))
-                                   (sp-rnd-flt spt-z -36864.0 73728.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 40.0 1.0)
-                                   (sp-rnd-flt spt-g 32.0 40.0 1.0)
-                                   (sp-rnd-flt spt-b 32.0 40.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0) (meters -0.04) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
-                                   (sp-int spt-timer 390)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-water-level-drop)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 799 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -9) (meters 18) 1.0)
+                           (sp-flt spt-y (meters -6))
+                           (sp-rnd-flt spt-z (meters -9) (meters 18) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 40.0 1.0)
+                           (sp-rnd-flt spt-g 32.0 40.0 1.0)
+                           (sp-rnd-flt spt-b 32.0 40.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0) (meters -0.04) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
+                           (sp-int spt-timer 390)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-water-level-drop)
+                           )
+             )
 
 ;; definition of type junglesnake-twist-joint
 (deftype junglesnake-twist-joint (structure)
diff --git a/test/decompiler/reference/levels/jungleb/jungleb-obs_REF.gc b/test/decompiler/reference/levels/jungleb/jungleb-obs_REF.gc
index 3ac25c8f27..6a6856b066 100644
--- a/test/decompiler/reference/levels/jungleb/jungleb-obs_REF.gc
+++ b/test/decompiler/reference/levels/jungleb/jungleb-obs_REF.gc
@@ -37,216 +37,158 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 189) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-jungle-blue-eco-room-open"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 899 :fade-after (meters 110.0))
-                                         (sp-item 900 :fade-after (meters 110.0))
-                                         (sp-item 901 :fade-after (meters 110.0))
-                                         (sp-item 902 :fade-after (meters 110.0))
-                                         (sp-item 903 :fade-after (meters 110.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -24576.0 :w 32768.0)
-                                       )
-      )
+(defpartgroup group-jungle-blue-eco-room-open
+  :id 189
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 899 :fade-after (meters 110))
+    (sp-item 900 :fade-after (meters 110))
+    (sp-item 901 :fade-after (meters 110))
+    (sp-item 902 :fade-after (meters 110))
+    (sp-item 903 :fade-after (meters 110))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 190) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :name "group-jungle-blue-eco-room-activate"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 903)
-                                         (sp-item 903)
-                                         (sp-item 904 :flags (bit1) :period 1200 :length 15)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -24576.0 :w 32768.0)
-                                       )
-      )
+(defpartgroup group-jungle-blue-eco-room-activate
+  :id 190
+  :duration 900
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 903) (sp-item 903) (sp-item 904 :flags (bit1) :period 1200 :length 15))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 904) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 30.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 20.0) (meters 10.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 5.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-r 0.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 16.0 32.0 1.0)
-                                   (sp-flt spt-b 127.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.05) (degrees 0.1) 1.0)
-                                   (sp-flt spt-fade-a 0.85333335)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 905)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 904 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 30.0)
+                           (sp-flt spt-y (meters -4))
+                           (sp-rnd-flt spt-scale-x (meters 20) (meters 10) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 5) (meters 2) 1.0)
+                           (sp-rnd-flt spt-r 0.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 16.0 32.0 1.0)
+                           (sp-flt spt-b 127.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.05) (degrees 0.1) 1.0)
+                           (sp-flt spt-fade-a 0.85333335)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 905)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 905)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 906)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 905
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 225) (sp-launcher-by-id spt-next-launcher 906))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 906)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
+(defpart 906 :init-specs ((sp-flt spt-fade-a -0.14222223)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 899) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 8.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 899 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters -4))
+                           (sp-rnd-flt spt-scale-x (meters 10) (meters 2) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 8) (meters 2) 1.0)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 900) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 900 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters -4))
+                           (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 901) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees -30.0) (degrees 60.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 907)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 901 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                           (sp-rnd-flt spt-num 0.5 1.0 1.0)
+                           (sp-flt spt-y (meters -4))
+                           (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees -30.0) (degrees 60.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.6)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 907)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 907)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -1.0)
-                                                     (sp-flt spt-fade-g -1.0)
-                                                     (sp-flt spt-fade-a -2.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 907 :init-specs ((sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-fade-r -1.0)
+                           (sp-flt spt-fade-g -1.0)
+                           (sp-flt spt-fade-a -2.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 902) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                   (sp-flt spt-y (meters -4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 150.0) (degrees 60.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 907)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 902 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                           (sp-rnd-flt spt-num 0.5 1.0 1.0)
+                           (sp-flt spt-y (meters -4))
+                           (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 150.0) (degrees 60.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.6)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 907)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 903) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                   (sp-rnd-flt spt-y (meters -6.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees -140.0) (degrees 100.00001) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -1.6)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 10)
-                                   (sp-launcher-by-id spt-next-launcher 907)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 80.0) (degrees 200.00002) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 4.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 903 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-rnd-flt spt-y (meters -6.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 6) (meters 2) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees -140.0) (degrees 100.00001) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -1.6)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 10)
+                           (sp-launcher-by-id spt-next-launcher 907)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 80.0) (degrees 200.00002) 1.0)
+                           (sp-flt spt-conerot-radius (meters 4))
+                           )
+             )
 
 ;; failed to figure out what this is:
 (defstate eggtop-idle (eggtop)
diff --git a/test/decompiler/reference/levels/lavatube/lavatube-energy_REF.gc b/test/decompiler/reference/levels/lavatube/lavatube-energy_REF.gc
index f2e40fe4a9..37860ab237 100644
--- a/test/decompiler/reference/levels/lavatube/lavatube-energy_REF.gc
+++ b/test/decompiler/reference/levels/lavatube/lavatube-energy_REF.gc
@@ -2,468 +2,359 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 544) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-energyarm"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1931 :fade-after (meters 120.0))
-                                         (sp-item 2167 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 16384.0)
-                                       )
-      )
+(defpartgroup group-energyarm
+  :id 544
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1931 :fade-after (meters 120)) (sp-item 2167 :fade-after (meters 60) :falloff-to (meters 60)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1931) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.016666668))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.0666667)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1931 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.016666668))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.0666667)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2167) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 8.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00055555557))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.2)
-                                    (sp-flt spt-fade-b -0.2)
-                                    (sp-flt spt-fade-a -0.6)
-                                    (sp-flt spt-accel-y -6.826667)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int-plain-rnd spt-timer 30 149 1)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2167 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 8.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00055555557))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.2)
+                            (sp-flt spt-fade-b -0.2)
+                            (sp-flt spt-fade-a -0.6)
+                            (sp-flt spt-accel-y -6.826667)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int-plain-rnd spt-timer 30 149 1)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 545) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-energyball-always"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 2168 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         (sp-item 2169 :fade-after (meters 120.0))
-                                         (sp-item 2170 :fade-after (meters 120.0))
-                                         (sp-item 2171 :fade-after (meters 120.0) :flags (is-3d))
-                                         (sp-item 2172 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         (sp-item 2173 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 2174 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 2175 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-energyball-always
+  :id 545
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2168 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 2169 :fade-after (meters 120))
+    (sp-item 2170 :fade-after (meters 120))
+    (sp-item 2171 :fade-after (meters 120) :flags (is-3d))
+    (sp-item 2172 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 2173 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 2174 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 2175 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2168) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters -5.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 24.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-fade-a 0.35555556)
-                                    (sp-rnd-flt spt-accel-y -1.6384 -1.6384 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int-plain-rnd spt-timer 120 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 119 1)
-                                    (sp-launcher-by-id spt-next-launcher 2176)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 90.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2168 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-y (meters -5.5))
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 24.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                            (sp-flt spt-fade-a 0.35555556)
+                            (sp-rnd-flt spt-accel-y -1.6384 -1.6384 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int-plain-rnd spt-timer 120 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 119 1)
+                            (sp-launcher-by-id spt-next-launcher 2176)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 90.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2176)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-scale-x (meters 1.2))
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-a 48.0)
-                                                     (sp-int spt-timer 5)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2176 :init-specs ((sp-flt spt-scale-x (meters 1.2))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 48.0)
+                            (sp-int spt-timer 5)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2177) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int-plain-rnd spt-timer 10 41 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 10 41 1)
-                                    (sp-launcher-by-id spt-next-launcher 2176)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 5.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2177 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int-plain-rnd spt-timer 10 41 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 10 41 1)
+                            (sp-launcher-by-id spt-next-launcher 2176)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 5.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2169) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -5.5))
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 24.0))
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2169 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -5.5))
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+                            (sp-flt spt-scale-y (meters 24))
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2170) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -5.5))
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2170 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -5.5))
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2171) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -5.0))
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.040404037))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.12121211)
-                                    (sp-int spt-timer 198)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2171 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -5))
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.040404037))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.12121211)
+                            (sp-int spt-timer 198)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2172) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-y (meters -5.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-rnd-flt spt-rot-z (degrees 70.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.85333335))
-                                    (sp-flt spt-fade-g -3.2666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2172 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-flt spt-y (meters -5.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-rnd-flt spt-rot-z (degrees 70.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.85333335))
+                            (sp-flt spt-fade-g -3.2666667)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2173) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -6.4)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 2178)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2173 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 196.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -6.4)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 2178)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2178)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-fade-g -4.266667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2178 :init-specs ((sp-flt spt-b 0.0) (sp-flt spt-a 64.0) (sp-flt spt-fade-g -4.266667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2174) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -6.4)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 2178)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2174 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 196.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -6.4)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 2178)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2175) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -6.4)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 2178)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2175 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 196.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -6.4)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 2178)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 546) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-energyball-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2179 :period 600 :length 5)
-                                         (sp-item 2180 :period 600 :length 40)
-                                         (sp-item 2181 :period 600 :length 20)
-                                         (sp-item 2182 :period 600 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 184320.0)
-                                       )
-      )
+(defpartgroup group-energyball-explode
+  :id 546
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 45)
+  :parts
+  ((sp-item 2179 :period 600 :length 5)
+    (sp-item 2180 :period 600 :length 40)
+    (sp-item 2181 :period 600 :length 20)
+    (sp-item 2182 :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2180) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.26666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2183)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2180 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.26666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2183)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2183)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2183 :init-specs ((sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2182) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 24.0))
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.6666666))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2182 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.4))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 24))
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.6666666))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2179) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 40.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2179 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 40))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2181) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.02))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.13653333 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2181 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.02))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.13653333 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 6) 1.0)
+                            )
+              )
 
 ;; definition of type energydoor
 (deftype energydoor (process-drawable)
diff --git a/test/decompiler/reference/levels/lavatube/lavatube-obs_REF.gc b/test/decompiler/reference/levels/lavatube/lavatube-obs_REF.gc
index bd53a04503..a2a2214ae2 100644
--- a/test/decompiler/reference/levels/lavatube/lavatube-obs_REF.gc
+++ b/test/decompiler/reference/levels/lavatube/lavatube-obs_REF.gc
@@ -257,269 +257,225 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 540)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-darkecobarrel-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1932 :period 15 :length 5))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-darkecobarrel-hit
+  :id 540
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1932 :period 15 :length 5))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1932)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 4.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.14222223)
-                                                     (sp-rnd-flt spt-accel-y -0.34133333 -0.34133333 1.0)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1932 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.02))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.14222223)
+                            (sp-rnd-flt spt-accel-y -0.34133333 -0.34133333 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 541)
-      (new 'static 'sparticle-launch-group
-        :length 69
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-darkecobarrel-explode"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 69
-          (sp-item 2125 :period 600 :length 5)
-          (sp-item 2126 :period 600 :length 40)
-          (sp-item 2127 :period 600 :length 20)
-          (sp-item 2128 :period 600 :length 20)
-          (sp-item 2166 :fade-after (meters 100.0) :period 600 :length 20 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-darkecobarrel-explode
+  :id 541
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2125 :period 600 :length 5)
+    (sp-item 2126 :period 600 :length 40)
+    (sp-item 2127 :period 600 :length 20)
+    (sp-item 2128 :period 600 :length 20)
+    (sp-item 2166 :fade-after (meters 100) :period 600 :length 20 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2166) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2166 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 240)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2126) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2129)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2126 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2129)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2129)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2129 :init-specs ((sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2128) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 16.0))
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2128 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.4))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 16))
+                            (sp-rnd-flt spt-r 64.0 192.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.04))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2125) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 32.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2125 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 32))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 192.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2127)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2127 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.02))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 6) 1.0)
+                            )
+              )
 
 ;; definition of type darkecobarrel-leak
 (deftype darkecobarrel-leak (structure)
@@ -1292,181 +1248,135 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 542) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-chainmine-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2132 :period 600 :length 5)
-                                         (sp-item 2133 :period 600 :length 40)
-                                         (sp-item 2134 :period 600 :length 20)
-                                         (sp-item 2135 :period 600 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-chainmine-explode
+  :id 542
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2132 :period 600 :length 5)
+    (sp-item 2133 :period 600 :length 40)
+    (sp-item 2134 :period 600 :length 20)
+    (sp-item 2135 :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2133) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-b -1.4222223)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2136)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2133 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-b -1.4222223)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2136)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2136)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2136
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2135) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 16.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-g -3.2666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2135 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.4))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 16))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.04))
+                            (sp-flt spt-fade-g -3.2666667)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2132) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 32.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2132 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 32))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2134)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 24
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2137)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2134 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.02))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2137)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2137)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -1.0666667)
-                                                     (sp-flt spt-fade-g -1.0666667)
-                                                     (sp-flt spt-fade-b -2.1166666)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2138)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2137 :init-specs ((sp-flt spt-fade-r -1.0666667)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b -2.1166666)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2138)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2138)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.5688889)
-                                                     (sp-flt spt-fade-g -0.28444445)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 2139)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2138 :init-specs ((sp-flt spt-fade-r -0.5688889)
+                            (sp-flt spt-fade-g -0.28444445)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-int spt-next-time 225)
+                            (sp-launcher-by-id spt-next-launcher 2139)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2139)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2139 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
 (defskelgroup *chainmine-sg* chainmine
@@ -1656,90 +1566,73 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 543)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x5dc
-        :name "group-lavaballoon"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 1987) (sp-item 1988) (sp-item 1989))
-        :bounds (new 'static 'sphere :w 61440.0)
-        )
-      )
+(defpartgroup group-lavaballoon
+  :id 543
+  :duration 5
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 1987) (sp-item 1988) (sp-item 1989))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1988)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 8.0)
-                                                     (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1988 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 96.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1989)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-flt spt-y (meters 2.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 96.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.08) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-friction 0.98)
-                                                     (sp-int spt-timer 75)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 1.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1989 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 96.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.08) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 75)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 1.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1987) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 80.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -0.08)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1987 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 80.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-flt spt-fade-a -0.08)
+                            (sp-int spt-timer 15)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate die (lavaballoon)
diff --git a/test/decompiler/reference/levels/lavatube/lavatube-part_REF.gc b/test/decompiler/reference/levels/lavatube/lavatube-part_REF.gc
index ca14441007..8f8797aab9 100644
--- a/test/decompiler/reference/levels/lavatube/lavatube-part_REF.gc
+++ b/test/decompiler/reference/levels/lavatube/lavatube-part_REF.gc
@@ -19,496 +19,250 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 616) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lavatube-crust-20x20"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2489 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 57344.0)
-                                       )
-      )
+(defpartgroup group-lavatube-crust-20x20
+  :id 616
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 2489 :fade-after (meters 140) :falloff-to (meters 140)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 617) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lavatube-lowlava-20x20"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2490 :fade-after (meters 190.0) :falloff-to (meters 190.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 49152.0 :w 196608.0)
-                                       )
-      )
+(defpartgroup group-lavatube-lowlava-20x20
+  :id 617
+  :bounds (static-bspherem 0 12 0 48)
+  :parts
+  ((sp-item 2490 :fade-after (meters 190) :falloff-to (meters 190)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2490)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.1)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                                     (sp-flt spt-y (meters 3.0))
-                                                     (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.6564103)
-                                                     (sp-flt spt-fade-a 0.13333334)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 60 59 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2491)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2490 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 3))
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.6564103)
+                            (sp-flt spt-fade-a 0.13333334)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 60 59 1)
+                            (sp-launcher-by-id spt-next-launcher 2491)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2491)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 2492)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2491
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 75) (sp-launcher-by-id spt-next-launcher 2492))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2492)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -1.28)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.42666668)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2493)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2492 :init-specs ((sp-flt spt-fade-r -1.28)
+                            (sp-flt spt-fade-g 0.0)
+                            (sp-flt spt-fade-b 0.42666668)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2493)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2493)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.035555556)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2493
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.035555556))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2489)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.16)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2494)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2489 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 2494)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2494)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 2496)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2494
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 75) (sp-launcher-by-id spt-next-launcher 2496))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2496)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r -0.85333335)
-                                                     (sp-flt spt-fade-g -0.42666668)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2497)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2496 :init-specs ((sp-flt spt-fade-r -0.85333335)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2497)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2497)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-a -0.026666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2497 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-a -0.026666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 629) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lavatube-crust-40x40"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2529 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 131072.0)
-                                       )
-      )
+(defpartgroup group-lavatube-crust-40x40
+  :id 629
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 2529 :fade-after (meters 180) :falloff-to (meters 180)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 630) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lavatube-lowlava-40x40"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2530 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 49152.0 :w 131072.0)
-                                       )
-      )
+(defpartgroup group-lavatube-lowlava-40x40
+  :id 630
+  :bounds (static-bspherem 0 12 0 32)
+  :parts
+  ((sp-item 2530 :fade-after (meters 200) :falloff-to (meters 200)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2530)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                                     (sp-flt spt-y (meters 3.0))
-                                                     (sp-rnd-flt spt-z -81920.0 163840.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.04))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -0.6564103)
-                                                     (sp-flt spt-fade-a 0.13333334)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 60 59 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2491)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2530 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters 3))
+                            (sp-rnd-flt spt-z (meters -20) (meters 40) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.04))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.6564103)
+                            (sp-flt spt-fade-a 0.13333334)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 60 59 1)
+                            (sp-launcher-by-id spt-next-launcher 2491)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2529)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.8)
-                                                     (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-rnd-flt spt-z -81920.0 163840.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.16)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2494)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2529 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.8)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters -20) (meters 40) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 2494)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 621)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-lavatube-green-smoke-down-1"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-          (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-          (sp-item 2516 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-          (sp-item 2517 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y -24576.0 :w 32768.0)
-        )
-      )
+(defpartgroup group-lavatube-green-smoke-down-1
+  :id 621
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 2516 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 2517 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 622)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-lavatube-green-smoke-down-2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1536 :length 75)
-          (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 596 :length 96)
-          (sp-item 2516 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1070 :length 60)
-          (sp-item 2517 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y -24576.0 :w 32768.0)
-        )
-      )
+(defpartgroup group-lavatube-green-smoke-down-2
+  :id 622
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 1536 :length 75)
+    (sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 596 :length 96)
+    (sp-item 2516 :fade-after (meters 140) :falloff-to (meters 160) :period 1070 :length 60)
+    (sp-item 2517 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 623)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-lavatube-green-smoke-down-3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1161 :length 75)
-          (sp-item 2516 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 869 :length 96)
-          (sp-item 2516 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1029 :length 60)
-          (sp-item 2517 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y -24576.0 :w 32768.0)
-        )
-      )
+(defpartgroup group-lavatube-green-smoke-down-3
+  :id 623
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 1161 :length 75)
+    (sp-item 2516 :fade-after (meters 100) :falloff-to (meters 120) :period 869 :length 96)
+    (sp-item 2516 :fade-after (meters 140) :falloff-to (meters 160) :period 1029 :length 60)
+    (sp-item 2517 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2517) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-y (meters -1.0))
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-rnd-flt spt-b 89.0 60.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 20 4 1)
-                                    (sp-launcher-by-id spt-next-launcher 2518)
-                                    (sp-flt spt-conerot-x (degrees 180.0))
-                                    (sp-flt spt-conerot-y (degrees 0.0))
-                                    (sp-flt spt-conerot-z (degrees 0.0))
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2517 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 3) 1.0)
+                            (sp-flt spt-y (meters -1))
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-rnd-flt spt-b 89.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 20 4 1)
+                            (sp-launcher-by-id spt-next-launcher 2518)
+                            (sp-flt spt-conerot-x (degrees 180.0))
+                            (sp-flt spt-conerot-y (degrees 0.0))
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2518)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.47407407) (sp-end))
-        )
-      )
+(defpart 2518 :init-specs ((sp-flt spt-fade-a -0.47407407)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2516)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.7 0.6 1.0)
-                                                     (new 'static 'sp-field-init-spec
-                                                       :field (sp-field-id spt-sound)
-                                                       :flags (sp-flag plain-v2)
-                                                       :sound
-                                                       (new 'static 'sound-spec
-                                                         :mask #x1
-                                                         :num 0.05
-                                                         :group #x1
-                                                         :sound-name (static-sound-name "steam-release")
-                                                         :volume #x400
-                                                         )
-                                                       )
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
-                                                     (sp-flt spt-y (meters -1.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-flt spt-g 255.0)
-                                                     (sp-rnd-flt spt-b 89.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.16) (meters 0.08) 1.0)
-                                                     (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 4.266667)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.13653333 1.0)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int-plain-rnd spt-next-time 20 4 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2518)
-                                                     (sp-flt spt-conerot-x (degrees 180.0))
-                                                     (sp-flt spt-conerot-y (degrees 0.0))
-                                                     (sp-flt spt-conerot-z (degrees 0.0))
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 624)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-lavatube-green-smoke-angle-1"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1050 :length 75)
-          (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 886 :length 96)
-          (sp-item 2519 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1276 :length 60)
-          (sp-item 2520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y -24576.0 :w 32768.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 625)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-lavatube-green-smoke-angle-2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1830 :length 75)
-          (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 970 :length 96)
-          (sp-item 2519 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 1102 :length 60)
-          (sp-item 2520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y -24576.0 :w 32768.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 626)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-lavatube-green-smoke-angle-3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1530 :length 75)
-          (sp-item 2519 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1189 :length 96)
-          (sp-item 2519 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 862 :length 60)
-          (sp-item 2520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y -24576.0 :w 32768.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2520) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 0.5 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 5.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-rnd-flt spt-b 89.0 60.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 2.048 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 20 4 1)
-                                    (sp-launcher-by-id spt-next-launcher 2518)
-                                    (sp-flt spt-conerot-x (degrees 0.0))
-                                    (sp-flt spt-conerot-y (degrees 0.0))
-                                    (sp-flt spt-conerot-z (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2519) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.4 0.3 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
+(defpart 2516 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.7 0.6 1.0)
+                            (sp-sound (new 'static 'sound-spec
                                         :mask #x1
                                         :num 0.05
                                         :group #x1
@@ -516,430 +270,413 @@
                                         :volume #x400
                                         )
                                       )
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-rnd-flt spt-b 89.0 60.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.16) (meters 0.08) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-rnd-flt spt-accel-y 1.3653333 4.096 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 20 4 1)
-                                    (sp-launcher-by-id spt-next-launcher 2518)
-                                    (sp-flt spt-conerot-x (degrees 0.0))
-                                    (sp-flt spt-conerot-y (degrees 0.0))
-                                    (sp-flt spt-conerot-z (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+                            (sp-rnd-flt spt-x (meters 0) (meters 3) 1.0)
+                            (sp-flt spt-y (meters -1))
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-rnd-flt spt-b 89.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.16) (meters 0.08) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.13653333 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 20 4 1)
+                            (sp-launcher-by-id spt-next-launcher 2518)
+                            (sp-flt spt-conerot-x (degrees 180.0))
+                            (sp-flt spt-conerot-y (degrees 0.0))
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 627) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lavatube-fountain"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2521 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 2522 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -40960.0 :w 49152.0)
-                                       )
-      )
+(defpartgroup group-lavatube-green-smoke-angle-1
+  :id 624
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 1050 :length 75)
+    (sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 886 :length 96)
+    (sp-item 2519 :fade-after (meters 140) :falloff-to (meters 160) :period 1276 :length 60)
+    (sp-item 2520 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2522)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 21
-          (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-          (sp-rnd-flt spt-num 1.0 1.0 1.0)
-          (sp-rnd-flt spt-y (meters -0.75) (meters 0.25) 1.0)
-          (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 256.0)
-          (sp-rnd-flt spt-g 0.0 128.0 1.0)
-          (sp-rnd-flt spt-a 64.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.00033333333) (meters 0.00033333333) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-rnd-flt spt-accel-y -5.4613333 -5.4613333 1.0)
-          (sp-flt spt-friction 0.98)
-          (sp-int spt-timer 450)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-          (sp-rnd-flt spt-conerot-y (degrees -70.0) (degrees 50.000004) 1.0)
-          (sp-flt spt-conerot-z (degrees 0.0))
-          (sp-end)
-          )
-        )
-      )
+(defpartgroup group-lavatube-green-smoke-angle-2
+  :id 625
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 1830 :length 75)
+    (sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 970 :length 96)
+    (sp-item 2519 :fade-after (meters 140) :falloff-to (meters 160) :period 1102 :length 60)
+    (sp-item 2520 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2521)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 22
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.0 0.1 1.0)
-          (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 256.0)
-          (sp-flt spt-g 192.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.01) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0013333333) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-g -0.42666668)
-          (sp-flt spt-fade-a 0.16)
-          (sp-int spt-timer 900)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 210 89 1)
-          (sp-launcher-by-id spt-next-launcher 2523)
-          (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-          (sp-rnd-flt spt-conerot-y (degrees -60.0) (degrees 30.0) 1.0)
-          (sp-flt spt-conerot-z (degrees 0.0))
-          (sp-end)
-          )
-        )
-      )
+(defpartgroup group-lavatube-green-smoke-angle-3
+  :id 626
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 1530 :length 75)
+    (sp-item 2519 :fade-after (meters 100) :falloff-to (meters 120) :period 1189 :length 96)
+    (sp-item 2519 :fade-after (meters 140) :falloff-to (meters 160) :period 862 :length 60)
+    (sp-item 2520 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2523)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.64)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.21333334)
-                                                     (sp-flt spt-fade-a -0.08)
-                                                     (sp-int-plain-rnd spt-next-time 210 89 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2524)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2520 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 0.5 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-rnd-flt spt-b 89.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-rnd-flt spt-accel-y 0.68266666 2.048 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 20 4 1)
+                            (sp-launcher-by-id spt-next-launcher 2518)
+                            (sp-flt spt-conerot-x (degrees 0.0))
+                            (sp-flt spt-conerot-y (degrees 0.0))
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2524)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2519 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.4 0.3 1.0)
+                            (sp-sound (new 'static 'sound-spec
+                                        :mask #x1
+                                        :num 0.05
+                                        :group #x1
+                                        :sound-name (static-sound-name "steam-release")
+                                        :volume #x400
+                                        )
+                                      )
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-rnd-flt spt-b 89.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.16) (meters 0.08) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-rnd-flt spt-accel-y 1.3653333 4.096 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 20 4 1)
+                            (sp-launcher-by-id spt-next-launcher 2518)
+                            (sp-flt spt-conerot-x (degrees 0.0))
+                            (sp-flt spt-conerot-y (degrees 0.0))
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 628) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lavatube-vents"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2525 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-lavatube-fountain
+  :id 627
+  :bounds (static-bspherem 0 -10 0 12)
+  :parts
+  ((sp-item 2521 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2522 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2525)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.0 0.3 1.0)
-          (sp-flt spt-y (meters -1.0))
-          (sp-rnd-flt spt-scale-x (meters 8.0) (meters 6.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 256.0)
-          (sp-flt spt-g 192.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.01) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0013333333) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-g -0.42666668)
-          (sp-flt spt-fade-a 0.32)
-          (sp-int spt-timer 600)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 90 59 1)
-          (sp-launcher-by-id spt-next-launcher 2526)
-          (sp-flt spt-conerot-x (degrees 0.0))
-          (sp-flt spt-conerot-y (degrees 0.0))
-          (sp-flt spt-conerot-z (degrees 0.0))
-          (sp-end)
-          )
-        )
-      )
+(defpart 2522 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-y (meters -0.75) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters -0.00033333333) (meters 0.00033333333) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -5.4613333 -5.4613333 1.0)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -70.0) (degrees 50.000004) 1.0)
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2526)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -1.28)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.42666668)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-int-plain-rnd spt-next-time 90 59 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2527)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2521 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 0.1 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0013333333) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 210 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2523)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -60.0) (degrees 30.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2527)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2523 :init-specs ((sp-flt spt-fade-r -0.64)
+                            (sp-flt spt-fade-g 0.0)
+                            (sp-flt spt-fade-b 0.21333334)
+                            (sp-flt spt-fade-a -0.08)
+                            (sp-int-plain-rnd spt-next-time 210 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2524)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 631) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lavatube-heavy-smoke"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2531 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 40960.0 :w 90112.0)
-                                       )
-      )
+(defpart 2524 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2531)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 22
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.0 0.4 1.0)
-          (sp-rnd-flt spt-x (meters -16.0) (meters 32.0) 1.0)
-          (sp-rnd-flt spt-z -65536.0 131072.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 12.0) (meters 12.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 256.0)
-          (sp-flt spt-g 192.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-g -0.42666668)
-          (sp-flt spt-fade-a 0.16)
-          (sp-int spt-timer 900)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 210 89 1)
-          (sp-launcher-by-id spt-next-launcher 2523)
-          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-end)
-          )
-        )
-      )
+(defpartgroup group-lavatube-vents
+  :id 628
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2525 :fade-after (meters 160) :falloff-to (meters 160)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2532)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.64)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.21333334)
-                                                     (sp-flt spt-fade-a -0.08)
-                                                     (sp-int-plain-rnd spt-next-time 210 89 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2524)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2525 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 0.3 1.0)
+                            (sp-flt spt-y (meters -1))
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0013333333) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-flt spt-fade-a 0.32)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 2526)
+                            (sp-flt spt-conerot-x (degrees 0.0))
+                            (sp-flt spt-conerot-y (degrees 0.0))
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2533)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2526 :init-specs ((sp-flt spt-fade-r -1.28)
+                            (sp-flt spt-fade-g 0.0)
+                            (sp-flt spt-fade-b 0.42666668)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 2527)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 632) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lavatube-heavy-smoke-start"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2534 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-                                         (sp-item 2535 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 40960.0 :w 90112.0)
-                                       )
-      )
+(defpart 2527 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2534)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 22
-          (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-          (sp-rnd-flt spt-num 1.0 5.0 1.0)
-          (sp-rnd-flt spt-x (meters -14.0) (meters 28.0) 1.0)
-          (sp-rnd-flt spt-y (meters 8.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-z 16384.0 4096.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 256.0)
-          (sp-rnd-flt spt-g 64.0 64.0 1.0)
-          (sp-rnd-flt spt-a 64.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters -0.04) (meters -0.013333334) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.00033333333) (meters 0.00033333333) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-rnd-flt spt-accel-y -8.192 -2.7306666 1.0)
-          (sp-flt spt-friction 0.98)
-          (sp-int spt-timer 450)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-flt spt-conerot-x (degrees 60.0))
-          (sp-flt spt-rotate-y (degrees 90.0))
-          (sp-end)
-          )
-        )
-      )
+(defpartgroup group-lavatube-heavy-smoke
+  :id 631
+  :bounds (static-bspherem 0 10 0 22)
+  :parts
+  ((sp-item 2531 :fade-after (meters 140) :falloff-to (meters 140)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2535)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.4 0.8 1.0)
-          (sp-rnd-flt spt-x (meters -16.0) (meters 32.0) 1.0)
-          (sp-rnd-flt spt-y (meters -14.0) (meters 30.0) 1.0)
-          (sp-rnd-flt spt-z -32768.0 32768.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 12.0) (meters 12.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 256.0)
-          (sp-flt spt-g 192.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-g -0.42666668)
-          (sp-flt spt-fade-a 0.16)
-          (sp-int spt-timer 900)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 210 89 1)
-          (sp-launcher-by-id spt-next-launcher 2523)
-          (sp-flt spt-rotate-y (degrees 90.0))
-          (sp-end)
-          )
-        )
-      )
+(defpart 2531 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 0.4 1.0)
+                            (sp-rnd-flt spt-x (meters -16) (meters 32) 1.0)
+                            (sp-rnd-flt spt-z (meters -16) (meters 32) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 12) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 210 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2523)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 633) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-lavatube-heavy-smoke-end"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2536 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-                                         (sp-item 2537 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 40960.0 :w 90112.0)
-                                       )
-      )
+(defpart 2532 :init-specs ((sp-flt spt-fade-r -0.64)
+                            (sp-flt spt-fade-g 0.0)
+                            (sp-flt spt-fade-b 0.21333334)
+                            (sp-flt spt-fade-a -0.08)
+                            (sp-int-plain-rnd spt-next-time 210 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2524)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2536)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 22
-          (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-          (sp-rnd-flt spt-num 1.0 3.0 1.0)
-          (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-          (sp-rnd-flt spt-y (meters 0.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-z 8192.0 4096.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 256.0)
-          (sp-rnd-flt spt-g 64.0 64.0 1.0)
-          (sp-rnd-flt spt-a 64.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters -0.04) (meters -0.013333334) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.00033333333) (meters 0.00033333333) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-rnd-flt spt-accel-y -8.192 -2.7306666 1.0)
-          (sp-flt spt-friction 0.98)
-          (sp-int spt-timer 450)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-flt spt-conerot-x (degrees 60.0))
-          (sp-flt spt-rotate-y (degrees 240.0))
-          (sp-end)
-          )
-        )
-      )
+(defpart 2533 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2537)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.2 0.4 1.0)
-          (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-          (sp-rnd-flt spt-y (meters -22.0) (meters 30.0) 1.0)
-          (sp-rnd-flt spt-z -32768.0 32768.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 12.0) (meters 12.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 256.0)
-          (sp-flt spt-g 192.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-g -0.42666668)
-          (sp-flt spt-fade-a 0.16)
-          (sp-int spt-timer 900)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 210 89 1)
-          (sp-launcher-by-id spt-next-launcher 2523)
-          (sp-flt spt-rotate-y (degrees 180.0))
-          (sp-end)
-          )
-        )
-      )
+(defpartgroup group-lavatube-heavy-smoke-start
+  :id 632
+  :bounds (static-bspherem 0 10 0 22)
+  :parts
+  ((sp-item 2534 :fade-after (meters 140) :falloff-to (meters 140))
+    (sp-item 2535 :fade-after (meters 200) :falloff-to (meters 200))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2534 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 5.0 1.0)
+                            (sp-rnd-flt spt-x (meters -14) (meters 28) 1.0)
+                            (sp-rnd-flt spt-y (meters 8) (meters 8) 1.0)
+                            (sp-rnd-flt spt-z (meters 4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.04) (meters -0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters -0.00033333333) (meters 0.00033333333) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -8.192 -2.7306666 1.0)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2535 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.4 0.8 1.0)
+                            (sp-rnd-flt spt-x (meters -16) (meters 32) 1.0)
+                            (sp-rnd-flt spt-y (meters -14) (meters 30) 1.0)
+                            (sp-rnd-flt spt-z (meters -8) (meters 8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 12) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 210 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2523)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-lavatube-heavy-smoke-end
+  :id 633
+  :bounds (static-bspherem 0 10 0 22)
+  :parts
+  ((sp-item 2536 :fade-after (meters 140) :falloff-to (meters 140))
+    (sp-item 2537 :fade-after (meters 200) :falloff-to (meters 200))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2536 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 3.0 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 8) 1.0)
+                            (sp-rnd-flt spt-z (meters 2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.04) (meters -0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters -0.00033333333) (meters 0.00033333333) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -8.192 -2.7306666 1.0)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-flt spt-rotate-y (degrees 240.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2537 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.4 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-y (meters -22) (meters 30) 1.0)
+                            (sp-rnd-flt spt-z (meters -8) (meters 8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 12) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 210 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2523)
+                            (sp-flt spt-rotate-y (degrees 180.0))
+                            )
+              )
diff --git a/test/decompiler/reference/levels/maincave/dark-crystal_REF.gc b/test/decompiler/reference/levels/maincave/dark-crystal_REF.gc
index 441b726972..d7a6cebbb0 100644
--- a/test/decompiler/reference/levels/maincave/dark-crystal_REF.gc
+++ b/test/decompiler/reference/levels/maincave/dark-crystal_REF.gc
@@ -98,421 +98,350 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 322)
-      (new 'static 'sparticle-launch-group
-        :length 69
-        :duration #x4b
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-crystal-gnd-explode"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 69
-          (sp-item 2153 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2154 :period 600 :length 5)
-          (sp-item 2155 :period 600 :length 40)
-          (sp-item 2156 :period 600 :length 20)
-          (sp-item 2157 :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 65536.0)
-        )
-      )
+(defpartgroup group-dark-crystal-gnd-explode
+  :id 322
+  :duration 75
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 2153 :fade-after (meters 100) :period 600 :length 5 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2154 :period 600 :length 5)
+    (sp-item 2155 :period 600 :length 40)
+    (sp-item 2156 :period 600 :length 20)
+    (sp-item 2157 :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2153) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2153 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 240)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2155) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 24.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2158)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2155 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 24.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2158)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2158)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2158 :init-specs ((sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2157) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-rnd-flt spt-r 64.0 192.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2157 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-rnd-flt spt-r 64.0 192.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.04))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2154) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 24.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2154 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 24))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2156)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2156 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.02))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 323) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #x4b
-                                       :linger-duration #x2ee0
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-dark-crystal-water-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 2159 :period 600 :length 5)
-                                         (sp-item 2160 :period 600 :length 40)
-                                         (sp-item 2161 :period 600 :length 20)
-                                         (sp-item 2162 :period 600 :length 20)
-                                         (sp-item 2163 :period 600 :length 75)
-                                         (sp-item 2164 :period 600 :length 75)
-                                         )
-                                       :bounds (new 'static 'sphere :w 65536.0)
-                                       )
-      )
+(defpartgroup group-dark-crystal-water-explode
+  :id 323
+  :duration 75
+  :linger-duration 12000
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 2159 :period 600 :length 5)
+    (sp-item 2160 :period 600 :length 40)
+    (sp-item 2161 :period 600 :length 20)
+    (sp-item 2162 :period 600 :length 20)
+    (sp-item 2163 :period 600 :length 75)
+    (sp-item 2164 :period 600 :length 75)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2160) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 24.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2158)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2160 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 24.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.4)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2158)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2162) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-r -1.0666667)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2162 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.04))
+                            (sp-flt spt-fade-r -1.0666667)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2159) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 24.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-g -2.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2159 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 24))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-g -2.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2161)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 26
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.2)
-                                                     (sp-flt spt-fade-g -0.2)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2161 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.02))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.2)
+                            (sp-flt spt-fade-g -0.2)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2163) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-z -16384.0 32768.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.125) (meters 0.025) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 0.8)
-                                    (sp-int spt-timer 12000)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 143360.0)
-                                    (sp-func spt-func 'check-water-level-above-and-die)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2165)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2163 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 6) 1.0)
+                            (sp-rnd-flt spt-z (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.125) (meters 0.025) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 0.8)
+                            (sp-int spt-timer 12000)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata 143360.0)
+                            (sp-func spt-func 'check-water-level-above-and-die)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2165)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2165)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
+(defpart 2165 :init-specs ((sp-flt spt-fade-a 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2164) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-z -16384.0 32768.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 0.8)
-                                    (sp-int spt-timer 12000)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 143360.0)
-                                    (sp-func spt-func 'check-water-level-above-and-die)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2165)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2164 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 6) 1.0)
+                            (sp-rnd-flt spt-z (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 0.8)
+                            (sp-int spt-timer 12000)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata 143360.0)
+                            (sp-func spt-func 'check-water-level-above-and-die)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2165)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate dark-crystal-idle (dark-crystal)
diff --git a/test/decompiler/reference/levels/maincave/driller-lurker_REF.gc b/test/decompiler/reference/levels/maincave/driller-lurker_REF.gc
index 0806cca560..ee5e685b2d 100644
--- a/test/decompiler/reference/levels/maincave/driller-lurker_REF.gc
+++ b/test/decompiler/reference/levels/maincave/driller-lurker_REF.gc
@@ -113,156 +113,126 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 331) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-driller-lurker-drilling-debris"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 728 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         (sp-item 2075 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 2076 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 2077 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-driller-lurker-drilling-debris
+  :id 331
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 728 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 2075 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 2076 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 2077 :fade-after (meters 40) :falloff-to (meters 40))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 728) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.45714286)
-                                   (sp-flt spt-accel-y 2.7306666)
-                                   (sp-flt spt-friction 0.9)
-                                   (sp-int spt-timer 210)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 728 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 4.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.45714286)
+                           (sp-flt spt-accel-y 2.7306666)
+                           (sp-flt spt-friction 0.9)
+                           (sp-int spt-timer 210)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2075) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.30476192)
-                                    (sp-flt spt-accel-y 2.7306666)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2075 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.30476192)
+                            (sp-flt spt-accel-y 2.7306666)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2076) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 375)
-                                    (sp-launcher-by-id spt-next-launcher 2078)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2076 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                            (sp-flt spt-accel-y -13.653334)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 375)
+                            (sp-launcher-by-id spt-next-launcher 2078)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2078)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.7066667) (sp-end))
-        )
-      )
+(defpart 2078 :init-specs ((sp-flt spt-fade-a -1.7066667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2077) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 2078)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2077 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-rnd-flt spt-num 8.0 8.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                            (sp-flt spt-accel-y -13.653334)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 2078)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; definition for function driller-lurker-default-event-handler
 ;; Used lq/sq
diff --git a/test/decompiler/reference/levels/maincave/gnawer_REF.gc b/test/decompiler/reference/levels/maincave/gnawer_REF.gc
index 04af2595a0..78cad06197 100644
--- a/test/decompiler/reference/levels/maincave/gnawer_REF.gc
+++ b/test/decompiler/reference/levels/maincave/gnawer_REF.gc
@@ -246,207 +246,176 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 329) (new 'static 'sparticle-launch-group
-                                       :length 76
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-gnawer-loses-segment"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 76
-                                         (sp-item 727 :binding 2309)
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2309 :flags (start-dead))
-                                         (sp-item 2310)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-gnawer-loses-segment
+  :id 329
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 727 :binding 2309)
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2309 :flags (start-dead))
+    (sp-item 2310)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2310) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -4.266667)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2310 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-flt spt-scale-x (meters 16))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -4.266667)
+                            (sp-int spt-timer 30)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 727) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                   (sp-rnd-flt spt-num 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 32.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                   (sp-flt spt-fade-a -0.28444445)
-                                   (sp-rnd-flt spt-accel-y -4.096 -2.7306666 1.0)
-                                   (sp-flt spt-friction 0.975)
-                                   (sp-int-plain-rnd spt-timer 300 149 1)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 135.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 727 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                           (sp-rnd-flt spt-num 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 32.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                           (sp-flt spt-fade-a -0.28444445)
+                           (sp-rnd-flt spt-accel-y -4.096 -2.7306666 1.0)
+                           (sp-flt spt-friction 0.975)
+                           (sp-int-plain-rnd spt-timer 300 149 1)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 135.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2309) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
-                                    (sp-rnd-flt spt-num 0.25 0.5 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.7) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-int-plain-rnd spt-timer 150 299 1)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2309 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+                            (sp-rnd-flt spt-num 0.25 0.5 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.7) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 48.0 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-int-plain-rnd spt-timer 150 299 1)
+                            (sp-cpuinfo-flags bit2)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 330) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-gnawer-crumbs"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2141 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-gnawer-crumbs
+  :id 330
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2141 :fade-after (meters 60) :falloff-to (meters 60)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2141) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.008333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-flt spt-fade-a -0.16)
-                                    (sp-flt spt-accel-y -3.4133334)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2141 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 2.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.008333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-flt spt-accel-y -3.4133334)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate falling (gnawer-falling-segment)
diff --git a/test/decompiler/reference/levels/maincave/maincave-obs_REF.gc b/test/decompiler/reference/levels/maincave/maincave-obs_REF.gc
index 307eae6a95..cb2df71a57 100644
--- a/test/decompiler/reference/levels/maincave/maincave-obs_REF.gc
+++ b/test/decompiler/reference/levels/maincave/maincave-obs_REF.gc
@@ -548,56 +548,48 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 704)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 2.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters -0.0039999997))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.8) (degrees 1.8) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -1.28)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-accel-y -2.4576)
-                                                     (sp-int spt-timer 5004)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 704 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 2))
+                           (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.0039999997))
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.8) (degrees 1.8) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -1.28)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-flt spt-accel-y -2.4576)
+                           (sp-int spt-timer 5004)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 705)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 2.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters -0.0039999997))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.8) (degrees 1.8) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-g -1.28)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-flt spt-accel-y -2.4576)
-                                                     (sp-int spt-timer 5004)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 705 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 2))
+                           (sp-rnd-flt spt-rot-z (degrees -180.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.0039999997))
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.8) (degrees 1.8) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -1.28)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-flt spt-accel-y -2.4576)
+                           (sp-int spt-timer 5004)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
 (defstate caveflamepots-active (caveflamepots)
diff --git a/test/decompiler/reference/levels/maincave/maincave-part_REF.gc b/test/decompiler/reference/levels/maincave/maincave-part_REF.gc
index 44c7e4d42c..fa0eded3e5 100644
--- a/test/decompiler/reference/levels/maincave/maincave-part_REF.gc
+++ b/test/decompiler/reference/levels/maincave/maincave-part_REF.gc
@@ -36,353 +36,269 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 318)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-maincave-torch"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 706 :fade-after (meters 200.0) :falloff-to (meters 220.0))
-          (sp-item 707 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-          (sp-item 708 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
-          (sp-item 709 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
-          (sp-item 710 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 710 :length 51)
-          (sp-item 711 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 16384.0)
-        )
-      )
+(defpartgroup group-part-maincave-torch
+  :id 318
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 706 :fade-after (meters 200) :falloff-to (meters 220))
+    (sp-item 707 :fade-after (meters 140) :falloff-to (meters 140))
+    (sp-item 708 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 90)
+    (sp-item 709 :fade-after (meters 50) :falloff-to (meters 50) :period 369 :length 69)
+    (sp-item 710 :fade-after (meters 50) :falloff-to (meters 50) :period 710 :length 51)
+    (sp-item 711 :fade-after (meters 60) :falloff-to (meters 60))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 711)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.3)
-                                                     (sp-flt spt-x (meters 0.2))
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2867.2)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 712)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 711 :init-specs ((sp-flt spt-num 0.3)
+                           (sp-flt spt-x (meters 0.2))
+                           (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                           (sp-int spt-rot-x 5)
+                           (sp-flt spt-r 4096.0)
+                           (sp-flt spt-g 2867.2)
+                           (sp-flt spt-b 3276.8)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.026666667))
+                           (sp-int spt-timer 180)
+                           (sp-cpuinfo-flags aux-list)
+                           (sp-int spt-next-time 120)
+                           (sp-launcher-by-id spt-next-launcher 712)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 712)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -6.826667) (sp-end))
-        )
-      )
+(defpart 712 :init-specs ((sp-flt spt-fade-b -6.826667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 706) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-int spt-num 1069547520 1 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-                                   (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                   (sp-flt spt-fade-a 13.066667)
-                                   (sp-flt spt-accel-y -0.8192)
-                                   (sp-int spt-timer 75)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 713)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 706 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-int spt-num 1069547520 1 1.0)
+                           (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 75)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 713)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 713)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
+(defpart 713 :init-specs ((sp-flt spt-fade-a -1.3333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 708)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 713)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 708 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 105)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 713)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 709) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z 0.0 1638.4 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                   (sp-flt spt-fade-a 13.066667)
-                                   (sp-flt spt-accel-y -0.8192)
-                                   (sp-int spt-timer 105)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 713)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 709 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 105)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 713)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 710)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 713)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 710 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
+                           (sp-flt spt-y (meters 0.6))
+                           (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 105)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 713)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 707)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.3))
-                                                     (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0005))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.10666667)
-                                                     (sp-flt spt-fade-g -0.053333335)
-                                                     (sp-flt spt-fade-b -0.053333335)
-                                                     (sp-flt spt-fade-a -0.08)
-                                                     (sp-flt spt-accel-x 0.27306667)
-                                                     (sp-flt spt-accel-y 0.13653333)
-                                                     (sp-flt spt-friction 0.9975)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 707 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 0.4)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 0.3))
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 96.0)
+                           (sp-flt spt-b 96.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.01))
+                           (sp-flt spt-scalevel-x (meters 0.0005))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.053333335)
+                           (sp-flt spt-fade-b -0.053333335)
+                           (sp-flt spt-fade-a -0.08)
+                           (sp-flt spt-accel-x 0.27306667)
+                           (sp-flt spt-accel-y 0.13653333)
+                           (sp-flt spt-friction 0.9975)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 319)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-cave-cavedrip-1"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 369 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 768 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1167 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1701 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2736 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 3831 :length 5)
-          )
-        :bounds
-        (new 'static 'sphere :y 32768.0 :w 33792.0)
-        )
-      )
+(defpartgroup group-cave-cavedrip-1
+  :id 319
+  :bounds (static-bspherem 0 8 0 8.25)
+  :parts
+  ((sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 369 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 768 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 1167 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 1701 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 2736 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 3831 :length 5)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 320)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-cave-cavedrip-2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 467 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 834 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 984 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2237 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2597 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 3587 :length 5)
-          )
-        :bounds
-        (new 'static 'sphere :y 32768.0 :w 33792.0)
-        )
-      )
+(defpartgroup group-cave-cavedrip-2
+  :id 320
+  :bounds (static-bspherem 0 8 0 8.25)
+  :parts
+  ((sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 467 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 834 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 984 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 2237 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 2597 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 3587 :length 5)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 321)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-cave-cavedrip-3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 801 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 867 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1269 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1983 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 2601 :length 5)
-          (sp-item 2230 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 5061 :length 5)
-          )
-        :bounds
-        (new 'static 'sphere :y 32768.0 :w 33792.0)
-        )
-      )
+(defpartgroup group-cave-cavedrip-3
+  :id 321
+  :bounds (static-bspherem 0 8 0 8.25)
+  :parts
+  ((sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 801 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 867 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 1269 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 1983 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 2601 :length 5)
+    (sp-item 2230 :fade-after (meters 60) :falloff-to (meters 60) :period 5061 :length 5)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2231) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-rnd-flt spt-num 3.0 4.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 112.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-fade-a -0.5688889)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-int spt-timer 225)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2231 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-rnd-flt spt-num 3.0 4.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 112.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-fade-a -0.5688889)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-int spt-timer 225)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2232) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.02))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.01) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.2222222)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2232 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0.02))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.01) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.2222222)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2230) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-y->userdata)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 24.0))
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-flt spt-scale-y (meters 0.4))
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 32.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters -0.045714285))
-                                    (sp-flt spt-fade-a 0.5688889)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-flt spt-userdata -98304.0)
-                                    (sp-func spt-func 'check-drop-level-maincave-drip)
-                                    (sp-int-plain-rnd spt-next-time 150 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 2233)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2230 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-func spt-birth-func 'birth-func-y->userdata)
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 24))
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-flt spt-scale-y (meters 0.4))
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 32.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters -0.045714285))
+                            (sp-flt spt-fade-a 0.5688889)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-flt spt-userdata -98304.0)
+                            (sp-func spt-func 'check-drop-level-maincave-drip)
+                            (sp-int-plain-rnd spt-next-time 150 74 1)
+                            (sp-launcher-by-id spt-next-launcher 2233)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2233)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
+(defpart 2233 :init-specs ((sp-flt spt-fade-a 0.0)))
 
 ;; definition for function check-drop-level-maincave-drip
 (defun check-drop-level-maincave-drip ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
diff --git a/test/decompiler/reference/levels/maincave/mother-spider-egg_REF.gc b/test/decompiler/reference/levels/maincave/mother-spider-egg_REF.gc
index f4aa8dac1b..e02a09f358 100644
--- a/test/decompiler/reference/levels/maincave/mother-spider-egg_REF.gc
+++ b/test/decompiler/reference/levels/maincave/mother-spider-egg_REF.gc
@@ -68,141 +68,110 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 324) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #x5
-                                       :linger-duration #x384
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-spider-egg-hatches"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2018 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         (sp-item 2071 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-spider-egg-hatches
+  :id 324
+  :duration 5
+  :linger-duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2018 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 2071 :fade-after (meters 50) :falloff-to (meters 50))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2071) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.1))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-int spt-timer 225)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2072)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2071 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 0.1))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-int spt-timer 225)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 2072)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2072)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-scale-x (meters 0.1))
-                                                     (sp-flt spt-scale-y (meters 2.0))
-                                                     (sp-flt spt-scalevel-y (meters 0.2))
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2072 :init-specs ((sp-flt spt-scale-x (meters 0.1))
+                            (sp-flt spt-scale-y (meters 2))
+                            (sp-flt spt-scalevel-y (meters 0.2))
+                            (sp-flt spt-fade-a -1.4222223)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2018) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 32.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 1.4222223)
-                                    (sp-flt spt-accel-y 0.27306667)
-                                    (sp-int spt-timer 375)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 45)
-                                    (sp-launcher-by-id spt-next-launcher 2073)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2018 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 32.0 32.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 1.4222223)
+                            (sp-flt spt-accel-y 0.27306667)
+                            (sp-int spt-timer 375)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 45)
+                            (sp-launcher-by-id spt-next-launcher 2073)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2073)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 2073 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 325) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x177
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-spider-egg-explodes"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2074 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-spider-egg-explodes
+  :id 325
+  :duration 5
+  :linger-duration 375
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2074 :fade-after (meters 50) :falloff-to (meters 50)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2074) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.4222223)
-                                    (sp-flt spt-accel-y 0.27306667)
-                                    (sp-int spt-timer 375)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2074 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.4222223)
+                            (sp-flt spt-accel-y 0.27306667)
+                            (sp-int spt-timer 375)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; definition for method 21 of type mother-spider-egg
 ;; Used lq/sq
diff --git a/test/decompiler/reference/levels/maincave/mother-spider-proj_REF.gc b/test/decompiler/reference/levels/maincave/mother-spider-proj_REF.gc
index 15d90a4833..0643ba1014 100644
--- a/test/decompiler/reference/levels/maincave/mother-spider-proj_REF.gc
+++ b/test/decompiler/reference/levels/maincave/mother-spider-proj_REF.gc
@@ -22,264 +22,216 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 326) (new 'static 'sparticle-launch-group
-                                       :length 48
-                                       :duration #x12c
-                                       :linger-duration #x5dc
-                                       :name "group-mother-spider-proj-fly"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 48
-                                         (sp-item 718 :flags (launch-asap) :binding 716)
-                                         (sp-item 716 :flags (start-dead) :binding 717)
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         (sp-item 717 :flags (start-dead launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 12288.0)
-                                       )
-      )
+(defpartgroup group-mother-spider-proj-fly
+  :id 326
+  :duration 300
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 718 :flags (launch-asap) :binding 716)
+    (sp-item 716 :flags (start-dead) :binding 717)
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    (sp-item 717 :flags (start-dead launch-asap))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 718) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 9
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-func spt-func 'sparticle-track-root-prim)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 718 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.01))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-func spt-func 'sparticle-track-root-prim)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 716) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-scalevel-x (meters -0.006666667))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -1.0666667)
-                                   (sp-flt spt-fade-g -1.0666667)
-                                   (sp-flt spt-fade-b 0.0)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 81)
-                                   (sp-launcher-by-id spt-next-launcher 720)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 0.1))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 716 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-scalevel-x (meters -0.006666667))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -1.0666667)
+                           (sp-flt spt-fade-g -1.0666667)
+                           (sp-flt spt-fade-b 0.0)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 81)
+                           (sp-launcher-by-id spt-next-launcher 720)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.1))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 720)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 720 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 717) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 5.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -1.0666667)
-                                   (sp-flt spt-fade-g -1.0666667)
-                                   (sp-flt spt-fade-b 0.0)
-                                   (sp-flt spt-accel-y -2.7306666)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int-plain-rnd spt-timer 30 119 1)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 60)
-                                   (sp-launcher-by-id spt-next-launcher 720)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.4) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 717 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 1.0 5.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.0026666666))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -1.0666667)
+                           (sp-flt spt-fade-g -1.0666667)
+                           (sp-flt spt-fade-b 0.0)
+                           (sp-flt spt-accel-y -2.7306666)
+                           (sp-flt spt-friction 0.97)
+                           (sp-int-plain-rnd spt-timer 30 119 1)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 60)
+                           (sp-launcher-by-id spt-next-launcher 720)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.4) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 327)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #x5
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-mother-spider-proj-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 722) (sp-item 723) (sp-item 724))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-mother-spider-proj-hit
+  :id 327
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 722) (sp-item 723) (sp-item 724))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 722) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 64.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.006666667))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.7111111)
-                                   (sp-flt spt-fade-g -0.7111111)
-                                   (sp-flt spt-fade-b 0.0)
-                                   (sp-flt spt-accel-y -0.68266666)
-                                   (sp-rnd-flt spt-friction 0.85 0.05 1.0)
-                                   (sp-int-plain-rnd spt-timer 30 119 1)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 720)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.4) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 722 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 64.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.006666667))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.7111111)
+                           (sp-flt spt-fade-g -0.7111111)
+                           (sp-flt spt-fade-b 0.0)
+                           (sp-flt spt-accel-y -0.68266666)
+                           (sp-rnd-flt spt-friction 0.85 0.05 1.0)
+                           (sp-int-plain-rnd spt-timer 30 119 1)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 720)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.4) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 724)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 6.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-flt spt-fade-r -0.35555556)
-                                                     (sp-flt spt-fade-g -0.35555556)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.30476192)
-                                                     (sp-rnd-flt spt-accel-y -0.68266666 0.68266666 1.0)
-                                                     (sp-int spt-timer 210)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 720)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 724 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-flt spt-fade-r -0.35555556)
+                           (sp-flt spt-fade-g -0.35555556)
+                           (sp-flt spt-fade-b 0.0)
+                           (sp-flt spt-fade-a -0.30476192)
+                           (sp-rnd-flt spt-accel-y -0.68266666 0.68266666 1.0)
+                           (sp-int spt-timer 210)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 60)
+                           (sp-launcher-by-id spt-next-launcher 720)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 723) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-flt spt-fade-a -4.8)
-                                   (sp-int spt-timer 15)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 723 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 32.0 1.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-flt spt-fade-a -4.8)
+                           (sp-int spt-timer 15)
+                           (sp-cpuinfo-flags bit2)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 328) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-mother-spider-proj-die"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 722))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-mother-spider-proj-die
+  :id 328
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 722))
+  )
 
 ;; definition for method 24 of type mother-spider-proj
 (defmethod dummy-24 mother-spider-proj ((obj mother-spider-proj))
diff --git a/test/decompiler/reference/levels/maincave/mother-spider_REF.gc b/test/decompiler/reference/levels/maincave/mother-spider_REF.gc
index ef17e2c919..c92be0e421 100644
--- a/test/decompiler/reference/levels/maincave/mother-spider_REF.gc
+++ b/test/decompiler/reference/levels/maincave/mother-spider_REF.gc
@@ -52,42 +52,33 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 614) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-mother-spider-leg"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2477))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-mother-spider-leg
+  :id 614
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2477))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2477) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.35) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 96.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.002))
-                                    (sp-flt spt-fade-a -0.4)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2477 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.35) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 96.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 48.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.002))
+                            (sp-flt spt-fade-a -0.4)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate mother-spider-leg-flying (mother-spider-leg)
@@ -251,43 +242,33 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 618)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-mother-spider-leg-socket"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2498 :period 90 :length 30))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-mother-spider-leg-socket
+  :id 618
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2498 :period 90 :length 30))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2498) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.35) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 96.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.002))
-                                    (sp-flt spt-fade-a -0.4)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2498 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 2.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.35) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 96.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 48.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.002))
+                            (sp-flt spt-fade-a -0.4)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; definition for function mother-spider-default-event-handler
 (defbehavior mother-spider-default-event-handler mother-spider ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
diff --git a/test/decompiler/reference/levels/misty/balloonlurker_REF.gc b/test/decompiler/reference/levels/misty/balloonlurker_REF.gc
index 07ed5ca9e6..3fd0e7084d 100644
--- a/test/decompiler/reference/levels/misty/balloonlurker_REF.gc
+++ b/test/decompiler/reference/levels/misty/balloonlurker_REF.gc
@@ -2,269 +2,214 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 203) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x258
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-balloonlurker-pilot-death"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2015))
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-balloonlurker-pilot-death
+  :id 203
+  :duration 5
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2015))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2015) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -3.2)
-                                    (sp-int spt-timer 25)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2015 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-flt spt-scale-x (meters 16))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 196.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -3.2)
+                            (sp-int spt-timer 25)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 204)
-      (new 'static 'sparticle-launch-group
-        :length 21
-        :duration #x258
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-balloonlurker-mine-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 21
-          (sp-item 964 :period 1200 :length 30)
-          (sp-item 965 :fade-after (meters 60.0) :period 1200 :length 15)
-          (sp-item 966 :period 1200 :length 15 :offset 15)
-          (sp-item 967 :period 1200 :length 15)
-          (sp-item 968 :fade-after (meters 80.0) :period 1200 :length 30 :binding 963)
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          (sp-item 963 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 65536.0)
-        )
-      )
+(defpartgroup group-balloonlurker-mine-explosion
+  :id 204
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 964 :period 1200 :length 30)
+    (sp-item 965 :fade-after (meters 60) :period 1200 :length 15)
+    (sp-item 966 :period 1200 :length 15 :offset 15)
+    (sp-item 967 :period 1200 :length 15)
+    (sp-item 968 :fade-after (meters 80) :period 1200 :length 30 :binding 963)
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    (sp-item 963 :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 964) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 70.0)
-                                   (sp-flt spt-g 70.0)
-                                   (sp-rnd-flt spt-b 70.0 16.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.033333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-accel-y 0.2048)
-                                   (sp-flt spt-friction 0.92)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 30 299 1)
-                                   (sp-launcher-by-id spt-next-launcher 969)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 964 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 70.0)
+                           (sp-flt spt-g 70.0)
+                           (sp-rnd-flt spt-b 70.0 16.0 1.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.033333335) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-accel-y 0.2048)
+                           (sp-flt spt-friction 0.92)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int-plain-rnd spt-next-time 30 299 1)
+                           (sp-launcher-by-id spt-next-launcher 969)
+                           (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 2))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 969)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters 0.0))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.32)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 969
+  :init-specs
+  ((sp-flt spt-scalevel-x (meters 0)) (sp-copy-from-other spt-scalevel-y -4) (sp-flt spt-fade-a -0.32))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 965) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-flt spt-y (meters 0.75))
-                                   (sp-rnd-flt spt-scale-x (meters 8.0) (meters 8.0) 1.0)
-                                   (sp-int spt-rot-x 4)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3.0) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.009765625))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.009765625))
-                                   (sp-flt spt-fade-a 2.1333334)
-                                   (sp-int spt-timer 30)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 970)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 965 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-flt spt-y (meters 0.75))
+                           (sp-rnd-flt spt-scale-x (meters 8) (meters 8) 1.0)
+                           (sp-int spt-rot-x 4)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 3) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.009765625))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.009765625))
+                           (sp-flt spt-fade-a 2.1333334)
+                           (sp-int spt-timer 30)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 970)
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 970)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
+(defpart 970 :init-specs ((sp-flt spt-fade-a -1.3333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 966) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 966 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 967) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 1.0))
-                                   (sp-rnd-flt spt-scale-x (meters 24.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 32.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 967 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-scale-x (meters 24) (meters 16) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 32.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 968) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 5.0 10.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-rnd-int spt-g 1123942400 1 127.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 127.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                   (sp-flt spt-fade-g -4.266667)
-                                   (sp-flt spt-fade-b -2.8444445)
-                                   (sp-flt spt-accel-y -16.384)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int-plain-rnd spt-next-time 5 38 1)
-                                   (sp-launcher-by-id spt-next-launcher 971)
-                                   (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 968 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 5.0 10.0 1.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 255.0)
+                           (sp-rnd-int spt-g 1123942400 1 127.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+                           (sp-flt spt-fade-g -4.266667)
+                           (sp-flt spt-fade-b -2.8444445)
+                           (sp-flt spt-accel-y -16.384)
+                           (sp-flt spt-friction 0.97)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int-plain-rnd spt-next-time 5 38 1)
+                           (sp-launcher-by-id spt-next-launcher 971)
+                           (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 971)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -4.266667)
-                                                     (sp-flt spt-fade-g 0.7111111)
-                                                     (sp-flt spt-fade-b 1.4222223)
-                                                     (sp-flt spt-fade-a -2.8444445)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 971 :init-specs ((sp-flt spt-scalevel-x (meters -0.0033333334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -4.266667)
+                           (sp-flt spt-fade-g 0.7111111)
+                           (sp-flt spt-fade-b 1.4222223)
+                           (sp-flt spt-fade-a -2.8444445)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 963)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 70.0)
-                                                     (sp-flt spt-g 70.0)
-                                                     (sp-rnd-flt spt-b 70.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-a 20.0 8.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.11666667)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 963 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 70.0)
+                           (sp-flt spt-g 70.0)
+                           (sp-rnd-flt spt-b 70.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 20.0 8.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.11666667)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           )
+             )
 
 ;; definition of type balloonlurker-bank
 (deftype balloonlurker-bank (basic)
diff --git a/test/decompiler/reference/levels/misty/misty-conveyor_REF.gc b/test/decompiler/reference/levels/misty/misty-conveyor_REF.gc
index 8f607f4366..e636dc021f 100644
--- a/test/decompiler/reference/levels/misty/misty-conveyor_REF.gc
+++ b/test/decompiler/reference/levels/misty/misty-conveyor_REF.gc
@@ -2,47 +2,38 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 197) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xa
-                                       :linger-duration #x258
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-keg-bounce"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 2014 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-keg-bounce
+  :id 197
+  :duration 10
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2014 :fade-after (meters 100) :falloff-to (meters 100)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2014) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-x (meters -3.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2014 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-rnd-flt spt-x (meters -3) (meters 6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-accel-y -0.68266666)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; definition for function keg-bounce-set-particle-rotation-callback
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/levels/misty/misty-obs_REF.gc b/test/decompiler/reference/levels/misty/misty-obs_REF.gc
index d0e4541030..9c4adc9c6f 100644
--- a/test/decompiler/reference/levels/misty/misty-obs_REF.gc
+++ b/test/decompiler/reference/levels/misty/misty-obs_REF.gc
@@ -2,1238 +2,1009 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 191)
-      (new 'static 'sparticle-launch-group
-        :length 16
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-windturbine-particles"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 16
-          (sp-item 908 :fade-after (meters 60.0) :period 1212 :length 10)
-          (sp-item 908 :fade-after (meters 60.0) :period 5790 :length 10)
-          (sp-item 908 :fade-after (meters 60.0) :period 4988 :length 10)
-          (sp-item 908 :fade-after (meters 60.0) :period 3510 :length 10)
-          (sp-item 908 :fade-after (meters 60.0) :period 1837 :length 10)
-          (sp-item 909 :fade-after (meters 60.0) :period 1650 :length 10)
-          (sp-item 909 :fade-after (meters 60.0) :period 3780 :length 10)
-          (sp-item 909 :fade-after (meters 60.0) :period 2220 :length 10)
-          (sp-item 909 :fade-after (meters 60.0) :period 8235 :length 10)
-          (sp-item 909 :fade-after (meters 60.0) :period 3336 :length 10)
-          (sp-item 910 :fade-after (meters 60.0) :period 150 :length 75)
-          (sp-item 910 :fade-after (meters 120.0) :period 150 :length 75)
-          (sp-item 910 :fade-after (meters 180.0) :period 150 :length 75)
-          (sp-item 911 :fade-after (meters 60.0) :period 150 :length 75 :offset 75)
-          (sp-item 911 :fade-after (meters 120.0) :period 150 :length 75 :offset 75)
-          (sp-item 911 :fade-after (meters 180.0) :period 150 :length 75 :offset 75)
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-windturbine-particles
+  :id 191
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 908 :fade-after (meters 60) :period 1212 :length 10)
+    (sp-item 908 :fade-after (meters 60) :period 5790 :length 10)
+    (sp-item 908 :fade-after (meters 60) :period 4988 :length 10)
+    (sp-item 908 :fade-after (meters 60) :period 3510 :length 10)
+    (sp-item 908 :fade-after (meters 60) :period 1837 :length 10)
+    (sp-item 909 :fade-after (meters 60) :period 1650 :length 10)
+    (sp-item 909 :fade-after (meters 60) :period 3780 :length 10)
+    (sp-item 909 :fade-after (meters 60) :period 2220 :length 10)
+    (sp-item 909 :fade-after (meters 60) :period 8235 :length 10)
+    (sp-item 909 :fade-after (meters 60) :period 3336 :length 10)
+    (sp-item 910 :fade-after (meters 60) :period 150 :length 75)
+    (sp-item 910 :fade-after (meters 120) :period 150 :length 75)
+    (sp-item 910 :fade-after (meters 180) :period 150 :length 75)
+    (sp-item 911 :fade-after (meters 60) :period 150 :length 75 :offset 75)
+    (sp-item 911 :fade-after (meters 120) :period 150 :length 75 :offset 75)
+    (sp-item 911 :fade-after (meters 180) :period 150 :length 75 :offset 75)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 910)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.066 0.066 1.0)
-                                                     (sp-flt spt-x (meters -4.0))
-                                                     (sp-rnd-flt spt-y (meters -2.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 32.0)
-                                                     (sp-flt spt-g 32.0)
-                                                     (sp-flt spt-b 32.0)
-                                                     (sp-rnd-flt spt-a 0.0 32.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-flt spt-accel-y 1.2288)
-                                                     (sp-int-plain-rnd spt-timer 600 1499 1)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 912)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 910 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.066 0.066 1.0)
+                           (sp-flt spt-x (meters -4))
+                           (sp-rnd-flt spt-y (meters -2) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 32.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 32.0)
+                           (sp-rnd-flt spt-a 0.0 32.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.21333334)
+                           (sp-flt spt-accel-y 1.2288)
+                           (sp-int-plain-rnd spt-timer 600 1499 1)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 912)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 912)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 913)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 912
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 240) (sp-launcher-by-id spt-next-launcher 913))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 913)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-vel-x (meters -0.06666667))
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-scalevel-x (meters 0.016666668))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.2)
-                                                     (sp-flt spt-accel-x 1.3653333)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 913 :init-specs ((sp-flt spt-vel-x (meters -0.06666667))
+                           (sp-flt spt-vel-y (meters 0.0033333334))
+                           (sp-flt spt-scalevel-x (meters 0.016666668))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.2)
+                           (sp-flt spt-accel-x 1.3653333)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 911)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.066 0.066 1.0)
-                                                     (sp-flt spt-x (meters -4.0))
-                                                     (sp-rnd-flt spt-y (meters -2.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 32.0)
-                                                     (sp-flt spt-g 32.0)
-                                                     (sp-flt spt-b 32.0)
-                                                     (sp-rnd-flt spt-a 0.0 32.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-flt spt-accel-y 1.2288)
-                                                     (sp-int-plain-rnd spt-timer 600 1499 1)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 912)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 911 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.066 0.066 1.0)
+                           (sp-flt spt-x (meters -4))
+                           (sp-rnd-flt spt-y (meters -2) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 32.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 32.0)
+                           (sp-rnd-flt spt-a 0.0 32.0 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.21333334)
+                           (sp-flt spt-accel-y 1.2288)
+                           (sp-int-plain-rnd spt-timer 600 1499 1)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 912)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 908) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 8.0 24.0 1.0)
-                                   (sp-flt spt-x (meters -4.0))
-                                   (sp-rnd-flt spt-y (meters -4.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-z -2048.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 64.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00055555557))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.2)
-                                   (sp-flt spt-fade-b -0.2)
-                                   (sp-flt spt-fade-a -0.6)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int-plain-rnd spt-timer 90 59 1)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees -220.0) (degrees 110.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 908 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 8.0 24.0 1.0)
+                           (sp-flt spt-x (meters -4))
+                           (sp-rnd-flt spt-y (meters -4.5) (meters 1) 1.0)
+                           (sp-flt spt-z (meters -0.5))
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 64.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00055555557))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.2)
+                           (sp-flt spt-fade-b -0.2)
+                           (sp-flt spt-fade-a -0.6)
+                           (sp-flt spt-accel-y -6.826667)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int-plain-rnd spt-timer 90 59 1)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees -220.0) (degrees 110.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 909) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 8.0 24.0 1.0)
-                                   (sp-flt spt-x (meters -4.0))
-                                   (sp-rnd-flt spt-y (meters -4.5) (meters 1.0) 1.0)
-                                   (sp-flt spt-z 2048.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 64.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00055555557))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.2)
-                                   (sp-flt spt-fade-b -0.2)
-                                   (sp-flt spt-fade-a -0.6)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.94)
-                                   (sp-int-plain-rnd spt-timer 90 59 1)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees -110.0) (degrees 110.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 909 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 8.0 24.0 1.0)
+                           (sp-flt spt-x (meters -4))
+                           (sp-rnd-flt spt-y (meters -4.5) (meters 1) 1.0)
+                           (sp-flt spt-z (meters 0.5))
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 64.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00055555557))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.2)
+                           (sp-flt spt-fade-b -0.2)
+                           (sp-flt spt-fade-a -0.6)
+                           (sp-flt spt-accel-y -6.826667)
+                           (sp-flt spt-friction 0.94)
+                           (sp-int-plain-rnd spt-timer 90 59 1)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees -110.0) (degrees 110.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 192) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-misty-bone-01"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 914 :period 780 :length 15)
-                                         (sp-item 915 :period 780 :length 15)
-                                         (sp-item 916 :period 780 :length 64)
-                                         (sp-item 917 :period 780 :length 32 :offset 65131)
-                                         (sp-item 918 :period 780 :length 32 :offset 65131)
-                                         (sp-item 919 :period 780 :length 32 :offset 65131)
-                                         (sp-item 920 :period 780 :length 32 :offset 65056)
-                                         (sp-item 921 :period 780 :length 32 :offset 64996)
-                                         )
-                                       :bounds (new 'static 'sphere :w 98304.0)
-                                       )
-      )
+(defpartgroup group-misty-bone-01
+  :id 192
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 24)
+  :parts
+  ((sp-item 914 :period 780 :length 15)
+    (sp-item 915 :period 780 :length 15)
+    (sp-item 916 :period 780 :length 64)
+    (sp-item 917 :period 780 :length 32 :offset 65131)
+    (sp-item 918 :period 780 :length 32 :offset 65131)
+    (sp-item 919 :period 780 :length 32 :offset 65131)
+    (sp-item 920 :period 780 :length 32 :offset 65056)
+    (sp-item 921 :period 780 :length 32 :offset 64996)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 921) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 921 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -80.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 187.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 920) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-flt spt-x (meters 2.5))
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 920 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-flt spt-x (meters 2.5))
+                           (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.16)
+                           (sp-flt spt-accel-y 0.13653333)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 2))
+                           (sp-flt spt-rotate-y (degrees 187.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 919) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 919 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -80.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 187.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 918) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.996)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 922)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 918 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-accel-y -6.826667)
+                           (sp-flt spt-friction 0.996)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 922)
+                           (sp-flt spt-conerot-z (degrees -80.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 187.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 922)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 922 :init-specs ((sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 917) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.026666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 917 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 8.0 1.0)
+                           (sp-flt spt-vel-y (meters -0.0016666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-fade-a -0.026666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -80.0))
+                           (sp-rnd-flt spt-conerot-radius (meters 4) (meters 16) 1.0)
+                           (sp-flt spt-rotate-y (degrees 187.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 914) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 140.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 914 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.16)
+                           (sp-flt spt-accel-y 0.13653333)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 2))
+                           (sp-flt spt-rotate-y (degrees 140.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 915) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.026666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.996)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 923)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 140.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 915 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.026666667) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-accel-y -6.826667)
+                           (sp-flt spt-friction 0.996)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 923)
+                           (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 2))
+                           (sp-flt spt-rotate-y (degrees 140.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 923)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -3.2) (sp-end))
-        )
-      )
+(defpart 923 :init-specs ((sp-flt spt-fade-a -3.2)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 916) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
-                                   (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.017777778)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-rotate-y (degrees 187.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 916 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1) (meters 12) 1.0)
+                           (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 8.0 8.0 1.0)
+                           (sp-flt spt-vel-y (meters -0.0016666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-fade-a -0.017777778)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-rotate-y (degrees 187.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 193) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-misty-bone-03"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 914 :period 780 :length 15)
-                                         (sp-item 915 :period 780 :length 15)
-                                         (sp-item 924 :period 780 :length 64)
-                                         (sp-item 925 :period 780 :length 32 :offset 65131)
-                                         (sp-item 926 :period 780 :length 32 :offset 65131)
-                                         (sp-item 927 :period 780 :length 32 :offset 65131)
-                                         (sp-item 928 :period 780 :length 32 :offset 65056)
-                                         (sp-item 929 :period 780 :length 32 :offset 64996)
-                                         )
-                                       :bounds (new 'static 'sphere :w 98304.0)
-                                       )
-      )
+(defpartgroup group-misty-bone-03
+  :id 193
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 24)
+  :parts
+  ((sp-item 914 :period 780 :length 15)
+    (sp-item 915 :period 780 :length 15)
+    (sp-item 924 :period 780 :length 64)
+    (sp-item 925 :period 780 :length 32 :offset 65131)
+    (sp-item 926 :period 780 :length 32 :offset 65131)
+    (sp-item 927 :period 780 :length 32 :offset 65131)
+    (sp-item 928 :period 780 :length 32 :offset 65056)
+    (sp-item 929 :period 780 :length 32 :offset 64996)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 929) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 929 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -80.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 249.99998))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 928) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-flt spt-x (meters 2.5))
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 928 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-flt spt-x (meters 2.5))
+                           (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.16)
+                           (sp-flt spt-accel-y 0.13653333)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 2))
+                           (sp-flt spt-rotate-y (degrees 249.99998))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 927) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 927 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -80.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 249.99998))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 926) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.996)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 922)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 926 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-accel-y -6.826667)
+                           (sp-flt spt-friction 0.996)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 922)
+                           (sp-flt spt-conerot-z (degrees -80.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 249.99998))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 925) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.026666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -80.0))
-                                   (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 925 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 8.0 1.0)
+                           (sp-flt spt-vel-y (meters -0.0016666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-fade-a -0.026666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -80.0))
+                           (sp-rnd-flt spt-conerot-radius (meters 4) (meters 16) 1.0)
+                           (sp-flt spt-rotate-y (degrees 249.99998))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 924) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
-                                   (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.017777778)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-rotate-y (degrees 249.99998))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 924 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1) (meters 12) 1.0)
+                           (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 8.0 8.0 1.0)
+                           (sp-flt spt-vel-y (meters -0.0016666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-fade-a -0.017777778)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-rotate-y (degrees 249.99998))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 194) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-misty-bone-02"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 914 :period 780 :length 15)
-                                         (sp-item 915 :period 780 :length 15)
-                                         (sp-item 930 :period 780 :length 64)
-                                         (sp-item 931 :period 780 :length 32 :offset 65131)
-                                         (sp-item 932 :period 780 :length 32 :offset 65131)
-                                         (sp-item 933 :period 780 :length 32 :offset 65131)
-                                         (sp-item 934 :period 780 :length 32 :offset 65056)
-                                         (sp-item 935 :period 780 :length 32 :offset 64996)
-                                         )
-                                       :bounds (new 'static 'sphere :w 98304.0)
-                                       )
-      )
+(defpartgroup group-misty-bone-02
+  :id 194
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 24)
+  :parts
+  ((sp-item 914 :period 780 :length 15)
+    (sp-item 915 :period 780 :length 15)
+    (sp-item 930 :period 780 :length 64)
+    (sp-item 931 :period 780 :length 32 :offset 65131)
+    (sp-item 932 :period 780 :length 32 :offset 65131)
+    (sp-item 933 :period 780 :length 32 :offset 65131)
+    (sp-item 934 :period 780 :length 32 :offset 65056)
+    (sp-item 935 :period 780 :length 32 :offset 64996)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 935) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 935 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -94.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 114.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 934) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-flt spt-x (meters 2.5))
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 934 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-flt spt-x (meters 2.5))
+                           (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.16)
+                           (sp-flt spt-accel-y 0.13653333)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 2))
+                           (sp-flt spt-rotate-y (degrees 114.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 933) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 933 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -94.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 114.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 932) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.996)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 922)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 932 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-accel-y -6.826667)
+                           (sp-flt spt-friction 0.996)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 922)
+                           (sp-flt spt-conerot-z (degrees -94.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 114.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 931) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.026666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -90.0))
-                                   (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 931 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 8.0 1.0)
+                           (sp-flt spt-vel-y (meters -0.0016666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-fade-a -0.026666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -90.0))
+                           (sp-rnd-flt spt-conerot-radius (meters 4) (meters 16) 1.0)
+                           (sp-flt spt-rotate-y (degrees 114.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 930) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
-                                   (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.017777778)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-rotate-y (degrees 114.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 930 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1) (meters 12) 1.0)
+                           (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 8.0 8.0 1.0)
+                           (sp-flt spt-vel-y (meters -0.0016666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-fade-a -0.017777778)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-rotate-y (degrees 114.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 195) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-misty-bone-07"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 914 :period 780 :length 15)
-                                         (sp-item 915 :period 780 :length 15)
-                                         (sp-item 936 :period 780 :length 64)
-                                         (sp-item 937 :period 780 :length 32 :offset 65131)
-                                         (sp-item 938 :period 780 :length 32 :offset 65131)
-                                         (sp-item 939 :period 780 :length 32 :offset 65131)
-                                         (sp-item 940 :period 780 :length 32 :offset 65056)
-                                         (sp-item 941 :period 780 :length 32 :offset 64966)
-                                         )
-                                       :bounds (new 'static 'sphere :w 98304.0)
-                                       )
-      )
+(defpartgroup group-misty-bone-07
+  :id 195
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 24)
+  :parts
+  ((sp-item 914 :period 780 :length 15)
+    (sp-item 915 :period 780 :length 15)
+    (sp-item 936 :period 780 :length 64)
+    (sp-item 937 :period 780 :length 32 :offset 65131)
+    (sp-item 938 :period 780 :length 32 :offset 65131)
+    (sp-item 939 :period 780 :length 32 :offset 65131)
+    (sp-item 940 :period 780 :length 32 :offset 65056)
+    (sp-item 941 :period 780 :length 32 :offset 64966)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 941) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 941 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -94.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 14.000005))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 940) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-flt spt-x (meters 2.5))
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-flt spt-accel-y 0.13653333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 940 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-flt spt-x (meters 2.5))
+                           (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.16)
+                           (sp-flt spt-accel-y 0.13653333)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 2))
+                           (sp-flt spt-rotate-y (degrees 14.000005))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 939) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.10666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 939 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.04) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.023333333) (meters 0.046666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -94.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 14.000005))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 938) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -10240.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-accel-y -6.826667)
-                                   (sp-flt spt-friction 0.996)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 90)
-                                   (sp-launcher-by-id spt-next-launcher 922)
-                                   (sp-flt spt-conerot-z (degrees -94.0))
-                                   (sp-flt spt-conerot-radius (meters 18.0))
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 938 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -2.5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.013333334) (meters 0.053333335) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.033333335) (meters 0.06666667) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-accel-y -6.826667)
+                           (sp-flt spt-friction 0.996)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 90)
+                           (sp-launcher-by-id spt-next-launcher 922)
+                           (sp-flt spt-conerot-z (degrees -94.0))
+                           (sp-flt spt-conerot-radius (meters 18))
+                           (sp-flt spt-rotate-y (degrees 14.000005))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 937) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 8.0)
-                                   (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.026666667)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-conerot-z (degrees -90.0))
-                                   (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 937 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 8.0)
+                           (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 8.0 1.0)
+                           (sp-flt spt-vel-y (meters -0.0016666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-fade-a -0.026666667)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-conerot-z (degrees -90.0))
+                           (sp-rnd-flt spt-conerot-radius (meters 4) (meters 16) 1.0)
+                           (sp-flt spt-rotate-y (degrees 14.000005))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 936) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 12.0) 1.0)
-                                   (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 100.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 90.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0016666667))
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
-                                   (sp-flt spt-fade-a -0.017777778)
-                                   (sp-flt spt-accel-y -0.4096)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-rotate-y (degrees 14.000005))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 936 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters -3.5) (meters 4.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 1) (meters 12) 1.0)
+                           (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 100.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 90.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 8.0 8.0 1.0)
+                           (sp-flt spt-vel-y (meters -0.0016666667))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.15) 1 54.613335)
+                           (sp-flt spt-fade-a -0.017777778)
+                           (sp-flt spt-accel-y -0.4096)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-rotate-y (degrees 14.000005))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 196)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-boat-paddle"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 944 :fade-after (meters 100.0)))
-        :bounds (new 'static 'sphere :w 61440.0)
-        )
-      )
+(defpartgroup group-misty-boat-paddle
+  :id 196
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 944 :fade-after (meters 100)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 944) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 0.8)
-                                   (sp-rnd-flt spt-x (meters -11.0) (meters 22.0) 1.0)
-                                   (sp-flt spt-y (meters 0.0))
-                                   (sp-rnd-flt spt-z 20480.0 20480.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 5.5) (meters 4.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 48.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
-                                   (sp-rnd-int-flt spt-rotvel-z (degrees -0.2) 1 72.81778)
-                                   (sp-flt spt-fade-a 0.53333336)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 945)
-                                   (sp-flt spt-rotate-y (degrees 140.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 944 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-flt spt-num 0.8)
+                           (sp-rnd-flt spt-x (meters -11) (meters 22) 1.0)
+                           (sp-flt spt-y (meters 0))
+                           (sp-rnd-flt spt-z (meters 5) (meters 5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 5.5) (meters 4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 48.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-rnd-flt spt-b 96.0 32.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.2) 1 72.81778)
+                           (sp-flt spt-fade-a 0.53333336)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 945)
+                           (sp-flt spt-rotate-y (degrees 140.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 945)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
+(defpart 945 :init-specs ((sp-flt spt-fade-a -0.53333336)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 943) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 6.0)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 18.0) 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 96.0)
-                                   (sp-rnd-flt spt-b 100.0 28.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.001) (meters 0.033333335) 1.0)
-                                   (sp-flt spt-fade-a 0.53333336)
-                                   (sp-flt spt-accel-y -5.4613333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 210)
-                                   (sp-launcher-by-id spt-next-launcher 946)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-int-flt spt-conerot-y (degrees 0.0) 3 8192.0)
-                                   (sp-flt spt-conerot-z (degrees 90.0))
-                                   (sp-flt spt-conerot-radius (meters 9.0))
-                                   (sp-flt spt-rotate-y (degrees 140.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 943 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 6.0)
+                           (sp-rnd-flt spt-x (meters -9) (meters 18) 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 96.0)
+                           (sp-rnd-flt spt-b 100.0 28.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.001) (meters 0.033333335) 1.0)
+                           (sp-flt spt-fade-a 0.53333336)
+                           (sp-flt spt-accel-y -5.4613333)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 210)
+                           (sp-launcher-by-id spt-next-launcher 946)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-int-flt spt-conerot-y (degrees 0.0) 3 8192.0)
+                           (sp-flt spt-conerot-z (degrees 90.0))
+                           (sp-flt spt-conerot-radius (meters 9))
+                           (sp-flt spt-rotate-y (degrees 140.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 946)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.0) (sp-end))
-        )
-      )
+(defpart 946 :init-specs ((sp-flt spt-fade-a -2.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 942) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -11.0) (meters 22.0) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z 24576.0 16384.0 1.0)
-                                   (sp-flt spt-scale-x (meters 3.5))
-                                   (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.001) (meters 0.033333335) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
-                                   (sp-flt spt-fade-a 0.53333336)
-                                   (sp-flt spt-accel-y -5.4613333)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int spt-next-time 75)
-                                   (sp-launcher-by-id spt-next-launcher 947)
-                                   (sp-flt spt-rotate-y (degrees 140.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 942 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -11) (meters 22) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters 6) (meters 4) 1.0)
+                           (sp-flt spt-scale-x (meters 3.5))
+                           (sp-rnd-int-flt spt-rot-z (degrees 0.0) 1 32768.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.001) (meters 0.033333335) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
+                           (sp-flt spt-fade-a 0.53333336)
+                           (sp-flt spt-accel-y -5.4613333)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int spt-next-time 75)
+                           (sp-launcher-by-id spt-next-launcher 947)
+                           (sp-flt spt-rotate-y (degrees 140.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 947)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 948)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 947
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 60) (sp-launcher-by-id spt-next-launcher 948))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 948)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 948 :init-specs ((sp-flt spt-fade-a -1.0666667)))
 
 ;; definition of type boatpaddle
 (deftype boatpaddle (process-drawable)
diff --git a/test/decompiler/reference/levels/misty/misty-part_REF.gc b/test/decompiler/reference/levels/misty/misty-part_REF.gc
index 602b9c91c3..35070ead2a 100644
--- a/test/decompiler/reference/levels/misty/misty-part_REF.gc
+++ b/test/decompiler/reference/levels/misty/misty-part_REF.gc
@@ -19,1083 +19,830 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 972)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-flt spt-scale-x (meters 1.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0048828125))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y 0.68266666)
-                                                     (sp-flt spt-friction 0.996)
-                                                     (sp-int-plain-rnd spt-timer 300 299 1)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-flt spt-conerot-x (degrees 120.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.25))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 972 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0048828125))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-flt spt-accel-y 0.68266666)
+                           (sp-flt spt-friction 0.996)
+                           (sp-int-plain-rnd spt-timer 300 299 1)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-conerot-x (degrees 120.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.25))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 973)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 3.0 1.0)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-flt spt-scale-x (meters 1.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 32.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0048828125))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-flt spt-accel-y 0.4096)
-                                                     (sp-flt spt-friction 0.993)
-                                                     (sp-int-plain-rnd spt-timer 300 299 1)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-flt spt-conerot-x (degrees 120.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.25))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 973 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 1.0 3.0 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0048828125))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-flt spt-accel-y 0.4096)
+                           (sp-flt spt-friction 0.993)
+                           (sp-int-plain-rnd spt-timer 300 299 1)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-conerot-x (degrees 120.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.25))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 205)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-ship-steam"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 972 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1500 :length 300)
-          (sp-item 972 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2928 :length 360)
-          (sp-item 972 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 4602 :length 180)
-          (sp-item 973 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 180 :length 45)
-          )
-        :bounds
-        (new 'static 'sphere :y 2048.0 :w 18432.0)
-        )
-      )
+(defpartgroup group-misty-ship-steam
+  :id 205
+  :bounds (static-bspherem 0 0.5 0 4.5)
+  :parts
+  ((sp-item 972 :fade-after (meters 175) :falloff-to (meters 175) :period 1500 :length 300)
+    (sp-item 972 :fade-after (meters 175) :falloff-to (meters 175) :period 2928 :length 360)
+    (sp-item 972 :fade-after (meters 175) :falloff-to (meters 175) :period 4602 :length 180)
+    (sp-item 973 :fade-after (meters 125) :falloff-to (meters 125) :period 180 :length 45)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 206)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-misty-torch"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 974 :fade-after (meters 180.0) :falloff-to (meters 200.0))
-          (sp-item 975 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 976 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
-          (sp-item 977 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
-          (sp-item 978 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 710 :length 51)
-          (sp-item 979 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 16384.0)
-        )
-      )
+(defpartgroup group-part-misty-torch
+  :id 206
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 974 :fade-after (meters 180) :falloff-to (meters 200))
+    (sp-item 975 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 976 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 90)
+    (sp-item 977 :fade-after (meters 50) :falloff-to (meters 50) :period 369 :length 69)
+    (sp-item 978 :fade-after (meters 40) :falloff-to (meters 40) :period 710 :length 51)
+    (sp-item 979 :fade-after (meters 50) :falloff-to (meters 50))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 979)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.3)
-                                                     (sp-flt spt-x (meters 0.2))
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2867.2)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 980)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 979 :init-specs ((sp-flt spt-num 0.3)
+                           (sp-flt spt-x (meters 0.2))
+                           (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                           (sp-int spt-rot-x 5)
+                           (sp-flt spt-r 4096.0)
+                           (sp-flt spt-g 2867.2)
+                           (sp-flt spt-b 3276.8)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.026666667))
+                           (sp-int spt-timer 180)
+                           (sp-cpuinfo-flags aux-list)
+                           (sp-int spt-next-time 120)
+                           (sp-launcher-by-id spt-next-launcher 980)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 980)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -6.826667) (sp-end))
-        )
-      )
+(defpart 980 :init-specs ((sp-flt spt-fade-b -6.826667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 974) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-int spt-num 1069547520 1 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-                                   (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                   (sp-flt spt-fade-a 13.066667)
-                                   (sp-flt spt-accel-y -0.8192)
-                                   (sp-int spt-timer 75)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 981)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 974 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-int spt-num 1069547520 1 1.0)
+                           (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 75)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 981)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 981)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
+(defpart 981 :init-specs ((sp-flt spt-fade-a -1.3333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 976)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 981)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 976 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 105)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 981)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 977) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z 0.0 1638.4 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                   (sp-flt spt-fade-a 13.066667)
-                                   (sp-flt spt-accel-y -0.8192)
-                                   (sp-int spt-timer 105)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 981)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 977 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 105)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 981)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 978)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 981)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 978 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
+                           (sp-flt spt-y (meters 0.6))
+                           (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 105)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 981)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 975)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.3))
-                                                     (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0005))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.10666667)
-                                                     (sp-flt spt-fade-g -0.053333335)
-                                                     (sp-flt spt-fade-b -0.053333335)
-                                                     (sp-flt spt-fade-a -0.08)
-                                                     (sp-flt spt-accel-x 0.27306667)
-                                                     (sp-flt spt-accel-y 0.13653333)
-                                                     (sp-flt spt-friction 0.9975)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 975 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 0.4)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 0.3))
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 96.0)
+                           (sp-flt spt-b 96.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.01))
+                           (sp-flt spt-scalevel-x (meters 0.0005))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.053333335)
+                           (sp-flt spt-fade-b -0.053333335)
+                           (sp-flt spt-fade-a -0.08)
+                           (sp-flt spt-accel-x 0.27306667)
+                           (sp-flt spt-accel-y 0.13653333)
+                           (sp-flt spt-friction 0.9975)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 207)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-fog"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 982 :flags (is-3d)))
-        :bounds
-        (new 'static 'sphere :x 262144.0 :y 28672.0 :w 393216.0)
-        )
-      )
+(defpartgroup group-misty-fog
+  :id 207
+  :bounds (static-bspherem 64 7 0 96)
+  :parts
+  ((sp-item 982 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 982) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x2))
-                                   (sp-flt spt-num 0.06125)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 128.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 5.5) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-z -81920.0 327680.0 1.0)
-                                   (sp-flt spt-scale-x (meters 36.0))
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 127.0)
-                                   (sp-flt spt-g 127.0)
-                                   (sp-rnd-flt spt-b 95.0 32.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-y (degrees -0.033333335) (degrees 0.06666667) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.21333334)
-                                   (sp-int spt-timer 3000)
-                                   (sp-cpuinfo-flags bit2 bit14 left-multiply-quat)
-                                   (sp-int-plain-rnd spt-next-time 300 299 1)
-                                   (sp-launcher-by-id spt-next-launcher 983)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 16.0) (meters 32.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 25.000002))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 982 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x2))
+                           (sp-flt spt-num 0.06125)
+                           (sp-rnd-flt spt-x (meters 0) (meters 128) 1.0)
+                           (sp-rnd-flt spt-y (meters 5.5) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -20) (meters 80) 1.0)
+                           (sp-flt spt-scale-x (meters 36))
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 127.0)
+                           (sp-flt spt-g 127.0)
+                           (sp-rnd-flt spt-b 95.0 32.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-y (degrees -0.033333335) (degrees 0.06666667) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.21333334)
+                           (sp-int spt-timer 3000)
+                           (sp-cpuinfo-flags bit2 bit14 left-multiply-quat)
+                           (sp-int-plain-rnd spt-next-time 300 299 1)
+                           (sp-launcher-by-id spt-next-launcher 983)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 16) (meters 32) 1.0)
+                           (sp-flt spt-rotate-y (degrees 25.000002))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 983)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 1200 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 984)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 983 :init-specs ((sp-flt spt-fade-a 0.0)
+                           (sp-int-plain-rnd spt-next-time 1200 299 1)
+                           (sp-launcher-by-id spt-next-launcher 984)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 984)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 984 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 208) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-316"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 985 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-316
+  :id 208
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 985 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 985) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 70.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 985 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 70.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 209) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-313"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 986 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-313
+  :id 209
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 986 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 986) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 0.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 986 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 0.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 210) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-308"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 987 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-308
+  :id 210
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 987 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 987) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.45 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 80.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 987 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.45 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 80.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 211) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-307"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 988 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-307
+  :id 211
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 988 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 988) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.45 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 120.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 988 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.45 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 120.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 212) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-305"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 989 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-305
+  :id 212
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 989 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 989) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.45 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees -20.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 989 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.45 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees -20.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 213) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-309"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 990 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-309
+  :id 213
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 990 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 990) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.45 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 150.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 990 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.45 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 150.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 214) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-2"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 991 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-2
+  :id 214
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 991 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 991) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.45 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 50.000004))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 991 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.45 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 50.000004))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 215) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-328"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 992 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-328
+  :id 215
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 992 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 992) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.45 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.5) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 150.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 992 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.45 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 150.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 216) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-325"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 993 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-325
+  :id 216
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 993 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 993) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.45 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.8) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.3) (meters 0.6) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.005) (meters 0.005) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees -50.000004))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 993 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.45 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -0.8) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.3) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.005) (meters 0.005) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees -50.000004))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 217) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-320"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 994 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-320
+  :id 217
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 994 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 994) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.45 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.8) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.3) (meters 0.6) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.005) (meters 0.005) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 50.000004))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 994 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.45 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -0.8) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.3) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.005) (meters 0.005) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 50.000004))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 218) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-misty-lurkermachine-vent-324"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 995 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-misty-lurkermachine-vent-324
+  :id 218
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 995 :fade-after (meters 80) :falloff-to (meters 80)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 995) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.45 0.8 1.0)
-                                   (sp-rnd-flt spt-x (meters -0.8) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.3) (meters 0.6) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.0033333334))
-                                   (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.005) (meters 0.005) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.10666667)
-                                   (sp-flt spt-fade-g -0.10666667)
-                                   (sp-flt spt-fade-b -0.10666667)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 220.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 995 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.45 0.8 1.0)
+                           (sp-rnd-flt spt-x (meters -0.8) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-y (meters -0.3) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-vel-y (meters -0.0033333334))
+                           (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters -0.026666667) 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.005) (meters 0.005) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.10666667)
+                           (sp-flt spt-fade-b -0.10666667)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 220.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 219)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-fort-steam"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1500 :length 300)
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2928 :length 360)
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 4602 :length 180)
-          (sp-item 997 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 180 :length 45)
-          )
-        :bounds
-        (new 'static 'sphere :y 2048.0 :w 18432.0)
-        )
-      )
+(defpartgroup group-misty-fort-steam
+  :id 219
+  :bounds (static-bspherem 0 0.5 0 4.5)
+  :parts
+  ((sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 1500 :length 300)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 2928 :length 360)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 4602 :length 180)
+    (sp-item 997 :fade-after (meters 125) :falloff-to (meters 125) :period 180 :length 45)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 220)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-fort-steam2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1230 :length 300)
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2550 :length 360)
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 6102 :length 180)
-          (sp-item 997 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 210 :length 45)
-          )
-        :bounds
-        (new 'static 'sphere :y 2048.0 :w 18432.0)
-        )
-      )
+(defpartgroup group-misty-fort-steam2
+  :id 220
+  :bounds (static-bspherem 0 0.5 0 4.5)
+  :parts
+  ((sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 1230 :length 300)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 2550 :length 360)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 6102 :length 180)
+    (sp-item 997 :fade-after (meters 125) :falloff-to (meters 125) :period 210 :length 45)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 221)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-fort-steam3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1800 :length 300)
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2559 :length 360)
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 5202 :length 180)
-          (sp-item 997 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 240 :length 45)
-          )
-        :bounds
-        (new 'static 'sphere :y 2048.0 :w 18432.0)
-        )
-      )
+(defpartgroup group-misty-fort-steam3
+  :id 221
+  :bounds (static-bspherem 0 0.5 0 4.5)
+  :parts
+  ((sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 1800 :length 300)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 2559 :length 360)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 5202 :length 180)
+    (sp-item 997 :fade-after (meters 125) :falloff-to (meters 125) :period 240 :length 45)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 222)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-fort-steam4"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1560 :length 300)
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2601 :length 360)
-          (sp-item 996 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 4848 :length 180)
-          (sp-item 997 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 270 :length 45)
-          )
-        :bounds
-        (new 'static 'sphere :y 2048.0 :w 18432.0)
-        )
-      )
+(defpartgroup group-misty-fort-steam4
+  :id 222
+  :bounds (static-bspherem 0 0.5 0 4.5)
+  :parts
+  ((sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 1560 :length 300)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 2601 :length 360)
+    (sp-item 996 :fade-after (meters 175) :falloff-to (meters 175) :period 4848 :length 180)
+    (sp-item 997 :fade-after (meters 125) :falloff-to (meters 125) :period 270 :length 45)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 996)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 0.6 1.0)
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-flt spt-scale-x (meters 1.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0048828125))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y 0.68266666)
-                                                     (sp-flt spt-friction 0.996)
-                                                     (sp-int-plain-rnd spt-timer 300 299 1)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-flt spt-conerot-x (degrees 120.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.25))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 996 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 1.0 0.6 1.0)
+                           (sp-flt spt-y (meters 0))
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0048828125))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-flt spt-accel-y 0.68266666)
+                           (sp-flt spt-friction 0.996)
+                           (sp-int-plain-rnd spt-timer 300 299 1)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-conerot-x (degrees 120.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.25))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 997)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-flt spt-scale-x (meters 1.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 32.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0048828125))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-flt spt-accel-y 0.4096)
-                                                     (sp-flt spt-friction 0.993)
-                                                     (sp-int-plain-rnd spt-timer 300 299 1)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-flt spt-conerot-x (degrees 120.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.25))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 997 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 1.0 2.0 1.0)
+                           (sp-flt spt-y (meters 0))
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 32.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0048828125))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.10666667)
+                           (sp-flt spt-accel-y 0.4096)
+                           (sp-flt spt-friction 0.993)
+                           (sp-int-plain-rnd spt-timer 300 299 1)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-flt spt-conerot-x (degrees 120.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.25))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 223)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-lurkermachine-spout-314"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 998 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-          (sp-item 998 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-          (sp-item 998 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-          (sp-item 999 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-misty-lurkermachine-spout-314
+  :id 223
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 998 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 998 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 998 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 999 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 999) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 64.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.02))
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 999 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 64.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-flt spt-vel-y (meters -0.02))
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 998) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 0.6 1.0)
-                                   (new 'static 'sp-field-init-spec
-                                     :field (sp-field-id spt-sound)
-                                     :flags (sp-flag plain-v2)
-                                     :sound
-                                     (new 'static 'sound-spec
+(defpart 998 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 1.0 0.6 1.0)
+                           (sp-sound (new 'static 'sound-spec
                                        :mask #x1
                                        :num 0.05
                                        :group #x1
@@ -1103,84 +850,64 @@
                                        :volume #x400
                                        )
                                      )
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 64.0)
-                                   (sp-flt spt-b 64.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-flt spt-vel-y (meters -0.053333335))
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.16)
-                                   (sp-rnd-flt spt-accel-y 1.3653333 0.13653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-rotate-y (degrees 35.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 64.0)
+                           (sp-flt spt-b 64.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-flt spt-vel-y (meters -0.053333335))
+                           (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.16)
+                           (sp-rnd-flt spt-accel-y 1.3653333 0.13653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-rotate-y (degrees 35.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 224)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-lurkermachine-spout-310"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 1000 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-          (sp-item 1000 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-          (sp-item 1000 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-          (sp-item 1001 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-misty-lurkermachine-spout-310
+  :id 224
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1000 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 1000 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 1000 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 1001 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1001) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.02) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-vel-y (meters -0.02))
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-rotate-y (degrees 35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1001 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.02) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-vel-y (meters -0.02))
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-rotate-y (degrees 35.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1000) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 0.6 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
+(defpart 1000 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 0.6 1.0)
+                            (sp-sound (new 'static 'sound-spec
                                         :mask #x1
                                         :num 0.05
                                         :group #x1
@@ -1188,85 +915,65 @@
                                         :volume #x400
                                         )
                                       )
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.053333335) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-vel-y (meters -0.053333335))
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.16)
-                                    (sp-rnd-flt spt-accel-y 4.096 0.13653333 1.0)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-rotate-y (degrees 35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.053333335) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-vel-y (meters -0.053333335))
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-rnd-flt spt-accel-y 4.096 0.13653333 1.0)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-rotate-y (degrees 35.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 225)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-lurkermachine-spout-311"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 1002 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-          (sp-item 1002 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-          (sp-item 1002 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-          (sp-item 1003 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-misty-lurkermachine-spout-311
+  :id 225
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1002 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 1002 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 1002 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 1003 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1003) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-vel-y (meters -0.02))
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-rotate-y (degrees 35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1003 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-vel-y (meters -0.02))
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-rotate-y (degrees 35.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1002) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 0.6 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
+(defpart 1002 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 0.6 1.0)
+                            (sp-sound (new 'static 'sound-spec
                                         :mask #x1
                                         :num 0.05
                                         :group #x1
@@ -1274,85 +981,65 @@
                                         :volume #x400
                                         )
                                       )
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-vel-y (meters -0.053333335))
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.16)
-                                    (sp-rnd-flt spt-accel-y 4.096 0.13653333 1.0)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-rotate-y (degrees 35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-vel-y (meters -0.053333335))
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-rnd-flt spt-accel-y 4.096 0.13653333 1.0)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-rotate-y (degrees 35.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 226)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-misty-lurkermachine-spout-312"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 1004 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 1260 :length 75)
-          (sp-item 1004 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 770 :length 96)
-          (sp-item 1004 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 936 :length 60)
-          (sp-item 1005 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-misty-lurkermachine-spout-312
+  :id 226
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1004 :fade-after (meters 100) :falloff-to (meters 120) :period 1260 :length 75)
+    (sp-item 1004 :fade-after (meters 100) :falloff-to (meters 120) :period 770 :length 96)
+    (sp-item 1004 :fade-after (meters 140) :falloff-to (meters 160) :period 936 :length 60)
+    (sp-item 1005 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1005) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.02))
-                                    (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-rotate-y (degrees 35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1005 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.02))
+                            (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-rotate-y (degrees 35.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1004) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 0.6 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
+(defpart 1004 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 0.6 1.0)
+                            (sp-sound (new 'static 'sound-spec
                                         :mask #x1
                                         :num 0.05
                                         :group #x1
@@ -1360,25 +1047,23 @@
                                         :volume #x400
                                         )
                                       )
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.053333335))
-                                    (sp-rnd-flt spt-vel-z (meters -0.04) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.16)
-                                    (sp-rnd-flt spt-accel-y 4.096 0.13653333 1.0)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-rotate-y (degrees 35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.053333335))
+                            (sp-rnd-flt spt-vel-z (meters -0.04) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-rnd-flt spt-accel-y 4.096 0.13653333 1.0)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-rotate-y (degrees 35.0))
+                            )
+              )
diff --git a/test/decompiler/reference/levels/misty/quicksandlurker_REF.gc b/test/decompiler/reference/levels/misty/quicksandlurker_REF.gc
index ba656623aa..f968c98c50 100644
--- a/test/decompiler/reference/levels/misty/quicksandlurker_REF.gc
+++ b/test/decompiler/reference/levels/misty/quicksandlurker_REF.gc
@@ -2,356 +2,292 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 198) (new 'static 'sparticle-launch-group
-                                       :length 48
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-quicksandlurker-missile"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 48
-                                         (sp-item 2481 :flags (launch-asap) :binding 2479)
-                                         (sp-item 2479 :flags (start-dead) :binding 2480)
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         (sp-item 2480 :flags (start-dead launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 12288.0)
-                                       )
-      )
+(defpartgroup group-quicksandlurker-missile
+  :id 198
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 2481 :flags (launch-asap) :binding 2479)
+    (sp-item 2479 :flags (start-dead) :binding 2480)
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    (sp-item 2480 :flags (start-dead launch-asap))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2481) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 9
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.01))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer 1200)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-func spt-func 'sparticle-track-root-prim)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2481 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0.01))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 0.0)
+                            (sp-int spt-timer 1200)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-func spt-func 'sparticle-track-root-prim)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2479) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.006666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.0666667)
-                                    (sp-flt spt-fade-g -1.0666667)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 81)
-                                    (sp-launcher-by-id spt-next-launcher 2482)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.1))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2479 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters -0.006666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -1.0666667)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 81)
+                            (sp-launcher-by-id spt-next-launcher 2482)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.1))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2482)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2482 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2480) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 5.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -1.0666667)
-                                    (sp-flt spt-fade-g -1.0666667)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int-plain-rnd spt-timer 30 119 1)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 60)
-                                    (sp-launcher-by-id spt-next-launcher 2482)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.4) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2480 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 5.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -1.0666667)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int-plain-rnd spt-timer 30 119 1)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2482)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 199) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x5dc
-                                       :name "group-quicksandlurker-pre-missile"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2483))
-                                       :bounds (new 'static 'sphere :w 12288.0)
-                                       )
-      )
+(defpartgroup group-quicksandlurker-pre-missile
+  :id 199
+  :duration 5
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 2483))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2483) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.006666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.7111111)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-rnd-flt spt-friction 0.85 0.05 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 119 1)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 90)
-                                    (sp-launcher-by-id spt-next-launcher 2482)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.4) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2483 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.006666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.7111111)
+                            (sp-flt spt-fade-g -0.7111111)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-accel-y -0.68266666)
+                            (sp-rnd-flt spt-friction 0.85 0.05 1.0)
+                            (sp-int-plain-rnd spt-timer 30 119 1)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 90)
+                            (sp-launcher-by-id spt-next-launcher 2482)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 200)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xa
-        :linger-duration #x5dc
-        :name "group-quicksandlurker-missile-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 2484) (sp-item 2485) (sp-item 2486))
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
+(defpartgroup group-quicksandlurker-missile-impact
+  :id 200
+  :duration 10
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 2484) (sp-item 2485) (sp-item 2486))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2484) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 64.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.006666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.7111111)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-rnd-flt spt-friction 0.85 0.05 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 119 1)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 90)
-                                    (sp-launcher-by-id spt-next-launcher 2482)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.4) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2484 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 64.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.006666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.7111111)
+                            (sp-flt spt-fade-g -0.7111111)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-accel-y -0.68266666)
+                            (sp-rnd-flt spt-friction 0.85 0.05 1.0)
+                            (sp-int-plain-rnd spt-timer 30 119 1)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 90)
+                            (sp-launcher-by-id spt-next-launcher 2482)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2486)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 6.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-flt spt-fade-r -0.35555556)
-                                                     (sp-flt spt-fade-g -0.35555556)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.30476192)
-                                                     (sp-rnd-flt spt-accel-y -0.68266666 0.68266666 1.0)
-                                                     (sp-int spt-timer 210)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2482)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2486 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-r -0.35555556)
+                            (sp-flt spt-fade-g -0.35555556)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.30476192)
+                            (sp-rnd-flt spt-accel-y -0.68266666 0.68266666 1.0)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2482)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2485) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -4.8)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2485 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 32.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-flt spt-fade-a -4.8)
+                            (sp-int spt-timer 15)
+                            (sp-cpuinfo-flags bit2)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 201) (new 'static 'sparticle-launch-group
-                                       :length 16
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-quicksandlurker-hide"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 16
-                                         (sp-item 124 :flags (is-3d) :period 900 :length 63)
-                                         (sp-item 125 :period 900 :length 15)
-                                         (sp-item 126 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 127 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 128 :period 900 :length 10 :binding 129)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-quicksandlurker-hide
+  :id 201
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 124 :flags (is-3d) :period 900 :length 63)
+    (sp-item 125 :period 900 :length 15)
+    (sp-item 126 :flags (is-3d) :period 900 :length 15)
+    (sp-item 127 :flags (is-3d) :period 900 :length 15)
+    (sp-item 128 :period 900 :length 10 :binding 129)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 202) (new 'static 'sparticle-launch-group
-                                       :length 16
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-quicksandlurker-popup"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 16
-                                         (sp-item 124 :flags (is-3d) :period 900 :length 63)
-                                         (sp-item 125 :period 900 :length 15)
-                                         (sp-item 126 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 127 :flags (is-3d) :period 900 :length 15)
-                                         (sp-item 128 :period 900 :length 10 :binding 129)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         (sp-item 129 :flags (start-dead) :period 900 :length 120)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -49152.0 :w 57344.0)
-                                       )
-      )
+(defpartgroup group-quicksandlurker-popup
+  :id 202
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -12 0 14)
+  :parts
+  ((sp-item 124 :flags (is-3d) :period 900 :length 63)
+    (sp-item 125 :period 900 :length 15)
+    (sp-item 126 :flags (is-3d) :period 900 :length 15)
+    (sp-item 127 :flags (is-3d) :period 900 :length 15)
+    (sp-item 128 :period 900 :length 10 :binding 129)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    (sp-item 129 :flags (start-dead) :period 900 :length 120)
+    )
+  )
 
 ;; definition of type quicksandlurker-missile
 (deftype quicksandlurker-missile (process-drawable)
diff --git a/test/decompiler/reference/levels/misty/sidekick-human_REF.gc b/test/decompiler/reference/levels/misty/sidekick-human_REF.gc
index a2a047a67d..0d70c71bdb 100644
--- a/test/decompiler/reference/levels/misty/sidekick-human_REF.gc
+++ b/test/decompiler/reference/levels/misty/sidekick-human_REF.gc
@@ -42,1270 +42,1083 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 657) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-2d-intro-mist"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 2665 :period 300 :length 5 :binding 2663)
-                                         (sp-item 2663 :flags (start-dead launch-asap) :binding 2664)
-                                         (sp-item 2663 :flags (start-dead launch-asap) :binding 2664)
-                                         (sp-item 2664 :flags (start-dead))
-                                         (sp-item 2664 :flags (start-dead))
-                                         (sp-item 2664 :flags (start-dead))
-                                         (sp-item 2666)
-                                         (sp-item 2667)
-                                         )
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
+(defpartgroup group-2d-intro-mist
+  :id 657
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2665 :period 300 :length 5 :binding 2663)
+    (sp-item 2663 :flags (start-dead launch-asap) :binding 2664)
+    (sp-item 2663 :flags (start-dead launch-asap) :binding 2664)
+    (sp-item 2664 :flags (start-dead))
+    (sp-item 2664 :flags (start-dead))
+    (sp-item 2664 :flags (start-dead))
+    (sp-item 2666)
+    (sp-item 2667)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2665) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.5) (meters 5.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2665 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -2.5) (meters 5) 1.0)
+                            (sp-rnd-flt spt-y (meters -1.5) (meters 3) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2663) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
-                                    (sp-flt spt-scalevel-x (meters -0.0012121212))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2663 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
+                            (sp-flt spt-scalevel-x (meters -0.0012121212))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2664) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0010952381))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y 0.0 -0.13653333 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 198)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2664 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0010952381))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y 0.0 -0.13653333 1.0)
+                            (sp-int-plain-rnd spt-timer 30 299 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 198)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2667) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-z -16000.0)
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2667 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-z (meters -3.90625))
+                            (sp-flt spt-scale-x (meters 15))
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2666)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 21
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 0.3)
-          (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
-          (sp-rnd-flt spt-z 0.0 14000.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 6.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-rnd-flt spt-scale-y (meters 6.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-r 16.0 80.0 1.0)
-          (sp-rnd-flt spt-g 0.0 16.0 1.0)
-          (sp-rnd-flt spt-b 16.0 150.0 1.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.0016666667) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.075) (degrees 0.15) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.21333334)
-          (sp-int spt-timer 1500)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 150 149 1)
-          (sp-launcher-by-id spt-next-launcher 2668)
-          (sp-end)
-          )
-        )
-      )
+(defpart 2666 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.3)
+                            (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-y (meters -3) (meters 6) 1.0)
+                            (sp-rnd-flt spt-z (meters 0) (meters 3.4179688) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 6) (meters 8) 1.0)
+                            (sp-rnd-flt spt-r 16.0 80.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 16.0 150.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters -0.0016666667) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.075) (degrees 0.15) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 150 149 1)
+                            (sp-launcher-by-id spt-next-launcher 2668)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2668)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 300 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2669)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2668 :init-specs ((sp-flt spt-fade-a 0.0)
+                            (sp-int-plain-rnd spt-next-time 300 299 1)
+                            (sp-launcher-by-id spt-next-launcher 2669)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2669)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 2669 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 557) (new 'static 'sparticle-launch-group
-                                       :length #x101
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-evilsib-appear"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 257
-                                         (sp-item 2345 :period 1500 :length 20 :offset 1500)
-                                         (sp-item 2346 :period 1500 :length 20 :offset 1500)
-                                         (sp-item 2347 :period 1500 :length 5 :offset 1500)
-                                         (sp-item 2348 :period 1500 :length 20 :offset 1500)
-                                         (sp-item 2349 :period 1500 :length 900 :offset 750 :binding 2344)
-                                         (sp-item 2350 :period 1500 :length 750 :offset 600 :binding 2344)
-                                         (sp-item 2351 :period 1500 :length 600 :offset 450 :binding 2344)
-                                         (sp-item 2351 :period 1500 :length 450 :offset 300 :binding 2344)
-                                         (sp-item 2352 :period 1500 :length 300 :offset 150 :binding 2344)
-                                         (sp-item 2352 :period 1500 :length 150 :binding 2344)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-evilsib-appear
+  :id 557
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2345 :period 1500 :length 20 :offset 1500)
+    (sp-item 2346 :period 1500 :length 20 :offset 1500)
+    (sp-item 2347 :period 1500 :length 5 :offset 1500)
+    (sp-item 2348 :period 1500 :length 20 :offset 1500)
+    (sp-item 2349 :period 1500 :length 900 :offset 750 :binding 2344)
+    (sp-item 2350 :period 1500 :length 750 :offset 600 :binding 2344)
+    (sp-item 2351 :period 1500 :length 600 :offset 450 :binding 2344)
+    (sp-item 2351 :period 1500 :length 450 :offset 300 :binding 2344)
+    (sp-item 2352 :period 1500 :length 300 :offset 150 :binding 2344)
+    (sp-item 2352 :period 1500 :length 150 :binding 2344)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2344 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2349)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.1) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -1.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit14)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2349 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters 0) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit14)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2353)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 2353 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2350)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.1) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -1.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 300)
-                                                     (sp-launcher-by-id spt-next-launcher 2353)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2350 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters 0) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 2353)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2351)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.3) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 0.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 300)
-                                                     (sp-launcher-by-id spt-next-launcher 2353)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2351 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters 0) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 2353)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2352)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 300)
-                                                     (sp-launcher-by-id spt-next-launcher 2353)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2352 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 2353)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2344) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 20480.0 6144.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.074074075) (meters 0.14814815) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters -0.015))
-                                    (sp-flt spt-scalevel-x (meters 0.0005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.53333336) (degrees 1.0666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-int spt-next-time 270)
-                                    (sp-launcher-by-id spt-next-launcher 2354)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2344 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.05) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.074074075) (meters 0.14814815) 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters -0.015))
+                            (sp-flt spt-scalevel-x (meters 0.0005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.53333336) (degrees 1.0666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            (sp-int spt-next-time 270)
+                            (sp-launcher-by-id spt-next-launcher 2354)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2354)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -3.2) (sp-end))
-        )
-      )
+(defpart 2354 :init-specs ((sp-flt spt-fade-a -3.2)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2345) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00066666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -3.4133334 1.0)
-                                    (sp-rnd-flt spt-friction 0.8 0.05 1.0)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 749 1)
-                                    (sp-launcher-by-id spt-next-launcher 2355)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2345 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00066666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -3.4133334 1.0)
+                            (sp-rnd-flt spt-friction 0.8 0.05 1.0)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 749 1)
+                            (sp-launcher-by-id spt-next-launcher 2355)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2355)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 3 (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
+(defpart 2355 :init-specs ((sp-flt spt-fade-g 0.0) (sp-flt spt-fade-a 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2346) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00066666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.42666668)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -3.4133334 1.0)
-                                    (sp-rnd-flt spt-friction 0.75 0.05 1.0)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 749 1)
-                                    (sp-launcher-by-id spt-next-launcher 2355)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2346 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00066666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -3.4133334 1.0)
+                            (sp-rnd-flt spt-friction 0.75 0.05 1.0)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 749 1)
+                            (sp-launcher-by-id spt-next-launcher 2355)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2347) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-rnd-flt spt-scale-x (meters 28.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-g -2.3272727)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2347 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-rnd-flt spt-scale-x (meters 28) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-g -2.3272727)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2348) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 16.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.6))
-                                    (sp-flt spt-fade-r -2.1333334)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-a -1.0666667)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2348 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 16))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.6))
+                            (sp-flt spt-fade-r -2.1333334)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-a -1.0666667)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 558) (new 'static 'sparticle-launch-group
-                                       :length 79
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-evilsib-hover"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 79
-                                         (sp-item 2386 :binding 2385)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         (sp-item 2384 :flags (bit1 start-dead))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-evilsib-hover
+  :id 558
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2386 :binding 2385)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2385 :flags (bit1 start-dead launch-asap) :binding 2384)
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    (sp-item 2384 :flags (bit1 start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2386) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-accel-y -2.048)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2386 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-accel-y -2.048)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2385) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-z 1024.0 1024.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.025) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.04444444) (meters 0.08888888) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0027777778))
-                                    (sp-flt spt-scalevel-x (meters 0.00027777778))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.53333336) (degrees 1.0666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 4.266667)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 14 1)
-                                    (sp-launcher-by-id spt-next-launcher 2388)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2385 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters 0.25) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.025) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.04444444) (meters 0.08888888) 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0.0027777778))
+                            (sp-flt spt-scalevel-x (meters 0.00027777778))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.53333336) (degrees 1.0666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 14 1)
+                            (sp-launcher-by-id spt-next-launcher 2388)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2388)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2389)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2388
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 150) (sp-launcher-by-id spt-next-launcher 2389))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2389)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-vel-z (meters -0.008333334))
-                                                     (sp-flt spt-scalevel-x (meters -0.00041666668))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2389 :init-specs ((sp-flt spt-vel-z (meters -0.008333334))
+                            (sp-flt spt-scalevel-x (meters -0.00041666668))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.0666667)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2384) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.03))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.53333336) (degrees 1.0666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -4.8)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2384 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.03))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.53333336) (degrees 1.0666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -4.8)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-int spt-timer 15)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 560) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-sequenceC-glowing-can"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2298))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-sequenceC-glowing-can
+  :id 560
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2298))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2298)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.0)
-                                                     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.42666668)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2298 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.0)
+                            (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 561)
-      (new 'static 'sparticle-launch-group
-        :length 69
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-sequenceC-exploding-can"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 69
-          (sp-item 2785 :period 1800 :length 5)
-          (sp-item 2786 :period 1800 :length 40)
-          (sp-item 2787 :period 1800 :length 20)
-          (sp-item 2788 :period 1800 :length 20)
-          (sp-item 2830 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-sequenceC-exploding-can
+  :id 561
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2785 :period 1800 :length 5)
+    (sp-item 2786 :period 1800 :length 40)
+    (sp-item 2787 :period 1800 :length 20)
+    (sp-item 2788 :period 1800 :length 20)
+    (sp-item 2830 :fade-after (meters 100) :period 600 :length 5 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2830) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 240)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2830 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 240)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 140.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2786) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters -1.5) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2789)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2786 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-rnd-flt spt-y (meters -1.5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2789)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2789)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2789 :init-specs ((sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2788) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2788 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.04))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2785) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 24.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2785 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 24))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2787)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-y (meters -1.5) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2787 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters -1.5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.02))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 562)
-      (new 'static 'sparticle-launch-group
-        :length 36
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-sequenceC-dark-splash"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 36
-          (sp-item 295 :fade-after (meters 100.0) :period 600 :length 5 :binding 296)
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 296 :flags (start-dead launch-asap) :binding 297)
-          (sp-item 297 :fade-after (meters 80.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 2095 :period 600 :length 5)
-          (sp-item 2096 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 600 :length 40)
-          (sp-item 2097 :period 600 :length 20)
-          )
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-sequenceC-dark-splash
+  :id 562
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 295 :fade-after (meters 100) :period 600 :length 5 :binding 296)
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 296 :flags (start-dead launch-asap) :binding 297)
+    (sp-item 297 :fade-after (meters 80) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 2095 :period 600 :length 5)
+    (sp-item 2096 :fade-after (meters 80) :falloff-to (meters 80) :period 600 :length 40)
+    (sp-item 2097 :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 681) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x384
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-sequenceC-blow-dust"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2790))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-sequenceC-blow-dust
+  :id 681
+  :duration 5
+  :linger-duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2790))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2790) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.4)
-                                    (sp-rnd-flt spt-accel-y 1.3653333 -1.3653333 1.0)
-                                    (sp-flt spt-friction 0.92)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 15 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 2822)
-                                    (sp-rnd-flt spt-conerot-x (degrees 112.99999) (degrees 2.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -12.500001) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.3) (meters -0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2790 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.4)
+                            (sp-rnd-flt spt-accel-y 1.3653333 -1.3653333 1.0)
+                            (sp-flt spt-friction 0.92)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 15 44 1)
+                            (sp-launcher-by-id spt-next-launcher 2822)
+                            (sp-rnd-flt spt-conerot-x (degrees 112.99999) (degrees 2.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -12.500001) (degrees 15.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.3) (meters -0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2822)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.1) (sp-end))
-        )
-      )
+(defpart 2822 :init-specs ((sp-flt spt-fade-a -0.1)))
 
 ;; definition of type sequenceB
 (deftype sequenceB (process-taskable)
diff --git a/test/decompiler/reference/levels/ogre/ogre-obs_REF.gc b/test/decompiler/reference/levels/ogre/ogre-obs_REF.gc
index ee04e56309..5738b7572a 100644
--- a/test/decompiler/reference/levels/ogre/ogre-obs_REF.gc
+++ b/test/decompiler/reference/levels/ogre/ogre-obs_REF.gc
@@ -11,380 +11,284 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 473) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-tntbarrel-BIG-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2234 :period 3000 :length 5)
-                                         (sp-item 2235 :period 3000 :length 5)
-                                         (sp-item 2236 :period 3000 :length 40)
-                                         (sp-item 2237 :period 3000 :length 40)
-                                         (sp-item 2238 :period 3000 :length 40)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-tntbarrel-BIG-explosion
+  :id 473
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2234 :period 3000 :length 5)
+    (sp-item 2235 :period 3000 :length 5)
+    (sp-item 2236 :period 3000 :length 40)
+    (sp-item 2237 :period 3000 :length 40)
+    (sp-item 2238 :period 3000 :length 40)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2236) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.32) (meters 0.42666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.009333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-b -1.4222223)
-                                    (sp-rnd-flt spt-accel-y -2.048 -2.048 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2239)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 12.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2236 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.32) (meters 0.42666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.009333333))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-b -1.4222223)
+                            (sp-rnd-flt spt-accel-y -2.048 -2.048 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2239)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 12) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2239)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2239
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2238) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 32.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 3.4133334))
-                                    (sp-flt spt-fade-g -3.2666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2238 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 32))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 3.4133334))
+                            (sp-flt spt-fade-g -3.2666667)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2234) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 128.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2234 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 128))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2235) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 32.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2235 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 32))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2237)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 48.0)
-                                                     (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 16.0) (meters 10.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.32) (meters 0.21333334) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.053333335))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.08533333)
-                                                     (sp-rnd-flt spt-accel-y 2.048 2.048 1.0)
-                                                     (sp-flt spt-friction 0.85)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2240)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 160.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 8.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2237 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 48.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 16) (meters 10) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 48.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.32) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.053333335))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.08533333)
+                            (sp-rnd-flt spt-accel-y 2.048 2.048 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2240)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 160.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 8) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2240)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -0.26666668)
-                                                     (sp-flt spt-fade-g -0.26666668)
-                                                     (sp-flt spt-fade-b -0.52916664)
-                                                     (sp-int spt-next-time 240)
-                                                     (sp-launcher-by-id spt-next-launcher 2241)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2240 :init-specs ((sp-flt spt-fade-r -0.26666668)
+                            (sp-flt spt-fade-g -0.26666668)
+                            (sp-flt spt-fade-b -0.52916664)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 2241)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2241)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.24380952)
-                                                     (sp-flt spt-fade-g -0.12190476)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.09142857)
-                                                     (sp-int spt-next-time 525)
-                                                     (sp-launcher-by-id spt-next-launcher 2242)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2241 :init-specs ((sp-flt spt-fade-r -0.24380952)
+                            (sp-flt spt-fade-g -0.12190476)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.09142857)
+                            (sp-int spt-next-time 525)
+                            (sp-launcher-by-id spt-next-launcher 2242)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2242)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2242 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 474) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #x258
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-tntbarrel-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2079 :period 600 :length 5)
-                                         (sp-item 2080 :period 600 :length 40)
-                                         (sp-item 2081 :period 600 :length 20)
-                                         (sp-item 2082 :period 600 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-tntbarrel-explosion
+  :id 474
+  :duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2079 :period 600 :length 5)
+    (sp-item 2080 :period 600 :length 40)
+    (sp-item 2081 :period 600 :length 20)
+    (sp-item 2082 :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2080) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-b -1.4222223)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2083)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2080 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-b -1.4222223)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2083)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2083)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2083
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2082) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.85333335))
-                                    (sp-flt spt-fade-g -3.2666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2082 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.85333335))
+                            (sp-flt spt-fade-g -3.2666667)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2079) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 24.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2079 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 24))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2081)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2084)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 3.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2081 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.02))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2084)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 3) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2084)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -1.0666667)
-                                                     (sp-flt spt-fade-g -1.0666667)
-                                                     (sp-flt spt-fade-b -2.1166666)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2085)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2084 :init-specs ((sp-flt spt-fade-r -1.0666667)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b -2.1166666)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2085)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2085)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.5688889)
-                                                     (sp-flt spt-fade-g -0.28444445)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 2086)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2085 :init-specs ((sp-flt spt-fade-r -0.5688889)
+                            (sp-flt spt-fade-g -0.28444445)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-int spt-next-time 225)
+                            (sp-launcher-by-id spt-next-launcher 2086)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2086)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2086 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
 (defskelgroup *tntbarrel-sg* tntbarrel
@@ -1812,106 +1716,82 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 475) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x12c
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-shortcut-boulder-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2149 :period 1500 :length 5)
-                                         (sp-item 2150 :period 1500 :length 5)
-                                         (sp-item 2151 :period 1500 :length 15)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-shortcut-boulder-explosion
+  :id 475
+  :duration 300
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2149 :period 1500 :length 5)
+    (sp-item 2150 :period 1500 :length 5)
+    (sp-item 2151 :period 1500 :length 15)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2150) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 130.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 54.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.1333334)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2150 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 15))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 130.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 54.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.1333334)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2149) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-drop)
-                                    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2149 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-rnd-flt spt-num 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 70.0 16.0 1.0)
+                            (sp-rnd-flt spt-g 70.0 16.0 1.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-flt spt-userdata 0.0)
+                            (sp-func spt-func 'check-water-level-drop)
+                            (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2151) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-flt spt-scalevel-y (meters 0.0033333334))
-                                    (sp-flt spt-accel-y -1.0922667)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 30 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 2152)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2151 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-flt spt-scalevel-y (meters 0.0033333334))
+                            (sp-flt spt-accel-y -1.0922667)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 30 299 1)
+                            (sp-launcher-by-id spt-next-launcher 2152)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2152)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.2) (sp-end))
-        )
-      )
+(defpart 2152 :init-specs ((sp-flt spt-fade-a -0.2)))
 
 ;; failed to figure out what this is:
 (defstate shortcut-boulder-break (shortcut-boulder)
diff --git a/test/decompiler/reference/levels/ogre/ogre-part_REF.gc b/test/decompiler/reference/levels/ogre/ogre-part_REF.gc
index 816e318fe7..c600fee874 100644
--- a/test/decompiler/reference/levels/ogre/ogre-part_REF.gc
+++ b/test/decompiler/reference/levels/ogre/ogre-part_REF.gc
@@ -2,860 +2,672 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 464) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #x5dc
-                                       :linger-duration #xbb8
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ogreboss-column-break"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2193 :period 1500 :length 5)
-                                         (sp-item 2194 :period 1500 :length 40)
-                                         (sp-item 2195 :period 1500 :length 20)
-                                         (sp-item 2196 :period 1500 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-ogreboss-column-break
+  :id 464
+  :duration 1500
+  :linger-duration 3000
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2193 :period 1500 :length 5)
+    (sp-item 2194 :period 1500 :length 40)
+    (sp-item 2195 :period 1500 :length 20)
+    (sp-item 2196 :period 1500 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2194) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.23333333) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-flt spt-fade-b -0.7111111)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2197)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2194 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-y (meters -5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.23333333) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.7111111)
+                            (sp-flt spt-fade-b -0.7111111)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2197)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2197)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2197
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2196) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.6))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 20.0))
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 96.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.5))
-                                    (sp-flt spt-fade-g -1.6)
-                                    (sp-flt spt-fade-b -1.6)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2196 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-y (meters -5) (meters 1) 1.0)
+                            (sp-flt spt-scale-x (meters 0.6))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 20))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 96.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.5))
+                            (sp-flt spt-fade-g -1.6)
+                            (sp-flt spt-fade-b -1.6)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2193) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-flt spt-scale-x (meters 44.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2193 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -4))
+                            (sp-flt spt-scale-x (meters 44))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2195)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 24.0)
-                                                     (sp-rnd-flt spt-y (meters -5.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 5.0) (meters 2.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 32.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.12) (meters 0.06666667) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.026666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 1800)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2198)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 6.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2195 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 24.0)
+                            (sp-rnd-flt spt-y (meters -5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.12) (meters 0.06666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.026666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2198)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 6) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2198)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -0.21333334)
-                                                     (sp-flt spt-fade-g -0.21333334)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2199)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2198 :init-specs ((sp-flt spt-fade-r -0.21333334)
+                            (sp-flt spt-fade-g -0.21333334)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2199)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2199)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.021333333)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.08533333)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 2200)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2199 :init-specs ((sp-flt spt-fade-r -0.021333333)
+                            (sp-flt spt-fade-g 0.0)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.08533333)
+                            (sp-int spt-next-time 225)
+                            (sp-launcher-by-id spt-next-launcher 2200)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2200)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2200 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 465) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x96
-                                       :linger-duration #x258
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ogreboss-lava-splash"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2023))
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-ogreboss-lava-splash
+  :id 465
+  :duration 150
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2023))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2023) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 45.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2023 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 45.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 466)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x4b
-        :linger-duration #x258
-        :flags (sp-group-flag use-local-clock)
-        :name "group-ogre-bridge-splash"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2108) (sp-item 2109) (sp-item 2110) (sp-item 2111))
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-ogre-bridge-splash
+  :id 466
+  :duration 75
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2108) (sp-item 2109) (sp-item 2110) (sp-item 2111))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2111) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 4.0 4.0 1.0)
-                                    (sp-flt spt-y (meters -3.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.75) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.003))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y -5.4613333)
-                                    (sp-int spt-timer 360)
-                                    (sp-cpuinfo-flags bit0 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 1.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2111 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 4.0 4.0 1.0)
+                            (sp-flt spt-y (meters -3))
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.75) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.003))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y -5.4613333)
+                            (sp-int spt-timer 360)
+                            (sp-cpuinfo-flags bit0 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 1))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2108) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters -3.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.03529412))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -1.1294118)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 81)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2108 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 2) 1.0)
+                            (sp-flt spt-y (meters -3))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.03529412))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.1294118)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 81)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2109)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 8.0)
-                                                     (sp-rnd-flt spt-x (meters 3.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-y (meters -3.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0016666667) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.07777778))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -2.8444443)
-                                                     (sp-flt spt-friction 0.98)
-                                                     (sp-int spt-timer 42)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2109 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters 3) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -3))
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0016666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.07777778))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -2.8444443)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2110)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 4.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -3.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 5.0) (meters 8.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-flt spt-g 255.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.015555556))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.56666666)
-                                                     (sp-flt spt-fade-g -0.56666666)
-                                                     (sp-flt spt-fade-b -0.56666666)
-                                                     (sp-flt spt-fade-a 0.15)
-                                                     (sp-flt spt-friction 0.97)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int-plain-rnd spt-next-time 81 80 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2112)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2110 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 3) 1.0)
+                            (sp-rnd-flt spt-y (meters -3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 5) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015555556))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.56666666)
+                            (sp-flt spt-fade-g -0.56666666)
+                            (sp-flt spt-fade-b -0.56666666)
+                            (sp-flt spt-fade-a 0.15)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 81 80 1)
+                            (sp-launcher-by-id spt-next-launcher 2112)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2112)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.08) (sp-end))
-        )
-      )
+(defpart 2112 :init-specs ((sp-flt spt-fade-a -0.08)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 468)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x96
-        :linger-duration #x258
-        :flags (sp-group-flag use-local-clock)
-        :name "group-ogreboss-boulder-grow"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 2201) (sp-item 2202) (sp-item 2203) (sp-item 2204))
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-ogreboss-boulder-grow
+  :id 468
+  :duration 150
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 2201) (sp-item 2202) (sp-item 2203) (sp-item 2204))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2203) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-y (meters -0.13333334))
-                                    (sp-flt spt-scalevel-x (meters -0.002))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -6.4)
-                                    (sp-flt spt-fade-b -6.4)
-                                    (sp-flt spt-fade-a 6.4)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int spt-next-time 20)
-                                    (sp-launcher-by-id spt-next-launcher 2205)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 12.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2203 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters -0.13333334))
+                            (sp-flt spt-scalevel-x (meters -0.002))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -6.4)
+                            (sp-flt spt-fade-b -6.4)
+                            (sp-flt spt-fade-a 6.4)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 20)
+                            (sp-launcher-by-id spt-next-launcher 2205)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 12) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2205)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r -0.85333335)
-                                                     (sp-flt spt-fade-g -0.42666668)
-                                                     (sp-flt spt-fade-b -0.42666668)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2205 :init-specs ((sp-flt spt-fade-r -0.85333335)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-flt spt-fade-b -0.42666668)
+                            (sp-flt spt-fade-a -0.85333335)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2204) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 16.0))
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.2))
-                                    (sp-flt spt-fade-g -1.0666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2204 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 16))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.2))
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 30)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2201) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-rnd-flt spt-scale-x (meters 28.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2201 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-rnd-flt spt-scale-x (meters 28) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2202) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-rnd-flt spt-scale-x (meters 16.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2202 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-rnd-flt spt-scale-x (meters 16) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 196.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 469)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-ogreboss-missile"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1933) (sp-item 1934))
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
+(defpartgroup group-ogreboss-missile
+  :id 469
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 1933) (sp-item 1934))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1934) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.8) (meters 0.9) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-flt spt-b 32.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.21333334)
-                                    (sp-flt spt-fade-g -0.10666667)
-                                    (sp-flt spt-fade-b 0.10666667)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1934 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4.8) (meters 0.9) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-rnd-flt spt-a 48.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.21333334)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-b 0.10666667)
+                            (sp-flt spt-fade-a -0.32)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1933) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 0.9) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-flt spt-b 32.0)
-                                    (sp-rnd-flt spt-a 80.0 80.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g -0.53333336)
-                                    (sp-flt spt-fade-b -0.17777778)
-                                    (sp-flt spt-fade-a -1.0666667)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 180)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1933 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 0.9) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-rnd-flt spt-a 80.0 80.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g -0.53333336)
+                            (sp-flt spt-fade-b -0.17777778)
+                            (sp-flt spt-fade-a -1.0666667)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 470) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #x96
-                                       :linger-duration #x258
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ogreboss-pre-missile"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 2079 :period 600 :length 5)
-                                         (sp-item 2206 :period 600 :length 40)
-                                         (sp-item 2206 :period 600 :length 40)
-                                         (sp-item 2206 :period 600 :length 30)
-                                         (sp-item 2206 :period 600 :length 20)
-                                         (sp-item 2082 :period 600 :length 20)
-                                         (sp-item 2082 :period 600 :length 10)
-                                         (sp-item 2082 :period 600 :length 5)
-                                         )
-                                       :bounds (new 'static 'sphere :w 12288.0)
-                                       )
-      )
+(defpartgroup group-ogreboss-pre-missile
+  :id 470
+  :duration 150
+  :linger-duration 600
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 2079 :period 600 :length 5)
+    (sp-item 2206 :period 600 :length 40)
+    (sp-item 2206 :period 600 :length 40)
+    (sp-item 2206 :period 600 :length 30)
+    (sp-item 2206 :period 600 :length 20)
+    (sp-item 2082 :period 600 :length 20)
+    (sp-item 2082 :period 600 :length 10)
+    (sp-item 2082 :period 600 :length 5)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2206) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-b -1.4222223)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2083)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2206 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-b -1.4222223)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2083)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 471) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #x12c
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ogreboss-missile-impact"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2079 :period 600 :length 5)
-                                         (sp-item 2080 :period 600 :length 40)
-                                         (sp-item 2148 :period 600 :length 20)
-                                         (sp-item 2082 :period 600 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 65536.0)
-                                       )
-      )
+(defpartgroup group-ogreboss-missile-impact
+  :id 471
+  :duration 300
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 2079 :period 600 :length 5)
+    (sp-item 2080 :period 600 :length 40)
+    (sp-item 2148 :period 600 :length 20)
+    (sp-item 2082 :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 472)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-ogre-lava-lava-20x20"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 2030 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-          (sp-item 2031 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 2032 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 2028)
-          (sp-item 2028 :flags (start-dead))
-          (sp-item 2028 :flags (start-dead))
-          (sp-item 2028 :flags (start-dead))
-          (sp-item 2028 :flags (start-dead))
-          (sp-item 2028 :flags (start-dead))
-          (sp-item 2028 :flags (start-dead))
-          (sp-item 2028 :flags (start-dead))
-          (sp-item 2028 :flags (start-dead))
-          (sp-item 2033 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 137 :length 5 :binding 2029)
-          (sp-item 2033 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 234 :length 5 :binding 2029)
-          (sp-item 2033 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 92 :length 5 :binding 2029)
-          (sp-item 2029 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 57344.0)
-        )
-      )
+(defpartgroup group-ogre-lava-lava-20x20
+  :id 472
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 2030 :fade-after (meters 40) :falloff-to (meters 40))
+    (sp-item 2031 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 2032 :fade-after (meters 80) :falloff-to (meters 80) :binding 2028)
+    (sp-item 2028 :flags (start-dead))
+    (sp-item 2028 :flags (start-dead))
+    (sp-item 2028 :flags (start-dead))
+    (sp-item 2028 :flags (start-dead))
+    (sp-item 2028 :flags (start-dead))
+    (sp-item 2028 :flags (start-dead))
+    (sp-item 2028 :flags (start-dead))
+    (sp-item 2028 :flags (start-dead))
+    (sp-item 2033 :fade-after (meters 40) :falloff-to (meters 40) :period 137 :length 5 :binding 2029)
+    (sp-item 2033 :fade-after (meters 60) :falloff-to (meters 60) :period 234 :length 5 :binding 2029)
+    (sp-item 2033 :fade-after (meters 80) :falloff-to (meters 80) :period 92 :length 5 :binding 2029)
+    (sp-item 2029 :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2031)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.05)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.64)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2034)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2031 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.05)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.64)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 2034)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2033) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.5)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2033 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2032) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.02 0.02 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 180)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2032 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.02 0.02 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2030) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 8192.0)
-                                    (sp-flt spt-g 5324.8)
-                                    (sp-flt spt-b 5324.8)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-r 40.96)
-                                    (sp-flt spt-fade-g 27.306667)
-                                    (sp-flt spt-fade-b 38.229332)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2035)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2030 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 5324.8)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-r 40.96)
+                            (sp-flt spt-fade-g 27.306667)
+                            (sp-flt spt-fade-b 38.229332)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 2035)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2035)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b 16.384) (sp-end))
-        )
-      )
+(defpart 2035 :init-specs ((sp-flt spt-fade-b 16.384)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2034)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 2036)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2034
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 75) (sp-launcher-by-id spt-next-launcher 2036))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2036)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r -0.85333335)
-                                                     (sp-flt spt-fade-g -0.42666668)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2037)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2036 :init-specs ((sp-flt spt-fade-r -0.85333335)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2037)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2037)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2037 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-a -0.10666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2028) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.7)
-                                    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0029166667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-int-plain-rnd spt-timer 30 179 1)
-                                    (sp-cpuinfo-flags bit0 bit3)
-                                    (sp-flt spt-rotate-y (degrees 45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2028 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.7)
+                            (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0029166667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-int-plain-rnd spt-timer 30 179 1)
+                            (sp-cpuinfo-flags bit0 bit3)
+                            (sp-flt spt-rotate-y (degrees 45.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2029) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 6.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0023333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-int spt-timer 360)
-                                    (sp-cpuinfo-flags bit0 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2029 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 6.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0023333333))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-int spt-timer 360)
+                            (sp-cpuinfo-flags bit0 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; definition of type ogre-part
 (deftype ogre-part (part-spawner)
diff --git a/test/decompiler/reference/levels/racer_common/racer-part_REF.gc b/test/decompiler/reference/levels/racer_common/racer-part_REF.gc
index 83914da907..bae1282247 100644
--- a/test/decompiler/reference/levels/racer_common/racer-part_REF.gc
+++ b/test/decompiler/reference/levels/racer_common/racer-part_REF.gc
@@ -55,108 +55,78 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 108)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-racer-speed-dial"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 740 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
+(defpartgroup group-part-hud-racer-speed-dial
+  :id 108
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 740 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 109)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-racer-speed"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 741 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
+(defpartgroup group-part-hud-racer-speed
+  :id 109
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 741 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 110)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-racer-speed-front"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1999 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
+(defpartgroup group-part-hud-racer-speed-front
+  :id 110
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 1999 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 741) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x45f))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-int spt-rot-x 4)
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 741 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x45f))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 3))
+                           (sp-int spt-rot-x 4)
+                           (sp-flt spt-scale-y (meters 3))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 740) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x45f))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-int spt-rot-x 4)
-                                   (sp-flt spt-rot-z (degrees 235.0))
-                                   (sp-flt spt-scale-y (meters 0.3))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-func spt-func 'part-hud-racer-speed-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 740 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x45f))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-int spt-rot-x 4)
+                           (sp-flt spt-rot-z (degrees 235.0))
+                           (sp-flt spt-scale-y (meters 0.3))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'part-hud-racer-speed-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1999) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x45f))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.8))
-                                    (sp-int spt-rot-x 4)
-                                    (sp-flt spt-scale-y (meters 0.8))
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1999 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x7 :page #x45f))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0.8))
+                            (sp-int spt-rot-x 4)
+                            (sp-flt spt-scale-y (meters 0.8))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9)
+                            )
+              )
 
 ;; definition for function part-hud-racer-heat-func
 (defun part-hud-racer-heat-func ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 matrix))
@@ -252,184 +222,131 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 111)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-racer-heat-backing"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 737 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
+(defpartgroup group-part-hud-racer-heat-backing
+  :id 111
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 737 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 112)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-racer-heat-dial"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 738 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
+(defpartgroup group-part-hud-racer-heat-dial
+  :id 112
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 738 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 113)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag screen-space)
-        :name "group-part-hud-racer-heat"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 739 :flags (launch-asap)))
-        :bounds (new 'static 'sphere :w 8192.0)
-        )
-      )
+(defpartgroup group-part-hud-racer-heat
+  :id 113
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 739 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 114) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags
-                                       (sp-group-flag use-local-clock screen-space)
-                                       :name "group-part-hud-racer-heat-slice"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2010 :flags (launch-asap))
-                                         (sp-item 2011 :flags (launch-asap))
-                                         (sp-item 2012 :flags (launch-asap))
-                                         )
-                                       :bounds (new 'static 'sphere :w 409600.0)
-                                       )
-      )
+(defpartgroup group-part-hud-racer-heat-slice
+  :id 114
+  :flags (use-local-clock screen-space)
+  :bounds (static-bspherem 0 0 0 100)
+  :parts
+  ((sp-item 2010 :flags (launch-asap)) (sp-item 2011 :flags (launch-asap)) (sp-item 2012 :flags (launch-asap)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 739) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x45f))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 3.0))
-                                   (sp-int spt-rot-x 4)
-                                   (sp-flt spt-scale-y (meters 3.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 739 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x45f))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 3))
+                           (sp-int spt-rot-x 4)
+                           (sp-flt spt-scale-y (meters 3))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 737) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x45f))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 3.5))
-                                   (sp-int spt-rot-x 4)
-                                   (sp-flt spt-scale-y (meters 3.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 63.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 737 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x45f))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 3.5))
+                           (sp-int spt-rot-x 4)
+                           (sp-flt spt-scale-y (meters 3.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 63.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 738)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 13
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x45f))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-scale-x (meters 0.9))
-                                                     (sp-int spt-rot-x 4)
-                                                     (sp-flt spt-scale-y (meters 0.52))
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 128.0)
-                                                     (sp-int spt-timer -1)
-                                                     (sp-cpuinfo-flags bit2 bit9)
-                                                     (sp-func spt-func 'part-hud-racer-heat-func)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 738 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x45f))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.9))
+                           (sp-int spt-rot-x 4)
+                           (sp-flt spt-scale-y (meters 0.52))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           (sp-func spt-func 'part-hud-racer-heat-func)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2010) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9)
-                                    (sp-func spt-func 'part-hud-zoomer-heat-slice-01-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2010 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 2))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9)
+                            (sp-func spt-func 'part-hud-zoomer-heat-slice-01-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2011) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9)
-                                    (sp-func spt-func 'part-hud-zoomer-heat-slice-02-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2011 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 2))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9)
+                            (sp-func spt-func 'part-hud-zoomer-heat-slice-02-func)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2012) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 2.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit2 bit9)
-                                    (sp-func spt-func 'part-hud-zoomer-heat-slice-03-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2012 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x32 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 2))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit2 bit9)
+                            (sp-func spt-func 'part-hud-zoomer-heat-slice-03-func)
+                            )
+              )
 
 ;; definition of type hud-bike-heat
 (deftype hud-bike-heat (hud)
@@ -599,796 +516,638 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 115)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-racer-trans-pad"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3
-          (sp-item 742 :fade-after (meters 160.0))
-          (sp-item 743 :fade-after (meters 160.0))
-          (sp-item 744 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (is-3d))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-racer-trans-pad
+  :id 115
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 742 :fade-after (meters 160))
+    (sp-item 743 :fade-after (meters 160))
+    (sp-item 744 :fade-after (meters 60) :falloff-to (meters 60) :flags (is-3d))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 742) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-y (meters 7.0))
-                                   (sp-rnd-flt spt-scale-x (meters 14.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 14.0))
-                                   (sp-flt spt-r 40.0)
-                                   (sp-rnd-flt spt-g 60.0 60.0 1.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 742 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-flt spt-y (meters 7))
+                           (sp-rnd-flt spt-scale-x (meters 14) (meters 1) 1.0)
+                           (sp-flt spt-scale-y (meters 14))
+                           (sp-flt spt-r 40.0)
+                           (sp-rnd-flt spt-g 60.0 60.0 1.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 743) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-y (meters 4.0))
-                                   (sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 14.0))
-                                   (sp-flt spt-r 40.0)
-                                   (sp-rnd-flt spt-g 60.0 60.0 1.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-flt spt-fade-a -8.533334)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 743 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-flt spt-y (meters 4))
+                           (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
+                           (sp-flt spt-scale-y (meters 14))
+                           (sp-flt spt-r 40.0)
+                           (sp-rnd-flt spt-g 60.0 60.0 1.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-flt spt-fade-a -8.533334)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 744) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
-                                   (sp-flt spt-scale-x (meters 0.0))
-                                   (sp-rnd-flt spt-rot-x 0.0 2730.6667 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 16.0)
-                                   (sp-rnd-flt spt-g 0.0 127.0 1.0)
-                                   (sp-flt spt-b 127.0)
-                                   (sp-flt spt-a 127.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-scalevel-x (meters 0.02))
-                                   (sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-flt spt-accel-y -0.6144)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 744 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
+                           (sp-flt spt-scale-x (meters 0))
+                           (sp-rnd-flt spt-rot-x 0.0 2730.6667 1.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 16.0)
+                           (sp-rnd-flt spt-g 0.0 127.0 1.0)
+                           (sp-flt spt-b 127.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-scalevel-x (meters 0.02))
+                           (sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-flt spt-accel-y -0.6144)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2211)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 8.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2211 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2207)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2207 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2221) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.15))
-                                    (sp-rnd-flt spt-r 0.0 2.0 64.0)
-                                    (sp-rnd-flt spt-g 64.0 3.0 64.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
-                                    (sp-flt spt-fade-a -0.53333336)
-                                    (sp-flt spt-accel-y -5.4613333)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 270)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 40.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2221 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                            (sp-rnd-flt spt-num 0.5 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.35) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 0.15))
+                            (sp-rnd-flt spt-r 0.0 2.0 64.0)
+                            (sp-rnd-flt spt-g 64.0 3.0 64.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 4.8) 1.0)
+                            (sp-flt spt-fade-a -0.53333336)
+                            (sp-flt spt-accel-y -5.4613333)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 270)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 40.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 1) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2208)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2208 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2218) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -0.64)
-                                    (sp-flt spt-accel-y -5.4613333)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2218 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -0.64)
+                            (sp-flt spt-accel-y -5.4613333)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 1) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2215)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 70.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2215 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 70.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 40.0 20.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2216)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2216 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2831)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 96.0 40.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2831 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 40.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2214)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2214 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2220) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.025) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-int spt-g 0 2 128.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-fade-a -1.0666667)
-                                    (sp-flt spt-accel-y -5.4613333)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2220 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.025) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-int spt-g 0 2 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -1.0666667)
+                            (sp-flt spt-accel-y -5.4613333)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 1) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2213)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2213 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2275) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-flt spt-x (meters 10.0))
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-rnd-flt spt-scale-y (meters 1.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.008666666) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.008666666) 1.0)
-                                    (sp-flt spt-fade-a 0.7111111)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 90)
-                                    (sp-launcher-by-id spt-next-launcher 119)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2275 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-flt spt-x (meters 10))
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 3) 1.0)
+                            (sp-flt spt-rot-y (degrees 0.0))
+                            (sp-rnd-flt spt-scale-y (meters 1.5) (meters 3) 1.0)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.008666666) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.008666666) 1.0)
+                            (sp-flt spt-fade-a 0.7111111)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                            (sp-int spt-next-time 90)
+                            (sp-launcher-by-id spt-next-launcher 119)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2276) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-rnd-flt spt-num 0.04 0.03 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
-                                    (sp-rnd-flt spt-z -819.2 1638.4 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.008333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.64)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 116)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2276 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-rnd-flt spt-num 0.04 0.03 1.0)
+                            (sp-rnd-flt spt-x (meters -0.2) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.2) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.008333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.64)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 116)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2212) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-vector-orient)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters -0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 -16.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 -16.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 -16.0 1.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2212 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-func spt-birth-func 'birth-func-vector-orient)
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters -0.5) 1.0)
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-flt spt-rot-y (degrees 0.0))
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 -16.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 -16.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 -16.0 1.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata 0.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2225) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
-                                    (sp-rnd-flt spt-num 4.0 16.0 1.0)
-                                    (sp-flt spt-x (meters 0.9))
-                                    (sp-flt spt-y (meters 0.05))
-                                    (sp-flt spt-z -3686.4)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 2.0 128.0)
-                                    (sp-rnd-flt spt-g 128.0 2.0 64.0)
-                                    (sp-rnd-flt spt-b 0.0 2.0 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00055555557))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.35555556)
-                                    (sp-flt spt-fade-a -0.6)
-                                    (sp-flt spt-accel-y -4.096)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2225 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
+                            (sp-rnd-flt spt-num 4.0 16.0 1.0)
+                            (sp-flt spt-x (meters 0.9))
+                            (sp-flt spt-y (meters 0.05))
+                            (sp-flt spt-z (meters -0.9))
+                            (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.05) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 2.0 128.0)
+                            (sp-rnd-flt spt-g 128.0 2.0 64.0)
+                            (sp-rnd-flt spt-b 0.0 2.0 64.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00055555557))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.35555556)
+                            (sp-flt spt-fade-a -0.6)
+                            (sp-flt spt-accel-y -4.096)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2226) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
-                                    (sp-rnd-flt spt-num 4.0 16.0 1.0)
-                                    (sp-flt spt-x (meters 0.9))
-                                    (sp-flt spt-y (meters 0.05))
-                                    (sp-flt spt-z -3686.4)
-                                    (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 2.0 128.0)
-                                    (sp-rnd-flt spt-g 0.0 2.0 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00055555557))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.35555556)
-                                    (sp-flt spt-fade-a -0.6)
-                                    (sp-flt spt-accel-y -4.096)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2226 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1 :page #x2))
+                            (sp-rnd-flt spt-num 4.0 16.0 1.0)
+                            (sp-flt spt-x (meters 0.9))
+                            (sp-flt spt-y (meters 0.05))
+                            (sp-flt spt-z (meters -0.9))
+                            (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.05) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 2.0 128.0)
+                            (sp-rnd-flt spt-g 0.0 2.0 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00055555557))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.35555556)
+                            (sp-flt spt-fade-a -0.6)
+                            (sp-flt spt-accel-y -4.096)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit0 bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2227)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 20
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 0.0)
-          (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 192.0 32.0 1.0)
-          (sp-rnd-flt spt-g 64.0 32.0 1.0)
-          (sp-flt spt-b 0.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 4.266667)
-          (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
-          (sp-flt spt-friction 0.85)
-          (sp-int spt-timer 450)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 15 4 1)
-          (sp-launcher-by-id spt-next-launcher 2277)
-          (sp-end)
-          )
-        )
-      )
+(defpart 2227 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-rnd-flt spt-accel-y 1.3653333 1.3653333 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 15 4 1)
+                            (sp-launcher-by-id spt-next-launcher 2277)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2277)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -5.0)
-                                                     (sp-flt spt-fade-g -1.6)
-                                                     (sp-flt spt-fade-b 1.6)
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 20)
-                                                     (sp-launcher-by-id spt-next-launcher 2278)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2277 :init-specs ((sp-flt spt-fade-r -5.0)
+                            (sp-flt spt-fade-g -1.6)
+                            (sp-flt spt-fade-b 1.6)
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-int spt-next-time 20)
+                            (sp-launcher-by-id spt-next-launcher 2278)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2278)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r -0.2)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2278
+  :init-specs
+  ((sp-flt spt-fade-r -0.2) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.21333334))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 116) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #x12c
-                                       :linger-duration #xbb8
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-racer-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2279 :period 600 :length 5)
-                                         (sp-item 2280 :period 600 :length 40)
-                                         (sp-item 2281 :period 600 :length 20)
-                                         (sp-item 2282 :period 600 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-racer-explode
+  :id 116
+  :duration 300
+  :linger-duration 3000
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2279 :period 600 :length 5)
+    (sp-item 2280 :period 600 :length 40)
+    (sp-item 2281 :period 600 :length 20)
+    (sp-item 2282 :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2280) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0026666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-b -1.4222223)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 2283)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2280 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.8) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.16) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0026666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-b -1.4222223)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 2283)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2283)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2283
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.0666667))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2282) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.85333335))
-                                    (sp-flt spt-fade-g -3.2666667)
-                                    (sp-flt spt-fade-b -1.0666667)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2282 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.85333335))
+                            (sp-flt spt-fade-g -3.2666667)
+                            (sp-flt spt-fade-b -1.0666667)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2279) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 24.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2279 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 24))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2281)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.02))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.28444445)
-                                                     (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                                     (sp-flt spt-friction 0.8)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 42)
-                                                     (sp-launcher-by-id spt-next-launcher 2284)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 3.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2281 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.02))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2284)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 3) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2284)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -1.0666667)
-                                                     (sp-flt spt-fade-g -1.0666667)
-                                                     (sp-flt spt-fade-b -2.1166666)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 2285)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2284 :init-specs ((sp-flt spt-fade-r -1.0666667)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b -2.1166666)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 2285)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2285)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-fade-r -0.5688889)
-                                                     (sp-flt spt-fade-g -0.28444445)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 2286)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2285 :init-specs ((sp-flt spt-fade-r -0.5688889)
+                            (sp-flt spt-fade-g -0.28444445)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-int spt-next-time 225)
+                            (sp-launcher-by-id spt-next-launcher 2286)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2286)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2286 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2229) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00033333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.4)
-                                    (sp-flt spt-accel-y -0.06826667)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2229 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00033333333))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.4)
+                            (sp-flt spt-accel-y -0.06826667)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
+                            )
+              )
diff --git a/test/decompiler/reference/levels/robocave/robocave-part_REF.gc b/test/decompiler/reference/levels/robocave/robocave-part_REF.gc
index f983f8f9ea..4eb54c456a 100644
--- a/test/decompiler/reference/levels/robocave/robocave-part_REF.gc
+++ b/test/decompiler/reference/levels/robocave/robocave-part_REF.gc
@@ -19,204 +19,161 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 506)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-robocave-torch"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 729 :fade-after (meters 150.0) :falloff-to (meters 180.0))
-          (sp-item 730 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 731 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 600 :length 90)
-          (sp-item 732 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 369 :length 69)
-          (sp-item 733 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 710 :length 51)
-          (sp-item 734 :fade-after (meters 30.0) :falloff-to (meters 30.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 16384.0)
-        )
-      )
+(defpartgroup group-part-robocave-torch
+  :id 506
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 729 :fade-after (meters 150) :falloff-to (meters 180))
+    (sp-item 730 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 731 :fade-after (meters 40) :falloff-to (meters 40) :period 600 :length 90)
+    (sp-item 732 :fade-after (meters 40) :falloff-to (meters 40) :period 369 :length 69)
+    (sp-item 733 :fade-after (meters 40) :falloff-to (meters 40) :period 710 :length 51)
+    (sp-item 734 :fade-after (meters 30) :falloff-to (meters 30))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 734)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.3)
-                                                     (sp-flt spt-x (meters 0.2))
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2867.2)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 735)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 734 :init-specs ((sp-flt spt-num 0.3)
+                           (sp-flt spt-x (meters 0.2))
+                           (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                           (sp-int spt-rot-x 5)
+                           (sp-flt spt-r 4096.0)
+                           (sp-flt spt-g 2867.2)
+                           (sp-flt spt-b 3276.8)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.026666667))
+                           (sp-int spt-timer 180)
+                           (sp-cpuinfo-flags aux-list)
+                           (sp-int spt-next-time 120)
+                           (sp-launcher-by-id spt-next-launcher 735)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 735)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -6.826667) (sp-end))
-        )
-      )
+(defpart 735 :init-specs ((sp-flt spt-fade-b -6.826667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 729) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-int spt-num 1068708659 1 0.5)
-                                   (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-                                   (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                   (sp-flt spt-fade-a 13.066667)
-                                   (sp-flt spt-accel-y -0.8192)
-                                   (sp-int spt-timer 75)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 736)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 729 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-int spt-num 1068708659 1 0.5)
+                           (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 75)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 736)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 736)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
+(defpart 736 :init-specs ((sp-flt spt-fade-a -1.3333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 731)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 736)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 731 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                           (sp-flt spt-y (meters 1))
+                           (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 105)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 736)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 732) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
-                                   (sp-flt spt-y (meters 0.5))
-                                   (sp-rnd-flt spt-z 0.0 1638.4 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                   (sp-flt spt-fade-a 13.066667)
-                                   (sp-flt spt-accel-y -0.8192)
-                                   (sp-int spt-timer 105)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 15)
-                                   (sp-launcher-by-id spt-next-launcher 736)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 732 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
+                           (sp-flt spt-y (meters 0.5))
+                           (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 105)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 736)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 733)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 736)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 733 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
+                           (sp-flt spt-y (meters 0.6))
+                           (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a 13.066667)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 105)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 15)
+                           (sp-launcher-by-id spt-next-launcher 736)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 730)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.3))
-                                                     (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0005))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.10666667)
-                                                     (sp-flt spt-fade-g -0.053333335)
-                                                     (sp-flt spt-fade-b -0.053333335)
-                                                     (sp-flt spt-fade-a -0.08)
-                                                     (sp-flt spt-accel-x 0.27306667)
-                                                     (sp-flt spt-accel-y 0.13653333)
-                                                     (sp-flt spt-friction 0.9975)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 730 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 0.4)
+                           (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 0.3))
+                           (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 96.0)
+                           (sp-flt spt-b 96.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.01))
+                           (sp-flt spt-scalevel-x (meters 0.0005))
+                           (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.10666667)
+                           (sp-flt spt-fade-g -0.053333335)
+                           (sp-flt spt-fade-b -0.053333335)
+                           (sp-flt spt-fade-a -0.08)
+                           (sp-flt spt-accel-x 0.27306667)
+                           (sp-flt spt-accel-y 0.13653333)
+                           (sp-flt spt-friction 0.9975)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
diff --git a/test/decompiler/reference/levels/rolling/rolling-obs_REF.gc b/test/decompiler/reference/levels/rolling/rolling-obs_REF.gc
index 9177746944..cb8ad13674 100644
--- a/test/decompiler/reference/levels/rolling/rolling-obs_REF.gc
+++ b/test/decompiler/reference/levels/rolling/rolling-obs_REF.gc
@@ -604,70 +604,56 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 455)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x2a
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-dark-plant"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1764) (sp-item 2356))
-        :bounds (new 'static 'sphere :w 61440.0)
-        )
-      )
+(defpartgroup group-dark-plant
+  :id 455
+  :duration 42
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 1764) (sp-item 2356))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2356) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-g -3.0)
-                                    (sp-flt spt-fade-a -2.4)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2356 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-flt spt-fade-g -3.0)
+                            (sp-flt spt-fade-a -2.4)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1764) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 128.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00066666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y 0.0 5.4613333 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 45.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.5) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees -15.0) (degrees 30.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1764 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 128.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00066666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y 0.0 5.4613333 1.0)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 45.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.5) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees -15.0) (degrees 30.0) 1.0)
+                            )
+              )
 
 ;; definition for method 11 of type dark-plant
 ;; INFO: Return type mismatch object vs none.
diff --git a/test/decompiler/reference/levels/rolling/rolling-race-ring_REF.gc b/test/decompiler/reference/levels/rolling/rolling-race-ring_REF.gc
index baa27c99e9..dc43595711 100644
--- a/test/decompiler/reference/levels/rolling/rolling-race-ring_REF.gc
+++ b/test/decompiler/reference/levels/rolling/rolling-race-ring_REF.gc
@@ -42,319 +42,251 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 457) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :name "group-rolling-ring"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1773 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1774 :fade-after (meters 80.0))
-                                         (sp-item 1775 :flags (is-3d))
-                                         (sp-item 1776 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-ring
+  :id 457
+  :linger-duration 0
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1773 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1774 :fade-after (meters 80))
+    (sp-item 1775 :flags (is-3d))
+    (sp-item 1776 :flags (is-3d))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1773) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 2.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1115684864 1 64.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -1.4222221)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1773 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-rnd-flt spt-num 2.0 2.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1115684864 1 64.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1115684864 1 64.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -1.4222221)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4.5))
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1774) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1115684864 1 64.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -1.4222221)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1774 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1115684864 1 64.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1115684864 1 64.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -1.4222221)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4.5))
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1775) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 10.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1775 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 10))
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 1 127.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1776) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1776 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-flt spt-rot-y (degrees 0.0))
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 1 127.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 458) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x5
-                                       :linger-duration #x8d
-                                       :name "group-rolling-spawn-ring"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1777 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1778 :flags (is-3d))
-                                         (sp-item 1779 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-spawn-ring
+  :id 458
+  :duration 5
+  :linger-duration 141
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1777 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1778 :flags (is-3d))
+    (sp-item 1779 :flags (is-3d))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1777) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1115684864 1 64.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-rnd-int spt-a 0 63 1.0)
-                                    (sp-flt spt-vel-y (meters 0.03))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int-plain-rnd spt-next-time 20 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 1780)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1777 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1115684864 1 64.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1115684864 1 64.0)
+                            (sp-rnd-int spt-a 0 63 1.0)
+                            (sp-flt spt-vel-y (meters 0.03))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int-plain-rnd spt-next-time 20 19 1)
+                            (sp-launcher-by-id spt-next-launcher 1780)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0))
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1780)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-rnd-int spt-r 1115684864 1 64.0)
-                                                     (sp-flt spt-g 0.0)
-                                                     (sp-rnd-int spt-b 1115684864 1 64.0)
-                                                     (sp-rnd-int spt-a 0 63 1.0)
-                                                     (sp-int-plain-rnd spt-next-time 20 19 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1780)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1780 :init-specs ((sp-rnd-int spt-r 1115684864 1 64.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1115684864 1 64.0)
+                            (sp-rnd-int spt-a 0 63 1.0)
+                            (sp-int-plain-rnd spt-next-time 20 19 1)
+                            (sp-launcher-by-id spt-next-launcher 1780)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1778) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.06666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1781)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1778 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0))
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 1 127.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.06666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1781)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1781)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-rnd-int spt-r 1124073472 1 127.0)
-                                                     (sp-flt spt-g 0.0)
-                                                     (sp-rnd-int spt-b 1124073472 1 127.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 1781)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1781 :init-specs ((sp-rnd-int spt-r 1124073472 1 127.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1781)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1779) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.08))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1782)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1779 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0))
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-flt spt-rot-y (degrees 0.0))
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 1 127.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.08))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1782)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1782)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-rnd-int spt-r 1124073472 1 127.0)
-                                                     (sp-flt spt-g 0.0)
-                                                     (sp-rnd-int spt-b 1124073472 1 127.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 1782)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1782 :init-specs ((sp-rnd-int spt-r 1124073472 1 127.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1782)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 459) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #x5
-                                       :linger-duration #x96
-                                       :name "group-rolling-explode-ring"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1783 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1784 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-explode-ring
+  :id 459
+  :duration 5
+  :linger-duration 150
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1783 :fade-after (meters 100) :falloff-to (meters 100)) (sp-item 1784 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1783) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 64.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1115684864 1 64.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.033333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1783 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 64.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1115684864 1 64.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1115684864 1 64.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.033333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4.5))
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1784) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-scale-x (meters 10.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-int spt-r 1124073472 1 127.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters 0.06666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1784 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-flt spt-scale-x (meters 10))
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-int spt-r 1124073472 1 127.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters 0.06666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; definition for function race-ring-set-particle-rotation-callback
 ;; INFO: Return type mismatch int vs none.
@@ -375,319 +307,251 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 460) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :name "group-rolling-ring-blue"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1785 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1786 :fade-after (meters 80.0))
-                                         (sp-item 1787 :flags (is-3d))
-                                         (sp-item 1788 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-ring-blue
+  :id 460
+  :linger-duration 0
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1785 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1786 :fade-after (meters 80))
+    (sp-item 1787 :flags (is-3d))
+    (sp-item 1788 :flags (is-3d))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1785) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 2.0 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -1.4222221)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1785 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-rnd-flt spt-num 2.0 2.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1115684864 1 64.0)
+                            (sp-rnd-int spt-b 1115684864 1 64.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -1.4222221)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4.5))
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1786) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -1.4222221)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1786 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1115684864 1 64.0)
+                            (sp-rnd-int spt-b 1115684864 1 64.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -1.4222221)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4.5))
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1787) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 10.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1124073472 1 127.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1787 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 10))
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1124073472 1 127.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1788) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1124073472 1 127.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1788 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-flt spt-rot-y (degrees 0.0))
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1124073472 1 127.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 461) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x5
-                                       :linger-duration #x8d
-                                       :name "group-rolling-spawn-ring-blue"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1789 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1790 :flags (is-3d))
-                                         (sp-item 1791 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-spawn-ring-blue
+  :id 461
+  :duration 5
+  :linger-duration 141
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1789 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1790 :flags (is-3d))
+    (sp-item 1791 :flags (is-3d))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1789) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-rnd-int spt-a 0 63 1.0)
-                                    (sp-flt spt-vel-y (meters 0.03))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int-plain-rnd spt-next-time 20 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 1792)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1789 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1115684864 1 64.0)
+                            (sp-rnd-int spt-b 1115684864 1 64.0)
+                            (sp-rnd-int spt-a 0 63 1.0)
+                            (sp-flt spt-vel-y (meters 0.03))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int-plain-rnd spt-next-time 20 19 1)
+                            (sp-launcher-by-id spt-next-launcher 1792)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0))
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1792)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-int spt-g 1115684864 1 64.0)
-                                                     (sp-rnd-int spt-b 1115684864 1 64.0)
-                                                     (sp-rnd-int spt-a 0 63 1.0)
-                                                     (sp-int-plain-rnd spt-next-time 20 19 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1792)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1792 :init-specs ((sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1115684864 1 64.0)
+                            (sp-rnd-int spt-b 1115684864 1 64.0)
+                            (sp-rnd-int spt-a 0 63 1.0)
+                            (sp-int-plain-rnd spt-next-time 20 19 1)
+                            (sp-launcher-by-id spt-next-launcher 1792)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1790) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1124073472 1 127.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.06666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1793)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1790 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0))
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1124073472 1 127.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.06666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1793)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1793)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-int spt-g 1124073472 1 127.0)
-                                                     (sp-rnd-int spt-b 1124073472 1 127.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 1793)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1793 :init-specs ((sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1124073472 1 127.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1793)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1791) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1124073472 1 127.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.08))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1794)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1791 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0))
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-flt spt-rot-y (degrees 0.0))
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1124073472 1 127.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.08))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1794)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1794)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-int spt-g 1124073472 1 127.0)
-                                                     (sp-rnd-int spt-b 1124073472 1 127.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 1794)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1794 :init-specs ((sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1124073472 1 127.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1794)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 462) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #x5
-                                       :linger-duration #x96
-                                       :name "group-rolling-explode-ring-blue"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1795 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1796 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-rolling-explode-ring-blue
+  :id 462
+  :duration 5
+  :linger-duration 150
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1795 :fade-after (meters 100) :falloff-to (meters 100)) (sp-item 1796 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1795) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 64.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1115684864 1 64.0)
-                                    (sp-rnd-int spt-b 1115684864 1 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.033333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.5))
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1795 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 64.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1115684864 1 64.0)
+                            (sp-rnd-int spt-b 1115684864 1 64.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.033333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4.5))
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1796) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-scale-x (meters 10.0))
-                                    (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
-                                    (sp-flt spt-rot-z (degrees 90.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-int spt-g 1124073472 1 127.0)
-                                    (sp-rnd-int spt-b 1124073472 1 127.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters 0.06666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1796 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-flt spt-scale-x (meters 10))
+                            (sp-rnd-flt spt-rot-x 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees -1.0) (degrees 2.0) 1.0)
+                            (sp-flt spt-rot-z (degrees 90.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-int spt-g 1124073472 1 127.0)
+                            (sp-rnd-int spt-b 1124073472 1 127.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters 0.06666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; definition for function race-ring-blue-set-particle-rotation-callback
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/levels/snow/snow-bumper_REF.gc b/test/decompiler/reference/levels/snow/snow-bumper_REF.gc
index 967efcdd52..8c9a5fefbb 100644
--- a/test/decompiler/reference/levels/snow/snow-bumper_REF.gc
+++ b/test/decompiler/reference/levels/snow/snow-bumper_REF.gc
@@ -49,89 +49,68 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 519)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-snow-bumper-idle"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1
-          (sp-item 1893 :fade-after (meters 90.0) :falloff-to (meters 90.0) :period 25 :length 10)
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-snow-bumper-idle
+  :id 519
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1893 :fade-after (meters 90) :falloff-to (meters 90) :period 25 :length 10))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1893) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 15.0)
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-flt spt-z 0.0)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-flt spt-scale-y (meters 6.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.013333334))
-                                    (sp-flt spt-scalevel-x (meters 0.0038461538))
-                                    (sp-flt spt-scalevel-y (meters -0.03076923))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-int spt-timer 25)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 5.0))
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1893 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 15.0)
+                            (sp-flt spt-y (meters 1.5))
+                            (sp-flt spt-z (meters 0))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-flt spt-scale-y (meters 6))
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.013333334))
+                            (sp-flt spt-scalevel-x (meters 0.0038461538))
+                            (sp-flt spt-scalevel-y (meters -0.03076923))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-int spt-timer 25)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 5))
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 520) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-snow-bumper-shove"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 1895))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-snow-bumper-shove
+  :id 520
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1895))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1895) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-flt spt-x (meters 5.5))
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-flt spt-z 0.0)
-                                    (sp-flt spt-scale-x (meters 2.0))
-                                    (sp-flt spt-scale-y (meters 6.0))
-                                    (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-flt spt-vel-x (meters 0.033333335))
-                                    (sp-flt spt-scalevel-x (meters 0.008333334))
-                                    (sp-flt spt-scalevel-y (meters 0.2))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-int spt-timer 25)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 45.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1895 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-flt spt-x (meters 5.5))
+                            (sp-flt spt-y (meters 1.5))
+                            (sp-flt spt-z (meters 0))
+                            (sp-flt spt-scale-x (meters 2))
+                            (sp-flt spt-scale-y (meters 6))
+                            (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-flt spt-vel-x (meters 0.033333335))
+                            (sp-flt spt-scalevel-x (meters 0.008333334))
+                            (sp-flt spt-scalevel-y (meters 0.2))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-int spt-timer 25)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 45.0) 1.0)
+                            )
+              )
 
 ;; definition for method 21 of type snow-bumper
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/levels/snow/snow-flutflut-obs_REF.gc b/test/decompiler/reference/levels/snow/snow-flutflut-obs_REF.gc
index ae6386c402..e0aef0cc45 100644
--- a/test/decompiler/reference/levels/snow/snow-flutflut-obs_REF.gc
+++ b/test/decompiler/reference/levels/snow/snow-flutflut-obs_REF.gc
@@ -121,196 +121,154 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 516) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-flutflut-plat-small"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2087 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         (sp-item 2088 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-flutflut-plat-small
+  :id 516
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2087 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 2088 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2087)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-y (meters -1.0))
-                                                     (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 5324.8)
-                                                     (sp-flt spt-g 4096.0)
-                                                     (sp-flt spt-b 3686.4)
-                                                     (sp-flt spt-vel-y (meters -0.0033333334))
-                                                     (sp-flt spt-fade-b -16.383999)
-                                                     (sp-int spt-timer 25)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-flt spt-rotate-y (degrees 45.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2087 :init-specs ((sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -1))
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 5324.8)
+                            (sp-flt spt-g 4096.0)
+                            (sp-flt spt-b 3686.4)
+                            (sp-flt spt-vel-y (meters -0.0033333334))
+                            (sp-flt spt-fade-b -16.383999)
+                            (sp-int spt-timer 25)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-flt spt-rotate-y (degrees 45.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2088) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-rnd-flt spt-x (meters -3.0) (meters 6.0) 1.0)
-                                    (sp-flt spt-y (meters -1.25))
-                                    (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.01))
-                                    (sp-flt spt-fade-g -0.42666668)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.13653333)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2088 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 3.0)
+                            (sp-rnd-flt spt-x (meters -3) (meters 6) 1.0)
+                            (sp-flt spt-y (meters -1.25))
+                            (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.01))
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-flt spt-fade-a -0.32)
+                            (sp-flt spt-accel-y -0.13653333)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 45.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 517) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-flutflut-plat-med"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2089 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         (sp-item 2090 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-flutflut-plat-med
+  :id 517
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2089 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 2090 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2089)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 3.0)
-                                                     (sp-flt spt-y (meters -2.5))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 5324.8)
-                                                     (sp-flt spt-g 4096.0)
-                                                     (sp-flt spt-b 3686.4)
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-fade-b -16.383999)
-                                                     (sp-int spt-timer 25)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 1.0) (meters 3.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2089 :init-specs ((sp-flt spt-num 3.0)
+                            (sp-flt spt-y (meters -2.5))
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 5324.8)
+                            (sp-flt spt-g 4096.0)
+                            (sp-flt spt-b 3686.4)
+                            (sp-flt spt-vel-y (meters 0.0033333334))
+                            (sp-flt spt-fade-b -16.383999)
+                            (sp-int spt-timer 25)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 1) (meters 3) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2090) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-flt spt-y (meters -2.25))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-flt spt-fade-g -0.42666668)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.13653333)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2090 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-flt spt-y (meters -2.25))
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-flt spt-fade-a -0.32)
+                            (sp-flt spt-accel-y -0.13653333)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 1) (meters 3) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 518) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-flutflut-plat-large"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2091 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-                                         (sp-item 2092 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-flutflut-plat-large
+  :id 518
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2091 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 2092 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2091)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 4.0)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-y (meters -1.5))
-                                                     (sp-rnd-flt spt-z -24576.0 49152.0 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 5324.8)
-                                                     (sp-flt spt-g 4096.0)
-                                                     (sp-flt spt-b 3686.4)
-                                                     (sp-flt spt-vel-y (meters -0.0033333334))
-                                                     (sp-flt spt-fade-b -16.383999)
-                                                     (sp-int spt-timer 25)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-flt spt-rotate-y (degrees 30.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2091 :init-specs ((sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -1.5))
+                            (sp-rnd-flt spt-z (meters -6) (meters 12) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 5324.8)
+                            (sp-flt spt-g 4096.0)
+                            (sp-flt spt-b 3686.4)
+                            (sp-flt spt-vel-y (meters -0.0033333334))
+                            (sp-flt spt-fade-b -16.383999)
+                            (sp-int spt-timer 25)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-flt spt-rotate-y (degrees 30.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2092) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters -1.25))
-                                    (sp-rnd-flt spt-z -24576.0 49152.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.01))
-                                    (sp-flt spt-fade-g -0.42666668)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.13653333)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2092 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -1.25))
+                            (sp-rnd-flt spt-z (meters -6) (meters 12) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.01))
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-flt spt-fade-a -0.32)
+                            (sp-flt spt-accel-y -0.13653333)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 30.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate snow-button-up-idle (snow-button)
diff --git a/test/decompiler/reference/levels/snow/snow-obs_REF.gc b/test/decompiler/reference/levels/snow/snow-obs_REF.gc
index 6aae094552..a939ece94a 100644
--- a/test/decompiler/reference/levels/snow/snow-obs_REF.gc
+++ b/test/decompiler/reference/levels/snow/snow-obs_REF.gc
@@ -216,216 +216,158 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 510) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-snow-yellow-eco-room-open"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 1990 :fade-after (meters 110.0))
-                                         (sp-item 1991 :fade-after (meters 110.0))
-                                         (sp-item 1992 :fade-after (meters 110.0))
-                                         (sp-item 1993 :fade-after (meters 110.0))
-                                         (sp-item 1994 :fade-after (meters 110.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -24576.0 :w 32768.0)
-                                       )
-      )
+(defpartgroup group-snow-yellow-eco-room-open
+  :id 510
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 1990 :fade-after (meters 110))
+    (sp-item 1991 :fade-after (meters 110))
+    (sp-item 1992 :fade-after (meters 110))
+    (sp-item 1993 :fade-after (meters 110))
+    (sp-item 1994 :fade-after (meters 110))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 511) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :name "group-snow-yellow-eco-room-activate"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1994)
-                                         (sp-item 1994)
-                                         (sp-item 1995 :flags (bit1) :period 1200 :length 15)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y -24576.0 :w 32768.0)
-                                       )
-      )
+(defpartgroup group-snow-yellow-eco-room-activate
+  :id 511
+  :duration 900
+  :bounds (static-bspherem 0 -6 0 8)
+  :parts
+  ((sp-item 1994) (sp-item 1994) (sp-item 1995 :flags (bit1) :period 1200 :length 15))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1995) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 30.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 20.0) (meters 10.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-r 127.0)
-                                    (sp-flt spt-g 127.0)
-                                    (sp-rnd-flt spt-b 0.0 16.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.05) (degrees 0.1) 1.0)
-                                    (sp-flt spt-fade-a 0.85333335)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 1996)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1995 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 30.0)
+                            (sp-flt spt-y (meters -4))
+                            (sp-rnd-flt spt-scale-x (meters 20) (meters 10) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 5) (meters 2) 1.0)
+                            (sp-flt spt-r 127.0)
+                            (sp-flt spt-g 127.0)
+                            (sp-rnd-flt spt-b 0.0 16.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.05) (degrees 0.1) 1.0)
+                            (sp-flt spt-fade-a 0.85333335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 1996)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1996)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 1997)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1996
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 225) (sp-launcher-by-id spt-next-launcher 1997))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1997)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
+(defpart 1997 :init-specs ((sp-flt spt-fade-a -0.14222223)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1990) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 10.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 8.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1990 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -4))
+                            (sp-rnd-flt spt-scale-x (meters 10) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 8) (meters 2) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-rnd-flt spt-b 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1991) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1991 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -4))
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1992) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -30.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1998)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1992 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.5 1.0 1.0)
+                            (sp-flt spt-y (meters -4))
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees -30.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 1998)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1998)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -1.0)
-                                                     (sp-flt spt-fade-g -1.0)
-                                                     (sp-flt spt-fade-a -2.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1998 :init-specs ((sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-fade-r -1.0)
+                            (sp-flt spt-fade-g -1.0)
+                            (sp-flt spt-fade-a -2.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1993) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                    (sp-flt spt-y (meters -4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 150.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1998)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1993 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.5 1.0 1.0)
+                            (sp-flt spt-y (meters -4))
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 150.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 1998)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1994) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -6.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 2.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -140.0) (degrees 100.00001) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1998)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 80.0) (degrees 200.00002) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 4.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1994 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-y (meters -6.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 2) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees -140.0) (degrees 100.00001) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.7) (meters 0.4) 1.0)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 1998)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 80.0) (degrees 200.00002) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4))
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate snow-eggtop-idle-up (snow-eggtop)
@@ -1037,227 +979,172 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 512) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-snow-fort-gate-coming-down"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 1896))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-snow-fort-gate-coming-down
+  :id 512
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1896))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1896) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 10.5) (meters 8.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 96.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-rnd-flt spt-b 96.0 16.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-flt spt-fade-a 0.42666668)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 75 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 1897)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1896 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.5 1.0 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 10.5) (meters 8.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 96.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-rnd-flt spt-b 96.0 16.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-flt spt-fade-a 0.42666668)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 75 74 1)
+                            (sp-launcher-by-id spt-next-launcher 1897)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1897)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 1897 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 513) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-snow-fort-gate-hits-bottom"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 1898))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-snow-fort-gate-hits-bottom
+  :id 513
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1898))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1898) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 64.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-z -12288.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-rnd-flt spt-b 128.0 16.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.013333334) (meters 0.026666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters 0.046666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-flt spt-fade-a 0.42666668)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 750)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 75 74 1)
-                                    (sp-launcher-by-id spt-next-launcher 1899)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1898 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 64.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+                            (sp-flt spt-z (meters -3))
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-rnd-flt spt-b 128.0 16.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.013333334) (meters 0.026666667) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.053333335) (meters 0.046666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-flt spt-fade-a 0.42666668)
+                            (sp-flt spt-accel-y -0.68266666)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 750)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 75 74 1)
+                            (sp-launcher-by-id spt-next-launcher 1899)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1899)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.10666667) (sp-end))
-        )
-      )
+(defpart 1899 :init-specs ((sp-flt spt-fade-a -0.10666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 514)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-snow-fort-gate-snowdrops"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 2271 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 1200 :length 150)
-          (sp-item 2271 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 1200 :length 100)
-          (sp-item 2271 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 1200 :length 60)
-          (sp-item 2271 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 1200 :length 30)
-          (sp-item 2271 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 1200 :length 10)
-          (sp-item 2272 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 200)
-          (sp-item 2272 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 150)
-          (sp-item 2272 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 100)
-          (sp-item 2272 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 50)
-          (sp-item 2272 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 20)
-          (sp-item 2273 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 170)
-          (sp-item 2273 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 115)
-          (sp-item 2273 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 70)
-          (sp-item 2273 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 35)
-          (sp-item 2273 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 1200 :length 10)
-          )
-        :bounds
-        (new 'static 'sphere :y -65536.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-snow-fort-gate-snowdrops
+  :id 514
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 2271 :fade-after (meters 100) :falloff-to (meters 130) :period 1200 :length 150)
+    (sp-item 2271 :fade-after (meters 100) :falloff-to (meters 130) :period 1200 :length 100)
+    (sp-item 2271 :fade-after (meters 100) :falloff-to (meters 130) :period 1200 :length 60)
+    (sp-item 2271 :fade-after (meters 100) :falloff-to (meters 130) :period 1200 :length 30)
+    (sp-item 2271 :fade-after (meters 100) :falloff-to (meters 130) :period 1200 :length 10)
+    (sp-item 2272 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 200)
+    (sp-item 2272 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 150)
+    (sp-item 2272 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 100)
+    (sp-item 2272 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 50)
+    (sp-item 2272 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 20)
+    (sp-item 2273 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 170)
+    (sp-item 2273 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 115)
+    (sp-item 2273 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 70)
+    (sp-item 2273 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 35)
+    (sp-item 2273 :fade-after (meters 80) :falloff-to (meters 80) :period 1200 :length 10)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2271) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-flt spt-r 150.0)
-                                    (sp-flt spt-g 150.0)
-                                    (sp-rnd-flt spt-b 150.0 55.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters -0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-rnd-flt spt-accel-y -2.7306666 -1.3653333 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 600)
-                                    (sp-launcher-by-id spt-next-launcher 2274)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2271 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.25) 1.0)
+                            (sp-flt spt-r 150.0)
+                            (sp-flt spt-g 150.0)
+                            (sp-rnd-flt spt-b 150.0 55.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters -0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-rnd-flt spt-accel-y -2.7306666 -1.3653333 1.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int spt-next-time 600)
+                            (sp-launcher-by-id spt-next-launcher 2274)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2274)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.42666668) (sp-end))
-        )
-      )
+(defpart 2274 :init-specs ((sp-flt spt-fade-a -0.42666668)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2272) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 150.0)
-                                    (sp-flt spt-g 150.0)
-                                    (sp-rnd-flt spt-b 150.0 55.0 1.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 600)
-                                    (sp-launcher-by-id spt-next-launcher 2274)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2272 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
+                            (sp-flt spt-r 150.0)
+                            (sp-flt spt-g 150.0)
+                            (sp-rnd-flt spt-b 150.0 55.0 1.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int spt-next-time 600)
+                            (sp-launcher-by-id spt-next-launcher 2274)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2273) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-r 150.0)
-                                    (sp-flt spt-g 150.0)
-                                    (sp-rnd-flt spt-b 150.0 55.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.006666667))
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2273 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1) 1.0)
+                            (sp-flt spt-r 150.0)
+                            (sp-flt spt-g 150.0)
+                            (sp-rnd-flt spt-b 150.0 55.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.006666667))
+                            (sp-flt spt-fade-a -0.14222223)
+                            (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate snow-fort-gate-idle-closed (snow-fort-gate)
@@ -1517,95 +1404,71 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 515)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-snow-gears-dripping"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1900) (sp-item 1901))
-        :bounds
-        (new 'static 'sphere :y -16384.0 :w 65536.0)
-        )
-      )
+(defpartgroup group-snow-gears-dripping
+  :id 515
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 -4 0 16)
+  :parts
+  ((sp-item 1900) (sp-item 1901))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1900) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters -9.0) (meters 18.0) 1.0)
-                                    (sp-flt spt-y (meters -6.0))
-                                    (sp-rnd-flt spt-z -36864.0 73728.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 40.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 40.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 40.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters -0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
-                                    (sp-int spt-timer 390)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-drop)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1900 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -9) (meters 18) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -9) (meters 18) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 40.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 40.0 1.0)
+                            (sp-rnd-flt spt-b 32.0 40.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters -0.04) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
+                            (sp-int spt-timer 390)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-flt spt-userdata 0.0)
+                            (sp-func spt-func 'check-water-level-drop)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1901)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-y (meters -7.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 3.0) (meters 4.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 64.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                                     (sp-flt spt-fade-a 1.0666667)
-                                                     (sp-flt spt-accel-y 0.06826667)
-                                                     (sp-int spt-timer 1200)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-int spt-next-time 60)
-                                                     (sp-launcher-by-id spt-next-launcher 1902)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 6.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1901 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -7))
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 4.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                            (sp-flt spt-fade-a 1.0666667)
+                            (sp-flt spt-accel-y 0.06826667)
+                            (sp-int spt-timer 1200)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 1902)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 6) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1902)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 450 239 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1903)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1902 :init-specs ((sp-flt spt-fade-a 0.0)
+                            (sp-int-plain-rnd spt-next-time 450 239 1)
+                            (sp-launcher-by-id spt-next-launcher 1903)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1903)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
+(defpart 1903 :init-specs ((sp-flt spt-fade-a -0.14222223)))
 
 ;; definition for method 20 of type snow-gears
 ;; INFO: Return type mismatch object vs none.
diff --git a/test/decompiler/reference/levels/snow/snow-part_REF.gc b/test/decompiler/reference/levels/snow/snow-part_REF.gc
index fac785ba52..5d8d6106e1 100644
--- a/test/decompiler/reference/levels/snow/snow-part_REF.gc
+++ b/test/decompiler/reference/levels/snow/snow-part_REF.gc
@@ -19,925 +19,728 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 528)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-snow-snowdrops1"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 2700 :length 150)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 2700 :length 100)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 2700 :length 60)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 2700 :length 30)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 2700 :length 10)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2700 :length 200)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2700 :length 150)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2700 :length 100)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2700 :length 50)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2700 :length 20)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 2700 :length 170)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 2700 :length 115)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 2700 :length 70)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 2700 :length 35)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 2700 :length 10)
-          )
-        :bounds
-        (new 'static 'sphere :y -65536.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-snow-snowdrops1
+  :id 528
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 2700 :length 150)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 2700 :length 100)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 2700 :length 60)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 2700 :length 30)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 2700 :length 10)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 2700 :length 200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 2700 :length 150)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 2700 :length 100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 2700 :length 50)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 2700 :length 20)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 2700 :length 170)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 2700 :length 115)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 2700 :length 70)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 2700 :length 35)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 2700 :length 10)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 529)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-snow-snowdrops2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3068 :length 150 :offset 900)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3068 :length 100 :offset 900)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3068 :length 60 :offset 900)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3068 :length 30 :offset 900)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3068 :length 10 :offset 900)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3068 :length 200 :offset 900)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3068 :length 150 :offset 900)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3068 :length 100 :offset 900)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3068 :length 50 :offset 900)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3068 :length 20 :offset 900)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3068 :length 170 :offset 900)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3068 :length 115 :offset 900)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3068 :length 70 :offset 900)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3068 :length 35 :offset 900)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3068 :length 10 :offset 900)
-          )
-        :bounds
-        (new 'static 'sphere :y -65536.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-snow-snowdrops2
+  :id 529
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3068 :length 150 :offset 900)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3068 :length 100 :offset 900)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3068 :length 60 :offset 900)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3068 :length 30 :offset 900)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3068 :length 10 :offset 900)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3068 :length 200 :offset 900)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3068 :length 150 :offset 900)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3068 :length 100 :offset 900)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3068 :length 50 :offset 900)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3068 :length 20 :offset 900)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3068 :length 170 :offset 900)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3068 :length 115 :offset 900)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3068 :length 70 :offset 900)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3068 :length 35 :offset 900)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3068 :length 10 :offset 900)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 530)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-snow-snowdrops3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3345 :length 150 :offset 1800)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3345 :length 100 :offset 1800)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3345 :length 60 :offset 1800)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3345 :length 30 :offset 1800)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 3345 :length 10 :offset 1800)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3345 :length 200 :offset 1800)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3345 :length 150 :offset 1800)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3345 :length 100 :offset 1800)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3345 :length 50 :offset 1800)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 3345 :length 20 :offset 1800)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3345 :length 170 :offset 1800)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3345 :length 115 :offset 1800)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3345 :length 70 :offset 1800)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3345 :length 35 :offset 1800)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 3345 :length 10 :offset 1800)
-          )
-        :bounds
-        (new 'static 'sphere :y -65536.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-snow-snowdrops3
+  :id 530
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3345 :length 150 :offset 1800)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3345 :length 100 :offset 1800)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3345 :length 60 :offset 1800)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3345 :length 30 :offset 1800)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 3345 :length 10 :offset 1800)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3345 :length 200 :offset 1800)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3345 :length 150 :offset 1800)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3345 :length 100 :offset 1800)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3345 :length 50 :offset 1800)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 3345 :length 20 :offset 1800)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3345 :length 170 :offset 1800)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3345 :length 115 :offset 1800)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3345 :length 70 :offset 1800)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3345 :length 35 :offset 1800)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 3345 :length 10 :offset 1800)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 531)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-snow-snowdrops4"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 4035 :length 150 :offset 300)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 4035 :length 100 :offset 300)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 4035 :length 60 :offset 300)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 4035 :length 30 :offset 300)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 4035 :length 10 :offset 300)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4035 :length 200 :offset 300)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4035 :length 150 :offset 300)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4035 :length 100 :offset 300)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4035 :length 50 :offset 300)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4035 :length 20 :offset 300)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 4035 :length 170 :offset 300)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 4035 :length 115 :offset 300)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 4035 :length 70 :offset 300)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 4035 :length 35 :offset 300)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 4035 :length 10 :offset 300)
-          )
-        :bounds
-        (new 'static 'sphere :y -65536.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-snow-snowdrops4
+  :id 531
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 4035 :length 150 :offset 300)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 4035 :length 100 :offset 300)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 4035 :length 60 :offset 300)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 4035 :length 30 :offset 300)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 4035 :length 10 :offset 300)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 4035 :length 200 :offset 300)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 4035 :length 150 :offset 300)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 4035 :length 100 :offset 300)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 4035 :length 50 :offset 300)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 4035 :length 20 :offset 300)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 4035 :length 170 :offset 300)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 4035 :length 115 :offset 300)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 4035 :length 70 :offset 300)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 4035 :length 35 :offset 300)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 4035 :length 10 :offset 300)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 532)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-snow-snowdrops5"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 5385 :length 150 :offset 1200)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 5385 :length 100 :offset 1200)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 5385 :length 60 :offset 1200)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 5385 :length 30 :offset 1200)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 5385 :length 10 :offset 1200)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 5385 :length 200 :offset 1200)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 5385 :length 150 :offset 1200)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 5385 :length 100 :offset 1200)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 5385 :length 50 :offset 1200)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 5385 :length 20 :offset 1200)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 5385 :length 170 :offset 1200)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 5385 :length 115 :offset 1200)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 5385 :length 70 :offset 1200)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 5385 :length 35 :offset 1200)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 5385 :length 10 :offset 1200)
-          )
-        :bounds
-        (new 'static 'sphere :y -65536.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-snow-snowdrops5
+  :id 532
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 5385 :length 150 :offset 1200)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 5385 :length 100 :offset 1200)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 5385 :length 60 :offset 1200)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 5385 :length 30 :offset 1200)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 5385 :length 10 :offset 1200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 5385 :length 200 :offset 1200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 5385 :length 150 :offset 1200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 5385 :length 100 :offset 1200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 5385 :length 50 :offset 1200)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 5385 :length 20 :offset 1200)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 5385 :length 170 :offset 1200)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 5385 :length 115 :offset 1200)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 5385 :length 70 :offset 1200)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 5385 :length 35 :offset 1200)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 5385 :length 10 :offset 1200)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 533)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-snow-snowdrops6"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 6129 :length 150 :offset 2100)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 6129 :length 100 :offset 2100)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 6129 :length 60 :offset 2100)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 6129 :length 30 :offset 2100)
-          (sp-item 1924 :fade-after (meters 100.0) :falloff-to (meters 130.0) :period 6129 :length 10 :offset 2100)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 6129 :length 200 :offset 2100)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 6129 :length 150 :offset 2100)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 6129 :length 100 :offset 2100)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 6129 :length 50 :offset 2100)
-          (sp-item 1925 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 6129 :length 20 :offset 2100)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 6129 :length 170 :offset 2100)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 6129 :length 115 :offset 2100)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 6129 :length 70 :offset 2100)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 6129 :length 35 :offset 2100)
-          (sp-item 1926 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 6129 :length 10 :offset 2100)
-          )
-        :bounds
-        (new 'static 'sphere :y -65536.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-snow-snowdrops6
+  :id 533
+  :bounds (static-bspherem 0 -16 0 32)
+  :parts
+  ((sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 6129 :length 150 :offset 2100)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 6129 :length 100 :offset 2100)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 6129 :length 60 :offset 2100)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 6129 :length 30 :offset 2100)
+    (sp-item 1924 :fade-after (meters 100) :falloff-to (meters 130) :period 6129 :length 10 :offset 2100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 6129 :length 200 :offset 2100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 6129 :length 150 :offset 2100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 6129 :length 100 :offset 2100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 6129 :length 50 :offset 2100)
+    (sp-item 1925 :fade-after (meters 100) :falloff-to (meters 100) :period 6129 :length 20 :offset 2100)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 6129 :length 170 :offset 2100)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 6129 :length 115 :offset 2100)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 6129 :length 70 :offset 2100)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 6129 :length 35 :offset 2100)
+    (sp-item 1926 :fade-after (meters 80) :falloff-to (meters 80) :period 6129 :length 10 :offset 2100)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1924) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-flt spt-r 200.0)
-                                    (sp-flt spt-g 200.0)
-                                    (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters -0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-rnd-flt spt-accel-y -2.7306666 -1.3653333 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 600)
-                                    (sp-launcher-by-id spt-next-launcher 1927)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1924 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.25) 1.0)
+                            (sp-flt spt-r 200.0)
+                            (sp-flt spt-g 200.0)
+                            (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters -0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-rnd-flt spt-accel-y -2.7306666 -1.3653333 1.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int spt-next-time 600)
+                            (sp-launcher-by-id spt-next-launcher 1927)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1927)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.42666668) (sp-end))
-        )
-      )
+(defpart 1927 :init-specs ((sp-flt spt-fade-a -0.42666668)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1925) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 200.0)
-                                    (sp-flt spt-g 200.0)
-                                    (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.006666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 600)
-                                    (sp-launcher-by-id spt-next-launcher 1927)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1925 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
+                            (sp-flt spt-r 200.0)
+                            (sp-flt spt-g 200.0)
+                            (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int spt-next-time 600)
+                            (sp-launcher-by-id spt-next-launcher 1927)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1926) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-r 200.0)
-                                    (sp-flt spt-g 200.0)
-                                    (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.006666667))
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1926 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 2.5) (meters 1) 1.0)
+                            (sp-flt spt-r 200.0)
+                            (sp-flt spt-g 200.0)
+                            (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.006666667))
+                            (sp-flt spt-fade-a -0.14222223)
+                            (sp-rnd-flt spt-accel-y -2.048 -1.3653333 1.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 534)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-part-snow-torch"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 2041 :fade-after (meters 200.0) :falloff-to (meters 220.0))
-          (sp-item 2042 :fade-after (meters 140.0) :falloff-to (meters 1400.0))
-          (sp-item 2043 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
-          (sp-item 2044 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
-          (sp-item 2045 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 710 :length 51)
-          (sp-item 2046 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 16384.0)
-        )
-      )
+(defpartgroup group-part-snow-torch
+  :id 534
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 2041 :fade-after (meters 200) :falloff-to (meters 220))
+    (sp-item 2042 :fade-after (meters 140) :falloff-to (meters 1400))
+    (sp-item 2043 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 90)
+    (sp-item 2044 :fade-after (meters 50) :falloff-to (meters 50) :period 369 :length 69)
+    (sp-item 2045 :fade-after (meters 50) :falloff-to (meters 50) :period 710 :length 51)
+    (sp-item 2046 :fade-after (meters 60) :falloff-to (meters 60))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2046)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.3)
-                                                     (sp-flt spt-x (meters 0.2))
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2867.2)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 2047)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2046 :init-specs ((sp-flt spt-num 0.3)
+                            (sp-flt spt-x (meters 0.2))
+                            (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2867.2)
+                            (sp-flt spt-b 3276.8)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                            (sp-flt spt-vel-y (meters 0.026666667))
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 2047)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2047)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -6.826667) (sp-end))
-        )
-      )
+(defpart 2047 :init-specs ((sp-flt spt-fade-b -6.826667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2041) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1069547520 1 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-                                    (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 13.066667)
-                                    (sp-flt spt-accel-y -0.8192)
-                                    (sp-int spt-timer 75)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2048)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2041 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1069547520 1 1.0)
+                            (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 75)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2048)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2048)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
+(defpart 2048 :init-specs ((sp-flt spt-fade-a -1.3333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2043)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 2048)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2043 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2048)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2044) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.5)
-                                    (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z 0.0 1638.4 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 13.066667)
-                                    (sp-flt spt-accel-y -0.8192)
-                                    (sp-int spt-timer 105)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2048)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2044 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2048)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2045)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 2048)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2045 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2048)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2042)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.3))
-                                                     (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0005))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.10666667)
-                                                     (sp-flt spt-fade-g -0.053333335)
-                                                     (sp-flt spt-fade-b -0.053333335)
-                                                     (sp-flt spt-fade-a -0.08)
-                                                     (sp-flt spt-accel-x 0.27306667)
-                                                     (sp-flt spt-accel-y 0.13653333)
-                                                     (sp-flt spt-friction 0.9975)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2042 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 96.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0005))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.10666667)
+                            (sp-flt spt-fade-g -0.053333335)
+                            (sp-flt spt-fade-b -0.053333335)
+                            (sp-flt spt-fade-a -0.08)
+                            (sp-flt spt-accel-x 0.27306667)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-flt spt-friction 0.9975)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 535) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-snow-mountain-snow"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2093))
-                                       :bounds
-                                       (new 'static 'sphere :y -65536.0 :z -131072.0 :w 327680.0)
-                                       )
-      )
+(defpartgroup group-snow-mountain-snow :id 535 :bounds (static-bspherem 0 -16 -32 80) :parts ((sp-item 2093)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2093) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -30.0) (meters 20.0) 1.0)
-                                    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 30.0) (meters 20.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 196.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 196.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.06666667) (meters -0.06666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.033333335))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.053333335)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-int spt-timer 3000)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 180 419 1)
-                                    (sp-launcher-by-id spt-next-launcher 2094)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2093 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-y (meters -30) (meters 20) 1.0)
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 30) (meters 20) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 196.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 196.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 196.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.06666667) (meters -0.06666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.033333335))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.053333335)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-int spt-timer 3000)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 180 419 1)
+                            (sp-launcher-by-id spt-next-launcher 2094)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2094)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.035555556) (sp-end))
-        )
-      )
+(defpart 2094 :init-specs ((sp-flt spt-fade-a -0.035555556)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 536)
-      (new 'static 'sparticle-launch-group
-        :length 8
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-snow-door-torch"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 8
-          (sp-item 2113 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-          (sp-item 2114 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 492 :length 60)
-          (sp-item 2115 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-          (sp-item 2116 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 369 :length 219)
-          (sp-item 2117 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 690 :length 90)
-          (sp-item 2118 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 918 :length 669)
-          (sp-item 2119 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 750 :length 30)
-          (sp-item 2120 :fade-after (meters 50.0) :falloff-to (meters 60.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 20480.0 :w 24576.0)
-        )
-      )
+(defpartgroup group-snow-door-torch
+  :id 536
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 2113 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 2114 :fade-after (meters 40) :falloff-to (meters 40) :period 492 :length 60)
+    (sp-item 2115 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 2116 :fade-after (meters 40) :falloff-to (meters 40) :period 369 :length 219)
+    (sp-item 2117 :fade-after (meters 40) :falloff-to (meters 40) :period 690 :length 90)
+    (sp-item 2118 :fade-after (meters 40) :falloff-to (meters 40) :period 918 :length 669)
+    (sp-item 2119 :fade-after (meters 40) :falloff-to (meters 40) :period 750 :length 30)
+    (sp-item 2120 :fade-after (meters 50) :falloff-to (meters 60))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2120)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.6)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 2.0) 1.0)
-                                                     (sp-flt spt-y (meters 2.0))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 5898.24)
-                                                     (sp-flt spt-b 6553.6)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 2121)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2120 :init-specs ((sp-flt spt-num 0.6)
+                            (sp-rnd-flt spt-x (meters 0) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5898.24)
+                            (sp-flt spt-b 6553.6)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 2121)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2121)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -10.922667) (sp-end))
-        )
-      )
+(defpart 2121 :init-specs ((sp-flt spt-fade-b -10.922667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2113) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.75 0.6 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -2048.0 6144.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.023333333) (meters 0.016666668) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.054613337)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2113 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.75 0.6 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.023333333) (meters 0.016666668) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.054613337)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2114) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1058642330 1 1.3)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z 0.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-int-flt spt-vel-y (meters 0.04) 1 40.96)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5)
-                                    (sp-flt spt-accel-y -0.054613337)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2114 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1058642330 1 1.3)
+                            (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-int-flt spt-vel-y (meters 0.04) 1 40.96)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5)
+                            (sp-flt spt-accel-y -0.054613337)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2115) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.6 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.011111111))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.0627451)
-                                    (sp-flt spt-accel-y -0.54613334)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 2122)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2115 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.6 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.011111111))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.0627451)
+                            (sp-flt spt-accel-y -0.54613334)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 59 1)
+                            (sp-launcher-by-id spt-next-launcher 2122)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2123) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.2 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.005) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0055555557))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.0627451)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 2122)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2123 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.2 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.005) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0055555557))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.0627451)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 59 1)
+                            (sp-launcher-by-id spt-next-launcher 2122)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2122)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-g 0.26666668)
-                                                     (sp-flt spt-fade-b 0.53333336)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 2124)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2122 :init-specs ((sp-flt spt-fade-g 0.26666668)
+                            (sp-flt spt-fade-b 0.53333336)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 2124)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2124)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 3 (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-end))
-        )
-      )
+(defpart 2124 :init-specs ((sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2116) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.6 0.7 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.2) (meters 2.4) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4915.2 9830.4 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.054613337)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees -15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2116 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.6 0.7 1.0)
+                            (sp-rnd-flt spt-x (meters -1.2) (meters 2.4) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1.2) (meters 2.4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.054613337)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees -15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2117) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1056964608 1 0.9)
-                                    (sp-rnd-flt spt-x (meters -1.2) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 1.25))
-                                    (sp-rnd-flt spt-z -4915.2 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-int-flt spt-vel-y (meters 0.03) 1 40.96)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5)
-                                    (sp-flt spt-accel-y -0.054613337)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees -15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2117 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1056964608 1 0.9)
+                            (sp-rnd-flt spt-x (meters -1.2) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 1.25))
+                            (sp-rnd-flt spt-z (meters -1.2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-int-flt spt-vel-y (meters 0.03) 1 40.96)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5)
+                            (sp-flt spt-accel-y -0.054613337)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees -15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2118) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.75 1.2 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.2) (meters 2.4) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4915.2 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.008333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.054613337)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 0.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2118 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.75 1.2 1.0)
+                            (sp-rnd-flt spt-x (meters -1.2) (meters 2.4) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1.2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.008333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.054613337)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2119) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1060320051 1 1.6)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
-                                    (sp-flt spt-y (meters 1.25))
-                                    (sp-rnd-flt spt-z -4096.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-int-flt spt-vel-y (meters 0.03) 1 34.133335)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5)
-                                    (sp-flt spt-accel-y -0.054613337)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 0.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2119 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1060320051 1 1.6)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1.5) 1.0)
+                            (sp-flt spt-y (meters 1.25))
+                            (sp-rnd-flt spt-z (meters -1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-int-flt spt-vel-y (meters 0.03) 1 34.133335)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5)
+                            (sp-flt spt-accel-y -0.054613337)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 537)
-      (new 'static 'sparticle-launch-group
-        :length 50
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-snow-birds"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 50
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2245 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 2243)
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
-          (sp-item 2244 :flags (is-3d start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :y 32768.0 :w 184320.0)
-        )
-      )
+(defpartgroup group-snow-birds
+  :id 537
+  :bounds (static-bspherem 0 8 0 45)
+  :parts
+  ((sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2245 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 2243)
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    (sp-item 2243 :flags (start-dead launch-asap) :binding 2244)
+    (sp-item 2244 :flags (is-3d start-dead))
+    )
+  )
 
 ;; definition for function snow-bird-bob-func
 ;; INFO: Return type mismatch int vs none.
@@ -951,27 +754,22 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2245) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-random-next-time)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -70.0) (meters 140.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-z -286720.0 573440.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer -1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-userdata 199.98)
-                                    (sp-func spt-func 'snow-bird-bob-func)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2245 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-func spt-birth-func 'birth-func-random-next-time)
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -70) (meters 140) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters -70) (meters 140) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int spt-timer -1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-userdata 199.98)
+                            (sp-func spt-func 'snow-bird-bob-func)
+                            )
+              )
 
 ;; definition for function sparticle-snow-birds-moon
 ;; INFO: Return type mismatch int vs none.
@@ -982,74 +780,56 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2243) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-copy-omega-to-z)
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-z 122880.0)
-                                    (sp-flt spt-scale-x (meters 0.0))
-                                    (sp-flt spt-rot-z (degrees 0.0))
-                                    (sp-flt spt-r 32.0)
-                                    (sp-flt spt-g 32.0)
-                                    (sp-flt spt-b 32.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.0044444446))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-scalevel-x (meters 0.04))
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit3 bit7)
-                                    (sp-func spt-func 'sparticle-snow-birds-moon)
-                                    (sp-int spt-next-time 199)
-                                    (sp-launcher-by-id spt-next-launcher 2246)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2243 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-func spt-birth-func 'birth-func-copy-omega-to-z)
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-z (meters 30))
+                            (sp-flt spt-scale-x (meters 0))
+                            (sp-flt spt-rot-z (degrees 0.0))
+                            (sp-flt spt-r 32.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.0044444446))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.04))
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit3 bit7)
+                            (sp-func spt-func 'sparticle-snow-birds-moon)
+                            (sp-int spt-next-time 199)
+                            (sp-launcher-by-id spt-next-launcher 2246)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2246)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scale-x (meters 8.0))
-                                                     (sp-flt spt-scalevel-x (meters -0.08))
-                                                     (sp-int spt-timer 600)
-                                                     (sp-int spt-next-time 100)
-                                                     (sp-launcher-by-id spt-next-launcher 2247)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2246 :init-specs ((sp-flt spt-scale-x (meters 8))
+                            (sp-flt spt-scalevel-x (meters -0.08))
+                            (sp-int spt-timer 600)
+                            (sp-int spt-next-time 100)
+                            (sp-launcher-by-id spt-next-launcher 2247)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2247)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scale-x (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters -0.04))
-                                                     (sp-int spt-timer 600)
-                                                     (sp-int spt-next-time 199)
-                                                     (sp-launcher-by-id spt-next-launcher 2246)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2247 :init-specs ((sp-flt spt-scale-x (meters 0))
+                            (sp-flt spt-scalevel-x (meters -0.04))
+                            (sp-int spt-timer 600)
+                            (sp-int spt-next-time 199)
+                            (sp-launcher-by-id spt-next-launcher 2246)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2244) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 9
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-copy2-rot-color)
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-scale-x (meters 4.0))
-                                    (sp-flt spt-scale-y (meters 1.5))
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit9 bit12)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2244 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                            (sp-func spt-birth-func 'birth-func-copy2-rot-color)
+                            (sp-flt spt-num 2.0)
+                            (sp-flt spt-scale-x (meters 4))
+                            (sp-flt spt-scale-y (meters 1.5))
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit9 bit12)
+                            )
+              )
diff --git a/test/decompiler/reference/levels/snow/snow-ram_REF.gc b/test/decompiler/reference/levels/snow/snow-ram_REF.gc
index 9f20f56897..64237bdcff 100644
--- a/test/decompiler/reference/levels/snow/snow-ram_REF.gc
+++ b/test/decompiler/reference/levels/snow/snow-ram_REF.gc
@@ -11,134 +11,102 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 526) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ram-hit-wall"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1921)
-                                         (sp-item 1922 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-ram-hit-wall
+  :id 526
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1921) (sp-item 1922 :fade-after (meters 60) :falloff-to (meters 60)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1920) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00066666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -20.48 13.653334 1.0)
-                                    (sp-rnd-flt spt-friction 0.92 0.05 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit0 bit3 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 170.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1920 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 16.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 48.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00066666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -20.48 13.653334 1.0)
+                            (sp-rnd-flt spt-friction 0.92 0.05 1.0)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit0 bit3 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 170.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1922) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -0.60952383)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1922 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -0.60952383)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 180.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1921) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-flt spt-fade-a -2.1333334)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1921 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-flt spt-fade-a -2.1333334)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 527) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ram-wheel-puffs"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 1923 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-ram-wheel-puffs
+  :id 527
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1923 :fade-after (meters 70) :falloff-to (meters 70)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1923)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 100.0)
-                                                     (sp-flt spt-g 100.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0033333334) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -0.26666668)
-                                                     (sp-flt spt-accel-y -1.3653333)
-                                                     (sp-int spt-timer 120)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1923 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -0.26666668)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2)
+                            )
+              )
 
 ;; definition for method 20 of type ram
 (defmethod dummy-20 ram ((obj ram))
diff --git a/test/decompiler/reference/levels/snow/yeti_REF.gc b/test/decompiler/reference/levels/snow/yeti_REF.gc
index 32c3faf481..87258ca486 100644
--- a/test/decompiler/reference/levels/snow/yeti_REF.gc
+++ b/test/decompiler/reference/levels/snow/yeti_REF.gc
@@ -129,122 +129,97 @@
         )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 538) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-yeti-slave-appear1"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1928 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-                                         (sp-item 1929 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 65536.0)
-                                       )
-      )
+(defpartgroup group-yeti-slave-appear1
+  :id 538
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 1928 :fade-after (meters 70) :falloff-to (meters 70))
+    (sp-item 1929 :fade-after (meters 70) :falloff-to (meters 70))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1929) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.24) (meters 0.24) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.033333335) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 3.4666667) 1.0)
-                                    (sp-flt spt-accel-y -5.4613333)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 40.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1929 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.24) (meters 0.24) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.033333335) (meters 0.05) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 3.4666667) 1.0)
+                            (sp-flt spt-accel-y -5.4613333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 40.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1928)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 24
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 32.0)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.016666668) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.07111111)
-                                                     (sp-flt spt-accel-y -5.4613333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 40.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1928 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.016666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.07111111)
+                            (sp-flt spt-accel-y -5.4613333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 40.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 539) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-yeti-slave-appear2"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 1930 :fade-after (meters 70.0) :falloff-to (meters 70.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 65536.0)
-                                       )
-      )
+(defpartgroup group-yeti-slave-appear2
+  :id 539
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 1930 :fade-after (meters 70) :falloff-to (meters 70)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1930) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 3.4666667) 1.0)
-                                    (sp-flt spt-accel-y -5.4613333)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1930 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 2.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -2.4) (degrees 3.4666667) 1.0)
+                            (sp-flt spt-accel-y -5.4613333)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; definition for function yeti-slave-default-event-handler
 (defbehavior yeti-slave-default-event-handler yeti-slave ((arg0 process) (arg1 int) (arg2 symbol) (arg3 event-message-block))
diff --git a/test/decompiler/reference/levels/sunken/bully_REF.gc b/test/decompiler/reference/levels/sunken/bully_REF.gc
index 3f99468e72..33850e6243 100644
--- a/test/decompiler/reference/levels/sunken/bully_REF.gc
+++ b/test/decompiler/reference/levels/sunken/bully_REF.gc
@@ -112,194 +112,145 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 454) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-bully-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2871)
-                                         (sp-item 2872)
-                                         (sp-item 2873)
-                                         (sp-item 2874)
-                                         (sp-item 2875)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-bully-explode
+  :id 454
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2871) (sp-item 2872) (sp-item 2873) (sp-item 2874) (sp-item 2875))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2871) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-flt spt-accel-y 2.7306666)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int-plain-rnd spt-next-time 30 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 2876)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2871 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                            (sp-flt spt-accel-y 2.7306666)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int-plain-rnd spt-next-time 30 59 1)
+                            (sp-launcher-by-id spt-next-launcher 2876)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2876)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.0666667) (sp-end))
-        )
-      )
+(defpart 2876 :init-specs ((sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2872) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 3.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1.0) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.009765625))
-                                    (sp-flt spt-fade-a 2.1333334)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2877)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2872 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-flt spt-y (meters 1.5))
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.009765625))
+                            (sp-flt spt-fade-a 2.1333334)
+                            (sp-int spt-timer 30)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2877)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2877)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.1333334) (sp-end))
-        )
-      )
+(defpart 2877 :init-specs ((sp-flt spt-fade-a -2.1333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2873) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 48.0)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2873 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 1.5))
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 196.0)
+                            (sp-flt spt-a 48.0)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2874) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.3))
-                                    (sp-flt spt-r 160.0)
-                                    (sp-flt spt-g 160.0)
-                                    (sp-flt spt-b 160.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                    (sp-flt spt-rotvel-x (degrees 1.2))
-                                    (sp-flt spt-rotvel-y (degrees 2.4))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2878)
-                                    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2874 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 0.3))
+                            (sp-flt spt-r 160.0)
+                            (sp-flt spt-g 160.0)
+                            (sp-flt spt-b 160.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+                            (sp-flt spt-rotvel-x (degrees 1.2))
+                            (sp-flt spt-rotvel-y (degrees 2.4))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
+                            (sp-flt spt-accel-y -13.653334)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 2878)
+                            (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2878)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -3.4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2878 :init-specs ((sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -3.4)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2875) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
-                                    (sp-flt spt-num 16.5)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.3))
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 100.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                    (sp-flt spt-rotvel-x (degrees 1.2))
-                                    (sp-flt spt-rotvel-y (degrees 2.4))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2878)
-                                    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2875 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
+                            (sp-flt spt-num 16.5)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 0.25) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 0.3))
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 100.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+                            (sp-flt spt-rotvel-x (degrees 1.2))
+                            (sp-flt spt-rotvel-y (degrees 2.4))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
+                            (sp-flt spt-accel-y -13.653334)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 2878)
+                            (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defstate bully-broken-cage-explode (bully-broken-cage)
diff --git a/test/decompiler/reference/levels/sunken/orbit-plat_REF.gc b/test/decompiler/reference/levels/sunken/orbit-plat_REF.gc
index 2475589559..a13632f3d6 100644
--- a/test/decompiler/reference/levels/sunken/orbit-plat_REF.gc
+++ b/test/decompiler/reference/levels/sunken/orbit-plat_REF.gc
@@ -89,113 +89,86 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 440)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-orbit-plat-jet"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 1715 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 150 :length 75)
-          (sp-item 1715 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 75 :length 96)
-          (sp-item 1715 :fade-after (meters 140.0) :falloff-to (meters 160.0) :period 90 :length 60)
-          (sp-item 1716 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-orbit-plat-jet
+  :id 440
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1715 :fade-after (meters 100) :falloff-to (meters 120) :period 150 :length 75)
+    (sp-item 1715 :fade-after (meters 100) :falloff-to (meters 120) :period 75 :length 96)
+    (sp-item 1715 :fade-after (meters 140) :falloff-to (meters 160) :period 90 :length 60)
+    (sp-item 1716 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1716)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 18
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.0 1.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 0.0)
-          (sp-flt spt-g 64.0)
-          (sp-flt spt-b 48.0)
-          (sp-rnd-flt spt-a 32.0 96.0 1.0)
-          (sp-rnd-flt spt-vel-z (meters 0.02) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.013333334) (meters 0.006666667) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -1.7066667)
-          (sp-int spt-timer 75)
-          (sp-cpuinfo-flags bit2)
-          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 15.0) 1.0)
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1715)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 20
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 1.0 2.0 1.0)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec
-              :mask #x1
-              :num 0.05
-              :group #x1
-              :sound-name (static-sound-name "steam-medium")
-              :volume #x333
+(defpart 1716 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 48.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.02) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters -0.013333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -1.7066667)
+                            (sp-int spt-timer 75)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 15.0) 1.0)
+                            )
               )
-            )
-          (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.75) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 0.0)
-          (sp-flt spt-g 96.0)
-          (sp-flt spt-b 128.0)
-          (sp-rnd-flt spt-a 16.0 32.0 1.0)
-          (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.013333334) (meters 0.006666667) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.8)
-          (sp-flt spt-friction 0.96)
-          (sp-int spt-timer 75)
-          (sp-cpuinfo-flags bit2)
-          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 15.0) 1.0)
-          (sp-end)
-          )
-        )
-      )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1717) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 3.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.7) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-rnd-flt spt-g 16.0 96.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.45) (meters 0.05) 1.0)
-                                    (sp-flt spt-fade-r -0.08888889)
-                                    (sp-int spt-timer 360)
-                                    (sp-cpuinfo-flags bit2 launch-along-z)
-                                    (sp-flt spt-conerot-x (degrees 0.0))
-                                    (sp-flt spt-conerot-y (degrees 0.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters -3.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1715 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 2.0 1.0)
+                            (sp-sound (new 'static 'sound-spec
+                                        :mask #x1
+                                        :num 0.05
+                                        :group #x1
+                                        :sound-name (static-sound-name "steam-medium")
+                                        :volume #x333
+                                        )
+                                      )
+                            (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.75) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.053333335) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters -0.013333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.8)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 75)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 15.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1717 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 3.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.7) (meters 0.3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-rnd-flt spt-g 16.0 96.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.45) (meters 0.05) 1.0)
+                            (sp-flt spt-fade-r -0.08888889)
+                            (sp-int spt-timer 360)
+                            (sp-cpuinfo-flags bit2 launch-along-z)
+                            (sp-flt spt-conerot-x (degrees 0.0))
+                            (sp-flt spt-conerot-y (degrees 0.0))
+                            (sp-rnd-flt spt-conerot-radius (meters -3) (meters 4) 1.0)
+                            )
+              )
 
 ;; definition for method 20 of type orbit-plat-bottom
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/levels/sunken/square-platform_REF.gc b/test/decompiler/reference/levels/sunken/square-platform_REF.gc
index 67f99b952d..4796457832 100644
--- a/test/decompiler/reference/levels/sunken/square-platform_REF.gc
+++ b/test/decompiler/reference/levels/sunken/square-platform_REF.gc
@@ -113,148 +113,108 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 437)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-square-platform-breach-splash"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2222 :flags (is-3d)) (sp-item 2315 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-square-platform-breach-splash
+  :id 437
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2222 :flags (is-3d)) (sp-item 2315 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2222) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.5) (meters 3.5) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2316)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2222 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3.5) (meters 3.5) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.013333334) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 3.2)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 10 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2316)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2316)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.17066666) (sp-end))
-        )
-      )
+(defpart 2316 :init-specs ((sp-flt spt-fade-a -0.17066666)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2315) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2316)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2315 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters 3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.013333334) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 3.2)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 10 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2316)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 438) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name
-                                       "group-square-platform-submerge-bubbles"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2223))
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-square-platform-submerge-bubbles
+  :id 438
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2223))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2223) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-z -16384.0 32768.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.125) (meters 0.025) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 0.8)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata -663298.44)
-                                    (sp-func spt-func 'check-water-level-above-and-die)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2317)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2223 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-z (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.05) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.125) (meters 0.025) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 0.8)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata -663298.44)
+                            (sp-func spt-func 'check-water-level-above-and-die)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2317)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2317)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
+(defpart 2317 :init-specs ((sp-flt spt-fade-a 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 439)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-square-platform-submerge-splash"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2222 :flags (is-3d)) (sp-item 2315 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-square-platform-submerge-splash
+  :id 439
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2222 :flags (is-3d)) (sp-item 2315 :flags (is-3d)))
+  )
 
 ;; definition for method 27 of type square-platform
 ;; INFO: Return type mismatch object vs none.
diff --git a/test/decompiler/reference/levels/sunken/steam-cap_REF.gc b/test/decompiler/reference/levels/sunken/steam-cap_REF.gc
index e6f3813e5d..61c9184172 100644
--- a/test/decompiler/reference/levels/sunken/steam-cap_REF.gc
+++ b/test/decompiler/reference/levels/sunken/steam-cap_REF.gc
@@ -67,461 +67,367 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 441)
-      (new 'static 'sparticle-launch-group
-        :length 7
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-steam-cap-sides"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 7
-          (sp-item 1718 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75)
-          (sp-item 1719 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75 :offset 60)
-          (sp-item 1720 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75 :offset 120)
-          (sp-item 1721 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75)
-          (sp-item 1722 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75 :offset 60)
-          (sp-item 1723 :fade-after (meters 100.0) :falloff-to (meters 160.0) :period 180 :length 75 :offset 120)
-          (sp-item 1724 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 180 :length 75 :offset 120)
-          )
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
+(defpartgroup group-steam-cap-sides
+  :id 441
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 1718 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75)
+    (sp-item 1719 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75 :offset 60)
+    (sp-item 1720 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75 :offset 120)
+    (sp-item 1721 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75)
+    (sp-item 1722 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75 :offset 60)
+    (sp-item 1723 :fade-after (meters 100) :falloff-to (meters 160) :period 180 :length 75 :offset 120)
+    (sp-item 1724 :fade-after (meters 60) :falloff-to (meters 60) :period 180 :length 75 :offset 120)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1724) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-flt spt-num 1.0)
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 4096.0)
-                                    (sp-flt spt-g 2867.2)
-                                    (sp-flt spt-b 3276.8)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1725)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1724 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2867.2)
+                            (sp-flt spt-b 3276.8)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1725)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1725)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -2.7306666) (sp-end))
-        )
-      )
+(defpart 1725 :init-specs ((sp-flt spt-fade-b -2.7306666)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1718) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1718 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 2.0 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.10666667)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1726)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1721) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1721 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 2.0 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.10666667)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1726)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1719) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1719 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 2.0 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.10666667)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1726)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1722) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1722 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 2.0 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.10666667)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1726)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1720) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1720 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 2.0 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.10666667)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1726)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1723) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 2.0 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 0.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.10666667)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1726)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1723 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.0 2.0 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.10666667)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1726)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1726)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 1726 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 442)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-steam-cap-plume"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4
-          (sp-item 1727 :fade-after (meters 120.0) :falloff-to (meters 160.0))
-          (sp-item 1728 :fade-after (meters 120.0) :falloff-to (meters 160.0))
-          (sp-item 1729 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1730 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 131072.0)
-        )
-      )
+(defpartgroup group-steam-cap-plume
+  :id 442
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 1727 :fade-after (meters 120) :falloff-to (meters 160))
+    (sp-item 1728 :fade-after (meters 120) :falloff-to (meters 160))
+    (sp-item 1729 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1730 :fade-after (meters 60) :falloff-to (meters 60) :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 443) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-steam-cap-plume-spread"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1731 :fade-after (meters 120.0) :falloff-to (meters 160.0))
-                                         (sp-item 1732 :fade-after (meters 120.0) :falloff-to (meters 160.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 131072.0)
-                                       )
-      )
+(defpartgroup group-steam-cap-plume-spread
+  :id 443
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 1731 :fade-after (meters 120) :falloff-to (meters 160))
+    (sp-item 1732 :fade-after (meters 120) :falloff-to (meters 160))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1730) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-flt spt-num 0.4)
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 6144.0)
-                                    (sp-flt spt-g 2867.2)
-                                    (sp-flt spt-b 3276.8)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.94 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1725)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1730 :init-specs ((sp-flt spt-num 0.4)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 2867.2)
+                            (sp-flt spt-b 3276.8)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-rnd-flt spt-friction 0.94 0.02 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1725)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1732) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1735)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1732 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1735)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 15.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1731) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y 0.13653333)
-                                    (sp-rnd-flt spt-friction 0.92 0.02 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1735)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1731 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-rnd-flt spt-friction 0.92 0.02 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1735)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 15.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.5))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1735)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.32) (sp-end))
-        )
-      )
+(defpart 1735 :init-specs ((sp-flt spt-fade-a -0.32)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1727)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 19
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters -1.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-flt spt-accel-y 2.7306666)
-                                                     (sp-int spt-timer 153)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1727 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+                            (sp-flt spt-y (meters -1))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-accel-y 2.7306666)
+                            (sp-int spt-timer 153)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1728)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
-                                                     (sp-flt spt-y (meters -1.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-flt spt-accel-y 2.7306666)
-                                                     (sp-int spt-timer 153)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1728 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
+                            (sp-flt spt-y (meters -1))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-accel-y 2.7306666)
+                            (sp-int spt-timer 153)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1729)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 11
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters 0.5) (meters 0.5) 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 6144.0)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-vel-y (meters 0.053333335))
-                                                     (sp-int spt-timer 153)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1729 :init-specs ((sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 6144.0)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-int spt-timer 153)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
 (defskelgroup *steam-cap-sg* steam-cap
diff --git a/test/decompiler/reference/levels/sunken/sun-exit-chamber_REF.gc b/test/decompiler/reference/levels/sunken/sun-exit-chamber_REF.gc
index 4a69271ffd..7ddd592b1c 100644
--- a/test/decompiler/reference/levels/sunken/sun-exit-chamber_REF.gc
+++ b/test/decompiler/reference/levels/sunken/sun-exit-chamber_REF.gc
@@ -173,88 +173,69 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 620)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-exit-chamber-ripples"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2512 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-exit-chamber-ripples
+  :id 620
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2512 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2513) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-ocean-height)
-                                    (sp-flt spt-num 0.25)
-                                    (sp-rnd-flt spt-x (meters 5.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.02) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-userdata 2048.0)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2514)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2513 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-func spt-birth-func 'birth-func-ocean-height)
+                            (sp-flt spt-num 0.25)
+                            (sp-rnd-flt spt-x (meters 5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.02) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 3.2)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-userdata 2048.0)
+                            (sp-int-plain-rnd spt-next-time 10 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2514)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2514)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.094814815) (sp-end))
-        )
-      )
+(defpart 2514 :init-specs ((sp-flt spt-fade-a -0.094814815)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2512) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-ocean-height)
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters 6.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.5) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-flt spt-userdata 2048.0)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2514)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2512 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-func spt-birth-func 'birth-func-ocean-height)
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 3.2)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-flt spt-userdata 2048.0)
+                            (sp-int-plain-rnd spt-next-time 10 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2514)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; definition for method 20 of type blue-eco-charger-orb
 (defmethod dummy-20 blue-eco-charger-orb ((obj blue-eco-charger-orb) (arg0 float))
@@ -733,28 +714,23 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2515) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 40.0 24.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-accel-y 2.7306666)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-above-and-die)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2515 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 40.0 24.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-accel-y 2.7306666)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-userdata 0.0)
+                            (sp-func spt-func 'check-water-level-above-and-die)
+                            )
+              )
 
 ;; definition for method 24 of type exit-chamber
 (defmethod dummy-24 exit-chamber ((obj exit-chamber) (arg0 float))
diff --git a/test/decompiler/reference/levels/sunken/sunken-obs_REF.gc b/test/decompiler/reference/levels/sunken/sunken-obs_REF.gc
index fef5415854..2f5c8bb30d 100644
--- a/test/decompiler/reference/levels/sunken/sunken-obs_REF.gc
+++ b/test/decompiler/reference/levels/sunken/sunken-obs_REF.gc
@@ -70,72 +70,58 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 436) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-side-to-side-plat"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1713 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1714 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-side-to-side-plat
+  :id 436
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1713 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1714 :fade-after (meters 160) :falloff-to (meters 160))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1713)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-flt spt-num 4.0)
-                                                     (sp-rnd-flt spt-x (meters -11.0) (meters 22.0) 1.0)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 5324.8)
-                                                     (sp-flt spt-g 4096.0)
-                                                     (sp-flt spt-b 3686.4)
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-fade-b -16.383999)
-                                                     (sp-int spt-timer 25)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 140.0) (degrees 40.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 3.0))
-                                                     (sp-flt spt-rotate-y (degrees 18.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1713 :init-specs ((sp-flt spt-num 4.0)
+                            (sp-rnd-flt spt-x (meters -11) (meters 22) 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 5324.8)
+                            (sp-flt spt-g 4096.0)
+                            (sp-flt spt-b 3686.4)
+                            (sp-flt spt-vel-y (meters 0.0033333334))
+                            (sp-flt spt-fade-b -16.383999)
+                            (sp-int spt-timer 25)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-rnd-flt spt-conerot-x (degrees 140.0) (degrees 40.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 3))
+                            (sp-flt spt-rotate-y (degrees 18.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1714) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-x (meters -11.0) (meters 22.0) 1.0)
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-flt spt-fade-g -0.42666668)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.13653333)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 130.0) (degrees 100.00001) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 3.0))
-                                    (sp-flt spt-rotate-y (degrees 18.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1714 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-x (meters -11) (meters 22) 1.0)
+                            (sp-flt spt-y (meters 1.5))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-flt spt-fade-a -0.32)
+                            (sp-flt spt-accel-y -0.13653333)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 130.0) (degrees 100.00001) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 3))
+                            (sp-flt spt-rotate-y (degrees 18.0))
+                            )
+              )
 
 ;; definition for method 23 of type side-to-side-plat
 (defmethod get-unlit-skel side-to-side-plat ((obj side-to-side-plat))
diff --git a/test/decompiler/reference/levels/sunken/sunken-part2_REF.gc b/test/decompiler/reference/levels/sunken/sunken-part2_REF.gc
index 820e624dcb..a54ae3228b 100644
--- a/test/decompiler/reference/levels/sunken/sunken-part2_REF.gc
+++ b/test/decompiler/reference/levels/sunken/sunken-part2_REF.gc
@@ -2,2826 +2,2381 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 353)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-34"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1495 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1495 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1496 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1496) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 7.0000005) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1495) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 7.0000005) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 354)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-36"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1497 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1497 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1498 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1498) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1497) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 355)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-30"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1499 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1499 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1500 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 122880.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1500) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees -20.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1499) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees -20.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 356)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-31"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1501 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1501 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1502 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1502) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees -120.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1501) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees -120.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 357)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-29"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1503 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1503 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1504 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1504) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1503) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 358)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-159"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1505 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1505 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1506 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1506) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 60.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1505) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 60.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 359)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-161"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1507 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1507 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1508 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1508) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 70.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1507) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 70.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 360)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-204"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1509 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1509 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1510 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1510) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 32768.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 30.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1509) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 32768.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 30.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 361)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-205"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1511 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1511 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1512 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1512) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1511) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 362)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-203"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1513 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1513 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1514 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1514) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 80.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1513) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 80.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 363)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-42"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1515 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1515 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1516 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1516) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -25.0) (meters 50.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 16384.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees 195.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1515) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -25.0) (meters 50.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 16384.0 16384.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 195.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 364)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-41"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1517 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1517 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1518 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1518) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees -70.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1517) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees -70.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 365)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-206"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1519 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1519 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1520 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1520) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 170.0) (degrees 30.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1519) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 0.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 170.0) (degrees 30.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 366)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-201"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1521 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1521 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1522 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1522) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees -40.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1521) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees -40.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 367)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1523 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1523 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1524 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1524) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1523) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 368)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1525 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1525 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1526 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1526) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 16384.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 249.99998) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1525) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 16384.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 249.99998) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 369)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-382"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1528 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1527)
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1527 :flags (bit1 start-dead launch-asap))
-          (sp-item 1529 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1528) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.4))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
-                                    (sp-flt spt-rotate-y (degrees 50.000004))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1527) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 6.2222223))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-flt spt-z 2457.6)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1529)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -1.4))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-flt spt-fade-g 1.3653333)
-                                                     (sp-flt spt-accel-y 0.8192)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 50.000004))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 370)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-381"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1531 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1530)
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1530 :flags (bit1 start-dead launch-asap))
-          (sp-item 1532 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1531) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.4))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
-                                    (sp-flt spt-rotate-y (degrees 80.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1530) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 7.5555553))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-flt spt-z 2457.6)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1532)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -1.4))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-flt spt-fade-g 1.3653333)
-                                                     (sp-flt spt-accel-y 0.8192)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 80.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 371)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-380"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1534 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1533)
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1533 :flags (bit1 start-dead launch-asap))
-          (sp-item 1535 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1534) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.4))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
-                                    (sp-flt spt-rotate-y (degrees 47.5))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1533) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 6.2222223))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-flt spt-z 2457.6)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1535)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -1.4))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-flt spt-fade-g 1.3653333)
-                                                     (sp-flt spt-accel-y 0.8192)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 47.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 372)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-379"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1537 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1536)
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1536 :flags (bit1 start-dead launch-asap))
-          (sp-item 1538 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1537) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.4))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
-                                    (sp-flt spt-rotate-y (degrees 70.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1536) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 7.111111))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-flt spt-z 2457.6)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1538)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -1.4))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-flt spt-fade-g 1.3653333)
-                                                     (sp-flt spt-accel-y 0.8192)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 70.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 373)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-378"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1540 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1539)
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1539 :flags (bit1 start-dead launch-asap))
-          (sp-item 1541 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1540) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.4))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
-                                    (sp-flt spt-rotate-y (degrees 23.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1539) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 5.111111))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-flt spt-z 2457.6)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1541)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -1.4))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-flt spt-fade-g 1.3653333)
-                                                     (sp-flt spt-accel-y 0.8192)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 23.000002))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 374)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-402"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1542 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1542 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1543 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1543) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 190.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1542) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 190.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 375)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-401"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1544 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1544 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1545 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1545) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 105.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1544) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 105.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 376)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-400"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1546 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1546 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1547 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1547) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 20.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1546) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 20.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 377)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-399"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1548 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1548 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1549 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1549) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 225.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1548) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 225.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpartgroup group-sunken-window-bubbles-34
+  :id 353
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1495 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1495 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1496 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1496 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 7.0000005) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1495 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 7.0000005) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-36
+  :id 354
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1497 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1497 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1498 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1498 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1497 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-30
+  :id 355
+  :bounds (static-bspherem 0 4 0 30)
+  :parts
+  ((sp-item 1499 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1499 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1500 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1500 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees -20.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1499 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees -20.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-31
+  :id 356
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1501 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1501 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1502 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1502 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees -120.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1501 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees -120.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-29
+  :id 357
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1503 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1503 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1504 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1504 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1503 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-159
+  :id 358
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1505 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1505 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1506 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1506 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 60.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1505 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 60.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-161
+  :id 359
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1507 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1507 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1508 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1508 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 70.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1507 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 70.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-204
+  :id 360
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1509 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1509 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1510 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1510 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 8) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 30.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1509 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 8) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 30.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-205
+  :id 361
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1511 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1511 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1512 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1512 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1511 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-203
+  :id 362
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1513 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1513 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1514 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1514 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 80.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1513 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 80.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-42
+  :id 363
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1515 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1515 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1516 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1516 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -25) (meters 50) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 4) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees 195.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1515 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -25) (meters 50) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 4) (meters 4) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 195.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-41
+  :id 364
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1517 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1517 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1518 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1518 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees -70.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1517 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees -70.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-206
+  :id 365
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1519 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1519 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1520 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1520 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 170.0) (degrees 30.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1519 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 0) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 170.0) (degrees 30.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-201
+  :id 366
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1521 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1521 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1522 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1522 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees -40.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1521 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees -40.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-3
+  :id 367
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1523 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1523 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1524 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1524 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1523 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 160.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-2
+  :id 368
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1525 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1525 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1526 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1526 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 4) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 249.99998) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1525 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 4) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 249.99998) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-382
+  :id 369
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1528 :fade-after (meters 80) :falloff-to (meters 80) :binding 1527)
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1527 :flags (bit1 start-dead launch-asap))
+    (sp-item 1529 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1528 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
+                            (sp-flt spt-rotate-y (degrees 50.000004))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1527 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 6.2222223))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 0.6))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1529 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 2867.2)
+                            (sp-flt spt-fade-g 1.3653333)
+                            (sp-flt spt-accel-y 0.8192)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
+                            (sp-flt spt-rotate-y (degrees 50.000004))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-381
+  :id 370
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1531 :fade-after (meters 80) :falloff-to (meters 80) :binding 1530)
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1530 :flags (bit1 start-dead launch-asap))
+    (sp-item 1532 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1531 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
+                            (sp-flt spt-rotate-y (degrees 80.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1530 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 7.5555553))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 0.6))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1532 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 2867.2)
+                            (sp-flt spt-fade-g 1.3653333)
+                            (sp-flt spt-accel-y 0.8192)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
+                            (sp-flt spt-rotate-y (degrees 80.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-380
+  :id 371
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1534 :fade-after (meters 80) :falloff-to (meters 80) :binding 1533)
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1533 :flags (bit1 start-dead launch-asap))
+    (sp-item 1535 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1534 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
+                            (sp-flt spt-rotate-y (degrees 47.5))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1533 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 6.2222223))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 0.6))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1535 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 2867.2)
+                            (sp-flt spt-fade-g 1.3653333)
+                            (sp-flt spt-accel-y 0.8192)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
+                            (sp-flt spt-rotate-y (degrees 47.5))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-379
+  :id 372
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1537 :fade-after (meters 80) :falloff-to (meters 80) :binding 1536)
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1536 :flags (bit1 start-dead launch-asap))
+    (sp-item 1538 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1537 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
+                            (sp-flt spt-rotate-y (degrees 70.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1536 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 7.111111))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 0.6))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1538 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 2867.2)
+                            (sp-flt spt-fade-g 1.3653333)
+                            (sp-flt spt-accel-y 0.8192)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
+                            (sp-flt spt-rotate-y (degrees 70.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-378
+  :id 373
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1540 :fade-after (meters 80) :falloff-to (meters 80) :binding 1539)
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1539 :flags (bit1 start-dead launch-asap))
+    (sp-item 1541 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1540 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
+                            (sp-flt spt-rotate-y (degrees 23.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1539 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 5.111111))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 0.6))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1541 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 2867.2)
+                            (sp-flt spt-fade-g 1.3653333)
+                            (sp-flt spt-accel-y 0.8192)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
+                            (sp-flt spt-rotate-y (degrees 23.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-402
+  :id 374
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1542 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1542 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1543 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1543 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 190.0) (degrees 40.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1542 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 190.0) (degrees 40.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-401
+  :id 375
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1544 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1544 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1545 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1545 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 105.0) (degrees 40.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1544 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 105.0) (degrees 40.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-400
+  :id 376
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1546 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1546 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1547 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1547 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 20.0) (degrees 40.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1546 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 20.0) (degrees 40.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-399
+  :id 377
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1548 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1548 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1549 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1549 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 225.0) (degrees 40.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1548 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 225.0) (degrees 40.0) 1.0)
+                            )
+              )
diff --git a/test/decompiler/reference/levels/sunken/sunken-part3_REF.gc b/test/decompiler/reference/levels/sunken/sunken-part3_REF.gc
index fedfccd437..22cd2b5d6b 100644
--- a/test/decompiler/reference/levels/sunken/sunken-part3_REF.gc
+++ b/test/decompiler/reference/levels/sunken/sunken-part3_REF.gc
@@ -2,1955 +2,1641 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 378)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-383"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1551 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1550)
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1550 :flags (bit1 start-dead launch-asap))
-          (sp-item 1552 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 12288.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-383
+  :id 378
+  :bounds (static-bspherem 0 1 0 3)
+  :parts
+  ((sp-item 1551 :fade-after (meters 80) :falloff-to (meters 80) :binding 1550)
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1550 :flags (bit1 start-dead launch-asap))
+    (sp-item 1552 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1551) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.4))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1551 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1550) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-flt spt-z 2457.6)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1550 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 0.6))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1552)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -1.4))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-flt spt-fade-g 1.3653333)
-                                                     (sp-flt spt-accel-y 0.8192)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1552 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 2867.2)
+                            (sp-flt spt-fade-g 1.3653333)
+                            (sp-flt spt-accel-y 0.8192)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 379)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-198"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1554 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1553)
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1553 :flags (bit1 start-dead launch-asap))
-          (sp-item 1555 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-198
+  :id 379
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1554 :fade-after (meters 80) :falloff-to (meters 80) :binding 1553)
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1553 :flags (bit1 start-dead launch-asap))
+    (sp-item 1555 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1554) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.4))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
-                                    (sp-flt spt-rotate-y (degrees 120.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1554 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
+                            (sp-flt spt-rotate-y (degrees 120.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1553) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 1.3333334))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-flt spt-z 2457.6)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1553 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 1.3333334))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 0.6))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1555)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -1.4))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-flt spt-fade-g 1.3653333)
-                                                     (sp-flt spt-accel-y 0.8192)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 120.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1555 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 2867.2)
+                            (sp-flt spt-fade-g 1.3653333)
+                            (sp-flt spt-accel-y 0.8192)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
+                            (sp-flt spt-rotate-y (degrees 120.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 380)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-189"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1557 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1556)
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1556 :flags (bit1 start-dead launch-asap))
-          (sp-item 1558 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-189
+  :id 380
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1557 :fade-after (meters 80) :falloff-to (meters 80) :binding 1556)
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1556 :flags (bit1 start-dead launch-asap))
+    (sp-item 1558 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1557) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 0.7)
-                                    (sp-flt spt-x (meters -1.4))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
-                                    (sp-flt spt-rotate-y (degrees 116.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1557 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 0.7)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
+                            (sp-flt spt-rotate-y (degrees 116.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1556) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-flt spt-x (meters 1.1555556))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-flt spt-z 2457.6)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1556 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 3.0)
+                            (sp-flt spt-x (meters 1.1555556))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 0.6))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1558)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.05)
-                                                     (sp-flt spt-x (meters -1.4))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-flt spt-fade-g 1.3653333)
-                                                     (sp-flt spt-accel-y 0.8192)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 116.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1558 :init-specs ((sp-flt spt-num 0.05)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 2867.2)
+                            (sp-flt spt-fade-g 1.3653333)
+                            (sp-flt spt-accel-y 0.8192)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
+                            (sp-flt spt-rotate-y (degrees 116.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 381)
-      (new 'static 'sparticle-launch-group
-        :length 28
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-193"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 28
-          (sp-item 1560 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1559)
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1559 :flags (bit1 start-dead launch-asap))
-          (sp-item 1561 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          (sp-item 1562 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-193
+  :id 381
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1560 :fade-after (meters 80) :falloff-to (meters 80) :binding 1559)
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1559 :flags (bit1 start-dead launch-asap))
+    (sp-item 1561 :fade-after (meters 64) :falloff-to (meters 64))
+    (sp-item 1562 :fade-after (meters 60) :falloff-to (meters 60))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1560) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 0.4)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters -1.4))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 0.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
-                                    (sp-flt spt-rotate-y (degrees 116.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1560 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters -1.4))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 0.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
+                            (sp-flt spt-rotate-y (degrees 116.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1559) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 1.1555556))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-z 2457.6)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1559 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 1.1555556))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-z (meters 0.6))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1561)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-y (meters -1.4) (meters 2.8) 1.0)
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-flt spt-vel-y (meters 0.0046666665))
-                                                     (sp-flt spt-fade-g 2.2755556)
-                                                     (sp-flt spt-accel-y 0.8192)
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1561 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters -1.4) (meters 2.8) 1.0)
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 2867.2)
+                            (sp-flt spt-vel-y (meters 0.0046666665))
+                            (sp-flt spt-fade-g 2.2755556)
+                            (sp-flt spt-accel-y 0.8192)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1562) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.4) (meters 2.8) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 8.0 40.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-fade-a -0.16)
-                                    (sp-flt spt-accel-y 2.7306666)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 1.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1562 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters -1.4) (meters 2.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 8.0 40.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-flt spt-accel-y 2.7306666)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 1))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 382)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-207"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1564 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1563)
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1563 :flags (bit1 start-dead launch-asap))
-          (sp-item 1565 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-207
+  :id 382
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1564 :fade-after (meters 80) :falloff-to (meters 80) :binding 1563)
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1563 :flags (bit1 start-dead launch-asap))
+    (sp-item 1565 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1564) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.4))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 2867.2)
-                                    (sp-flt spt-rotate-y (degrees 25.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1564 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 2867.2)
+                            (sp-flt spt-rotate-y (degrees 25.000002))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1563) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 5.1555557))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-flt spt-z 2457.6)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1563 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 5.1555557))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 0.6))
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1565)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -1.4))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2457.6)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-flt spt-fade-g 1.3653333)
-                                                     (sp-flt spt-accel-y 0.8192)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.8) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 25.000002))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1565 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -1.4))
+                            (sp-flt spt-y (meters 0))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2457.6)
+                            (sp-flt spt-b 2867.2)
+                            (sp-flt spt-fade-g 1.3653333)
+                            (sp-flt spt-accel-y 0.8192)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.8) 1.0)
+                            (sp-flt spt-rotate-y (degrees 25.000002))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 383)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-388"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1566 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1566 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1567 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-388
+  :id 383
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1566 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1566 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1567 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1567) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1567 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -12) (meters 24) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1566) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1566 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -12) (meters 24) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 384)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-387"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1568 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1568 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1569 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-387
+  :id 384
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1568 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1568 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1569 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1569) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 40.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1569 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 40.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1568) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 40.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1568 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 40.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 385)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-386"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1570 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1570 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1571 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-386
+  :id 385
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1570 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1570 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1571 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1571) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1571 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1570) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1570 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 130.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 386)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-384"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1572 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1572 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1573 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-384
+  :id 386
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1572 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1572 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1573 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1573) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees -204.99998) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1573 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -12) (meters 24) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees -204.99998) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1572) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -12.0) (meters 24.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees -204.99998) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1572 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -12) (meters 24) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees -204.99998) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 387)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-385"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1574 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1574 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1575 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-385
+  :id 387
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1574 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1574 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1575 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1575) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees -185.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1575 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees -185.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1574) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees -185.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1574 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees -185.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 388)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-394"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1576 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1576 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1577 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-394
+  :id 388
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1576 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1576 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1577 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1577) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees -60.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1577 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees -60.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1576) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees -60.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1576 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees -60.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 389)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-390"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1578 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1578 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1579 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-390
+  :id 389
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1578 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1578 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1579 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1579) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees -45.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1579 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees -45.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1578) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees -45.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1578 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees -45.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 390)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-393"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1582 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1582 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1583 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-393
+  :id 390
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1582 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1582 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1583 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1583) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 90.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1583 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 90.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1582) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 90.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1582 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 90.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 391)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-392"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1584 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1584 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1585 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-392
+  :id 391
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1584 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1584 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1585 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1585) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 135.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1585 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 135.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1584) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 135.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1584 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 135.0) (degrees 50.000004) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 392)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-38"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1586 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1586 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1587 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-38
+  :id 392
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1586 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1586 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1587 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1587) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 145.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1587 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -20) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 145.0) (degrees 40.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1586) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 145.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1586 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 145.0) (degrees 40.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 393)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-200"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1588 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1588 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1589 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-200
+  :id 393
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1588 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1588 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1589 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1589) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees 45.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1589 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -10) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees 45.0) (degrees 40.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1588) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 45.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1588 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 45.0) (degrees 40.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 394)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-391"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1580 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1580 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1581 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
+(defpartgroup group-sunken-window-bubbles-391
+  :id 394
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1580 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1580 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1581 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1581) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees -90.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1581 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees -90.0) (degrees 40.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1580) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees -90.0) (degrees 40.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1580 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0016666667) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees -90.0) (degrees 40.0) 1.0)
+                            )
+              )
diff --git a/test/decompiler/reference/levels/sunken/sunken-part4_REF.gc b/test/decompiler/reference/levels/sunken/sunken-part4_REF.gc
index ae5a5949da..5c44c24471 100644
--- a/test/decompiler/reference/levels/sunken/sunken-part4_REF.gc
+++ b/test/decompiler/reference/levels/sunken/sunken-part4_REF.gc
@@ -2,3124 +2,2553 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 395)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-282"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1591 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1590)
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1590 :flags (bit1 start-dead launch-asap))
-          (sp-item 1592 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1591) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 103.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 112.99999))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1590) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 1.1111112))
-                                    (sp-flt spt-y (meters 3.3333333))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1592)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 103.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 112.99999))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 396)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-285"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1594 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1593)
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1593 :flags (bit1 start-dead launch-asap))
-          (sp-item 1595 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1594) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 103.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 100.00001))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1593) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 0.6666667))
-                                    (sp-flt spt-y (meters 3.3333333))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1595)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 103.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 100.00001))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 397)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-288"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1597 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1596)
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1596 :flags (bit1 start-dead launch-asap))
-          (sp-item 1598 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1597) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 103.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 85.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1596) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 3.3333333))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1598)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 103.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 85.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 398)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-299"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1600 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1599)
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1599 :flags (bit1 start-dead launch-asap))
-          (sp-item 1601 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1600) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 103.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 60.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1599) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -1.1111112))
-                                    (sp-flt spt-y (meters 3.3333333))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1601)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 103.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 60.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 399)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-302"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1603 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1602)
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1602 :flags (bit1 start-dead launch-asap))
-          (sp-item 1604 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1603) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 103.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 47.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1602) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -1.7777778))
-                                    (sp-flt spt-y (meters 3.3333333))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1604)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 103.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 47.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 400)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-367"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1606 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1605)
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1605 :flags (bit1 start-dead launch-asap))
-          (sp-item 1607 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1606) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 103.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1605) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -2.6666667))
-                                    (sp-flt spt-y (meters 3.3333333))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1607)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 103.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 30.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 401)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-371"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1609 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1608)
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1608 :flags (bit1 start-dead launch-asap))
-          (sp-item 1610 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1609) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 103.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 7.0000005))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1608) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -3.5555556))
-                                    (sp-flt spt-y (meters 3.3333333))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1610)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 103.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 7.0000005))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 402)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-308"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1612 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1611)
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1611 :flags (bit1 start-dead launch-asap))
-          (sp-item 1613 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1612) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 98.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1611) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 3.7777777))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1613)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 98.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 403)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-312"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1615 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1614)
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1614 :flags (bit1 start-dead launch-asap))
-          (sp-item 1616 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1615) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 98.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -192.00002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1614) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -4.4444447))
-                                    (sp-flt spt-y (meters 4.4444447))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1616)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 98.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -192.00002))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 404)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-316"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1618 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1617)
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1617 :flags (bit1 start-dead launch-asap))
-          (sp-item 1619 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1618) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 98.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -162.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1617) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -3.1111112))
-                                    (sp-flt spt-y (meters 4.4444447))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1619)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 98.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -162.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 405)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-320"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1621 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1620)
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1620 :flags (bit1 start-dead launch-asap))
-          (sp-item 1622 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1621) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 98.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -105.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1620) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -0.6666667))
-                                    (sp-flt spt-y (meters 4.4444447))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1622)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 98.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -105.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 406)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-324"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1624 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1623)
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1623 :flags (bit1 start-dead launch-asap))
-          (sp-item 1625 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1624) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.2))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 96.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -85.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1623) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 0.22222222))
-                                    (sp-flt spt-y (meters 4.2222223))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1625)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 96.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -85.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 407)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-328"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1627 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1626)
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1626 :flags (bit1 start-dead launch-asap))
-          (sp-item 1628 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1627) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.2))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 96.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -67.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1626) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 0.8888889))
-                                    (sp-flt spt-y (meters 4.2222223))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1628)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 96.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -67.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 408)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-332"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1630 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1629)
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1629 :flags (bit1 start-dead launch-asap))
-          (sp-item 1631 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1630) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.4))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 103.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -20.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1629) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 3.3333333))
-                                    (sp-flt spt-y (meters 4.6666665))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1631)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.70000005))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 103.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -20.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 409)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-333"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1633 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1632)
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1632 :flags (bit1 start-dead launch-asap))
-          (sp-item 1634 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1633) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.9))
-                                    (sp-flt spt-y (meters 0.9))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 115.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1632) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 5.3333335))
-                                    (sp-flt spt-y (meters 5.111111))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1634)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -1.9))
-                                                     (sp-flt spt-y (meters 1.2))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 115.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 30.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 410)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-334"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1636 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1635)
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1635 :flags (bit1 start-dead launch-asap))
-          (sp-item 1637 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1636) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.9))
-                                    (sp-flt spt-y (meters 0.7))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 110.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 20.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1635) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 5.111111))
-                                    (sp-flt spt-y (meters 5.111111))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1637)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -1.9))
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 110.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 20.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 411)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-335"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1639 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1638)
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1638 :flags (bit1 start-dead launch-asap))
-          (sp-item 1640 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1639) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 105.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1638) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 4.4444447))
-                                    (sp-flt spt-y (meters 5.111111))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1640)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 105.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 412)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-336"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1642 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1641)
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1641 :flags (bit1 start-dead launch-asap))
-          (sp-item 1643 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1642) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 105.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -15.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1641) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 3.7777777))
-                                    (sp-flt spt-y (meters 5.111111))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1643)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 105.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -15.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 413)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-337"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1645 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1644)
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1644 :flags (bit1 start-dead launch-asap))
-          (sp-item 1646 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1645) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 105.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -37.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1644) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 2.4444444))
-                                    (sp-flt spt-y (meters 5.111111))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1646)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 105.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -37.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 414)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-338"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1648 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1647)
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1647 :flags (bit1 start-dead launch-asap))
-          (sp-item 1649 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1648) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 105.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -62.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1647) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 1.7777778))
-                                    (sp-flt spt-y (meters 5.111111))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1649)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 105.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -62.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 415)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-339"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1651 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1650)
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1650 :flags (bit1 start-dead launch-asap))
-          (sp-item 1652 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1651) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 99.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -85.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1650) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 0.44444445))
-                                    (sp-flt spt-y (meters 4.4444447))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1652)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 99.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -85.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 416)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-340"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1654 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1653)
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1653 :flags (bit1 start-dead launch-asap))
-          (sp-item 1655 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1654) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 105.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 160.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1653) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 3.1111112))
-                                    (sp-flt spt-y (meters 3.5555556))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1655)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 105.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 160.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 417)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-341"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1657 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1656)
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1656 :flags (bit1 start-dead launch-asap))
-          (sp-item 1658 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1657) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees 177.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1656) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 3.7777777))
-                                    (sp-flt spt-y (meters 3.5555556))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1658)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 100.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 177.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 418)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-357"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1660 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1659)
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1659 :flags (bit1 start-dead launch-asap))
-          (sp-item 1661 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1660) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 97.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4505.6)
-                                    (sp-flt spt-rotate-y (degrees 131.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1659) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 1.7777778))
-                                    (sp-flt spt-y (meters 3.5555556))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1661)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 97.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.4) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 131.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 419)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-356"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1663 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1662)
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1662 :flags (bit1 start-dead launch-asap))
-          (sp-item 1664 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1663) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 97.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4505.6)
-                                    (sp-flt spt-rotate-y (degrees 311.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1662) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 1.7777778))
-                                    (sp-flt spt-y (meters 4.4444447))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1664)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 97.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.4) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 311.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 420)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-354"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1666 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1665)
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1665 :flags (bit1 start-dead launch-asap))
-          (sp-item 1667 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1666) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 97.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees 325.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1665) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 2.6666667))
-                                    (sp-flt spt-y (meters 4.4444447))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1667)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 97.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 325.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 565)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-sheild"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 2311) (sp-item 2312 :flags (is-3d)))
-        :bounds (new 'static 'sphere :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2312) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.6 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.06) (meters 0.013333334) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.8)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 20 19 1)
-                                    (sp-launcher-by-id spt-next-launcher 2313)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2313)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2311) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-rnd-flt spt-num 4.0 2.0 1.0)
-                                    (sp-rnd-flt spt-x (meters 2.0) (meters 17.0) 1.0)
-                                    (sp-flt spt-y (meters -6.0))
-                                    (sp-int spt-rot-x 8)
-                                    (sp-flt spt-r 16384.0)
-                                    (sp-flt spt-g 12288.0)
-                                    (sp-flt spt-b 12288.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-fade-b -32.768)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2314)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2314)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b 32.768) (sp-end))
-        )
-      )
+(defpartgroup group-sunken-heatpipe-282
+  :id 395
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1591 :fade-after (meters 80) :falloff-to (meters 80) :binding 1590)
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1590 :flags (bit1 start-dead launch-asap))
+    (sp-item 1592 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1591 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 112.99999))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1590 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 1.1111112))
+                            (sp-flt spt-y (meters 3.3333333))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1592 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 112.99999))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-285
+  :id 396
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1594 :fade-after (meters 80) :falloff-to (meters 80) :binding 1593)
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1593 :flags (bit1 start-dead launch-asap))
+    (sp-item 1595 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1594 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 100.00001))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1593 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 0.6666667))
+                            (sp-flt spt-y (meters 3.3333333))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1595 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 100.00001))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-288
+  :id 397
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1597 :fade-after (meters 80) :falloff-to (meters 80) :binding 1596)
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1596 :flags (bit1 start-dead launch-asap))
+    (sp-item 1598 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1597 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 85.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1596 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 3.3333333))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1598 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 85.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-299
+  :id 398
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1600 :fade-after (meters 80) :falloff-to (meters 80) :binding 1599)
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1599 :flags (bit1 start-dead launch-asap))
+    (sp-item 1601 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1600 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 60.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1599 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -1.1111112))
+                            (sp-flt spt-y (meters 3.3333333))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1601 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 60.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-302
+  :id 399
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1603 :fade-after (meters 80) :falloff-to (meters 80) :binding 1602)
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1602 :flags (bit1 start-dead launch-asap))
+    (sp-item 1604 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1603 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 47.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1602 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -1.7777778))
+                            (sp-flt spt-y (meters 3.3333333))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1604 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 47.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-367
+  :id 400
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1606 :fade-after (meters 80) :falloff-to (meters 80) :binding 1605)
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1605 :flags (bit1 start-dead launch-asap))
+    (sp-item 1607 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1606 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1605 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -2.6666667))
+                            (sp-flt spt-y (meters 3.3333333))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1607 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-371
+  :id 401
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1609 :fade-after (meters 80) :falloff-to (meters 80) :binding 1608)
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1608 :flags (bit1 start-dead launch-asap))
+    (sp-item 1610 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1609 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 7.0000005))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1608 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -3.5555556))
+                            (sp-flt spt-y (meters 3.3333333))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1610 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 7.0000005))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-308
+  :id 402
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1612 :fade-after (meters 80) :falloff-to (meters 80) :binding 1611)
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1611 :flags (bit1 start-dead launch-asap))
+    (sp-item 1613 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1612 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 98.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1611 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 3.7777777))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1613 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 98.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-312
+  :id 403
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1615 :fade-after (meters 80) :falloff-to (meters 80) :binding 1614)
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1614 :flags (bit1 start-dead launch-asap))
+    (sp-item 1616 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1615 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 98.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -192.00002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1614 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -4.4444447))
+                            (sp-flt spt-y (meters 4.4444447))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1616 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 98.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -192.00002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-316
+  :id 404
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1618 :fade-after (meters 80) :falloff-to (meters 80) :binding 1617)
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1617 :flags (bit1 start-dead launch-asap))
+    (sp-item 1619 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1618 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 98.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -162.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1617 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -3.1111112))
+                            (sp-flt spt-y (meters 4.4444447))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1619 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 98.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -162.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-320
+  :id 405
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1621 :fade-after (meters 80) :falloff-to (meters 80) :binding 1620)
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1620 :flags (bit1 start-dead launch-asap))
+    (sp-item 1622 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1621 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 98.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -105.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1620 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -0.6666667))
+                            (sp-flt spt-y (meters 4.4444447))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1622 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 98.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -105.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-324
+  :id 406
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1624 :fade-after (meters 80) :falloff-to (meters 80) :binding 1623)
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1623 :flags (bit1 start-dead launch-asap))
+    (sp-item 1625 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1624 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.2))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 96.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -85.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1623 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 0.22222222))
+                            (sp-flt spt-y (meters 4.2222223))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1625 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 96.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -85.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-328
+  :id 407
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1627 :fade-after (meters 80) :falloff-to (meters 80) :binding 1626)
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1626 :flags (bit1 start-dead launch-asap))
+    (sp-item 1628 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1627 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.2))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 96.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -67.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1626 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 0.8888889))
+                            (sp-flt spt-y (meters 4.2222223))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1628 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 96.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -67.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-332
+  :id 408
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1630 :fade-after (meters 80) :falloff-to (meters 80) :binding 1629)
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1629 :flags (bit1 start-dead launch-asap))
+    (sp-item 1631 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1630 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.4))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -20.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1629 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 3.3333333))
+                            (sp-flt spt-y (meters 4.6666665))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1631 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.70000005))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 103.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -20.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-333
+  :id 409
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1633 :fade-after (meters 80) :falloff-to (meters 80) :binding 1632)
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1632 :flags (bit1 start-dead launch-asap))
+    (sp-item 1634 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1633 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.9))
+                            (sp-flt spt-y (meters 0.9))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 115.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1632 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 5.3333335))
+                            (sp-flt spt-y (meters 5.111111))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1634 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -1.9))
+                            (sp-flt spt-y (meters 1.2))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 115.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-334
+  :id 410
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1636 :fade-after (meters 80) :falloff-to (meters 80) :binding 1635)
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1635 :flags (bit1 start-dead launch-asap))
+    (sp-item 1637 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1636 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.9))
+                            (sp-flt spt-y (meters 0.7))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 110.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 20.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1635 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 5.111111))
+                            (sp-flt spt-y (meters 5.111111))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1637 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -1.9))
+                            (sp-flt spt-y (meters 1))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 110.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 20.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-335
+  :id 411
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1639 :fade-after (meters 80) :falloff-to (meters 80) :binding 1638)
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1638 :flags (bit1 start-dead launch-asap))
+    (sp-item 1640 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1639 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 105.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1638 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 4.4444447))
+                            (sp-flt spt-y (meters 5.111111))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1640 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 105.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-336
+  :id 412
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1642 :fade-after (meters 80) :falloff-to (meters 80) :binding 1641)
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1641 :flags (bit1 start-dead launch-asap))
+    (sp-item 1643 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1642 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 105.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1641 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 3.7777777))
+                            (sp-flt spt-y (meters 5.111111))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1643 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 105.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-337
+  :id 413
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1645 :fade-after (meters 80) :falloff-to (meters 80) :binding 1644)
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1644 :flags (bit1 start-dead launch-asap))
+    (sp-item 1646 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1645 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 105.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -37.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1644 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 2.4444444))
+                            (sp-flt spt-y (meters 5.111111))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1646 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 105.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -37.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-338
+  :id 414
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1648 :fade-after (meters 80) :falloff-to (meters 80) :binding 1647)
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1647 :flags (bit1 start-dead launch-asap))
+    (sp-item 1649 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1648 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 105.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -62.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1647 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 1.7777778))
+                            (sp-flt spt-y (meters 5.111111))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1649 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 105.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -62.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-339
+  :id 415
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1651 :fade-after (meters 80) :falloff-to (meters 80) :binding 1650)
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1650 :flags (bit1 start-dead launch-asap))
+    (sp-item 1652 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1651 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 99.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -85.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1650 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 0.44444445))
+                            (sp-flt spt-y (meters 4.4444447))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1652 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 99.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -85.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-340
+  :id 416
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1654 :fade-after (meters 80) :falloff-to (meters 80) :binding 1653)
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1653 :flags (bit1 start-dead launch-asap))
+    (sp-item 1655 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1654 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 105.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 160.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1653 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 3.1111112))
+                            (sp-flt spt-y (meters 3.5555556))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1655 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 105.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 160.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-341
+  :id 417
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1657 :fade-after (meters 80) :falloff-to (meters 80) :binding 1656)
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1656 :flags (bit1 start-dead launch-asap))
+    (sp-item 1658 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1657 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees 177.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1656 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 3.7777777))
+                            (sp-flt spt-y (meters 3.5555556))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1658 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 177.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-357
+  :id 418
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1660 :fade-after (meters 80) :falloff-to (meters 80) :binding 1659)
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1659 :flags (bit1 start-dead launch-asap))
+    (sp-item 1661 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1660 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 97.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4505.6)
+                            (sp-flt spt-rotate-y (degrees 131.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1659 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 1.7777778))
+                            (sp-flt spt-y (meters 3.5555556))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1661 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 97.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 131.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-356
+  :id 419
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1663 :fade-after (meters 80) :falloff-to (meters 80) :binding 1662)
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1662 :flags (bit1 start-dead launch-asap))
+    (sp-item 1664 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1663 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 97.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4505.6)
+                            (sp-flt spt-rotate-y (degrees 311.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1662 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 1.7777778))
+                            (sp-flt spt-y (meters 4.4444447))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1664 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 97.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.4) 1.0)
+                            (sp-flt spt-rotate-y (degrees 311.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-354
+  :id 420
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1666 :fade-after (meters 80) :falloff-to (meters 80) :binding 1665)
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1665 :flags (bit1 start-dead launch-asap))
+    (sp-item 1667 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1666 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 97.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees 325.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1665 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 2.6666667))
+                            (sp-flt spt-y (meters 4.4444447))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1667 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 97.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees 325.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-sheild
+  :id 565
+  :bounds (static-bspherem 0 0 0 32)
+  :parts
+  ((sp-item 2311) (sp-item 2312 :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 2312 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.6 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.06) (meters 0.013333334) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.8)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 20 19 1)
+                            (sp-launcher-by-id spt-next-launcher 2313)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2313 :init-specs ((sp-flt spt-fade-a 0.0)))
+
+;; failed to figure out what this is:
+(defpart 2311 :init-specs ((sp-rnd-flt spt-num 4.0 2.0 1.0)
+                            (sp-rnd-flt spt-x (meters 2) (meters 17) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-int spt-rot-x 8)
+                            (sp-flt spt-r 16384.0)
+                            (sp-flt spt-g 12288.0)
+                            (sp-flt spt-b 12288.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
+                            (sp-flt spt-fade-b -32.768)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 2314)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2314 :init-specs ((sp-flt spt-fade-b 32.768)))
diff --git a/test/decompiler/reference/levels/sunken/sunken-part5_REF.gc b/test/decompiler/reference/levels/sunken/sunken-part5_REF.gc
index 62ee6c0439..d5ea2fd77f 100644
--- a/test/decompiler/reference/levels/sunken/sunken-part5_REF.gc
+++ b/test/decompiler/reference/levels/sunken/sunken-part5_REF.gc
@@ -2,1756 +2,1441 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 421)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-227"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1669 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1668)
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1668 :flags (bit1 start-dead launch-asap))
-          (sp-item 1670 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-227
+  :id 421
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1669 :fade-after (meters 80) :falloff-to (meters 80) :binding 1668)
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1668 :flags (bit1 start-dead launch-asap))
+    (sp-item 1670 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1669) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.6))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 106.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -131.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1669 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 106.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -131.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1668) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -1.7777778))
-                                    (sp-flt spt-y (meters 4.888889))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1668 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -1.7777778))
+                            (sp-flt spt-y (meters 4.888889))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1670)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.90000004))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 106.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -131.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1670 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.90000004))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 106.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -131.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 422)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-238"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1672 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1671)
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1671 :flags (bit1 start-dead launch-asap))
-          (sp-item 1673 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-238
+  :id 422
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1672 :fade-after (meters 80) :falloff-to (meters 80) :binding 1671)
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1671 :flags (bit1 start-dead launch-asap))
+    (sp-item 1673 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1672) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.6))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 108.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -100.00001))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1672 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 108.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -100.00001))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1671) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -0.44444445))
-                                    (sp-flt spt-y (meters 4.888889))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1671 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -0.44444445))
+                            (sp-flt spt-y (meters 4.888889))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1673)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.90000004))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 108.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -100.00001))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1673 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.90000004))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 108.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -100.00001))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 423)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-239"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1675 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1674)
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1674 :flags (bit1 start-dead launch-asap))
-          (sp-item 1676 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-239
+  :id 423
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1675 :fade-after (meters 80) :falloff-to (meters 80) :binding 1674)
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1674 :flags (bit1 start-dead launch-asap))
+    (sp-item 1676 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1675) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.6))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 108.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -124.99999))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1675 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 108.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -124.99999))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1674) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -1.1111112))
-                                    (sp-flt spt-y (meters 4.888889))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1674 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -1.1111112))
+                            (sp-flt spt-y (meters 4.888889))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1676)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.90000004))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 108.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -124.99999))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1676 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.90000004))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 108.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -124.99999))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 424)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-240"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1678 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1677)
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1677 :flags (bit1 start-dead launch-asap))
-          (sp-item 1679 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-240
+  :id 424
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1678 :fade-after (meters 80) :falloff-to (meters 80) :binding 1677)
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1677 :flags (bit1 start-dead launch-asap))
+    (sp-item 1679 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1678) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.6))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 108.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -93.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1678 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 108.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -93.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1677) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 4.888889))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1677 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 4.888889))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1679)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.90000004))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 108.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -93.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1679 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.90000004))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 108.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -93.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 425)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-241"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1681 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1680)
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1680 :flags (bit1 start-dead launch-asap))
-          (sp-item 1682 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-241
+  :id 425
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1681 :fade-after (meters 80) :falloff-to (meters 80) :binding 1680)
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1680 :flags (bit1 start-dead launch-asap))
+    (sp-item 1682 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1681) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.6))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 108.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1681 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 108.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -110.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1680) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -0.6666667))
-                                    (sp-flt spt-y (meters 4.888889))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1680 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -0.6666667))
+                            (sp-flt spt-y (meters 4.888889))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1682)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.90000004))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 108.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -110.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1682 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.90000004))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 108.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -110.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 426)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-242"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1684 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1683)
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1683 :flags (bit1 start-dead launch-asap))
-          (sp-item 1685 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-242
+  :id 426
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1684 :fade-after (meters 80) :falloff-to (meters 80) :binding 1683)
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1683 :flags (bit1 start-dead launch-asap))
+    (sp-item 1685 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1684) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.6))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 108.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -135.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1684 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 108.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -135.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1683) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 4.888889))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1683 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 4.888889))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1685)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.90000004))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 108.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -135.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1685 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.90000004))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 108.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -135.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 427)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-243"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1687 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1686)
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1686 :flags (bit1 start-dead launch-asap))
-          (sp-item 1688 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-243
+  :id 427
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1687 :fade-after (meters 80) :falloff-to (meters 80) :binding 1686)
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1686 :flags (bit1 start-dead launch-asap))
+    (sp-item 1688 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1687) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.4))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -147.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1687 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.4))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -147.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1686) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -2.4444444))
-                                    (sp-flt spt-y (meters 4.4444447))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1686 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -2.4444444))
+                            (sp-flt spt-y (meters 4.4444447))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1688)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.70000005))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 102.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -147.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1688 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.70000005))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -147.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 428)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-278"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1690 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1689)
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1689 :flags (bit1 start-dead launch-asap))
-          (sp-item 1691 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-278
+  :id 428
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1690 :fade-after (meters 80) :falloff-to (meters 80) :binding 1689)
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1689 :flags (bit1 start-dead launch-asap))
+    (sp-item 1691 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1690) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.4))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -165.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1690 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.4))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -165.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1689) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -3.0222223))
-                                    (sp-flt spt-y (meters 4.6666665))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1689 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -3.0222223))
+                            (sp-flt spt-y (meters 4.6666665))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1691)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.70000005))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 102.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -165.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1691 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.70000005))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -165.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 429)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-251"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1693 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1692)
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1692 :flags (bit1 start-dead launch-asap))
-          (sp-item 1694 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-251
+  :id 429
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1693 :fade-after (meters 80) :falloff-to (meters 80) :binding 1692)
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1692 :flags (bit1 start-dead launch-asap))
+    (sp-item 1694 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1693) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.4))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -136.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1693 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.4))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -136.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1692) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -2.1333334))
-                                    (sp-flt spt-y (meters 4.6666665))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1692 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -2.1333334))
+                            (sp-flt spt-y (meters 4.6666665))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1694)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.70000005))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 102.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -136.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1694 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.70000005))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -136.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 430)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-254"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1696 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1695)
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1695 :flags (bit1 start-dead launch-asap))
-          (sp-item 1697 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-254
+  :id 430
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1696 :fade-after (meters 80) :falloff-to (meters 80) :binding 1695)
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1695 :flags (bit1 start-dead launch-asap))
+    (sp-item 1697 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1696) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.4))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -185.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1696 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.4))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -185.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1695) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -3.911111))
-                                    (sp-flt spt-y (meters 4.6666665))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1695 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -3.911111))
+                            (sp-flt spt-y (meters 4.6666665))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1697)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.70000005))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 102.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -185.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1697 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.70000005))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -185.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 431)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-264"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1699 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1698)
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1698 :flags (bit1 start-dead launch-asap))
-          (sp-item 1700 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-264
+  :id 431
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1699 :fade-after (meters 80) :falloff-to (meters 80) :binding 1698)
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1698 :flags (bit1 start-dead launch-asap))
+    (sp-item 1700 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1699) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.4))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -203.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1699 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.4))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -203.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1698) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -4.6666665))
-                                    (sp-flt spt-y (meters 4.6666665))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1698 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -4.6666665))
+                            (sp-flt spt-y (meters 4.6666665))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1700)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.70000005))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 102.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -203.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1700 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.70000005))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -203.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 432)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-265"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1702 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1701)
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1701 :flags (bit1 start-dead launch-asap))
-          (sp-item 1703 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-265
+  :id 432
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1702 :fade-after (meters 80) :falloff-to (meters 80) :binding 1701)
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1701 :flags (bit1 start-dead launch-asap))
+    (sp-item 1703 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1702) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.4))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -217.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1702 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.4))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -217.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1701) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -5.3333335))
-                                    (sp-flt spt-y (meters 4.6666665))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1701 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -5.3333335))
+                            (sp-flt spt-y (meters 4.6666665))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1703)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.70000005))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 102.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -217.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1703 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.70000005))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -217.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 433)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-266"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1705 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1704)
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1704 :flags (bit1 start-dead launch-asap))
-          (sp-item 1706 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-266
+  :id 433
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1705 :fade-after (meters 80) :falloff-to (meters 80) :binding 1704)
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1704 :flags (bit1 start-dead launch-asap))
+    (sp-item 1706 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1705) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.6))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 107.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -243.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1705 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 107.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -243.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1704) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -6.4444447))
-                                    (sp-flt spt-y (meters 4.888889))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1704 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -6.4444447))
+                            (sp-flt spt-y (meters 4.888889))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1706)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 0.90000004))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 107.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -243.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1706 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.90000004))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 107.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -243.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 434)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-267"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1708 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1707)
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1707 :flags (bit1 start-dead launch-asap))
-          (sp-item 1709 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-267
+  :id 434
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1708 :fade-after (meters 80) :falloff-to (meters 80) :binding 1707)
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1707 :flags (bit1 start-dead launch-asap))
+    (sp-item 1709 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1708) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.7))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 110.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -267.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1708 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.7))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 110.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -267.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1707) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -7.7777777))
-                                    (sp-flt spt-y (meters 5.111111))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1707 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -7.7777777))
+                            (sp-flt spt-y (meters 5.111111))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1709)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 110.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -267.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1709 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 1))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 110.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -267.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 435)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-268"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1711 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1710)
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1710 :flags (bit1 start-dead launch-asap))
-          (sp-item 1712 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
+(defpartgroup group-sunken-heatpipe-268
+  :id 435
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1711 :fade-after (meters 80) :falloff-to (meters 80) :binding 1710)
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1710 :flags (bit1 start-dead launch-asap))
+    (sp-item 1712 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1711) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-y (meters 0.7))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 110.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4096.0)
-                                    (sp-flt spt-rotate-y (degrees -300.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1711 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 0.7))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 110.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4096.0)
+                            (sp-flt spt-rotate-y (degrees -300.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1710) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -9.333333))
-                                    (sp-flt spt-y (meters 4.6666665))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1710 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -9.333333))
+                            (sp-flt spt-y (meters 4.6666665))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1712)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.0))
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 110.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -300.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1712 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-y (meters 1))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 110.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            (sp-flt spt-rotate-y (degrees -300.0))
+                            )
+              )
diff --git a/test/decompiler/reference/levels/sunken/sunken-part_REF.gc b/test/decompiler/reference/levels/sunken/sunken-part_REF.gc
index 9385db33e9..6eeb0a65b8 100644
--- a/test/decompiler/reference/levels/sunken/sunken-part_REF.gc
+++ b/test/decompiler/reference/levels/sunken/sunken-part_REF.gc
@@ -19,3041 +19,2531 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 332)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-183"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1420 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1419)
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1419 :flags (bit1 start-dead launch-asap))
-          (sp-item 1421 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1420) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.5))
-                                    (sp-flt spt-y (meters 0.2))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 95.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 5120.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1419) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 4.0))
-                                    (sp-flt spt-y (meters 4.2222223))
-                                    (sp-flt spt-z 4710.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1422)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.64) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1421)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-flt spt-num 0.25)
-                                                     (sp-flt spt-x (meters -2.5))
-                                                     (sp-flt spt-y (meters 0.2))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 95.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 5.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 333)
-      (new 'static 'sparticle-launch-group
-        :length 98
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-tunnel-bubbles-27"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 98
-          (sp-item 1425 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1425 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1426 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1426 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1427 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1428 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1427) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -37.0) (meters 64.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1428) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -37.0) (meters 64.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1425) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -37.0) (meters 64.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1426) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -37.0) (meters 64.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1429)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 1800 1799 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1430)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1430)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.10666667) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1423) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-z 409.6)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-flt spt-scale-y (meters 0.9))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-omega 0.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.21333334) 1 1747.6267)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-scalevel-x (meters -0.0050000004))
-                                    (sp-flt spt-scalevel-y (meters 0.0016666667))
-                                    (sp-flt spt-fade-a 1.6)
-                                    (sp-int-plain-rnd spt-timer 3600 1199 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int spt-next-time 30)
-                                    (sp-launcher-by-id spt-next-launcher 1431)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1431)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 8
-                                                     (sp-flt spt-scale-x (meters 1.2))
-                                                     (sp-flt spt-scale-y (meters 1.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.010000001))
-                                                     (sp-flt spt-scalevel-y (meters -0.0033333334))
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 30)
-                                                     (sp-launcher-by-id spt-next-launcher 1432)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1432)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-scale-x (meters 1.5))
-                                                     (sp-flt spt-scale-y (meters 0.9))
-                                                     (sp-flt spt-scalevel-x (meters -0.010000001))
-                                                     (sp-flt spt-scalevel-y (meters 0.0033333334))
-                                                     (sp-int spt-next-time 30)
-                                                     (sp-launcher-by-id spt-next-launcher 1431)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1433)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-x (meters 0.0))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-flt spt-z 0.0)
-                                                     (sp-int spt-rot-x 9)
-                                                     (sp-flt spt-r 2048.0)
-                                                     (sp-flt spt-g 1638.4)
-                                                     (sp-flt spt-b 1228.8)
-                                                     (sp-flt spt-omega 0.0)
-                                                     (sp-flt spt-vel-x (meters 0.0))
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-vel-z (meters 0.0))
-                                                     (sp-int spt-timer 4800)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit7 aux-list)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1424) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-fade-a 0.7111111)
-                                    (sp-int spt-timer 2400)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1434)
-                                    (sp-rnd-flt spt-conerot-x (degrees 110.0) (degrees 70.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.4))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1434) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 5
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0016666667) 1.0)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 1435)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1435)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.14222223) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 334)
-      (new 'static 'sparticle-launch-group
-        :length 98
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-tunnel-bubbles-32"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 98
-          (sp-item 1436 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1436 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1437 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1437 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1438 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1439 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1438) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -24.0) (meters 48.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees -23.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1439) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-rnd-flt spt-x (meters -24.0) (meters 48.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees -23.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1436) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -24.0) (meters 48.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -23.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1437) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -24.0) (meters 48.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -23.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 335)
-      (new 'static 'sparticle-launch-group
-        :length 98
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-tunnel-bubbles-33"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 98
-          (sp-item 1440 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1440 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1441 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1441 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1442 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1443 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1442) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.02)
-                                    (sp-rnd-flt spt-x (meters -13.0) (meters 25.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees 26.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1443) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.02)
-                                    (sp-rnd-flt spt-x (meters -13.0) (meters 25.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees 26.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1440) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters -13.0) (meters 25.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 26.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1441) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters -13.0) (meters 25.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 26.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 336)
-      (new 'static 'sparticle-launch-group
-        :length 98
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-tunnel-bubbles-199"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 98
-          (sp-item 1444 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1444 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1445 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1445 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1446 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1447 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1446) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -25.0) (meters 36.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees 26.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1447) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -25.0) (meters 36.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees 26.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1444) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -25.0) (meters 36.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 26.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1445) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -25.0) (meters 36.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 26.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 337)
-      (new 'static 'sparticle-launch-group
-        :length 98
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-tunnel-bubbles-281"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 98
-          (sp-item 1448 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1448 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1449 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1449 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1450 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1451 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1450) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1451) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1448) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1449) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 338)
-      (new 'static 'sparticle-launch-group
-        :length 98
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-tunnel-bubbles-202"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 98
-          (sp-item 1452 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1452 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1453 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1453 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1454 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1455 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1454) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -22.0) (meters 44.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees -5.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1455) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -22.0) (meters 44.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-flt spt-rotate-y (degrees -5.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1452) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -22.0) (meters 44.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -5.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1453) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -22.0) (meters 44.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z 40960.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees -5.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 339)
-      (new 'static 'sparticle-launch-group
-        :length 48
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-window-bubbles-35"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 48
-          (sp-item 1456 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1456 :fade-after (meters 160.0) :falloff-to (meters 160.0) :period 600 :length 5 :binding 1423)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1424 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (bit1 start-dead))
-          (sp-item 1457 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 32768.0 :w 131072.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1457) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1429)
-                                    (sp-rnd-flt spt-rotate-y (degrees -65.0) (degrees 30.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1456) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -8192.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.3))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
-                                    (sp-int spt-timer 4800)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees -65.0) (degrees 30.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 340) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-sunken-helix-bubbles-398"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 1458 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 16384.0 :w 163840.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1458) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.75)
-                                    (sp-rnd-flt spt-x (meters -5.0) (meters 10.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -10.0) (meters 15.0) 1.0)
-                                    (sp-rnd-flt spt-z -118784.0 24576.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 2700)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1459)
-                                    (sp-rnd-int-flt spt-rotate-y (degrees -67.5) 6 8192.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1459)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 900 899 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1460)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1460)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.10666667) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 341) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-sunken-helix-bubbles-397"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 1461 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 16384.0 :w 163840.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1461) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.75)
-                                    (sp-rnd-flt spt-x (meters -5.0) (meters 10.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -20.0) (meters 30.0) 1.0)
-                                    (sp-rnd-flt spt-z -118784.0 24576.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 2700)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int-plain-rnd spt-next-time 99 197 1)
-                                    (sp-launcher-by-id spt-next-launcher 1459)
-                                    (sp-rnd-int-flt spt-rotate-y (degrees -67.5) 7 8192.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 342)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-355"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1463 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1462)
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1462 :flags (bit1 start-dead launch-asap))
-          (sp-item 1464 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1463) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees 145.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1462) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 2.6666667))
-                                    (sp-flt spt-y (meters 3.3333333))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1464)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 100.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 145.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 343)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-361"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1466 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1465)
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1465 :flags (bit1 start-dead launch-asap))
-          (sp-item 1467 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1466) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees 220.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1465) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 5.5555553))
-                                    (sp-flt spt-y (meters 3.3333333))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1467)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 100.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 220.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 344)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-360"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1469 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1468)
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1468 :flags (bit1 start-dead launch-asap))
-          (sp-item 1470 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1469) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees 400.00003))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1468) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 5.5555553))
-                                    (sp-flt spt-y (meters 4.6666665))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1470)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 100.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 400.00003))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 345)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-377"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1472 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1471)
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1471 :flags (bit1 start-dead launch-asap))
-          (sp-item 1473 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1472) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees 375.00003))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1471) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 4.6666665))
-                                    (sp-flt spt-y (meters 4.6666665))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1473)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 100.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 375.00003))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 346)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-376"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1475 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1474)
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1474 :flags (bit1 start-dead launch-asap))
-          (sp-item 1476 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1475) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees 195.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1474) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 4.6666665))
-                                    (sp-flt spt-y (meters 3.3333333))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1476)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 100.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 195.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 347)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-375"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1478 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1477)
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1477 :flags (bit1 start-dead launch-asap))
-          (sp-item 1479 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1478) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees 392.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1477) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 5.3333335))
-                                    (sp-flt spt-y (meters 4.4444447))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1479)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 100.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 392.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 348)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-374"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1481 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1480)
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1480 :flags (bit1 start-dead launch-asap))
-          (sp-item 1482 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1481) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees 212.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1480) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 5.3333335))
-                                    (sp-flt spt-y (meters 3.5555556))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1482)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 100.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 212.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 349)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-363"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1484 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1483)
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1483 :flags (bit1 start-dead launch-asap))
-          (sp-item 1485 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1484) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 95.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees -63.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1483) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 1.4222223))
-                                    (sp-flt spt-y (meters 4.4444447))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1485)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 95.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -63.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 350)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-362"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1487 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1486)
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1486 :flags (bit1 start-dead launch-asap))
-          (sp-item 1488 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1487) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 100.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees 124.99999))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1486) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters 1.4222223))
-                                    (sp-flt spt-y (meters 3.5555556))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1488)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 100.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 124.99999))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 351)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-364"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1490 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1489)
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1489 :flags (bit1 start-dead launch-asap))
-          (sp-item 1491 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1490) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 96.00001))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees 62.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1489) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -0.9777778))
-                                    (sp-flt spt-y (meters 3.5555556))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1491)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 96.00001))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees 62.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 352)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-sunken-heatpipe-365"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 1493 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1492)
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1492 :flags (bit1 start-dead launch-asap))
-          (sp-item 1494 :fade-after (meters 64.0) :falloff-to (meters 64.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 4096.0 :w 14336.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1493) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -2.2))
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-flt spt-scale-x (meters 0.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 98.0))
-                                    (sp-flt spt-conerot-y (degrees 90.0))
-                                    (sp-rnd-int-flt spt-conerot-radius (meters 0.0) 4 4710.4)
-                                    (sp-flt spt-rotate-y (degrees -124.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1492) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-flt spt-x (meters -1.1111112))
-                                    (sp-flt spt-y (meters 4.4444447))
-                                    (sp-flt spt-z 3686.4)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 25 24 1)
-                                    (sp-launcher-by-id spt-next-launcher 1422)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1494)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 17
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-flt spt-x (meters -2.2))
-                                                     (sp-flt spt-y (meters 0.8))
-                                                     (sp-int spt-rot-x 6)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-flt spt-fade-g 2.048)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2 bit3 aux-list)
-                                                     (sp-flt spt-conerot-x (degrees 98.0))
-                                                     (sp-flt spt-conerot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.6) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -124.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpartgroup group-sunken-heatpipe-183
+  :id 332
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1420 :fade-after (meters 80) :falloff-to (meters 80) :binding 1419)
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1419 :flags (bit1 start-dead launch-asap))
+    (sp-item 1421 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1420 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.5))
+                            (sp-flt spt-y (meters 0.2))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 95.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 5120.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1419 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 4))
+                            (sp-flt spt-y (meters 4.2222223))
+                            (sp-flt spt-z (meters 1.15))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1422 :init-specs ((sp-flt spt-fade-a -0.64)))
+
+;; failed to figure out what this is:
+(defpart 1421 :init-specs ((sp-flt spt-num 0.25)
+                            (sp-flt spt-x (meters -2.5))
+                            (sp-flt spt-y (meters 0.2))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 95.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-tunnel-bubbles-27
+  :id 333
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1425 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1425 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1426 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1426 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1427 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1428 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1427 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -37) (meters 64) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1428 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -37) (meters 64) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1425 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -37) (meters 64) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1426 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -37) (meters 64) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1429 :init-specs ((sp-flt spt-fade-a 0.0)
+                            (sp-int-plain-rnd spt-next-time 1800 1799 1)
+                            (sp-launcher-by-id spt-next-launcher 1430)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1430 :init-specs ((sp-flt spt-fade-a -0.10666667)))
+
+;; failed to figure out what this is:
+(defpart 1423 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-flt spt-z (meters 0.1))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-flt spt-scale-y (meters 0.9))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-omega 0.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.21333334) 1 1747.6267)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-scalevel-x (meters -0.0050000004))
+                            (sp-flt spt-scalevel-y (meters 0.0016666667))
+                            (sp-flt spt-fade-a 1.6)
+                            (sp-int-plain-rnd spt-timer 3600 1199 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1431)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1431 :init-specs ((sp-flt spt-scale-x (meters 1.2))
+                            (sp-flt spt-scale-y (meters 1))
+                            (sp-flt spt-scalevel-x (meters 0.010000001))
+                            (sp-flt spt-scalevel-y (meters -0.0033333334))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1432)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1432 :init-specs ((sp-flt spt-scale-x (meters 1.5))
+                            (sp-flt spt-scale-y (meters 0.9))
+                            (sp-flt spt-scalevel-x (meters -0.010000001))
+                            (sp-flt spt-scalevel-y (meters 0.0033333334))
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1431)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1433 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-z (meters 0))
+                            (sp-int spt-rot-x 9)
+                            (sp-flt spt-r 2048.0)
+                            (sp-flt spt-g 1638.4)
+                            (sp-flt spt-b 1228.8)
+                            (sp-flt spt-omega 0.0)
+                            (sp-flt spt-vel-x (meters 0))
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 aux-list)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1424 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-fade-a 0.7111111)
+                            (sp-int spt-timer 2400)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1434)
+                            (sp-rnd-flt spt-conerot-x (degrees 110.0) (degrees 70.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.4))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1434 :init-specs ((sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0016666667) 1.0)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 1435)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1435 :init-specs ((sp-flt spt-fade-a -0.14222223)))
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-tunnel-bubbles-32
+  :id 334
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1436 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1436 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1437 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1437 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1438 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1439 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1438 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -24) (meters 48) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees -23.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1439 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-rnd-flt spt-x (meters -24) (meters 48) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees -23.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1436 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -24) (meters 48) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -23.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1437 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -24) (meters 48) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -23.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-tunnel-bubbles-33
+  :id 335
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1440 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1440 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1441 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1441 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1442 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1443 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1442 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.02)
+                            (sp-rnd-flt spt-x (meters -13) (meters 25) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees 26.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1443 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.02)
+                            (sp-rnd-flt spt-x (meters -13) (meters 25) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees 26.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1440 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -13) (meters 25) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 26.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1441 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -13) (meters 25) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 26.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-tunnel-bubbles-199
+  :id 336
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1444 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1444 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1445 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1445 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1446 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1447 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1446 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -25) (meters 36) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees 26.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1447 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -25) (meters 36) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees 26.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1444 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -25) (meters 36) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 26.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1445 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -25) (meters 36) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 26.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-tunnel-bubbles-281
+  :id 337
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1448 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1448 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1449 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1449 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1450 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1451 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1450 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1451 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1448 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1449 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-tunnel-bubbles-202
+  :id 338
+  :bounds (static-bspherem 0 4 0 32)
+  :parts
+  ((sp-item 1452 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1452 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1453 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1453 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1454 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1455 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1454 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -22) (meters 44) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees -5.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1455 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -22) (meters 44) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-flt spt-rotate-y (degrees -5.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1452 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -22) (meters 44) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -5.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1453 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -22) (meters 44) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters 10) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees -5.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-window-bubbles-35
+  :id 339
+  :bounds (static-bspherem 0 8 0 32)
+  :parts
+  ((sp-item 1456 :fade-after (meters 100) :falloff-to (meters 100) :period 600 :length 5 :binding 1423)
+    (sp-item 1456 :fade-after (meters 160) :falloff-to (meters 160) :period 600 :length 5 :binding 1423)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1423 :flags (bit1 start-dead launch-asap) :binding 1424)
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1424 :fade-after (meters 100) :falloff-to (meters 100) :flags (bit1 start-dead))
+    (sp-item 1457 :fade-after (meters 100) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1457 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1429)
+                            (sp-rnd-flt spt-rotate-y (degrees -65.0) (degrees 30.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1456 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -2) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 0.3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.015) 1.0)
+                            (sp-int spt-timer 4800)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees -65.0) (degrees 30.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-helix-bubbles-398
+  :id 340
+  :bounds (static-bspherem 0 4 0 40)
+  :parts
+  ((sp-item 1458 :fade-after (meters 100) :falloff-to (meters 100)))
+  )
+
+;; failed to figure out what this is:
+(defpart 1458 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.75)
+                            (sp-rnd-flt spt-x (meters -5) (meters 10) 1.0)
+                            (sp-rnd-flt spt-y (meters -10) (meters 15) 1.0)
+                            (sp-rnd-flt spt-z (meters -29) (meters 6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 2700)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1459)
+                            (sp-rnd-int-flt spt-rotate-y (degrees -67.5) 6 8192.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1459 :init-specs ((sp-flt spt-fade-a 0.0)
+                            (sp-int-plain-rnd spt-next-time 900 899 1)
+                            (sp-launcher-by-id spt-next-launcher 1460)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1460 :init-specs ((sp-flt spt-fade-a -0.10666667)))
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-helix-bubbles-397
+  :id 341
+  :bounds (static-bspherem 0 4 0 40)
+  :parts
+  ((sp-item 1461 :fade-after (meters 100) :falloff-to (meters 100)))
+  )
+
+;; failed to figure out what this is:
+(defpart 1461 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.75)
+                            (sp-rnd-flt spt-x (meters -5) (meters 10) 1.0)
+                            (sp-rnd-flt spt-y (meters -20) (meters 30) 1.0)
+                            (sp-rnd-flt spt-z (meters -29) (meters 6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 2700)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int-plain-rnd spt-next-time 99 197 1)
+                            (sp-launcher-by-id spt-next-launcher 1459)
+                            (sp-rnd-int-flt spt-rotate-y (degrees -67.5) 7 8192.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-355
+  :id 342
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1463 :fade-after (meters 80) :falloff-to (meters 80) :binding 1462)
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1462 :flags (bit1 start-dead launch-asap))
+    (sp-item 1464 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1463 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees 145.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1462 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 2.6666667))
+                            (sp-flt spt-y (meters 3.3333333))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1464 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees 145.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-361
+  :id 343
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1466 :fade-after (meters 80) :falloff-to (meters 80) :binding 1465)
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1465 :flags (bit1 start-dead launch-asap))
+    (sp-item 1467 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1466 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees 220.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1465 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 5.5555553))
+                            (sp-flt spt-y (meters 3.3333333))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1467 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees 220.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-360
+  :id 344
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1469 :fade-after (meters 80) :falloff-to (meters 80) :binding 1468)
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1468 :flags (bit1 start-dead launch-asap))
+    (sp-item 1470 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1469 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees 400.00003))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1468 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 5.5555553))
+                            (sp-flt spt-y (meters 4.6666665))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1470 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees 400.00003))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-377
+  :id 345
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1472 :fade-after (meters 80) :falloff-to (meters 80) :binding 1471)
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1471 :flags (bit1 start-dead launch-asap))
+    (sp-item 1473 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1472 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees 375.00003))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1471 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 4.6666665))
+                            (sp-flt spt-y (meters 4.6666665))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1473 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees 375.00003))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-376
+  :id 346
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1475 :fade-after (meters 80) :falloff-to (meters 80) :binding 1474)
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1474 :flags (bit1 start-dead launch-asap))
+    (sp-item 1476 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1475 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees 195.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1474 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 4.6666665))
+                            (sp-flt spt-y (meters 3.3333333))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1476 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees 195.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-375
+  :id 347
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1478 :fade-after (meters 80) :falloff-to (meters 80) :binding 1477)
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1477 :flags (bit1 start-dead launch-asap))
+    (sp-item 1479 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1478 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees 392.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1477 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 5.3333335))
+                            (sp-flt spt-y (meters 4.4444447))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1479 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees 392.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-374
+  :id 348
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1481 :fade-after (meters 80) :falloff-to (meters 80) :binding 1480)
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1480 :flags (bit1 start-dead launch-asap))
+    (sp-item 1482 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1481 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees 212.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1480 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 5.3333335))
+                            (sp-flt spt-y (meters 3.5555556))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1482 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees 212.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-363
+  :id 349
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1484 :fade-after (meters 80) :falloff-to (meters 80) :binding 1483)
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1483 :flags (bit1 start-dead launch-asap))
+    (sp-item 1485 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1484 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 95.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees -63.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1483 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 1.4222223))
+                            (sp-flt spt-y (meters 4.4444447))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1485 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 95.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees -63.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-362
+  :id 350
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1487 :fade-after (meters 80) :falloff-to (meters 80) :binding 1486)
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1486 :flags (bit1 start-dead launch-asap))
+    (sp-item 1488 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1487 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees 124.99999))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1486 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters 1.4222223))
+                            (sp-flt spt-y (meters 3.5555556))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1488 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 100.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees 124.99999))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-364
+  :id 351
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1490 :fade-after (meters 80) :falloff-to (meters 80) :binding 1489)
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1489 :flags (bit1 start-dead launch-asap))
+    (sp-item 1491 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1490 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 96.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees 62.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1489 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -0.9777778))
+                            (sp-flt spt-y (meters 3.5555556))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1491 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 96.00001))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees 62.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-sunken-heatpipe-365
+  :id 352
+  :bounds (static-bspherem 0 1 0 3.5)
+  :parts
+  ((sp-item 1493 :fade-after (meters 80) :falloff-to (meters 80) :binding 1492)
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1492 :flags (bit1 start-dead launch-asap))
+    (sp-item 1494 :fade-after (meters 64) :falloff-to (meters 64))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1493 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-flt spt-scale-x (meters 0.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 98.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-int-flt spt-conerot-radius (meters 0) 4 4710.4)
+                            (sp-flt spt-rotate-y (degrees -124.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1492 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-flt spt-x (meters -1.1111112))
+                            (sp-flt spt-y (meters 4.4444447))
+                            (sp-flt spt-z (meters 0.9))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.0044444446) 1 36.40889)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 25 24 1)
+                            (sp-launcher-by-id spt-next-launcher 1422)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1494 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-flt spt-x (meters -2.2))
+                            (sp-flt spt-y (meters 0.8))
+                            (sp-int spt-rot-x 6)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 3276.8)
+                            (sp-flt spt-fade-g 2.048)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 aux-list)
+                            (sp-flt spt-conerot-x (degrees 98.0))
+                            (sp-flt spt-conerot-y (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4.6) 1.0)
+                            (sp-flt spt-rotate-y (degrees -124.0))
+                            )
+              )
diff --git a/test/decompiler/reference/levels/sunken/sunken-pipegame_REF.gc b/test/decompiler/reference/levels/sunken/sunken-pipegame_REF.gc
index 5106061982..fb11fe3231 100644
--- a/test/decompiler/reference/levels/sunken/sunken-pipegame_REF.gc
+++ b/test/decompiler/reference/levels/sunken/sunken-pipegame_REF.gc
@@ -98,599 +98,435 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 448) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-jar-suck0"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1741)
-                                         (sp-item 1742)
-                                         (sp-item 1743)
-                                         (sp-item 1744 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-jar-suck0
+  :id 448
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1741) (sp-item 1742) (sp-item 1743) (sp-item 1744 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1741) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 10.0)
-                                    (sp-flt spt-y (meters 6.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-fade-a 1.4222223)
-                                    (sp-flt spt-accel-y 13.653334)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1745)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters -10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1741 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 10.0)
+                            (sp-flt spt-y (meters 6))
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-y (meters 0.006666667))
+                            (sp-flt spt-fade-a 1.4222223)
+                            (sp-flt spt-accel-y 13.653334)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 45 44 1)
+                            (sp-launcher-by-id spt-next-launcher 1745)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters -10) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1745)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
+(defpart 1745 :init-specs ((sp-flt spt-fade-a 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1742) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -3.657143)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1742 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -3.657143)
+                            (sp-int spt-timer 30)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1743) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 7.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1743 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 4))
+                            (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 7) (meters 3) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1744) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1744 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 449) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-jar-suck1"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1746)
-                                         (sp-item 1742)
-                                         (sp-item 1747)
-                                         (sp-item 1748 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-jar-suck1
+  :id 449
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1746) (sp-item 1742) (sp-item 1747) (sp-item 1748 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1746) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 10.0)
-                                    (sp-flt spt-y (meters 6.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-fade-a 1.4222223)
-                                    (sp-flt spt-accel-y 13.653334)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1745)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters -10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1746 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 10.0)
+                            (sp-flt spt-y (meters 6))
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-y (meters 0.006666667))
+                            (sp-flt spt-fade-a 1.4222223)
+                            (sp-flt spt-accel-y 13.653334)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 45 44 1)
+                            (sp-launcher-by-id spt-next-launcher 1745)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters -10) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1747) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 7.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1747 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 4))
+                            (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 7) (meters 3) 1.0)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1748) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1748 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 450) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-jar-suck2"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1749)
-                                         (sp-item 1742)
-                                         (sp-item 1750)
-                                         (sp-item 1751 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-jar-suck2
+  :id 450
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1749) (sp-item 1742) (sp-item 1750) (sp-item 1751 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1749) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 10.0)
-                                    (sp-flt spt-y (meters 6.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-fade-a 1.4222223)
-                                    (sp-flt spt-accel-y 13.653334)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1745)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters -10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1749 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 10.0)
+                            (sp-flt spt-y (meters 6))
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-y (meters 0.006666667))
+                            (sp-flt spt-fade-a 1.4222223)
+                            (sp-flt spt-accel-y 13.653334)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 45 44 1)
+                            (sp-launcher-by-id spt-next-launcher 1745)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters -10) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1750) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-scale-x (meters 7.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 7.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1750 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 4))
+                            (sp-rnd-flt spt-scale-x (meters 7) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 7) (meters 3) 1.0)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1751) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1751 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 451) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-blow0"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1752)
-                                         (sp-item 1753)
-                                         (sp-item 1754)
-                                         (sp-item 1755 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-blow0
+  :id 451
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1752) (sp-item 1753) (sp-item 1754) (sp-item 1755 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1752) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-r 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.033333335))
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-accel-y -27.306667)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1756)
-                                    (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1752 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-r 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.033333335))
+                            (sp-flt spt-scalevel-y (meters 0.006666667))
+                            (sp-flt spt-accel-y -27.306667)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 45 44 1)
+                            (sp-launcher-by-id spt-next-launcher 1756)
+                            (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1756)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.4222223) (sp-end))
-        )
-      )
+(defpart 1756 :init-specs ((sp-flt spt-fade-a -1.4222223)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1753) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters -8.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -3.657143)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-conerot-x (degrees 90.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1753 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters -8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -3.657143)
+                            (sp-int spt-timer 30)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1754) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -3.5))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-rnd-flt spt-scale-y (meters 13.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1754 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -3.5))
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 0.5) 1.0)
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-rnd-flt spt-scale-y (meters 13) (meters 3) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1755) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1755 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 452) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-blow1"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1757)
-                                         (sp-item 1753)
-                                         (sp-item 1758)
-                                         (sp-item 1759 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-blow1
+  :id 452
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1757) (sp-item 1753) (sp-item 1758) (sp-item 1759 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1757) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.033333335))
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-accel-y -27.306667)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1756)
-                                    (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1757 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.033333335))
+                            (sp-flt spt-scalevel-y (meters 0.006666667))
+                            (sp-flt spt-accel-y -27.306667)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 45 44 1)
+                            (sp-launcher-by-id spt-next-launcher 1756)
+                            (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1758) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -3.5))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-rnd-flt spt-scale-y (meters 13.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1758 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -3.5))
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 0.5) 1.0)
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-rnd-flt spt-scale-y (meters 13) (meters 3) 1.0)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1759) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1759 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 453) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-pipegame-blow2"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1760)
-                                         (sp-item 1753)
-                                         (sp-item 1761)
-                                         (sp-item 1762 :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-pipegame-blow2
+  :id 453
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1760) (sp-item 1753) (sp-item 1761) (sp-item 1762 :flags (is-3d)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1760) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-vel-y (meters -0.033333335))
-                                    (sp-flt spt-scalevel-y (meters 0.006666667))
-                                    (sp-flt spt-accel-y -27.306667)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 45 44 1)
-                                    (sp-launcher-by-id spt-next-launcher 1756)
-                                    (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1760 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 0.5) 1.0)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-vel-y (meters -0.033333335))
+                            (sp-flt spt-scalevel-y (meters 0.006666667))
+                            (sp-flt spt-accel-y -27.306667)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 45 44 1)
+                            (sp-launcher-by-id spt-next-launcher 1756)
+                            (sp-rnd-flt spt-conerot-x (degrees 150.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1761) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -3.5))
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-rnd-flt spt-scale-y (meters 13.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1761 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -3.5))
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 0.5) 1.0)
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-rnd-flt spt-scale-y (meters 13) (meters 3) 1.0)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1762) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.3))
-                                    (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2.0) 1.0)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -8.533334)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1762 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-rnd-flt spt-scale-x (meters 5.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 5.5) (meters 2) 1.0)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-fade-a -8.533334)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; definition for function sunken-pipegame-button-init-by-other
 (defbehavior sunken-pipegame-button-init-by-other sunken-pipegame-button ((arg0 vector) (arg1 quaternion) (arg2 entity-actor) (arg3 symbol))
diff --git a/test/decompiler/reference/levels/sunken/sunken-water_REF.gc b/test/decompiler/reference/levels/sunken/sunken-water_REF.gc
index 0d824e8274..05c6bd8e2b 100644
--- a/test/decompiler/reference/levels/sunken/sunken-water_REF.gc
+++ b/test/decompiler/reference/levels/sunken/sunken-water_REF.gc
@@ -55,55 +55,39 @@
         )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 446)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-sunken-water-deadly-water"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1736 :fade-after (meters 50.0)))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-sunken-water-deadly-water
+  :id 446
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1736 :fade-after (meters 50)))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1736) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.25))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.1875))
-                                    (sp-flt spt-scalevel-y (meters -0.001875))
-                                    (sp-flt spt-fade-a -3.2)
-                                    (sp-int spt-timer 81)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2022)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1736 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 4) 1.0)
+                            (sp-flt spt-scale-y (meters 0.25))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.1875))
+                            (sp-flt spt-scalevel-y (meters -0.001875))
+                            (sp-flt spt-fade-a -3.2)
+                            (sp-int spt-timer 81)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2022)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2022)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-r 255.0)
-                                                     (sp-rnd-flt spt-g 128.0 128.0 1.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-fade-a -1.28)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2022
+  :init-specs
+  ((sp-flt spt-r 255.0) (sp-rnd-flt spt-g 128.0 128.0 1.0) (sp-flt spt-b 0.0) (sp-flt spt-fade-a -1.28))
+  )
 
 ;; definition for method 30 of type sunken-water
 (defmethod draw-ripple sunken-water ((obj sunken-water))
diff --git a/test/decompiler/reference/levels/sunken/whirlpool_REF.gc b/test/decompiler/reference/levels/sunken/whirlpool_REF.gc
index dad37bf996..f3ddf0b940 100644
--- a/test/decompiler/reference/levels/sunken/whirlpool_REF.gc
+++ b/test/decompiler/reference/levels/sunken/whirlpool_REF.gc
@@ -43,282 +43,257 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 447)
-      (new 'static 'sparticle-launch-group
-        :length #xbb
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-whirlpool-swirl"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 187
-          (sp-item 1739 :fade-after (meters 60.0) :falloff-to (meters 60.0) :binding 1737)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          (sp-item 1738 :flags (bit1 start-dead))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-whirlpool-swirl
+  :id 447
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1739 :fade-after (meters 60) :falloff-to (meters 60) :binding 1737)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1737 :flags (bit1 start-dead launch-asap) :binding 1738)
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    (sp-item 1738 :flags (bit1 start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1739) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 6.6))
-                                    (sp-flt spt-scale-x (meters 0.2))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1739 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 6.6))
+                            (sp-flt spt-scale-x (meters 0.2))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-accel-y -0.68266666)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1737)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-x (meters 0.0))
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-rnd-flt spt-z 16384.0 4096.0 1.0)
-                                                     (sp-flt spt-scale-x (meters 3.2))
-                                                     (sp-flt spt-scale-y (meters 1.0))
-                                                     (sp-flt spt-r 150.0)
-                                                     (sp-flt spt-g 150.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.053333335))
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-vel-z (meters -0.01))
-                                                     (sp-flt spt-scalevel-x (meters -0.004888889))
-                                                     (sp-flt spt-fade-a 0.42666668)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit7)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1740)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1737 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters 4) (meters 1) 1.0)
+                            (sp-flt spt-scale-x (meters 3.2))
+                            (sp-flt spt-scale-y (meters 1))
+                            (sp-flt spt-r 150.0)
+                            (sp-flt spt-g 150.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.053333335))
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters -0.01))
+                            (sp-flt spt-scalevel-x (meters -0.004888889))
+                            (sp-flt spt-fade-a 0.42666668)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1740)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1740)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a 0.0) (sp-end))
-        )
-      )
+(defpart 1740 :init-specs ((sp-flt spt-fade-a 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1738) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-fade-a -1.8285716)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1738 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-fade-a -1.8285716)
+                            (sp-int spt-timer 30)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; definition for method 20 of type whirlpool
 (defmethod dummy-20 whirlpool ((obj whirlpool) (arg0 float))
diff --git a/test/decompiler/reference/levels/swamp/kermit_REF.gc b/test/decompiler/reference/levels/swamp/kermit_REF.gc
index 051937a6eb..f720fbeb2a 100644
--- a/test/decompiler/reference/levels/swamp/kermit_REF.gc
+++ b/test/decompiler/reference/levels/swamp/kermit_REF.gc
@@ -2,94 +2,70 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 298)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-kermit-charging-up"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 1359 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 1356)
-          (sp-item 1359 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 1357)
-          (sp-item 1359 :fade-after (meters 140.0) :falloff-to (meters 140.0) :binding 1358)
-          (sp-item 1360)
-          (sp-item 1361 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1362 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1363 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1358 :fade-after (meters 30.0) :falloff-to (meters 30.0) :flags (start-dead))
-          (sp-item 1357 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (start-dead))
-          (sp-item 1356 :fade-after (meters 80.0) :falloff-to (meters 80.0) :flags (start-dead))
-          (sp-item 1358 :fade-after (meters 90.0) :falloff-to (meters 90.0) :flags (start-dead))
-          (sp-item 1357 :fade-after (meters 100.0) :falloff-to (meters 100.0) :flags (start-dead))
-          (sp-item 1356 :fade-after (meters 110.0) :falloff-to (meters 110.0) :flags (start-dead))
-          (sp-item 1358 :fade-after (meters 120.0) :falloff-to (meters 120.0) :flags (start-dead))
-          (sp-item 1357 :fade-after (meters 120.0) :falloff-to (meters 120.0) :flags (start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :y 20480.0 :w 20480.0)
-        )
-      )
+(defpartgroup group-kermit-charging-up
+  :id 298
+  :bounds (static-bspherem 0 5 0 5)
+  :parts
+  ((sp-item 1359 :fade-after (meters 140) :falloff-to (meters 140) :binding 1356)
+    (sp-item 1359 :fade-after (meters 140) :falloff-to (meters 140) :binding 1357)
+    (sp-item 1359 :fade-after (meters 140) :falloff-to (meters 140) :binding 1358)
+    (sp-item 1360)
+    (sp-item 1361 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1362 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1363 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1358 :fade-after (meters 30) :falloff-to (meters 30) :flags (start-dead))
+    (sp-item 1357 :fade-after (meters 60) :falloff-to (meters 60) :flags (start-dead))
+    (sp-item 1356 :fade-after (meters 80) :falloff-to (meters 80) :flags (start-dead))
+    (sp-item 1358 :fade-after (meters 90) :falloff-to (meters 90) :flags (start-dead))
+    (sp-item 1357 :fade-after (meters 100) :falloff-to (meters 100) :flags (start-dead))
+    (sp-item 1356 :fade-after (meters 110) :falloff-to (meters 110) :flags (start-dead))
+    (sp-item 1358 :fade-after (meters 120) :falloff-to (meters 120) :flags (start-dead))
+    (sp-item 1357 :fade-after (meters 120) :falloff-to (meters 120) :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1360) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-flt spt-g 32.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                    (sp-flt spt-fade-a -0.2)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1360 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+                            (sp-flt spt-fade-a -0.2)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1359) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.1 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -3072.0 6144.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1359 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.1 1.0)
+                            (sp-rnd-flt spt-x (meters -0.75) (meters 1.5) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -0.75) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1356) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
+(defpart 1356 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-sound (new 'static 'sound-spec
                                         :mask #x1
                                         :num 0.05
                                         :group #x1
@@ -97,35 +73,26 @@
                                         :volume #x2cc
                                         )
                                       )
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 1364)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1357) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
+(defpart 1357 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-sound (new 'static 'sound-spec
                                         :mask #x1
                                         :num 0.075
                                         :group #x1
@@ -133,35 +100,26 @@
                                         :volume #x400
                                         )
                                       )
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 1364)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1358) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
+(defpart 1358 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-sound (new 'static 'sound-spec
                                         :mask #x1
                                         :num 0.05
                                         :group #x1
@@ -169,374 +127,288 @@
                                         :volume #x2cc
                                         )
                                       )
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 1364)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1361) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.5 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 91)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1361 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.5 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 91)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 1364)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1362) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 0.4 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 91)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1362 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.4 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 91)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 1364)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1363) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.1 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 91)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1364)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1363 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.1 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 10.0) (degrees 160.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 91)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 1364)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1364)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -1.0)
-                                                     (sp-flt spt-fade-g -1.0)
-                                                     (sp-flt spt-fade-a -2.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1364 :init-specs ((sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-fade-r -1.0)
+                            (sp-flt spt-fade-g -1.0)
+                            (sp-flt spt-fade-a -2.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 299)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-kermit-charged-up"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1365 :period 15 :length 5))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-kermit-charged-up
+  :id 299
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1365 :period 15 :length 5))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1365) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 75)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1365 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 70.0 16.0 1.0)
+                            (sp-rnd-flt spt-g 70.0 16.0 1.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 75)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-flt spt-userdata 0.0)
+                            (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 300) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-kermit-pulse"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1368 :flags (launch-asap) :binding 1366)
-                                         (sp-item 1366 :flags (start-dead launch-asap) :binding 1367)
-                                         (sp-item 1367 :flags (start-dead))
-                                         (sp-item 1367 :flags (start-dead))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-kermit-pulse
+  :id 300
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1368 :flags (launch-asap) :binding 1366)
+    (sp-item 1366 :flags (start-dead launch-asap) :binding 1367)
+    (sp-item 1367 :flags (start-dead))
+    (sp-item 1367 :flags (start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1368) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 3.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 3000)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-func spt-func 'sparticle-track-root)
-                                    (sp-int spt-next-time 5)
-                                    (sp-launcher-by-id spt-next-launcher 1369)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1368 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 3))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 3000)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-func spt-func 'sparticle-track-root)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1369)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1369)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-a 100.0 28.0 1.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 1369)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1369 :init-specs ((sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-a 100.0 28.0 1.0)
+                            (sp-int spt-next-time 5)
+                            (sp-launcher-by-id spt-next-launcher 1369)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1366) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-y (meters 4.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-z 0.0)
-                                    (sp-flt spt-scale-x (meters 1.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.053333335))
-                                    (sp-flt spt-vel-y (meters 0.053333335))
-                                    (sp-flt spt-vel-z (meters 0.002))
-                                    (sp-int spt-timer 3000)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1370)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1366 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 16) 1.0)
+                            (sp-flt spt-z (meters 0))
+                            (sp-flt spt-scale-x (meters 1.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.053333335))
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-flt spt-vel-z (meters 0.002))
+                            (sp-int spt-timer 3000)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1370)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1370)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-vel-z (meters 0.0)) (sp-end))
-        )
-      )
+(defpart 1370 :init-specs ((sp-flt spt-vel-z (meters 0))))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1367) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.85))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 32.0)
-                                    (sp-rnd-flt spt-g 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 64.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00075757573))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.16)
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1367 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0.85))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-rnd-flt spt-g 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 64.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-scalevel-x (meters -0.00075757573))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.16)
+                            (sp-flt spt-fade-a -0.14222223)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 301)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #x5
-        :linger-duration #x5dc
-        :name "group-kermit-pulse-impact"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1371) (sp-item 1372))
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
+(defpartgroup group-kermit-pulse-impact
+  :id 301
+  :duration 5
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 1371) (sp-item 1372))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1371) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters -0.1) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-z -409.6 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.9) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.00083333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-a -0.64)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 30)
-                                    (sp-launcher-by-id spt-next-launcher 1373)
-                                    (sp-rnd-flt spt-launchrot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1371 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters -0.1) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.1) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.1) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.9) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.00083333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-a -0.64)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1373)
+                            (sp-rnd-flt spt-launchrot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1373)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -3.2)
-                                                     (sp-flt spt-fade-g 1.0)
-                                                     (sp-flt spt-fade-b 1.0)
-                                                     (sp-int spt-next-time 30)
-                                                     (sp-launcher-by-id spt-next-launcher 1374)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1373 :init-specs ((sp-flt spt-fade-r -3.2)
+                            (sp-flt spt-fade-g 1.0)
+                            (sp-flt spt-fade-b 1.0)
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1374)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1374)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1374 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1372) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 32.0)
-                                    (sp-rnd-flt spt-x (meters -0.1) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.1) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-z -409.6 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.06666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g -2.1333334)
-                                    (sp-flt spt-fade-a -1.4222223)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-flt spt-friction 0.93)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 30)
-                                    (sp-launcher-by-id spt-next-launcher 1373)
-                                    (sp-rnd-flt spt-launchrot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1372 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 32.0)
+                            (sp-rnd-flt spt-x (meters -0.1) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.1) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.1) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.06666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g -2.1333334)
+                            (sp-flt spt-fade-a -1.4222223)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-flt spt-friction 0.93)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1373)
+                            (sp-rnd-flt spt-launchrot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-launchrot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; definition of type joint-mod-tracker
 (deftype joint-mod-tracker (basic)
diff --git a/test/decompiler/reference/levels/swamp/swamp-obs_REF.gc b/test/decompiler/reference/levels/swamp/swamp-obs_REF.gc
index a217c2405a..f819a8887f 100644
--- a/test/decompiler/reference/levels/swamp/swamp-obs_REF.gc
+++ b/test/decompiler/reference/levels/swamp/swamp-obs_REF.gc
@@ -2,134 +2,108 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 289) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x5
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-swamp-spike-up"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1325 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 1326 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 1327 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-swamp-spike-up
+  :id 289
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1325 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1326 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1327 :fade-after (meters 60) :falloff-to (meters 60))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1325)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-int-flt spt-x (meters -2.0) 2 8192.0)
-                                                     (sp-flt spt-y (meters 0.75))
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 48.0 24.0 1.0)
-                                                     (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.01))
-                                                     (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
-                                                     (sp-flt spt-friction 0.96)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 30 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1328)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -179.3918))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1325 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-int-flt spt-x (meters -2) 2 8192.0)
+                            (sp-flt spt-y (meters 0.75))
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 48.0 24.0 1.0)
+                            (sp-rnd-flt spt-b 48.0 8.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.01))
+                            (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 30 299 1)
+                            (sp-launcher-by-id spt-next-launcher 1328)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -179.3918))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1328)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.32) (sp-end))
-        )
-      )
+(defpart 1328 :init-specs ((sp-flt spt-fade-a -0.32)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1326)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 16.0)
-                                                     (sp-rnd-int-flt spt-x (meters -2.0) 2 8192.0)
-                                                     (sp-flt spt-y (meters -0.75))
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 32.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-g 36.0 18.0 1.0)
-                                                     (sp-rnd-flt spt-b 24.0 4.0 1.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.01))
-                                                     (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
-                                                     (sp-flt spt-friction 0.96)
-                                                     (sp-int spt-timer 450)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 30 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1328)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 20.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-rotate-y (degrees -179.3918))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1326 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-int-flt spt-x (meters -2) 2 8192.0)
+                            (sp-flt spt-y (meters -0.75))
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-g 36.0 18.0 1.0)
+                            (sp-rnd-flt spt-b 24.0 4.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.01))
+                            (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 30 299 1)
+                            (sp-launcher-by-id spt-next-launcher 1328)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -179.3918))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1327) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-int-flt spt-x (meters -2.0) 2 8192.0)
-                                    (sp-flt spt-y (meters 0.25))
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 16.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 16.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-drop)
-                                    (sp-int spt-next-time 390)
-                                    (sp-launcher-by-id spt-next-launcher 1329)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -179.3918))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1327 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-int-flt spt-x (meters -2) 2 8192.0)
+                            (sp-flt spt-y (meters 0.25))
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-g 48.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 48.0 16.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-flt spt-accel-y -13.653334)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-flt spt-userdata 0.0)
+                            (sp-func spt-func 'check-water-level-drop)
+                            (sp-int spt-next-time 390)
+                            (sp-launcher-by-id spt-next-launcher 1329)
+                            (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -179.3918))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 290) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #x5
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-swamp-spike-down"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1325 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 1326 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-swamp-spike-down
+  :id 290
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1325 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1326 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
 
 ;; definition of type swamp-spike
 (deftype swamp-spike (process-drawable)
@@ -692,106 +666,82 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 291) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x12c
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-swamp-rock-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1330 :period 1500 :length 5)
-                                         (sp-item 1331 :period 1500 :length 5)
-                                         (sp-item 1332 :period 1500 :length 15)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-swamp-rock-explosion
+  :id 291
+  :duration 300
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1330 :period 1500 :length 5)
+    (sp-item 1331 :period 1500 :length 5)
+    (sp-item 1332 :period 1500 :length 15)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1331) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 130.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 54.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.1333334)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1331 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 15))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 130.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 54.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.1333334)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1330) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-drop)
-                                    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1330 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-rnd-flt spt-num 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 70.0 16.0 1.0)
+                            (sp-rnd-flt spt-g 70.0 16.0 1.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-flt spt-userdata 0.0)
+                            (sp-func spt-func 'check-water-level-drop)
+                            (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1332) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.013333334))
-                                    (sp-flt spt-scalevel-y (meters 0.0033333334))
-                                    (sp-flt spt-accel-y -1.0922667)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 30 299 1)
-                                    (sp-launcher-by-id spt-next-launcher 1333)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1332 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-flt spt-scalevel-y (meters 0.0033333334))
+                            (sp-flt spt-accel-y -1.0922667)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 30 299 1)
+                            (sp-launcher-by-id spt-next-launcher 1333)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1333)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.2) (sp-end))
-        )
-      )
+(defpart 1333 :init-specs ((sp-flt spt-fade-a -0.2)))
 
 ;; failed to figure out what this is:
 (defskelgroup *swamp-rock-sg* swamp-rock
diff --git a/test/decompiler/reference/levels/swamp/swamp-part_REF.gc b/test/decompiler/reference/levels/swamp/swamp-part_REF.gc
index 4eee04fb93..ed32d038de 100644
--- a/test/decompiler/reference/levels/swamp/swamp-part_REF.gc
+++ b/test/decompiler/reference/levels/swamp/swamp-part_REF.gc
@@ -19,1977 +19,1636 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 302)
-      (new 'static 'sparticle-launch-group
-        :length 76
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bayou-billy-hut"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 76
-          (sp-item 1377 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1500 :length 300)
-          (sp-item 1377 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2928 :length 360)
-          (sp-item 1377 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 4602 :length 180)
-          (sp-item 1378 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 1500 :length 300)
-          (sp-item 1378 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 2928 :length 360)
-          (sp-item 1378 :fade-after (meters 175.0) :falloff-to (meters 175.0) :period 4602 :length 180)
-          (sp-item 1379 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 180 :length 45)
-          (sp-item 1380 :fade-after (meters 125.0) :falloff-to (meters 125.0) :period 180 :length 45)
-          (sp-item 1381 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1382 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 736 :length 30)
-          (sp-item 1382 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1103 :length 30)
-          (sp-item 1382 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1546 :length 30)
-          (sp-item 1383 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1383 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1383 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 2305 :flags (launch-asap) :binding 2303)
-          (sp-item 2306 :flags (launch-asap) :binding 2303)
-          (sp-item 2307 :flags (launch-asap) :binding 2303)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          (sp-item 2304 :flags (is-3d start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :x -16384.0 :y -12288.0 :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2305) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-x (meters 6.0))
-                                    (sp-flt spt-y (meters -13.0))
-                                    (sp-flt spt-z 16384.0)
-                                    (sp-flt spt-scale-x (meters 1.01))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 2308)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2308)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-int spt-timer 300)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2308)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2306) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-x (meters 5.0))
-                                    (sp-flt spt-y (meters -13.5))
-                                    (sp-flt spt-z 14336.0)
-                                    (sp-flt spt-scale-x (meters 1.01))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 2308)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2307) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-flt spt-x (meters 6.5))
-                                    (sp-flt spt-y (meters -12.5))
-                                    (sp-flt spt-z 20480.0)
-                                    (sp-flt spt-scale-x (meters 1.01))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 2308)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2303) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-int spt-num 1065353216 1 2.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 4096.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 255.0 1.0)
-                                    (sp-rnd-flt spt-g 100.0 100.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit7)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 2308)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2304) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                    (sp-flt spt-num 3.0)
-                                    (sp-flt spt-scale-x (meters 0.075))
-                                    (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
-                                    (sp-flt spt-scale-y (meters 0.075))
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 20.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit9 bit12)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1384) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 15.0) (meters 30.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 14.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-x (meters -0.036666665))
-                                    (sp-flt spt-vel-y (meters -0.036666665))
-                                    (sp-flt spt-accel-x 1.3653333)
-                                    (sp-flt spt-accel-y 1.3653333)
-                                    (sp-int spt-timer 6000)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int spt-next-time 555)
-                                    (sp-launcher-by-id spt-next-launcher 1385)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1385)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 10
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-vel-x (meters 0.0))
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-flt spt-vel-z (meters 0.0))
-                                                     (sp-flt spt-accel-x 0.0)
-                                                     (sp-flt spt-accel-y 0.0)
-                                                     (sp-flt spt-accel-z 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 2700 1499 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1386)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1386)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-int spt-accel-x -1070677186 1 5.4613333)
-                                                     (sp-rnd-int spt-accel-z -1070677186 1 5.4613333)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1383) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 15.0) (meters 30.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-x (meters -0.036666665))
-                                    (sp-flt spt-vel-y (meters -0.036666665))
-                                    (sp-flt spt-accel-x 1.3653333)
-                                    (sp-flt spt-accel-y 1.3653333)
-                                    (sp-int spt-timer 6000)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int spt-next-time 555)
-                                    (sp-launcher-by-id spt-next-launcher 1385)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1375) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 12288.0 4096.0 1.0)
-                                    (sp-flt spt-scale-x (meters 5.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-int spt-timer 6000)
-                                    (sp-cpuinfo-flags bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 150 449 1)
-                                    (sp-launcher-by-id spt-next-launcher 1387)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1387) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 6
-                                    (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-int-plain-rnd spt-next-time 150 449 1)
-                                    (sp-launcher-by-id spt-next-launcher 1387)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1376) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x21 :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-rnd-flt spt-rot-x -5461.3335 43690.668 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-flt spt-scale-y (meters 1.7))
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1377)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-flt spt-y (meters -0.25))
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 80.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-g 80.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 80.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.2)
-                                                     (sp-flt spt-fade-g -0.2)
-                                                     (sp-flt spt-fade-b -0.2)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y 0.68266666)
-                                                     (sp-flt spt-friction 0.996)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-y (degrees -20.0))
-                                                     (sp-flt spt-conerot-z (degrees -90.0))
-                                                     (sp-flt spt-conerot-radius (meters 0.25))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1378) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 0.9 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 80.0 20.0 1.0)
-                                    (sp-rnd-flt spt-g 80.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 80.0 20.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r 0.0)
-                                    (sp-flt spt-fade-g 0.0)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-flt spt-friction 0.996)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees -25.000002) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.25))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1379)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-flt spt-y (meters -0.25))
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 80.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-g 80.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 80.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0048828125))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.2)
-                                                     (sp-flt spt-fade-g -0.2)
-                                                     (sp-flt spt-fade-b -0.2)
-                                                     (sp-flt spt-fade-a -0.21333334)
-                                                     (sp-flt spt-accel-y 0.4096)
-                                                     (sp-flt spt-friction 0.993)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-y (degrees -20.0))
-                                                     (sp-flt spt-conerot-z (degrees -90.0))
-                                                     (sp-flt spt-conerot-radius (meters 0.25))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1380) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 80.0 20.0 1.0)
-                                    (sp-rnd-flt spt-g 80.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 80.0 20.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0048828125))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r 0.0)
-                                    (sp-flt spt-fade-g 0.0)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-flt spt-accel-y -0.54613334)
-                                    (sp-flt spt-friction 0.993)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees -25.000002) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.25))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1381)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 27
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.1 0.9 1.0)
-                                                     (sp-flt spt-x (meters -7.8))
-                                                     (sp-flt spt-y (meters -8.5))
-                                                     (sp-flt spt-z -9011.2)
-                                                     (sp-flt spt-scale-x (meters 1.6))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-g 40.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 10.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -0.4096)
-                                                     (sp-flt spt-friction 0.995)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.25))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1382)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 27
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                                     (sp-flt spt-x (meters -7.8))
-                                                     (sp-flt spt-y (meters -8.5))
-                                                     (sp-flt spt-z -9011.2)
-                                                     (sp-flt spt-scale-x (meters 1.6))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 40.0 20.0 1.0)
-                                                     (sp-rnd-flt spt-g 40.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-b 40.0 10.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.016666668) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.16)
-                                                     (sp-flt spt-accel-y -0.54613334)
-                                                     (sp-flt spt-friction 0.995)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.25))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 303)
-      (new 'static 'sparticle-launch-group
-        :length 50
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-01"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 50
-          (sp-item 1390 :fade-after (meters 125.0) :period 150 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :z -32768.0 :w 122880.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1390)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 11
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 35.0) 1.0)
-                                                     (sp-rnd-flt spt-z -143360.0 225280.0 1.0)
-                                                     (sp-flt spt-scale-x (meters 1.0))
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-int-plain-rnd spt-timer 150 599 1)
-                                                     (sp-cpuinfo-flags bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1388) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x20 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.1 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.00083333335))
-                                    (sp-flt spt-scalevel-y (meters 0.00016666666))
-                                    (sp-flt spt-fade-a 0.64)
-                                    (sp-int spt-timer 1200)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1391)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1391)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 1050)
-                                                     (sp-launcher-by-id spt-next-launcher 1392)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1392)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-g 0.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-int spt-timer 5)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1389) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer 1200)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int spt-next-time 1200)
-                                    (sp-launcher-by-id spt-next-launcher 1393)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1393)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-rnd-flt spt-a 8.0 32.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.04))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-int spt-timer 5)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 304)
-      (new 'static 'sparticle-launch-group
-        :length 33
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-02"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 33
-          (sp-item 1394 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1394) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z -81920.0 163840.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees 25.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 305)
-      (new 'static 'sparticle-launch-group
-        :length 50
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-03"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 50
-          (sp-item 1395 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1395) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -4.0) (meters 12.0) 1.0)
-                                    (sp-rnd-flt spt-z -163840.0 245760.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees 25.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 306)
-      (new 'static 'sparticle-launch-group
-        :length 50
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-04"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 50
-          (sp-item 1396 :fade-after (meters 125.0) :period 150 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1396) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -35.0) (meters 60.0) 1.0)
-                                    (sp-rnd-flt spt-z -49152.0 73728.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees 40.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 307)
-      (new 'static 'sparticle-launch-group
-        :length 19
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-05"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 19
-          (sp-item 1397 :fade-after (meters 125.0) :period 600 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1397) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 40.0) 1.0)
-                                    (sp-rnd-flt spt-z -24576.0 49152.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 308)
-      (new 'static 'sparticle-launch-group
-        :length 69
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-06"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 69
-          (sp-item 1398 :fade-after (meters 200.0) :period 120 :length 5 :binding 1388)
-          (sp-item 1399 :fade-after (meters 200.0) :period 450 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 163840.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1398) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -45.0) (meters 80.0) 1.0)
-                                    (sp-rnd-flt spt-z -81920.0 163840.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1399) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 40.0) 1.0)
-                                    (sp-rnd-flt spt-z 73728.0 61440.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 309)
-      (new 'static 'sparticle-launch-group
-        :length 71
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-07"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 71
-          (sp-item 1400 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-          (sp-item 1401 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-          (sp-item 1402 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-          (sp-item 1403 :fade-after (meters 125.0) :period 600 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 163840.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1400) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 15.0) 1.0)
-                                    (sp-rnd-flt spt-z -32768.0 155648.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1401) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -17.5) (meters 10.0) 1.0)
-                                    (sp-rnd-flt spt-z -61440.0 204800.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1402) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 45.0) 1.0)
-                                    (sp-rnd-flt spt-z 86016.0 32768.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1403) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -33.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-z -102400.0 102400.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 310)
-      (new 'static 'sparticle-launch-group
-        :length 38
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-08"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 38
-          (sp-item 1404 :fade-after (meters 125.0) :period 150 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1404) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -18.0) (meters 45.0) 1.0)
-                                    (sp-rnd-flt spt-z -102400.0 163840.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 311)
-      (new 'static 'sparticle-launch-group
-        :length 25
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-09"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 25
-          (sp-item 1405 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1405) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 42.0) 1.0)
-                                    (sp-rnd-flt spt-z -40960.0 73728.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees 30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 312)
-      (new 'static 'sparticle-launch-group
-        :length 38
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-10"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 38
-          (sp-item 1406 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1406) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -30.0) (meters 52.0) 1.0)
-                                    (sp-rnd-flt spt-z -40960.0 73728.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 313)
-      (new 'static 'sparticle-launch-group
-        :length 38
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-11"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 38
-          (sp-item 1407 :fade-after (meters 125.0) :period 450 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1407) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -14.0) (meters 22.0) 1.0)
-                                    (sp-rnd-flt spt-z -53248.0 122880.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -15.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 314)
-      (new 'static 'sparticle-launch-group
-        :length 25
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-12"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 25
-          (sp-item 1408 :fade-after (meters 125.0) :period 150 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          )
-        :bounds (new 'static 'sphere :w 163840.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1408) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 33.0) 1.0)
-                                    (sp-rnd-flt spt-z -53248.0 286720.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -65.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 315)
-      (new 'static 'sparticle-launch-group
-        :length 25
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-13"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 25
-          (sp-item 1409 :fade-after (meters 125.0) :period 600 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          )
-        :bounds (new 'static 'sphere :w 40960.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1409) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.0) (meters 20.0) 1.0)
-                                    (sp-rnd-flt spt-z -32768.0 81920.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -40.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 316)
-      (new 'static 'sparticle-launch-group
-        :length 38
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-bubbles-14"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 38
-          (sp-item 1410 :fade-after (meters 125.0) :period 120 :length 5 :binding 1388)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1388 :flags (start-dead) :binding 1389)
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1389 :flags (start-dead launch-asap))
-          (sp-item 1384 :fade-after (meters 120.0) :period 2503 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 3337 :length 5 :binding 1375)
-          (sp-item 1384 :fade-after (meters 120.0) :period 5046 :length 5 :binding 1375)
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
-          (sp-item 1376 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1410) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -35.0) (meters 50.0) 1.0)
-                                    (sp-rnd-flt spt-z -163840.0 225280.0 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int-plain-rnd spt-timer 150 599 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -10.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 317)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-swamp-torch"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 1411 :fade-after (meters 200.0) :falloff-to (meters 220.0))
-          (sp-item 1412 :fade-after (meters 140.0) :falloff-to (meters 140.0))
-          (sp-item 1413 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 600 :length 90)
-          (sp-item 1414 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 369 :length 69)
-          (sp-item 1415 :fade-after (meters 50.0) :falloff-to (meters 50.0) :period 710 :length 51)
-          (sp-item 1416 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1416)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.3)
-                                                     (sp-flt spt-x (meters 0.2))
-                                                     (sp-rnd-flt spt-y (meters 1.0) (meters 1.0) 1.0)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2867.2)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 1417)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1417)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -6.826667) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1411) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1069547520 1 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
-                                    (sp-rnd-flt spt-z -1433.6 2867.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 13.066667)
-                                    (sp-flt spt-accel-y -0.8192)
-                                    (sp-int spt-timer 75)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 1418)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1418)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -1.3333334) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1413)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.5)
-                                                     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                                     (sp-flt spt-y (meters 1.0))
-                                                     (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 1418)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1414) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.5)
-                                    (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z 0.0 1638.4 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-flt spt-fade-a 13.066667)
-                                    (sp-flt spt-accel-y -0.8192)
-                                    (sp-int spt-timer 105)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 1418)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1415)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 20
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 2.0)
-                                                     (sp-rnd-flt spt-x (meters 0.0) (meters 0.2) 1.0)
-                                                     (sp-flt spt-y (meters 0.6))
-                                                     (sp-rnd-flt spt-z -2457.6 2457.6 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-flt spt-fade-a 13.066667)
-                                                     (sp-flt spt-accel-y -0.8192)
-                                                     (sp-int spt-timer 105)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-int spt-next-time 15)
-                                                     (sp-launcher-by-id spt-next-launcher 1418)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1412)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.3))
-                                                     (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0005))
-                                                     (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.10666667)
-                                                     (sp-flt spt-fade-g -0.053333335)
-                                                     (sp-flt spt-fade-b -0.053333335)
-                                                     (sp-flt spt-fade-a -0.08)
-                                                     (sp-flt spt-accel-x 0.27306667)
-                                                     (sp-flt spt-accel-y 0.13653333)
-                                                     (sp-flt spt-friction 0.9975)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpartgroup group-swamp-bayou-billy-hut
+  :id 302
+  :bounds (static-bspherem -4 -3 0 12)
+  :parts
+  ((sp-item 1377 :fade-after (meters 175) :falloff-to (meters 175) :period 1500 :length 300)
+    (sp-item 1377 :fade-after (meters 175) :falloff-to (meters 175) :period 2928 :length 360)
+    (sp-item 1377 :fade-after (meters 175) :falloff-to (meters 175) :period 4602 :length 180)
+    (sp-item 1378 :fade-after (meters 175) :falloff-to (meters 175) :period 1500 :length 300)
+    (sp-item 1378 :fade-after (meters 175) :falloff-to (meters 175) :period 2928 :length 360)
+    (sp-item 1378 :fade-after (meters 175) :falloff-to (meters 175) :period 4602 :length 180)
+    (sp-item 1379 :fade-after (meters 125) :falloff-to (meters 125) :period 180 :length 45)
+    (sp-item 1380 :fade-after (meters 125) :falloff-to (meters 125) :period 180 :length 45)
+    (sp-item 1381 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1382 :fade-after (meters 100) :falloff-to (meters 100) :period 736 :length 30)
+    (sp-item 1382 :fade-after (meters 100) :falloff-to (meters 100) :period 1103 :length 30)
+    (sp-item 1382 :fade-after (meters 100) :falloff-to (meters 100) :period 1546 :length 30)
+    (sp-item 1383 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1383 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1383 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 2305 :flags (launch-asap) :binding 2303)
+    (sp-item 2306 :flags (launch-asap) :binding 2303)
+    (sp-item 2307 :flags (launch-asap) :binding 2303)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2303 :flags (start-dead launch-asap) :binding 2304)
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    (sp-item 2304 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 2305 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-x (meters 6))
+                            (sp-flt spt-y (meters -13))
+                            (sp-flt spt-z (meters 4))
+                            (sp-flt spt-scale-x (meters 1.01))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2308)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2308
+  :init-specs
+  ((sp-int spt-timer 300) (sp-int spt-next-time 150) (sp-launcher-by-id spt-next-launcher 2308))
+  )
+
+;; failed to figure out what this is:
+(defpart 2306 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-x (meters 5))
+                            (sp-flt spt-y (meters -13.5))
+                            (sp-flt spt-z (meters 3.5))
+                            (sp-flt spt-scale-x (meters 1.01))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2308)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2307 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-flt spt-x (meters 6.5))
+                            (sp-flt spt-y (meters -12.5))
+                            (sp-flt spt-z (meters 5))
+                            (sp-flt spt-scale-x (meters 1.01))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2308)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2303 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-int spt-num 1065353216 1 2.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 1) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 255.0 1.0)
+                            (sp-rnd-flt spt-g 100.0 100.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit7)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2308)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2304 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-func spt-birth-func 'birth-func-copy-rot-color)
+                            (sp-flt spt-num 3.0)
+                            (sp-flt spt-scale-x (meters 0.075))
+                            (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
+                            (sp-flt spt-scale-y (meters 0.075))
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 20.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit9 bit12)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1384 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 15) (meters 30) 1.0)
+                            (sp-rnd-flt spt-y (meters 14) (meters 3) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-x (meters -0.036666665))
+                            (sp-flt spt-vel-y (meters -0.036666665))
+                            (sp-flt spt-accel-x 1.3653333)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-int spt-timer 6000)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int spt-next-time 555)
+                            (sp-launcher-by-id spt-next-launcher 1385)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1385 :init-specs ((sp-flt spt-g 128.0)
+                            (sp-flt spt-vel-x (meters 0))
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-x 0.0)
+                            (sp-flt spt-accel-y 0.0)
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int-plain-rnd spt-next-time 2700 1499 1)
+                            (sp-launcher-by-id spt-next-launcher 1386)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1386 :init-specs ((sp-flt spt-b 128.0)
+                            (sp-rnd-int spt-accel-x -1070677186 1 5.4613333)
+                            (sp-rnd-int spt-accel-z -1070677186 1 5.4613333)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1383 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 15) (meters 30) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 3) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-x (meters -0.036666665))
+                            (sp-flt spt-vel-y (meters -0.036666665))
+                            (sp-flt spt-accel-x 1.3653333)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-int spt-timer 6000)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int spt-next-time 555)
+                            (sp-launcher-by-id spt-next-launcher 1385)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1375 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 3) (meters 1) 1.0)
+                            (sp-flt spt-scale-x (meters 5))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-int spt-timer 6000)
+                            (sp-cpuinfo-flags bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 150 449 1)
+                            (sp-launcher-by-id spt-next-launcher 1387)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1387 :init-specs ((sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-int-plain-rnd spt-next-time 150 449 1)
+                            (sp-launcher-by-id spt-next-launcher 1387)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1376 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x21 :page #x2))
+                            (sp-func spt-birth-func 'birth-func-copy-rot-color)
+                            (sp-flt spt-num 4.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-rnd-flt spt-rot-x -5461.3335 43690.668 1.0)
+                            (sp-flt spt-rot-y (degrees 0.0))
+                            (sp-flt spt-scale-y (meters 1.7))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 48.0 48.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1377 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-flt spt-y (meters -0.25))
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 80.0 20.0 1.0)
+                            (sp-rnd-flt spt-g 80.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 80.0 20.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.2)
+                            (sp-flt spt-fade-g -0.2)
+                            (sp-flt spt-fade-b -0.2)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-flt spt-accel-y 0.68266666)
+                            (sp-flt spt-friction 0.996)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-y (degrees -20.0))
+                            (sp-flt spt-conerot-z (degrees -90.0))
+                            (sp-flt spt-conerot-radius (meters 0.25))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1378 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 0.9 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 80.0 20.0 1.0)
+                            (sp-rnd-flt spt-g 80.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 80.0 20.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g 0.0)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-accel-y -0.68266666)
+                            (sp-flt spt-friction 0.996)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees -25.000002) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.25))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1379 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-flt spt-y (meters -0.25))
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 80.0 20.0 1.0)
+                            (sp-rnd-flt spt-g 80.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 80.0 20.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0048828125))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.2)
+                            (sp-flt spt-fade-g -0.2)
+                            (sp-flt spt-fade-b -0.2)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-flt spt-accel-y 0.4096)
+                            (sp-flt spt-friction 0.993)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-y (degrees -20.0))
+                            (sp-flt spt-conerot-z (degrees -90.0))
+                            (sp-flt spt-conerot-radius (meters 0.25))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1380 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 80.0 20.0 1.0)
+                            (sp-rnd-flt spt-g 80.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 80.0 20.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0048828125))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g 0.0)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-accel-y -0.54613334)
+                            (sp-flt spt-friction 0.993)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees -25.000002) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.25))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1381 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.9 1.0)
+                            (sp-flt spt-x (meters -7.8))
+                            (sp-flt spt-y (meters -8.5))
+                            (sp-flt spt-z (meters -2.2))
+                            (sp-flt spt-scale-x (meters 1.6))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 40.0 20.0 1.0)
+                            (sp-rnd-flt spt-g 40.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 40.0 10.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-flt spt-accel-y -0.4096)
+                            (sp-flt spt-friction 0.995)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.25))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1382 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-flt spt-x (meters -7.8))
+                            (sp-flt spt-y (meters -8.5))
+                            (sp-flt spt-z (meters -2.2))
+                            (sp-flt spt-scale-x (meters 1.6))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 40.0 20.0 1.0)
+                            (sp-rnd-flt spt-g 40.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 40.0 10.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.016666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-flt spt-accel-y -0.54613334)
+                            (sp-flt spt-friction 0.995)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.25))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-01
+  :id 303
+  :bounds (static-bspherem 0 0 -8 30)
+  :parts
+  ((sp-item 1390 :fade-after (meters 125) :period 150 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1390 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 35) 1.0)
+                            (sp-rnd-flt spt-z (meters -35) (meters 55) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1388 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x20 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.1 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 32.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.00083333335))
+                            (sp-flt spt-scalevel-y (meters 0.00016666666))
+                            (sp-flt spt-fade-a 0.64)
+                            (sp-int spt-timer 1200)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1391)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1391
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 1050) (sp-launcher-by-id spt-next-launcher 1392))
+  )
+
+;; failed to figure out what this is:
+(defpart 1392 :init-specs ((sp-flt spt-g 0.0) (sp-flt spt-b 0.0) (sp-flt spt-a 0.0) (sp-int spt-timer 5)))
+
+;; failed to figure out what this is:
+(defpart 1389 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 96.0 32.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int spt-timer 1200)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int spt-next-time 1200)
+                            (sp-launcher-by-id spt-next-launcher 1393)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1393 :init-specs ((sp-rnd-flt spt-a 8.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.04))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 5)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-02
+  :id 304
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1394 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1394 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -8) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees 25.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-03
+  :id 305
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1395 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1395 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -4) (meters 12) 1.0)
+                            (sp-rnd-flt spt-z (meters -40) (meters 60) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees 25.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-04
+  :id 306
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1396 :fade-after (meters 125) :period 150 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1396 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -35) (meters 60) 1.0)
+                            (sp-rnd-flt spt-z (meters -12) (meters 18) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees 40.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-05
+  :id 307
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1397 :fade-after (meters 125) :period 600 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1397 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 40) 1.0)
+                            (sp-rnd-flt spt-z (meters -6) (meters 12) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-06
+  :id 308
+  :bounds (static-bspherem 0 0 0 40)
+  :parts
+  ((sp-item 1398 :fade-after (meters 200) :period 120 :length 5 :binding 1388)
+    (sp-item 1399 :fade-after (meters 200) :period 450 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1398 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -45) (meters 80) 1.0)
+                            (sp-rnd-flt spt-z (meters -20) (meters 40) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1399 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 40) 1.0)
+                            (sp-rnd-flt spt-z (meters 18) (meters 15) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-07
+  :id 309
+  :bounds (static-bspherem 0 0 0 40)
+  :parts
+  ((sp-item 1400 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1401 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1402 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1403 :fade-after (meters 125) :period 600 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1400 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 15) 1.0)
+                            (sp-rnd-flt spt-z (meters -8) (meters 38) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1401 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -17.5) (meters 10) 1.0)
+                            (sp-rnd-flt spt-z (meters -15) (meters 50) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -35.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1402 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 45) 1.0)
+                            (sp-rnd-flt spt-z (meters 21) (meters 8) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1403 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -33) (meters 6) 1.0)
+                            (sp-rnd-flt spt-z (meters -25) (meters 25) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-08
+  :id 310
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1404 :fade-after (meters 125) :period 150 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1404 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -18) (meters 45) 1.0)
+                            (sp-rnd-flt spt-z (meters -25) (meters 40) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-09
+  :id 311
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1405 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1405 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 42) 1.0)
+                            (sp-rnd-flt spt-z (meters -10) (meters 18) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees 30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-10
+  :id 312
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1406 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1406 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -30) (meters 52) 1.0)
+                            (sp-rnd-flt spt-z (meters -10) (meters 18) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-11
+  :id 313
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1407 :fade-after (meters 125) :period 450 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1407 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -14) (meters 22) 1.0)
+                            (sp-rnd-flt spt-z (meters -13) (meters 30) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-12
+  :id 314
+  :bounds (static-bspherem 0 0 0 40)
+  :parts
+  ((sp-item 1408 :fade-after (meters 125) :period 150 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1408 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 33) 1.0)
+                            (sp-rnd-flt spt-z (meters -13) (meters 70) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -65.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-13
+  :id 315
+  :bounds (static-bspherem 0 0 0 10)
+  :parts
+  ((sp-item 1409 :fade-after (meters 125) :period 600 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1409 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -8) (meters 20) 1.0)
+                            (sp-rnd-flt spt-z (meters -8) (meters 20) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -40.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-bubbles-14
+  :id 316
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 1410 :fade-after (meters 125) :period 120 :length 5 :binding 1388)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1388 :flags (start-dead) :binding 1389)
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1389 :flags (start-dead launch-asap))
+    (sp-item 1384 :fade-after (meters 120) :period 2503 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 3337 :length 5 :binding 1375)
+    (sp-item 1384 :fade-after (meters 120) :period 5046 :length 5 :binding 1375)
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    (sp-item 1375 :flags (start-dead launch-asap) :binding 1376)
+    (sp-item 1376 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1410 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -35) (meters 50) 1.0)
+                            (sp-rnd-flt spt-z (meters -40) (meters 55) 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int-plain-rnd spt-timer 150 599 1)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -10.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-swamp-torch
+  :id 317
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 1411 :fade-after (meters 200) :falloff-to (meters 220))
+    (sp-item 1412 :fade-after (meters 140) :falloff-to (meters 140))
+    (sp-item 1413 :fade-after (meters 50) :falloff-to (meters 50) :period 600 :length 90)
+    (sp-item 1414 :fade-after (meters 50) :falloff-to (meters 50) :period 369 :length 69)
+    (sp-item 1415 :fade-after (meters 50) :falloff-to (meters 50) :period 710 :length 51)
+    (sp-item 1416 :fade-after (meters 60) :falloff-to (meters 60))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1416 :init-specs ((sp-flt spt-num 0.3)
+                            (sp-flt spt-x (meters 0.2))
+                            (sp-rnd-flt spt-y (meters 1) (meters 1) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2867.2)
+                            (sp-flt spt-b 3276.8)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                            (sp-flt spt-vel-y (meters 0.026666667))
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 1417)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1417 :init-specs ((sp-flt spt-fade-b -6.826667)))
+
+;; failed to figure out what this is:
+(defpart 1411 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1069547520 1 1.0)
+                            (sp-rnd-flt spt-x (meters -0.35) (meters 0.7) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.35) (meters 0.7) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 75)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 1418)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1418 :init-specs ((sp-flt spt-fade-a -1.3333334)))
+
+;; failed to figure out what this is:
+(defpart 1413 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 1418)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1414 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -0.2) (meters 0.6) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters 0) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 1418)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1415 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 0.2) 1.0)
+                            (sp-flt spt-y (meters 0.6))
+                            (sp-rnd-flt spt-z (meters -0.6) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.7) (meters 0.4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.018333333) (meters 0.005) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-flt spt-fade-a 13.066667)
+                            (sp-flt spt-accel-y -0.8192)
+                            (sp-int spt-timer 105)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 1418)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1412 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 0.3))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 96.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0005))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -0.26666668) 1 97.09037)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.10666667)
+                            (sp-flt spt-fade-g -0.053333335)
+                            (sp-flt spt-fade-b -0.053333335)
+                            (sp-flt spt-fade-a -0.08)
+                            (sp-flt spt-accel-x 0.27306667)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-flt spt-friction 0.9975)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 5.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
diff --git a/test/decompiler/reference/levels/swamp/swamp-rat-nest_REF.gc b/test/decompiler/reference/levels/swamp/swamp-rat-nest_REF.gc
index d688bcfe31..3d948bc5f4 100644
--- a/test/decompiler/reference/levels/swamp/swamp-rat-nest_REF.gc
+++ b/test/decompiler/reference/levels/swamp/swamp-rat-nest_REF.gc
@@ -2,720 +2,578 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 292) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #x5
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-swamp-rat-nest-a-explosion"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 1334)
-                                         (sp-item 1335)
-                                         (sp-item 1336)
-                                         (sp-item 1337)
-                                         (sp-item 1338)
-                                         (sp-item 1339)
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
+(defpartgroup group-swamp-rat-nest-a-explosion
+  :id 292
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1334) (sp-item 1335) (sp-item 1336) (sp-item 1337) (sp-item 1338) (sp-item 1339))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 293)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x5
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-rat-nest-b-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 1342) (sp-item 1339) (sp-item 1337) (sp-item 1334))
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-swamp-rat-nest-b-explosion
+  :id 293
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1342) (sp-item 1339) (sp-item 1337) (sp-item 1334))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 294)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #x5
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-rat-nest-c-explosion"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 1335) (sp-item 1339) (sp-item 1337) (sp-item 1334))
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-swamp-rat-nest-c-explosion
+  :id 294
+  :duration 5
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1335) (sp-item 1339) (sp-item 1337) (sp-item 1334))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 295)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-rat-nest-a-puff"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3 (sp-item 1346) (sp-item 1347) (sp-item 1348))
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-swamp-rat-nest-a-puff
+  :id 295
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1346) (sp-item 1347) (sp-item 1348))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 296)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-rat-nest-b-puff"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1350) (sp-item 1351))
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-swamp-rat-nest-b-puff
+  :id 296
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1350) (sp-item 1351))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 297)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-rat-nest-c-puff"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2 (sp-item 1353) (sp-item 1354))
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
+(defpartgroup group-swamp-rat-nest-c-puff
+  :id 297
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1353) (sp-item 1354))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1353) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1353 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters 1.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.14222223)
+                            (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1354) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 85.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 2.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1354 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 85.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1355) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -4.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.07111111)
-                                    (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1355 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters -4.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.07111111)
+                            (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1350) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1350 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters -0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.14222223)
+                            (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1351) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 85.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 3.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1351 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 85.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 3))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1352) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -10.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.07111111)
-                                    (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1352 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters -10.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.07111111)
+                            (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1334) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 1.0))
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 160.0)
-                                    (sp-flt spt-b 96.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-flt spt-fade-a -1.0)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1334 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 1))
+                            (sp-flt spt-scale-x (meters 16))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 160.0)
+                            (sp-flt spt-b 96.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-flt spt-fade-a -1.0)
+                            (sp-int spt-timer 15)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1341) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -12.0))
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 96.0)
-                                    (sp-flt spt-a 16.0)
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1341 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -12))
+                            (sp-flt spt-scale-x (meters 16))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 96.0)
+                            (sp-flt spt-a 16.0)
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-int spt-timer 15)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1339)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 8.0 8.0 1.0)
-                                                     (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                                     (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.08) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.005))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -0.85333335)
-                                                     (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
-                                                     (sp-flt spt-friction 0.92)
-                                                     (sp-int spt-timer 150)
-                                                     (sp-cpuinfo-flags bit2 bit12)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 40.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1339 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 8.0 8.0 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.75) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-g 48.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 48.0 8.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.08) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
+                            (sp-flt spt-friction 0.92)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 40.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1335) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 16.0 8.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -2.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.21333334)
-                                    (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1335 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 16.0 8.0 1.0)
+                            (sp-rnd-flt spt-y (meters -2) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-g 48.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 48.0 8.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1340) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 10.0 5.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -12.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1340 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 10.0 5.0 1.0)
+                            (sp-rnd-flt spt-y (meters -12) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 48.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 48.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 48.0 8.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1336) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 12.0 8.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.21333334)
-                                    (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 1.0) (meters 1.75) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1336 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 12.0 8.0 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 48.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-b 48.0 8.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 50.000004) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 1) (meters 1.75) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1337) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 16.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.6) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-rnd-flt spt-accel-y -8.192 -2.7306666 1.0)
-                                    (sp-int spt-timer 750)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-func spt-func 'check-water-level-drop)
-                                    (sp-rnd-flt spt-conerot-x (degrees 15.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 3.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1337 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-rnd-flt spt-num 8.0 16.0 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 32.0 16.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-rnd-flt spt-accel-y -8.192 -2.7306666 1.0)
+                            (sp-int spt-timer 750)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-flt spt-userdata 0.0)
+                            (sp-func spt-func 'check-water-level-drop)
+                            (sp-rnd-flt spt-conerot-x (degrees 15.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 3.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1338) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-y (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -6.826667 1.0)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1338 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                            (sp-rnd-flt spt-num 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-y (meters 2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -6.826667 1.0)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 3.5) (meters 1) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1346) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.14222223)
-                                    (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1346 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.14222223)
+                            (sp-rnd-flt spt-accel-y -0.34133333 -0.68266666 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1349) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -12.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 8.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.035555556)
-                                    (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1349 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters -12) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 8.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.035555556)
+                            (sp-rnd-flt spt-accel-y 0.34133333 0.68266666 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 80.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2.5) (meters 1) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1347) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1347 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.05) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 3) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1348) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-flt spt-fade-a -0.28444445)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 3.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1348 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x17 :page #x2))
+                            (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.25) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-flt spt-fade-a -0.28444445)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -2.7306666 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 10.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 3) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1342) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 20.0 8.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -3.5) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.21333334)
-                                    (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1342 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 20.0 8.0 1.0)
+                            (sp-rnd-flt spt-y (meters -3.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 48.0 1.0)
+                            (sp-rnd-flt spt-g 48.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 48.0 8.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-rnd-flt spt-accel-y -0.13653333 -0.27306667 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1343) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 16.0 5.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -10.5) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1343 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 16.0 5.0 1.0)
+                            (sp-rnd-flt spt-y (meters -10.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 48.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 48.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 48.0 8.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1344) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num -5.0)
-                                    (sp-flt spt-y (meters -12.0))
-                                    (sp-flt spt-scale-x (meters 16.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 96.0)
-                                    (sp-flt spt-a 16.0)
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1344 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num -5.0)
+                            (sp-flt spt-y (meters -12))
+                            (sp-flt spt-scale-x (meters 16))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 96.0)
+                            (sp-flt spt-a 16.0)
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-int spt-timer 15)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1345) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 12.0 4.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -4.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 2.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 48.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 48.0 8.0 1.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.16)
-                                    (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1345 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 12.0 4.0 1.0)
+                            (sp-rnd-flt spt-y (meters -4) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 48.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 48.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 48.0 8.0 1.0)
+                            (sp-rnd-flt spt-a 48.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-rnd-flt spt-conerot-x (degrees 90.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.5) (meters 1.25) 1.0)
+                            )
+              )
 
 ;; definition of type swamp-rat-nest
 (deftype swamp-rat-nest (process-drawable)
diff --git a/test/decompiler/reference/levels/training/training-obs_REF.gc b/test/decompiler/reference/levels/training/training-obs_REF.gc
index c0fa20ea6c..794a1ec13f 100644
--- a/test/decompiler/reference/levels/training/training-obs_REF.gc
+++ b/test/decompiler/reference/levels/training/training-obs_REF.gc
@@ -583,231 +583,172 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 143) (new 'static 'sparticle-launch-group
-                                       :length 5
-                                       :duration #xf
-                                       :linger-duration #x5dc
-                                       :name "group-scarecrow-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 5
-                                         (sp-item 2912)
-                                         (sp-item 2913)
-                                         (sp-item 2914)
-                                         (sp-item 2915)
-                                         (sp-item 2916)
-                                         )
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-scarecrow-explode
+  :id 143
+  :duration 15
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2912) (sp-item 2913) (sp-item 2914) (sp-item 2915) (sp-item 2916))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2912) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 2.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 160.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.011904762))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y 2.7306666)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 420)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 2917)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2912 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 2.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 160.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.011904762))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y 2.7306666)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 420)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 59 1)
+                            (sp-launcher-by-id spt-next-launcher 2917)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2917)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a -0.4)
-                                                     (sp-int-plain-rnd spt-next-time 30 29 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2918)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2917
+  :init-specs
+  ((sp-flt spt-fade-a -0.4) (sp-int-plain-rnd spt-next-time 30 29 1) (sp-launcher-by-id spt-next-launcher 2918))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2918)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.04) (sp-end))
-        )
-      )
+(defpart 2918 :init-specs ((sp-flt spt-fade-a -0.04)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2913) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
-                                    (sp-flt spt-num 4.0)
-                                    (sp-flt spt-y (meters 2.5))
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 3.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1.0) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-rnd-flt spt-b 64.0 128.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.009765625))
-                                    (sp-flt spt-fade-a 2.1333334)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 15)
-                                    (sp-launcher-by-id spt-next-launcher 2919)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2913 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x2 :page #x2))
+                            (sp-flt spt-num 4.0)
+                            (sp-flt spt-y (meters 2.5))
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 3) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.3) (meters 1) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-rnd-flt spt-b 64.0 128.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.15) (degrees 0.3) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.009765625))
+                            (sp-flt spt-fade-a 2.1333334)
+                            (sp-int spt-timer 30)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 15)
+                            (sp-launcher-by-id spt-next-launcher 2919)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2919)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.1333334) (sp-end))
-        )
-      )
+(defpart 2919 :init-specs ((sp-flt spt-fade-a -2.1333334)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2914) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 2.5)
-                                    (sp-flt spt-y (meters 1.5))
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 196.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 196.0)
-                                    (sp-flt spt-a 48.0)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2914 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 2.5)
+                            (sp-flt spt-y (meters 1.5))
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 196.0)
+                            (sp-flt spt-a 48.0)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2915) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.3))
-                                    (sp-flt spt-r 160.0)
-                                    (sp-flt spt-g 160.0)
-                                    (sp-flt spt-b 160.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                    (sp-flt spt-rotvel-x (degrees 1.2))
-                                    (sp-flt spt-rotvel-y (degrees 2.4))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2920)
-                                    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2915 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x6 :page #x2))
+                            (sp-rnd-flt spt-num 8.0 8.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.00048828125) 2457.6)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 0.3))
+                            (sp-flt spt-r 160.0)
+                            (sp-flt spt-g 160.0)
+                            (sp-flt spt-b 160.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+                            (sp-flt spt-rotvel-x (degrees 1.2))
+                            (sp-flt spt-rotvel-y (degrees 2.4))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 2 436.90668)
+                            (sp-flt spt-accel-y -13.653334)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 2920)
+                            (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2920)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a -3.4)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2920 :init-specs ((sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -3.4)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2916) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
-                                    (sp-rnd-flt spt-num 8.0 8.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 0.3))
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 100.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
-                                    (sp-flt spt-rotvel-x (degrees 1.2))
-                                    (sp-flt spt-rotvel-y (degrees 2.4))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
-                                    (sp-flt spt-accel-y -13.653334)
-                                    (sp-flt spt-friction 0.97)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 2920)
-                                    (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2916 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x5 :page #x2))
+                            (sp-rnd-flt spt-num 8.0 8.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-int-flt spt-scale-x (meters 0.3) 1 4096.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-scale-y (meters 0.3))
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 100.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.06666667) (meters 0.06666667) 1.0)
+                            (sp-flt spt-rotvel-x (degrees 1.2))
+                            (sp-flt spt-rotvel-y (degrees 2.4))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees 0.0) 3 436.90668)
+                            (sp-flt spt-accel-y -13.653334)
+                            (sp-flt spt-friction 0.97)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 2920)
+                            (sp-rnd-flt spt-conerot-x (degrees 40.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 144) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xf
-                                       :linger-duration #x5dc
-                                       :name "group-scarecrow-joint-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2912))
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-scarecrow-joint-explode
+  :id 144
+  :duration 15
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2912))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 145) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xf
-                                       :linger-duration #x5dc
-                                       :name "group-scarecrow-hit"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2913))
-                                       :bounds (new 'static 'sphere :w 4096.0)
-                                       )
-      )
+(defpartgroup group-scarecrow-hit
+  :id 145
+  :duration 15
+  :bounds (static-bspherem 0 0 0 1)
+  :parts
+  ((sp-item 2913))
+  )
 
 ;; definition of type scarecrow-a
 (deftype scarecrow-a (process-drawable)
diff --git a/test/decompiler/reference/levels/training/training-part_REF.gc b/test/decompiler/reference/levels/training/training-part_REF.gc
index fd6df08e21..c1fb2ff961 100644
--- a/test/decompiler/reference/levels/training/training-part_REF.gc
+++ b/test/decompiler/reference/levels/training/training-part_REF.gc
@@ -19,176 +19,141 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 146)
-      (new 'static 'sparticle-launch-group
-        :length 26
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-training-geyser-2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 26
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 4500)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 4530)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 4560)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 4590)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 4620)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 4650)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 4050)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 4080)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 4110)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 4140)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 4170)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 3900)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 4050)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 4080)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 4110)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 4140)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 4170)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 3900)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 4050)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 4050)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 3750)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 3450)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 4050)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 4050)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 3750)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 3450)
-          )
-        :bounds
-        (new 'static 'sphere :y 131072.0 :w 286720.0)
-        )
-      )
+(defpartgroup group-training-geyser-2
+  :id 146
+  :flags (always-draw)
+  :bounds (static-bspherem 0 32 0 70)
+  :parts
+  ((sp-item 752 :falloff-to (meters 500) :period 4800 :length 1200 :offset 4500)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1140 :offset 4530)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1080 :offset 4560)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1020 :offset 4590)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 960 :offset 4620)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 900 :offset 4650)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1200 :offset 4050)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1140 :offset 4080)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1080 :offset 4110)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1020 :offset 4140)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 960 :offset 4170)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 900 :offset 3900)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1200 :offset 4050)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1140 :offset 4080)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1080 :offset 4110)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1020 :offset 4140)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 960 :offset 4170)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 900 :offset 3900)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 4050)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 4050)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 3750)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 3450)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 4050)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 4050)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 3750)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 3450)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 147)
-      (new 'static 'sparticle-launch-group
-        :length 26
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-training-geyser-5"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 26
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 900)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 930)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 960)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 990)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 1020)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 1050)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 450)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 420)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 390)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 360)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 330)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 300)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 450)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 420)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 390)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 360)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 330)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 300)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 450)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 450)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 150)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 4650)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 450)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 450)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 150)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 4650)
-          )
-        :bounds
-        (new 'static 'sphere :y 131072.0 :w 286720.0)
-        )
-      )
+(defpartgroup group-training-geyser-5
+  :id 147
+  :flags (always-draw)
+  :bounds (static-bspherem 0 32 0 70)
+  :parts
+  ((sp-item 752 :falloff-to (meters 500) :period 4800 :length 1200 :offset 900)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1140 :offset 930)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1080 :offset 960)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1020 :offset 990)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 960 :offset 1020)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 900 :offset 1050)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1200 :offset 450)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1140 :offset 420)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1080 :offset 390)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1020 :offset 360)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 960 :offset 330)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 900 :offset 300)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1200 :offset 450)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1140 :offset 420)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1080 :offset 390)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1020 :offset 360)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 960 :offset 330)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 900 :offset 300)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 450)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 450)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 150)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 4650)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 450)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 450)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 150)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 4650)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 149)
-      (new 'static 'sparticle-launch-group
-        :length 18
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-training-geyser-6"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 18
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 2100)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 2130)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 2160)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 2190)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 2220)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 2250)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 1650)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 1680)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 1710)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 1740)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 1770)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 1500)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 1650)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 1680)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 1710)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 1740)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 1770)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 1500)
-          )
-        :bounds
-        (new 'static 'sphere :y 131072.0 :w 286720.0)
-        )
-      )
+(defpartgroup group-training-geyser-6
+  :id 149
+  :flags (always-draw)
+  :bounds (static-bspherem 0 32 0 70)
+  :parts
+  ((sp-item 752 :falloff-to (meters 500) :period 4800 :length 1200 :offset 2100)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1140 :offset 2130)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1080 :offset 2160)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1020 :offset 2190)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 960 :offset 2220)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 900 :offset 2250)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1200 :offset 1650)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1140 :offset 1680)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1080 :offset 1710)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1020 :offset 1740)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 960 :offset 1770)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 900 :offset 1500)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1200 :offset 1650)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1140 :offset 1680)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1080 :offset 1710)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1020 :offset 1740)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 960 :offset 1770)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 900 :offset 1500)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 148)
-      (new 'static 'sparticle-launch-group
-        :length 26
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-training-geyser-4"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 26
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 3300)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 3330)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 3360)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 3390)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 3420)
-          (sp-item 752 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 3450)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 2850)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 2880)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 2910)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 2940)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 2970)
-          (sp-item 753 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 2700)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1200 :offset 2850)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1140 :offset 2880)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1080 :offset 2910)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 1020 :offset 2940)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 960 :offset 2970)
-          (sp-item 754 :falloff-to (meters 500.0) :period 4800 :length 900 :offset 2700)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 2850)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 2850)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 2550)
-          (sp-item 757 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 2250)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 3000 :offset 2850)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 2100 :offset 2850)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 1500 :offset 2550)
-          (sp-item 758 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 4800 :length 900 :offset 2250)
-          )
-        :bounds
-        (new 'static 'sphere :y 131072.0 :w 286720.0)
-        )
-      )
+(defpartgroup group-training-geyser-4
+  :id 148
+  :flags (always-draw)
+  :bounds (static-bspherem 0 32 0 70)
+  :parts
+  ((sp-item 752 :falloff-to (meters 500) :period 4800 :length 1200 :offset 3300)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1140 :offset 3330)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1080 :offset 3360)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 1020 :offset 3390)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 960 :offset 3420)
+    (sp-item 752 :falloff-to (meters 500) :period 4800 :length 900 :offset 3450)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1200 :offset 2850)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1140 :offset 2880)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1080 :offset 2910)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 1020 :offset 2940)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 960 :offset 2970)
+    (sp-item 753 :falloff-to (meters 500) :period 4800 :length 900 :offset 2700)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1200 :offset 2850)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1140 :offset 2880)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1080 :offset 2910)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 1020 :offset 2940)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 960 :offset 2970)
+    (sp-item 754 :falloff-to (meters 500) :period 4800 :length 900 :offset 2700)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 2850)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 2850)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 2550)
+    (sp-item 757 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 2250)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 3000 :offset 2850)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 2100 :offset 2850)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 1500 :offset 2550)
+    (sp-item 758 :fade-after (meters 100) :falloff-to (meters 100) :period 4800 :length 900 :offset 2250)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 752) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.2)
-                                   (new 'static 'sp-field-init-spec
-                                     :field (sp-field-id spt-sound)
-                                     :flags (sp-flag plain-v2)
-                                     :sound
-                                     (new 'static 'sound-spec
+(defpart 752 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.2)
+                           (sp-sound (new 'static 'sound-spec
                                        :mask #xc0
                                        :num 0.1
                                        :group #x1
@@ -198,84 +163,65 @@
                                        :fo-max #xc8
                                        )
                                      )
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters -8.0))
-                                   (sp-flt spt-scale-x (meters 8.0))
-                                   (sp-flt spt-rot-z (degrees 180.0))
-                                   (sp-flt spt-scale-y (meters 16.0))
-                                   (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                   (sp-rnd-flt spt-g 200.0 55.0 1.0)
-                                   (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.36666667) (meters 0.033333335) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                   (sp-flt spt-accel-y -16.384)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-int spt-next-time 510)
-                                   (sp-launcher-by-id spt-next-launcher 761)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+                           (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+                           (sp-flt spt-y (meters -8))
+                           (sp-flt spt-scale-x (meters 8))
+                           (sp-flt spt-rot-z (degrees 180.0))
+                           (sp-flt spt-scale-y (meters 16))
+                           (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                           (sp-rnd-flt spt-g 200.0 55.0 1.0)
+                           (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.36666667) (meters 0.033333335) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0033333334))
+                           (sp-flt spt-accel-y -16.384)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-int spt-next-time 510)
+                           (sp-launcher-by-id spt-next-launcher 761)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 761)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-scalevel-x (meters 0.06666667))
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 761 :init-specs ((sp-flt spt-scalevel-x (meters 0.06666667)) (sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 753) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 29
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 0.15)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 85.0) (meters 10.0) 1.0)
-                                   (sp-flt spt-scale-x (meters 8.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                   (sp-rnd-flt spt-g 200.0 55.0 1.0)
-                                   (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.035555556))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.053333335)
-                                   (sp-flt spt-fade-g -0.053333335)
-                                   (sp-flt spt-fade-a 1.0666667)
-                                   (sp-rnd-flt spt-accel-x 0.0 1.3653333 1.0)
-                                   (sp-rnd-flt spt-accel-y -4.096 -1.3653333 1.0)
-                                   (sp-int spt-timer 1800)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-drop-level-training-mist)
-                                   (sp-int-plain-rnd spt-next-time 30 29 1)
-                                   (sp-launcher-by-id spt-next-launcher 762)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 753 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-flt spt-num 0.15)
+                           (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+                           (sp-rnd-flt spt-y (meters 85) (meters 10) 1.0)
+                           (sp-flt spt-scale-x (meters 8))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                           (sp-rnd-flt spt-g 200.0 55.0 1.0)
+                           (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.035555556))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.053333335)
+                           (sp-flt spt-fade-g -0.053333335)
+                           (sp-flt spt-fade-a 1.0666667)
+                           (sp-rnd-flt spt-accel-x 0.0 1.3653333 1.0)
+                           (sp-rnd-flt spt-accel-y -4.096 -1.3653333 1.0)
+                           (sp-int spt-timer 1800)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-drop-level-training-mist)
+                           (sp-int-plain-rnd spt-next-time 30 29 1)
+                           (sp-launcher-by-id spt-next-launcher 762)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 762)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.03678161) (sp-end))
-        )
-      )
+(defpart 762 :init-specs ((sp-flt spt-fade-a -0.03678161)))
 
 ;; definition for function check-drop-level-training-mist
 (defun check-drop-level-training-mist ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -287,90 +233,75 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 754) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 29
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 0.035)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 85.0) (meters 10.0) 1.0)
-                                   (sp-flt spt-scale-x (meters 8.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                   (sp-rnd-flt spt-g 200.0 55.0 1.0)
-                                   (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-scalevel-x (meters 0.035555556))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.053333335)
-                                   (sp-flt spt-fade-g -0.053333335)
-                                   (sp-flt spt-fade-a 1.0666667)
-                                   (sp-rnd-flt spt-accel-x 1.3653333 1.3653333 1.0)
-                                   (sp-rnd-flt spt-accel-y -4.096 -1.3653333 1.0)
-                                   (sp-int spt-timer 1800)
-                                   (sp-cpuinfo-flags bit2 bit14)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-drop-level-training-mist)
-                                   (sp-int-plain-rnd spt-next-time 30 29 1)
-                                   (sp-launcher-by-id spt-next-launcher 762)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 754 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-flt spt-num 0.035)
+                           (sp-rnd-flt spt-x (meters 0) (meters 1) 1.0)
+                           (sp-rnd-flt spt-y (meters 85) (meters 10) 1.0)
+                           (sp-flt spt-scale-x (meters 8))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                           (sp-rnd-flt spt-g 200.0 55.0 1.0)
+                           (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-scalevel-x (meters 0.035555556))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.053333335)
+                           (sp-flt spt-fade-g -0.053333335)
+                           (sp-flt spt-fade-a 1.0666667)
+                           (sp-rnd-flt spt-accel-x 1.3653333 1.3653333 1.0)
+                           (sp-rnd-flt spt-accel-y -4.096 -1.3653333 1.0)
+                           (sp-int spt-timer 1800)
+                           (sp-cpuinfo-flags bit2 bit14)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-drop-level-training-mist)
+                           (sp-int-plain-rnd spt-next-time 30 29 1)
+                           (sp-launcher-by-id spt-next-launcher 762)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 763) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-rnd-int spt-num 0 1 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 110.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-flt spt-accel-y -2.7306666)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 25.000002) (degrees 40.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 763 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-rnd-int spt-num 0 1 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 110.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-flt spt-accel-y -2.7306666)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 25.000002) (degrees 40.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 764) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 0.02))
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 110.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.4)
-                                   (sp-int spt-timer 120)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 764 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 0.02))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 110.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.006666667) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.4)
+                           (sp-int spt-timer 120)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; definition for function check-drop-level-training-spout-rain
 (defun check-drop-level-training-spout-rain ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -407,631 +338,524 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 759) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-flt spt-r 50.0)
-                                   (sp-rnd-flt spt-g 80.0 55.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 50.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.13333334) 1.0)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-flt spt-userdata 66560.0)
-                                   (sp-func spt-func 'check-drop-level-training-spout-rain)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 759 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+                           (sp-rnd-flt spt-y (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
+                           (sp-flt spt-r 50.0)
+                           (sp-rnd-flt spt-g 80.0 55.0 1.0)
+                           (sp-rnd-flt spt-b 50.0 50.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.13333334) 1.0)
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-flt spt-userdata 66560.0)
+                           (sp-func spt-func 'check-drop-level-training-spout-rain)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 760) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-flt spt-r 50.0)
-                                   (sp-rnd-flt spt-g 80.0 55.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 50.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.033333335) 1.0)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 760 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 4.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+                           (sp-rnd-flt spt-y (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
+                           (sp-flt spt-r 50.0)
+                           (sp-rnd-flt spt-g 80.0 55.0 1.0)
+                           (sp-rnd-flt spt-b 50.0 50.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.033333335) 1.0)
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 757) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 4.0) (meters 8.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-flt spt-r 50.0)
-                                   (sp-rnd-flt spt-g 80.0 55.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 50.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.13333334) 1.0)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-drop-level-training-spout-rain)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 757 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+                           (sp-rnd-flt spt-y (meters 4) (meters 8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
+                           (sp-flt spt-r 50.0)
+                           (sp-rnd-flt spt-g 80.0 55.0 1.0)
+                           (sp-rnd-flt spt-b 50.0 50.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.13333334) 1.0)
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-drop-level-training-spout-rain)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 758) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 4.0) (meters 10.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-flt spt-r 50.0)
-                                   (sp-rnd-flt spt-g 80.0 55.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 50.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.033333335) 1.0)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 758 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 4.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+                           (sp-rnd-flt spt-y (meters 4) (meters 10) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
+                           (sp-flt spt-r 50.0)
+                           (sp-rnd-flt spt-g 80.0 55.0 1.0)
+                           (sp-rnd-flt spt-b 50.0 50.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.033333335) 1.0)
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 755) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 10.0) (meters 10.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-flt spt-r 50.0)
-                                   (sp-rnd-flt spt-g 80.0 55.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 50.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.13333334) 1.0)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-flt spt-userdata 0.0)
-                                   (sp-func spt-func 'check-drop-level-training-spout-rain)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 755 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+                           (sp-rnd-flt spt-y (meters 10) (meters 10) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
+                           (sp-flt spt-r 50.0)
+                           (sp-rnd-flt spt-g 80.0 55.0 1.0)
+                           (sp-rnd-flt spt-b 50.0 50.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.13333334) 1.0)
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-flt spt-userdata 0.0)
+                           (sp-func spt-func 'check-drop-level-training-spout-rain)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 756) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 4.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 40.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 10.0) (meters 20.0) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
-                                   (sp-flt spt-r 50.0)
-                                   (sp-rnd-flt spt-g 80.0 55.0 1.0)
-                                   (sp-rnd-flt spt-b 50.0 50.0 1.0)
-                                   (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.033333335) 1.0)
-                                   (sp-int spt-timer 240)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 756 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 4.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 40) 1.0)
+                           (sp-rnd-flt spt-y (meters 10) (meters 20) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.03) (meters 0.03) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.5) 1.0)
+                           (sp-flt spt-r 50.0)
+                           (sp-rnd-flt spt-g 80.0 55.0 1.0)
+                           (sp-rnd-flt spt-b 50.0 50.0 1.0)
+                           (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.06666667) (meters -0.033333335) 1.0)
+                           (sp-int spt-timer 240)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 150)
-      (new 'static 'sparticle-launch-group
-        :length #xac
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-training-warpgate"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 172
-          (sp-item 767 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 768 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 765)
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 765 :flags (bit1 start-dead launch-asap))
-          (sp-item 769 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 766)
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 766 :flags (bit1 start-dead launch-asap))
-          (sp-item 770 :fade-after (meters 100.0) :flags (is-3d))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-training-warpgate
+  :id 150
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 767 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 768 :fade-after (meters 60) :falloff-to (meters 100) :binding 765)
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 765 :flags (bit1 start-dead launch-asap))
+    (sp-item 769 :fade-after (meters 60) :falloff-to (meters 100) :binding 766)
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 766 :flags (bit1 start-dead launch-asap))
+    (sp-item 770 :fade-after (meters 100) :flags (is-3d))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 770) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-x (meters 0.0))
-                                   (sp-flt spt-scale-x (meters 5.0))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-flt spt-rot-z (degrees 15.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 0.0 64.0 1.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 770 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-flt spt-x (meters 0))
+                           (sp-flt spt-scale-x (meters 5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-flt spt-rot-z (degrees 15.0))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 0.0 64.0 1.0)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 769) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 0.25)
-                                   (sp-flt spt-x (meters -2.0))
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.0033333334))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees -105.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 769 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 0.25)
+                           (sp-flt spt-x (meters -2))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.0033333334))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees -105.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 766) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -0.6666667))
-                                   (sp-flt spt-y (meters 4.0))
-                                   (sp-rnd-flt spt-z 22118.4 4096.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                   (sp-rnd-flt spt-b 64.0 196.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-flt spt-fade-a 0.16)
-                                   (sp-flt spt-accel-x 1.2136296)
-                                   (sp-flt spt-accel-z -0.75093335)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 766 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -0.6666667))
+                           (sp-flt spt-y (meters 4))
+                           (sp-rnd-flt spt-z (meters 5.4) (meters 1) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 196.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-flt spt-vel-x (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-flt spt-fade-a 0.16)
+                           (sp-flt spt-accel-x 1.2136296)
+                           (sp-flt spt-accel-z -0.75093335)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 767) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-rnd-flt spt-num 3.0 3.0 1.0)
-                                   (sp-flt spt-x (meters -0.5))
-                                   (sp-int spt-rot-x 5)
-                                   (sp-flt spt-r 4096.0)
-                                   (sp-flt spt-g 3481.6)
-                                   (sp-flt spt-b 3481.6)
-                                   (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.02) 1.0)
-                                   (sp-flt spt-fade-b 2.968116)
-                                   (sp-int spt-timer 69)
-                                   (sp-cpuinfo-flags aux-list)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 3.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees -105.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 767 :init-specs ((sp-rnd-flt spt-num 3.0 3.0 1.0)
+                           (sp-flt spt-x (meters -0.5))
+                           (sp-int spt-rot-x 5)
+                           (sp-flt spt-r 4096.0)
+                           (sp-flt spt-g 3481.6)
+                           (sp-flt spt-b 3481.6)
+                           (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.02) 1.0)
+                           (sp-flt spt-fade-b 2.968116)
+                           (sp-int spt-timer 69)
+                           (sp-cpuinfo-flags aux-list)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 4) (meters 3) 1.0)
+                           (sp-flt spt-rotate-y (degrees -105.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 768) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 11
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-accel-x 0.06826667)
-                                   (sp-int spt-timer 690)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees -105.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 768 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-accel-x 0.06826667)
+                           (sp-int spt-timer 690)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees -105.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 765)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-x (meters -0.6666667))
-                                                     (sp-flt spt-y (meters 4.0))
-                                                     (sp-flt spt-z 9830.4)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 8.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                                     (sp-flt spt-vel-x (meters -0.0044444446))
-                                                     (sp-flt spt-vel-z (meters -0.0034999999))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees 0.0) (degrees 1.2) 1.0)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-flt spt-accel-x 4.247704)
-                                                     (sp-int spt-timer 690)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 765 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -0.6666667))
+                           (sp-flt spt-y (meters 4))
+                           (sp-flt spt-z (meters 2.4))
+                           (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                           (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 8.0 32.0 1.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-flt spt-vel-x (meters -0.0044444446))
+                           (sp-flt spt-vel-z (meters -0.0034999999))
+                           (sp-rnd-flt spt-rotvel-z (degrees 0.0) (degrees 1.2) 1.0)
+                           (sp-flt spt-fade-a 0.21333334)
+                           (sp-flt spt-accel-x 4.247704)
+                           (sp-int spt-timer 690)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 151)
-      (new 'static 'sparticle-launch-group
-        :length 13
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-training-butterflies"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 13
-          (sp-item 773 :fade-after (meters 120.0) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
-          (sp-item 773 :fade-after (meters 120.0) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
-          (sp-item 773 :fade-after (meters 120.0) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
-          (sp-item 771 :flags (start-dead launch-asap) :binding 772)
-          (sp-item 772 :flags (is-3d start-dead))
-          (sp-item 771 :flags (start-dead launch-asap) :binding 772)
-          (sp-item 772 :flags (is-3d start-dead))
-          (sp-item 771 :flags (start-dead launch-asap) :binding 772)
-          (sp-item 772 :flags (is-3d start-dead))
-          (sp-item 771 :flags (start-dead launch-asap) :binding 772)
-          (sp-item 772 :flags (is-3d start-dead))
-          (sp-item 771 :flags (start-dead launch-asap) :binding 772)
-          (sp-item 772 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 122880.0)
-        )
-      )
+(defpartgroup group-training-butterflies
+  :id 151
+  :bounds (static-bspherem 0 0 0 30)
+  :parts
+  ((sp-item 773 :fade-after (meters 120) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
+    (sp-item 773 :fade-after (meters 120) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
+    (sp-item 773 :fade-after (meters 120) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 771)
+    (sp-item 771 :flags (start-dead launch-asap) :binding 772)
+    (sp-item 772 :flags (is-3d start-dead))
+    (sp-item 771 :flags (start-dead launch-asap) :binding 772)
+    (sp-item 772 :flags (is-3d start-dead))
+    (sp-item 771 :flags (start-dead launch-asap) :binding 772)
+    (sp-item 772 :flags (is-3d start-dead))
+    (sp-item 771 :flags (start-dead launch-asap) :binding 772)
+    (sp-item 772 :flags (is-3d start-dead))
+    (sp-item 771 :flags (start-dead launch-asap) :binding 772)
+    (sp-item 772 :flags (is-3d start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 773) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 7.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 14.0) (meters 3.0) 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-y (meters -0.036666665))
-                                   (sp-flt spt-accel-y 1.3653333)
-                                   (sp-int spt-timer 6000)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-int spt-next-time 555)
-                                   (sp-launcher-by-id spt-next-launcher 774)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 773 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 7.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 14) (meters 3) 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-y (meters -0.036666665))
+                           (sp-flt spt-accel-y 1.3653333)
+                           (sp-int spt-timer 6000)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-int spt-next-time 555)
+                           (sp-launcher-by-id spt-next-launcher 774)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 774)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-accel-y 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 2700 1499 1)
-                                                     (sp-launcher-by-id spt-next-launcher 775)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 774 :init-specs ((sp-flt spt-accel-y 0.0)
+                           (sp-int-plain-rnd spt-next-time 2700 1499 1)
+                           (sp-launcher-by-id spt-next-launcher 775)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 775)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-accel-y 1.3653333) (sp-end))
-        )
-      )
+(defpart 775 :init-specs ((sp-flt spt-accel-y 1.3653333)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 771) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 12288.0 4096.0 1.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-g 0.0 256.0 1.0)
-                                   (sp-rnd-int spt-b 1124073472 1 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 6000)
-                                   (sp-cpuinfo-flags bit3 bit7)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 776)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 771 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 3) (meters 1) 1.0)
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-g 0.0 256.0 1.0)
+                           (sp-rnd-int spt-b 1124073472 1 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer 6000)
+                           (sp-cpuinfo-flags bit3 bit7)
+                           (sp-int-plain-rnd spt-next-time 150 449 1)
+                           (sp-launcher-by-id spt-next-launcher 776)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 776) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 6
-                                   (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 776)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 776 :init-specs ((sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int-plain-rnd spt-next-time 150 449 1)
+                           (sp-launcher-by-id spt-next-launcher 776)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 772) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 0.9))
-                                   (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
-                                   (sp-flt spt-scale-y (meters 1.3))
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -8.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 772 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+                           (sp-func spt-birth-func 'birth-func-copy-rot-color)
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 0.9))
+                           (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
+                           (sp-flt spt-scale-y (meters 1.3))
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -8.0)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit9 bit12)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 152)
-      (new 'static 'sparticle-launch-group
-        :length 9
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-training-birds"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 9
-          (sp-item 779 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 777)
-          (sp-item 779 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 777)
-          (sp-item 779 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 777)
-          (sp-item 777 :flags (start-dead launch-asap) :binding 778)
-          (sp-item 778 :flags (is-3d start-dead))
-          (sp-item 777 :flags (start-dead launch-asap) :binding 778)
-          (sp-item 778 :flags (is-3d start-dead))
-          (sp-item 777 :flags (start-dead launch-asap) :binding 778)
-          (sp-item 778 :flags (is-3d start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :y 32768.0 :w 184320.0)
-        )
-      )
+(defpartgroup group-training-birds
+  :id 152
+  :bounds (static-bspherem 0 8 0 45)
+  :parts
+  ((sp-item 779 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 777)
+    (sp-item 779 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 777)
+    (sp-item 779 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 777)
+    (sp-item 777 :flags (start-dead launch-asap) :binding 778)
+    (sp-item 778 :flags (is-3d start-dead))
+    (sp-item 777 :flags (start-dead launch-asap) :binding 778)
+    (sp-item 778 :flags (is-3d start-dead))
+    (sp-item 777 :flags (start-dead launch-asap) :binding 778)
+    (sp-item 778 :flags (is-3d start-dead))
+    )
+  )
 
 ;; definition for function tra-bird-bob-func
 ;; INFO: Return type mismatch int vs none.
@@ -1045,27 +869,22 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 779) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-random-next-time)
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z -61440.0 122880.0 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 199.98)
-                                   (sp-func spt-func 'tra-bird-bob-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 779 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-func spt-birth-func 'birth-func-random-next-time)
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters -15) (meters 30) 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-flt spt-userdata 199.98)
+                           (sp-func spt-func 'tra-bird-bob-func)
+                           )
+             )
 
 ;; definition for function tra-sparticle-seagull-moon
 ;; INFO: Return type mismatch int vs none.
@@ -1076,535 +895,429 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 777) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy-omega-to-z)
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 0.0))
-                                   (sp-flt spt-y (meters 0.0))
-                                   (sp-flt spt-z 122880.0)
-                                   (sp-flt spt-scale-x (meters 0.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.0044444446))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-flt spt-scalevel-x (meters 0.04))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit3 bit7)
-                                   (sp-func spt-func 'tra-sparticle-seagull-moon)
-                                   (sp-int spt-next-time 199)
-                                   (sp-launcher-by-id spt-next-launcher 780)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 777 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-func spt-birth-func 'birth-func-copy-omega-to-z)
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 0))
+                           (sp-flt spt-y (meters 0))
+                           (sp-flt spt-z (meters 30))
+                           (sp-flt spt-scale-x (meters 0))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.0044444446))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-flt spt-scalevel-x (meters 0.04))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit3 bit7)
+                           (sp-func spt-func 'tra-sparticle-seagull-moon)
+                           (sp-int spt-next-time 199)
+                           (sp-launcher-by-id spt-next-launcher 780)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 780)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scale-x (meters 8.0))
-                                                     (sp-flt spt-scalevel-x (meters -0.08))
-                                                     (sp-int spt-timer 600)
-                                                     (sp-int spt-next-time 100)
-                                                     (sp-launcher-by-id spt-next-launcher 781)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 780 :init-specs ((sp-flt spt-scale-x (meters 8))
+                           (sp-flt spt-scalevel-x (meters -0.08))
+                           (sp-int spt-timer 600)
+                           (sp-int spt-next-time 100)
+                           (sp-launcher-by-id spt-next-launcher 781)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 781)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scale-x (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters -0.04))
-                                                     (sp-int spt-timer 600)
-                                                     (sp-int spt-next-time 199)
-                                                     (sp-launcher-by-id spt-next-launcher 780)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 781 :init-specs ((sp-flt spt-scale-x (meters 0))
+                           (sp-flt spt-scalevel-x (meters -0.04))
+                           (sp-int spt-timer 600)
+                           (sp-int spt-next-time 199)
+                           (sp-launcher-by-id spt-next-launcher 780)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 778) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 9
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy2-rot-color)
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 4.0))
-                                   (sp-flt spt-scale-y (meters 1.5))
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 778 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-func spt-birth-func 'birth-func-copy2-rot-color)
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 4))
+                           (sp-flt spt-scale-y (meters 1.5))
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9 bit12)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 153) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag always-draw)
-                                       :name "group-training-waterfall-21"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 782 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 783 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 784 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 785 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-                                         (sp-item 786 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         (sp-item 787 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 65536.0 :w 131072.0)
-                                       )
-      )
+(defpartgroup group-training-waterfall-21
+  :id 153
+  :flags (always-draw)
+  :bounds (static-bspherem 0 16 0 32)
+  :parts
+  ((sp-item 782 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 783 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 784 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 785 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 786 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 787 :fade-after (meters 160) :falloff-to (meters 160))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 789)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.10666667) (sp-end))
-        )
-      )
+(defpart 789 :init-specs ((sp-flt spt-fade-a -0.10666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 790)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.16) (sp-end))
-        )
-      )
+(defpart 790 :init-specs ((sp-flt spt-fade-a -0.16)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 791)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.6666667) (sp-end))
-        )
-      )
+(defpart 791 :init-specs ((sp-flt spt-fade-a -2.6666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 782) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 0.9)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 47.0))
-                                   (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.05))
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0016666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-flt spt-accel-x -3.7304192)
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 384)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 369)
-                                   (sp-launcher-by-id spt-next-launcher 791)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 782 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-flt spt-num 0.9)
+                           (sp-rnd-flt spt-x (meters -9) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 47))
+                           (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.05))
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0016666667) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0073242188))
+                           (sp-flt spt-scalevel-y (meters 0.029296875))
+                           (sp-flt spt-accel-x -3.7304192)
+                           (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                           (sp-int spt-timer 384)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 369)
+                           (sp-launcher-by-id spt-next-launcher 791)
+                           (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 783) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 0.9)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 39.0) (meters 5.0) 1.0)
-                                   (sp-flt spt-z 0.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters 0.011666667) (meters 0.01) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-flt spt-accel-x -3.7304192)
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 210)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 369)
-                                   (sp-launcher-by-id spt-next-launcher 791)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 783 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-flt spt-num 0.9)
+                           (sp-rnd-flt spt-x (meters -9) (meters 1) 1.0)
+                           (sp-rnd-flt spt-y (meters 39) (meters 5) 1.0)
+                           (sp-flt spt-z (meters 0))
+                           (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters 0.011666667) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0073242188))
+                           (sp-flt spt-scalevel-y (meters 0.029296875))
+                           (sp-flt spt-accel-x -3.7304192)
+                           (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                           (sp-int spt-timer 210)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 369)
+                           (sp-launcher-by-id spt-next-launcher 791)
+                           (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 784) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -2.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 24.0) (meters 6.0) 1.0)
-                                   (sp-flt spt-z 8192.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 4.8) (meters 3.2) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.026666667) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.0033333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.021666666) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 270)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 369)
-                                   (sp-launcher-by-id spt-next-launcher 791)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 784 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -2) (meters 3) 1.0)
+                           (sp-rnd-flt spt-y (meters 24) (meters 6) 1.0)
+                           (sp-flt spt-z (meters 2))
+                           (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 4.8) (meters 3.2) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.026666667) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.01) (meters 0.0033333334) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.021666666) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0073242188))
+                           (sp-flt spt-scalevel-y (meters 0.029296875))
+                           (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                           (sp-int spt-timer 270)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 369)
+                           (sp-launcher-by-id spt-next-launcher 791)
+                           (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 785) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -9.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 47.0))
-                                   (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 24.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                   (sp-flt spt-scalevel-y (meters 0.001953125))
-                                   (sp-flt spt-accel-x -2.8444445)
-                                   (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                   (sp-int spt-timer 510)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 785 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -9) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 47))
+                           (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 24.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00024414062))
+                           (sp-flt spt-scalevel-y (meters 0.001953125))
+                           (sp-flt spt-accel-x -2.8444445)
+                           (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                           (sp-int spt-timer 510)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 786) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -7.0) (meters 3.5) 1.0)
-                                   (sp-flt spt-y (meters 47.0))
-                                   (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.021666666))
-                                   (sp-rnd-flt spt-vel-y (meters -0.0033333334) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                   (sp-flt spt-accel-x -1.189495)
-                                   (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                   (sp-int spt-timer 681)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 666)
-                                   (sp-launcher-by-id spt-next-launcher 791)
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 786 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.4 1.0)
+                           (sp-rnd-flt spt-x (meters -7) (meters 3.5) 1.0)
+                           (sp-flt spt-y (meters 47))
+                           (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.021666666))
+                           (sp-rnd-flt spt-vel-y (meters -0.0033333334) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0146484375))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0146484375))
+                           (sp-flt spt-accel-x -1.189495)
+                           (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                           (sp-int spt-timer 681)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 666)
+                           (sp-launcher-by-id spt-next-launcher 791)
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 787) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.133)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 6.0) 1.0)
-                                   (sp-flt spt-y (meters -3.5))
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-flt spt-scale-x (meters 12.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.033333335))
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 1.28)
-                                   (sp-flt spt-accel-y 0.013653334)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int-plain-rnd spt-next-time 45 29 1)
-                                   (sp-launcher-by-id spt-next-launcher 790)
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 787 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.133)
+                           (sp-rnd-flt spt-x (meters 0) (meters 6) 1.0)
+                           (sp-flt spt-y (meters -3.5))
+                           (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+                           (sp-flt spt-scale-x (meters 12))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                           (sp-flt spt-vel-y (meters 0.033333335))
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 1.28)
+                           (sp-flt spt-accel-y 0.013653334)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int-plain-rnd spt-next-time 45 29 1)
+                           (sp-launcher-by-id spt-next-launcher 790)
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 154)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-training-waterfall-20"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 792 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 793 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 794 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 795 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 796 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 797 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
-          )
-        :bounds
-        (new 'static 'sphere :y 49152.0 :w 49152.0)
-        )
-      )
+(defpartgroup group-training-waterfall-20
+  :id 154
+  :flags (always-draw)
+  :bounds (static-bspherem 0 12 0 12)
+  :parts
+  ((sp-item 792 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 793 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 794 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 795 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 796 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 797 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 792) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -6.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 15.5))
-                                   (sp-rnd-flt spt-z -24576.0 24576.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 3.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.05))
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0016666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-flt spt-accel-x -3.7304192)
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 210)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 369)
-                                   (sp-launcher-by-id spt-next-launcher 791)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 120.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 792 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -6) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 15.5))
+                           (sp-rnd-flt spt-z (meters -6) (meters 6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 3.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.05))
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0016666667) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0073242188))
+                           (sp-flt spt-scalevel-y (meters 0.029296875))
+                           (sp-flt spt-accel-x -3.7304192)
+                           (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                           (sp-int spt-timer 210)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 369)
+                           (sp-launcher-by-id spt-next-launcher 791)
+                           (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 120.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 793) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 25
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                   (sp-flt spt-num 1.4)
-                                   (sp-rnd-flt spt-x (meters -4.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 15.5))
-                                   (sp-rnd-flt spt-z -12288.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 3.4) (meters 1.6) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.05))
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0016666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                   (sp-flt spt-scalevel-y (meters 0.029296875))
-                                   (sp-flt spt-accel-x -3.7304192)
-                                   (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                   (sp-int spt-timer 210)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 369)
-                                   (sp-launcher-by-id spt-next-launcher 791)
-                                   (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                   (sp-flt spt-rotate-y (degrees 190.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 793 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                           (sp-flt spt-num 1.4)
+                           (sp-rnd-flt spt-x (meters -4) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 15.5))
+                           (sp-rnd-flt spt-z (meters -3) (meters 10) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 3.4) (meters 1.6) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.05))
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0016666667) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0073242188))
+                           (sp-flt spt-scalevel-y (meters 0.029296875))
+                           (sp-flt spt-accel-x -3.7304192)
+                           (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                           (sp-int spt-timer 210)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 369)
+                           (sp-launcher-by-id spt-next-launcher 791)
+                           (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                           (sp-flt spt-rotate-y (degrees 190.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 794) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -6.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 15.5))
-                                   (sp-rnd-flt spt-z -24576.0 24576.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.021666666))
-                                   (sp-rnd-flt spt-vel-y (meters -0.0033333334) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                   (sp-flt spt-accel-x -1.189495)
-                                   (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                   (sp-int spt-timer 540)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 360)
-                                   (sp-launcher-by-id spt-next-launcher 791)
-                                   (sp-flt spt-rotate-y (degrees 120.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 794 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.4 1.0)
+                           (sp-rnd-flt spt-x (meters -6) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 15.5))
+                           (sp-rnd-flt spt-z (meters -6) (meters 6) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.021666666))
+                           (sp-rnd-flt spt-vel-y (meters -0.0033333334) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0146484375))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0146484375))
+                           (sp-flt spt-accel-x -1.189495)
+                           (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                           (sp-int spt-timer 540)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 360)
+                           (sp-launcher-by-id spt-next-launcher 791)
+                           (sp-flt spt-rotate-y (degrees 120.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 795) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 26
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 0.5 0.4 1.0)
-                                   (sp-rnd-flt spt-x (meters -4.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-y (meters 15.5))
-                                   (sp-rnd-flt spt-z -12288.0 40960.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.8) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
-                                   (sp-flt spt-r 192.0)
-                                   (sp-flt spt-g 192.0)
-                                   (sp-flt spt-b 192.0)
-                                   (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.021666666))
-                                   (sp-rnd-flt spt-vel-y (meters -0.0033333334) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                   (sp-flt spt-accel-x -1.189495)
-                                   (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                   (sp-int spt-timer 540)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int spt-next-time 360)
-                                   (sp-launcher-by-id spt-next-launcher 791)
-                                   (sp-flt spt-rotate-y (degrees 190.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 795 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.5 0.4 1.0)
+                           (sp-rnd-flt spt-x (meters -4) (meters 1) 1.0)
+                           (sp-flt spt-y (meters 15.5))
+                           (sp-rnd-flt spt-z (meters -3) (meters 10) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-scale-y (meters 2.2) (meters 0.8) 1.0)
+                           (sp-flt spt-r 192.0)
+                           (sp-flt spt-g 192.0)
+                           (sp-flt spt-b 192.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.021666666))
+                           (sp-rnd-flt spt-vel-y (meters -0.0033333334) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0146484375))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0146484375))
+                           (sp-flt spt-accel-x -1.189495)
+                           (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                           (sp-int spt-timer 540)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int spt-next-time 360)
+                           (sp-launcher-by-id spt-next-launcher 791)
+                           (sp-flt spt-rotate-y (degrees 190.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 796) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 27
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                   (sp-flt spt-num 0.133)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 6.0) 1.0)
-                                   (sp-flt spt-y (meters -3.5))
-                                   (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                   (sp-flt spt-scale-x (meters 12.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.033333335))
-                                   (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.006666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 1.28)
-                                   (sp-flt spt-accel-y 0.013653334)
-                                   (sp-flt spt-friction 0.99)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-int-plain-rnd spt-next-time 45 29 1)
-                                   (sp-launcher-by-id spt-next-launcher 790)
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 796 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                           (sp-flt spt-num 0.133)
+                           (sp-rnd-flt spt-x (meters 0) (meters 6) 1.0)
+                           (sp-flt spt-y (meters -3.5))
+                           (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+                           (sp-flt spt-scale-x (meters 12))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                           (sp-flt spt-vel-y (meters 0.033333335))
+                           (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.3) (degrees 0.6) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 1.28)
+                           (sp-flt spt-accel-y 0.013653334)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-int-plain-rnd spt-next-time 45 29 1)
+                           (sp-launcher-by-id spt-next-launcher 790)
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 797) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 0.05)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 5.0) 1.0)
-                                   (sp-rnd-flt spt-z -32768.0 32768.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 92.0)
-                                   (sp-flt spt-g 92.0)
-                                   (sp-flt spt-b 92.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a 0.2)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 789)
-                                   (sp-flt spt-rotate-y (degrees 90.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 797 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 0.05)
+                           (sp-rnd-flt spt-x (meters 0) (meters 5) 1.0)
+                           (sp-rnd-flt spt-z (meters -8) (meters 8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 92.0)
+                           (sp-flt spt-g 92.0)
+                           (sp-flt spt-b 92.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a 0.2)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 789)
+                           (sp-flt spt-rotate-y (degrees 90.0))
+                           )
+             )
diff --git a/test/decompiler/reference/levels/village1/assistant_REF.gc b/test/decompiler/reference/levels/village1/assistant_REF.gc
index f7a97e2793..79168f5c6e 100644
--- a/test/decompiler/reference/levels/village1/assistant_REF.gc
+++ b/test/decompiler/reference/levels/village1/assistant_REF.gc
@@ -500,93 +500,73 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 122) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-assistant-torch"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 365 :fade-after (meters 30.0) :falloff-to (meters 30.0))
-                                         (sp-item 366 :fade-after (meters 60.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 61440.0)
-                                       )
-      )
+(defpartgroup group-assistant-torch
+  :id 122
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 365 :fade-after (meters 30) :falloff-to (meters 30))
+    (sp-item 366 :fade-after (meters 60) :falloff-to (meters 80))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 365) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                   (sp-flt spt-g 100.0)
-                                   (sp-flt spt-b 80.0)
-                                   (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                   (sp-flt spt-fade-a -6.4)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 365 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                           (sp-flt spt-g 100.0)
+                           (sp-flt spt-b 80.0)
+                           (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                           (sp-flt spt-fade-a -6.4)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 366) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 64.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00016666666))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-g -0.2)
-                                   (sp-flt spt-fade-b -0.2)
-                                   (sp-flt spt-accel-y -8.192)
-                                   (sp-flt spt-friction 0.93)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-flt spt-userdata 140288.0)
-                                   (sp-func spt-func 'check-drop-level-assistant)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 45.0) (degrees 180.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 366 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 64.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00016666666))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-g -0.2)
+                           (sp-flt spt-fade-b -0.2)
+                           (sp-flt spt-accel-y -8.192)
+                           (sp-flt spt-friction 0.93)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-flt spt-userdata 140288.0)
+                           (sp-func spt-func 'check-drop-level-assistant)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 45.0) (degrees 180.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 367) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 3.0 1.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                   (sp-flt spt-g 96.0)
-                                   (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0033333334) 1.0)
-                                   (sp-flt spt-fade-a -0.85333335)
-                                   (sp-flt spt-accel-y -0.68266666)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit2)
-                                   (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 367 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 3.0 1.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                           (sp-flt spt-g 96.0)
+                           (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0033333334) 1.0)
+                           (sp-flt spt-fade-a -0.85333335)
+                           (sp-flt spt-accel-y -0.68266666)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; definition for function check-drop-level-assistant
 (defun check-drop-level-assistant ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
diff --git a/test/decompiler/reference/levels/village1/fishermans-boat_REF.gc b/test/decompiler/reference/levels/village1/fishermans-boat_REF.gc
index 04df1be279..54652eb7d2 100644
--- a/test/decompiler/reference/levels/village1/fishermans-boat_REF.gc
+++ b/test/decompiler/reference/levels/village1/fishermans-boat_REF.gc
@@ -772,33 +772,28 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2896) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-flt spt-x (meters 10.0))
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-rot-y (degrees 0.0))
-                                    (sp-rnd-flt spt-scale-y (meters 1.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.008666666) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.008666666) 1.0)
-                                    (sp-flt spt-fade-a 0.7111111)
-                                    (sp-flt spt-friction 0.94)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 90)
-                                    (sp-launcher-by-id spt-next-launcher 119)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2896 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xa :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-flt spt-x (meters 10))
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 3) 1.0)
+                            (sp-flt spt-rot-y (degrees 0.0))
+                            (sp-rnd-flt spt-scale-y (meters 1.5) (meters 3) 1.0)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.01) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.008666666) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.008666666) 1.0)
+                            (sp-flt spt-fade-a 0.7111111)
+                            (sp-flt spt-friction 0.94)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                            (sp-int spt-next-time 90)
+                            (sp-launcher-by-id spt-next-launcher 119)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
 
 ;; definition for function fishermans-boat-wave
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/levels/village1/sequence-a-village1_REF.gc b/test/decompiler/reference/levels/village1/sequence-a-village1_REF.gc
index 3580ab6273..221a77ccd1 100644
--- a/test/decompiler/reference/levels/village1/sequence-a-village1_REF.gc
+++ b/test/decompiler/reference/levels/village1/sequence-a-village1_REF.gc
@@ -2,253 +2,197 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 686)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-sequenceAV-splash"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2854 :period 900 :length 600))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-sequenceAV-splash
+  :id 686
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2854 :period 900 :length 600))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2854) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 128.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.125) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 96.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-rnd-flt spt-accel-y -2.7306666 -6.826667 1.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees -30.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 5000.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.3) (meters -0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2854 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 128.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.125) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 96.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-rnd-flt spt-accel-y -2.7306666 -6.826667 1.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees -30.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 5000.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0.3) (meters -0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 687) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x5
-                                       :linger-duration #x384
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-sequenceAV-spit"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2855))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-sequenceAV-spit
+  :id 687
+  :duration 5
+  :linger-duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2855))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2855) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                    (sp-flt spt-num 5.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.025) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.00033333333))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.21333334)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 106.0) (degrees 2.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 2.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters -0.15) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2855 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                            (sp-flt spt-num 5.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.025) (meters 0.025) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.00033333333))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.21333334)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 106.0) (degrees 2.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 2.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters -0.15) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 688) (new 'static 'sparticle-launch-group
-                                       :length 8
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag screen-space)
-                                       :name "group-sequenceAV-2d-intro-mist"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 8
-                                         (sp-item 2858 :period 300 :length 5 :binding 2856)
-                                         (sp-item 2856 :flags (start-dead launch-asap) :binding 2857)
-                                         (sp-item 2856 :flags (start-dead launch-asap) :binding 2857)
-                                         (sp-item 2857 :flags (start-dead))
-                                         (sp-item 2857 :flags (start-dead))
-                                         (sp-item 2857 :flags (start-dead))
-                                         (sp-item 2859)
-                                         (sp-item 2860)
-                                         )
-                                       :bounds (new 'static 'sphere :w 8192.0)
-                                       )
-      )
+(defpartgroup group-sequenceAV-2d-intro-mist
+  :id 688
+  :flags (screen-space)
+  :bounds (static-bspherem 0 0 0 2)
+  :parts
+  ((sp-item 2858 :period 300 :length 5 :binding 2856)
+    (sp-item 2856 :flags (start-dead launch-asap) :binding 2857)
+    (sp-item 2856 :flags (start-dead launch-asap) :binding 2857)
+    (sp-item 2857 :flags (start-dead))
+    (sp-item 2857 :flags (start-dead))
+    (sp-item 2857 :flags (start-dead))
+    (sp-item 2859)
+    (sp-item 2860)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2858) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.5) (meters 5.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2858 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -2.5) (meters 5) 1.0)
+                            (sp-rnd-flt spt-y (meters -1.5) (meters 3) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-conerot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2856) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 819.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
-                                    (sp-flt spt-scalevel-x (meters -0.0012121212))
-                                    (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2856 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.053333335) 1 436.90668)
+                            (sp-flt spt-scalevel-x (meters -0.0012121212))
+                            (sp-rnd-int-flt spt-rotvel-z (degrees -0.3) 1 109.22667)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2857) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0010952381))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y 0.0 -0.13653333 1.0)
-                                    (sp-int-plain-rnd spt-timer 30 299 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 198)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2857 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0010952381))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y 0.0 -0.13653333 1.0)
+                            (sp-int-plain-rnd spt-timer 30 299 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 198)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2860) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-z -16000.0)
-                                    (sp-flt spt-scale-x (meters 15.0))
-                                    (sp-flt spt-scale-y (meters 12.0))
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit13 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2860 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x36 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-z (meters -3.90625))
+                            (sp-flt spt-scale-x (meters 15))
+                            (sp-flt spt-scale-y (meters 12))
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit13 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2859)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 21
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 0.3)
-          (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-y (meters -3.0) (meters 6.0) 1.0)
-          (sp-rnd-flt spt-z 0.0 14000.0 1.0)
-          (sp-rnd-flt spt-scale-x (meters 6.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-rnd-flt spt-scale-y (meters 6.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-r 16.0 80.0 1.0)
-          (sp-rnd-flt spt-g 0.0 16.0 1.0)
-          (sp-rnd-flt spt-b 16.0 150.0 1.0)
-          (sp-flt spt-a 0.0)
-          (sp-rnd-flt spt-scalevel-x (meters -0.0016666667) (meters 0.0033333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.075) (degrees 0.15) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.21333334)
-          (sp-int spt-timer 1500)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-int-plain-rnd spt-next-time 150 149 1)
-          (sp-launcher-by-id spt-next-launcher 2861)
-          (sp-end)
-          )
-        )
-      )
+(defpart 2859 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.3)
+                            (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-y (meters -3) (meters 6) 1.0)
+                            (sp-rnd-flt spt-z (meters 0) (meters 3.4179688) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 6) (meters 8) 1.0)
+                            (sp-rnd-flt spt-r 16.0 80.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 16.0 1.0)
+                            (sp-rnd-flt spt-b 16.0 150.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters -0.0016666667) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.075) (degrees 0.15) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 150 149 1)
+                            (sp-launcher-by-id spt-next-launcher 2861)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2861)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 300 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 2862)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2861 :init-specs ((sp-flt spt-fade-a 0.0)
+                            (sp-int-plain-rnd spt-next-time 300 299 1)
+                            (sp-launcher-by-id spt-next-launcher 2862)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2862)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.21333334) (sp-end))
-        )
-      )
+(defpart 2862 :init-specs ((sp-flt spt-fade-a -0.21333334)))
 
 ;; definition of type sequenceA-village1
 (deftype sequenceA-village1 (process-taskable)
diff --git a/test/decompiler/reference/levels/village1/village-obs-VI1_REF.gc b/test/decompiler/reference/levels/village1/village-obs-VI1_REF.gc
index 5742ab445c..dd308151ef 100644
--- a/test/decompiler/reference/levels/village1/village-obs-VI1_REF.gc
+++ b/test/decompiler/reference/levels/village1/village-obs-VI1_REF.gc
@@ -110,123 +110,103 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 368) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 2.5)
-                                   (sp-flt spt-x (meters 0.8))
-                                   (sp-flt spt-scale-x (meters 1.7))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-flt spt-scalevel-x (meters -0.0020833334))
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.08888889)
-                                   (sp-flt spt-accel-y -0.13653333)
-                                   (sp-int spt-timer 720)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-int-flt spt-conerot-x (degrees 0.0) 3 16384.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 17.5) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 368 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 2.5)
+                           (sp-flt spt-x (meters 0.8))
+                           (sp-flt spt-scale-x (meters 1.7))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-scalevel-x (meters -0.0020833334))
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.08888889)
+                           (sp-flt spt-accel-y -0.13653333)
+                           (sp-int spt-timer 720)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-int-flt spt-conerot-x (degrees 0.0) 3 16384.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 2) (meters 17.5) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 369) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-flt spt-x (meters 4.0))
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.01) (meters 0.02) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.050666668))
-                                   (sp-rnd-flt spt-vel-z (meters -0.01) (meters 0.02) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.35555556)
-                                   (sp-flt spt-fade-g -0.35555556)
-                                   (sp-flt spt-fade-a 0.35555556)
-                                   (sp-int spt-timer 165)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-int-flt spt-conerot-x (degrees -45.0) 3 16384.0)
-                                   (sp-flt spt-conerot-radius (meters 2.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 369 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-flt spt-x (meters 4))
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.01) (meters 0.02) 1.0)
+                           (sp-flt spt-vel-y (meters 0.050666668))
+                           (sp-rnd-flt spt-vel-z (meters -0.01) (meters 0.02) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.0016666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.35555556)
+                           (sp-flt spt-fade-g -0.35555556)
+                           (sp-flt spt-fade-a 0.35555556)
+                           (sp-int spt-timer 165)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-int-flt spt-conerot-x (degrees -45.0) 3 16384.0)
+                           (sp-flt spt-conerot-radius (meters 2))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 370) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 23
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 5.0)
-                                   (sp-flt spt-x (meters 4.0))
-                                   (sp-flt spt-scale-x (meters 1.7))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 64.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.07666667) 1.0)
-                                   (sp-flt spt-vel-y (meters -0.006666667))
-                                   (sp-rnd-flt spt-vel-z (meters -0.05) (meters 0.1) 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.008333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.17777778)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-int spt-timer 180)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-int-flt spt-conerot-x (degrees -45.0) 3 16384.0)
-                                   (sp-flt spt-conerot-radius (meters 10.6))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 370 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 5.0)
+                           (sp-flt spt-x (meters 4))
+                           (sp-flt spt-scale-x (meters 1.7))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.07666667) 1.0)
+                           (sp-flt spt-vel-y (meters -0.006666667))
+                           (sp-rnd-flt spt-vel-z (meters -0.05) (meters 0.1) 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.008333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.17777778)
+                           (sp-flt spt-accel-y -4.096)
+                           (sp-int spt-timer 180)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-int-flt spt-conerot-x (degrees -45.0) 3 16384.0)
+                           (sp-flt spt-conerot-radius (meters 10.6))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 371) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 3.8)
-                                   (sp-flt spt-x (meters 5.5))
-                                   (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 32.0)
-                                   (sp-rnd-flt spt-g 0.0 64.0 1.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 196.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.0073333336))
-                                   (sp-flt spt-scalevel-x (meters -0.008333334))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-r -0.17777778)
-                                   (sp-flt spt-fade-a -1.0888889)
-                                   (sp-int spt-timer 165)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 2.3) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 371 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 3.8)
+                           (sp-flt spt-x (meters 5.5))
+                           (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 32.0)
+                           (sp-rnd-flt spt-g 0.0 64.0 1.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 196.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.026666667) 1.0)
+                           (sp-flt spt-vel-y (meters 0.0073333336))
+                           (sp-flt spt-scalevel-x (meters -0.008333334))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.17777778)
+                           (sp-flt spt-fade-a -1.0888889)
+                           (sp-int spt-timer 165)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0) (meters 2.3) 1.0)
+                           )
+             )
 
 ;; definition of type windmill-sail
 (deftype windmill-sail (process-drawable)
@@ -287,34 +267,24 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 123) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-win-wind-mill"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 368 :fade-after (meters 100.0))
-                                         (sp-item 369 :fade-after (meters 100.0))
-                                         (sp-item 370 :fade-after (meters 200.0))
-                                         (sp-item 371 :fade-after (meters 200.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 81920.0)
-                                       )
-      )
+(defpartgroup group-win-wind-mill
+  :id 123
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 368 :fade-after (meters 100))
+    (sp-item 369 :fade-after (meters 100))
+    (sp-item 370 :fade-after (meters 200))
+    (sp-item 371 :fade-after (meters 200))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 124)
-      (new 'static 'sparticle-launch-group
-        :length 4
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-win-wind-mill-hires"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 4 (sp-item 368) (sp-item 369) (sp-item 370) (sp-item 371))
-        :bounds (new 'static 'sphere :w 81920.0)
-        )
-      )
+(defpartgroup group-win-wind-mill-hires
+  :id 124
+  :bounds (static-bspherem 0 0 0 20)
+  :parts
+  ((sp-item 368) (sp-item 369) (sp-item 370) (sp-item 371))
+  )
 
 ;; failed to figure out what this is:
 (defstate windmill-sail-idle (windmill-sail)
diff --git a/test/decompiler/reference/levels/village1/village1-part2_REF.gc b/test/decompiler/reference/levels/village1/village1-part2_REF.gc
index e06f8186df..f461a99d28 100644
--- a/test/decompiler/reference/levels/village1/village1-part2_REF.gc
+++ b/test/decompiler/reference/levels/village1/village1-part2_REF.gc
@@ -2,1655 +2,1522 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 136)
-      (new 'static 'sparticle-launch-group
-        :length #x16d
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-sagehut-rings"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 365
-          (sp-item 480 :fade-after (meters 60.0) :flags (is-3d))
-          (sp-item 481 :fade-after (meters 60.0) :flags (is-3d))
-          (sp-item 482 :fade-after (meters 50.0) :binding 483)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 483 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 484 :fade-after (meters 50.0) :binding 485)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 485 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 486 :fade-after (meters 50.0) :binding 487)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 487 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          )
-        :bounds
-        (new 'static 'sphere :x 28672.0 :y 16384.0 :z -18432.0 :w 49152.0)
-        )
-      )
+(defpartgroup group-village1-sagehut-rings
+  :id 136
+  :bounds (static-bspherem 7 4 -4.5 12)
+  :parts
+  ((sp-item 480 :fade-after (meters 60) :flags (is-3d))
+    (sp-item 481 :fade-after (meters 60) :flags (is-3d))
+    (sp-item 482 :fade-after (meters 50) :binding 483)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 483 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 484 :fade-after (meters 50) :binding 485)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 485 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 486 :fade-after (meters 50) :binding 487)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 487 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 137)
-      (new 'static 'sparticle-launch-group
-        :length #x16b
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-sagehut-rings-2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 363
-          (sp-item 488 :fade-after (meters 50.0) :binding 489)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 489 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 490 :fade-after (meters 50.0) :binding 491)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 491 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 492 :fade-after (meters 50.0) :binding 493)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 493 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          )
-        :bounds
-        (new 'static 'sphere :x 28672.0 :y 16384.0 :z -18432.0 :w 49152.0)
-        )
-      )
+(defpartgroup group-village1-sagehut-rings-2
+  :id 137
+  :bounds (static-bspherem 7 4 -4.5 12)
+  :parts
+  ((sp-item 488 :fade-after (meters 50) :binding 489)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 489 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 490 :fade-after (meters 50) :binding 491)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 491 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 492 :fade-after (meters 50) :binding 493)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 493 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 138)
-      (new 'static 'sparticle-launch-group
-        :length #x16b
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-sagehut-rings-3"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 363
-          (sp-item 494 :fade-after (meters 50.0) :binding 495)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 495 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 496 :fade-after (meters 50.0) :binding 497)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 497 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 498 :fade-after (meters 50.0) :binding 499)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          (sp-item 499 :fade-after (meters 50.0) :flags (start-dead launch-asap) :period 1200 :length 5)
-          )
-        :bounds
-        (new 'static 'sphere :x 28672.0 :y 16384.0 :z -18432.0 :w 49152.0)
-        )
-      )
+(defpartgroup group-village1-sagehut-rings-3
+  :id 138
+  :bounds (static-bspherem 7 4 -4.5 12)
+  :parts
+  ((sp-item 494 :fade-after (meters 50) :binding 495)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 495 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 496 :fade-after (meters 50) :binding 497)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 497 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 498 :fade-after (meters 50) :binding 499)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    (sp-item 499 :fade-after (meters 50) :flags (start-dead launch-asap) :period 1200 :length 5)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 482) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.25 0.1 1.0)
-                                   (sp-flt spt-x (meters -0.049))
-                                   (sp-flt spt-y (meters 2.368))
-                                   (sp-flt spt-z 9887.744)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 482 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.25 0.1 1.0)
+                           (sp-flt spt-x (meters -0.049))
+                           (sp-flt spt-y (meters 2.368))
+                           (sp-flt spt-z (meters 2.414))
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 483) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 1.3333334))
-                                   (sp-flt spt-y (meters 0.44444445))
-                                   (sp-flt spt-z 5324.8)
-                                   (sp-flt spt-scale-x (meters 1.56))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 8.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 6.0 16.0 1.0)
-                                   (sp-flt spt-omega -2730.6667)
-                                   (sp-flt spt-vel-x (meters 0.013333334))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 483 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 1.3333334))
+                           (sp-flt spt-y (meters 0.44444445))
+                           (sp-flt spt-z (meters 1.3))
+                           (sp-flt spt-scale-x (meters 1.56))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 8.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 6.0 16.0 1.0)
+                           (sp-flt spt-omega -2730.6667)
+                           (sp-flt spt-vel-x (meters 0.013333334))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 480)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.3 0.5 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                                     (sp-flt spt-y (meters -0.55))
-                                                     (sp-flt spt-z 327.68)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.25) 1.0)
-                                                     (sp-flt spt-rot-x 14654.578)
-                                                     (sp-flt spt-rot-y (degrees 15.5))
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                                     (sp-rnd-int spt-b 0 1 64.0)
-                                                     (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-vel-z (meters -0.00033333333))
-                                                     (sp-flt spt-fade-r -0.2)
-                                                     (sp-flt spt-fade-b -0.2)
-                                                     (sp-flt spt-fade-a -0.2)
-                                                     (sp-flt spt-accel-y -0.06826667)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
-                                                     (sp-flt spt-rotate-y (degrees 15.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 480 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 0.3 0.5 1.0)
+                           (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                           (sp-flt spt-y (meters -0.55))
+                           (sp-flt spt-z (meters 0.08))
+                           (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.25) 1.0)
+                           (sp-flt spt-rot-x 14654.578)
+                           (sp-flt spt-rot-y (degrees 15.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                           (sp-rnd-int spt-b 0 1 64.0)
+                           (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                           (sp-flt spt-vel-y (meters 0.0033333334))
+                           (sp-flt spt-vel-z (meters -0.00033333333))
+                           (sp-flt spt-fade-r -0.2)
+                           (sp-flt spt-fade-b -0.2)
+                           (sp-flt spt-fade-a -0.2)
+                           (sp-flt spt-accel-y -0.06826667)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 bit14 left-multiply-quat)
+                           (sp-flt spt-rotate-y (degrees 15.5))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 481) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-z -1064.96)
-                                   (sp-flt spt-scale-x (meters 6.0))
-                                   (sp-flt spt-rot-x 14654.578)
-                                   (sp-flt spt-rot-y (degrees 15.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-rnd-flt spt-g 8.0 128.0 1.0)
-                                   (sp-flt spt-a 48.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit14)
-                                   (sp-flt spt-rotate-y (degrees 18.0))
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 481 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-z (meters -0.26))
+                           (sp-flt spt-scale-x (meters 6))
+                           (sp-flt spt-rot-x 14654.578)
+                           (sp-flt spt-rot-y (degrees 15.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 64.0)
+                           (sp-rnd-flt spt-g 8.0 128.0 1.0)
+                           (sp-flt spt-a 48.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3 bit14)
+                           (sp-flt spt-rotate-y (degrees 18.0))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 484) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.25 0.1 1.0)
-                                   (sp-flt spt-x (meters -0.094))
-                                   (sp-flt spt-y (meters 3.068))
-                                   (sp-flt spt-z 9887.744)
-                                   (sp-flt spt-scale-x (meters 0.01))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 484 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.25 0.1 1.0)
+                           (sp-flt spt-x (meters -0.094))
+                           (sp-flt spt-y (meters 3.068))
+                           (sp-flt spt-z (meters 2.414))
+                           (sp-flt spt-scale-x (meters 0.01))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 485) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.5)
-                                   (sp-flt spt-x (meters -1.3333334))
-                                   (sp-flt spt-y (meters 0.6666667))
-                                   (sp-flt spt-z 5324.8)
-                                   (sp-flt spt-scale-x (meters 1.56))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 6.0 16.0 1.0)
-                                   (sp-flt spt-omega 1820.4445)
-                                   (sp-flt spt-vel-x (meters -0.013333334))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 485 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.5)
+                           (sp-flt spt-x (meters -1.3333334))
+                           (sp-flt spt-y (meters 0.6666667))
+                           (sp-flt spt-z (meters 1.3))
+                           (sp-flt spt-scale-x (meters 1.56))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 6.0 16.0 1.0)
+                           (sp-flt spt-omega 1820.4445)
+                           (sp-flt spt-vel-x (meters -0.013333334))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 486) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.25 0.1 1.0)
-                                   (sp-flt spt-x (meters -0.425))
-                                   (sp-flt spt-y (meters 3.792))
-                                   (sp-flt spt-z 9793.536)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 486 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.25 0.1 1.0)
+                           (sp-flt spt-x (meters -0.425))
+                           (sp-flt spt-y (meters 3.792))
+                           (sp-flt spt-z (meters 2.391))
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 487) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -0.8888889))
-                                   (sp-flt spt-y (meters 1.3333334))
-                                   (sp-flt spt-z 4505.6)
-                                   (sp-flt spt-scale-x (meters 1.56))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 6.0 16.0 1.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters 0.013333334))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 487 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -0.8888889))
+                           (sp-flt spt-y (meters 1.3333334))
+                           (sp-flt spt-z (meters 1.1))
+                           (sp-flt spt-scale-x (meters 1.56))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 6.0 16.0 1.0)
+                           (sp-flt spt-omega 0.0)
+                           (sp-flt spt-vel-x (meters 0.013333334))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 488) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.25 0.1 1.0)
-                                   (sp-flt spt-x (meters 2.893))
-                                   (sp-flt spt-y (meters 3.56))
-                                   (sp-flt spt-z 12525.568)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 488 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.25 0.1 1.0)
+                           (sp-flt spt-x (meters 2.893))
+                           (sp-flt spt-y (meters 3.56))
+                           (sp-flt spt-z (meters 3.058))
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 489) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 2.6666667))
-                                   (sp-flt spt-y (meters -1.3333334))
-                                   (sp-flt spt-z 3072.0)
-                                   (sp-flt spt-scale-x (meters 1.56))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 6.0 12.0 1.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters 0.013333334))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 489 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 2.6666667))
+                           (sp-flt spt-y (meters -1.3333334))
+                           (sp-flt spt-z (meters 0.75))
+                           (sp-flt spt-scale-x (meters 1.56))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 6.0 12.0 1.0)
+                           (sp-flt spt-omega 0.0)
+                           (sp-flt spt-vel-x (meters 0.013333334))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 490) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.25 0.1 1.0)
-                                   (sp-flt spt-x (meters 2.482))
-                                   (sp-flt spt-y (meters 4.296))
-                                   (sp-flt spt-z 12525.568)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 490 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.25 0.1 1.0)
+                           (sp-flt spt-x (meters 2.482))
+                           (sp-flt spt-y (meters 4.296))
+                           (sp-flt spt-z (meters 3.058))
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 491) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 2.6666667))
-                                   (sp-flt spt-y (meters -0.44444445))
-                                   (sp-flt spt-z 4096.0)
-                                   (sp-flt spt-scale-x (meters 1.56))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 6.0 12.0 1.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters -0.013333334))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 491 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 2.6666667))
+                           (sp-flt spt-y (meters -0.44444445))
+                           (sp-flt spt-z (meters 1))
+                           (sp-flt spt-scale-x (meters 1.56))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 6.0 12.0 1.0)
+                           (sp-flt spt-omega 0.0)
+                           (sp-flt spt-vel-x (meters -0.013333334))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 492) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.25 0.1 1.0)
-                                   (sp-flt spt-x (meters 2.538))
-                                   (sp-flt spt-y (meters 4.979))
-                                   (sp-flt spt-z 12525.568)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 492 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.25 0.1 1.0)
+                           (sp-flt spt-x (meters 2.538))
+                           (sp-flt spt-y (meters 4.979))
+                           (sp-flt spt-z (meters 3.058))
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 493) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 0.0))
-                                   (sp-flt spt-y (meters 0.22222222))
-                                   (sp-flt spt-z 3686.4)
-                                   (sp-flt spt-scale-x (meters 1.56))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 6.0 12.0 1.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters 0.013333334))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 493 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 0))
+                           (sp-flt spt-y (meters 0.22222222))
+                           (sp-flt spt-z (meters 0.9))
+                           (sp-flt spt-scale-x (meters 1.56))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 6.0 12.0 1.0)
+                           (sp-flt spt-omega 0.0)
+                           (sp-flt spt-vel-x (meters 0.013333334))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 494) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.25 0.1 1.0)
-                                   (sp-flt spt-x (meters 11.611))
-                                   (sp-flt spt-y (meters 2.762))
-                                   (sp-flt spt-z -37777.406)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 494 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.25 0.1 1.0)
+                           (sp-flt spt-x (meters 11.611))
+                           (sp-flt spt-y (meters 2.762))
+                           (sp-flt spt-z (meters -9.223))
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 495) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -0.6666667))
-                                   (sp-flt spt-y (meters -1.1111112))
-                                   (sp-flt spt-z 8192.0)
-                                   (sp-flt spt-scale-x (meters 2.75))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 12.0 24.0 1.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters -0.013333334))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 495 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -0.6666667))
+                           (sp-flt spt-y (meters -1.1111112))
+                           (sp-flt spt-z (meters 2))
+                           (sp-flt spt-scale-x (meters 2.75))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 12.0 24.0 1.0)
+                           (sp-flt spt-omega 0.0)
+                           (sp-flt spt-vel-x (meters -0.013333334))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 496) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.25 0.1 1.0)
-                                   (sp-flt spt-x (meters 11.543))
-                                   (sp-flt spt-y (meters 2.356))
-                                   (sp-flt spt-z -50311.168)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 496 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.25 0.1 1.0)
+                           (sp-flt spt-x (meters 11.543))
+                           (sp-flt spt-y (meters 2.356))
+                           (sp-flt spt-z (meters -12.283))
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 497) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 4.888889))
-                                   (sp-flt spt-y (meters 0.9777778))
-                                   (sp-flt spt-z 7577.6)
-                                   (sp-flt spt-scale-x (meters 2.5))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 12.0 24.0 1.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters 0.013333334))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 497 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 4.888889))
+                           (sp-flt spt-y (meters 0.9777778))
+                           (sp-flt spt-z (meters 1.85))
+                           (sp-flt spt-scale-x (meters 2.5))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 12.0 24.0 1.0)
+                           (sp-flt spt-omega 0.0)
+                           (sp-flt spt-vel-x (meters 0.013333334))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 498) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-rnd-flt spt-num 0.25 0.1 1.0)
-                                   (sp-flt spt-x (meters 11.588))
-                                   (sp-flt spt-y (meters 6.887))
-                                   (sp-flt spt-z -44371.97)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 498 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-rnd-flt spt-num 0.25 0.1 1.0)
+                           (sp-flt spt-x (meters 11.588))
+                           (sp-flt spt-y (meters 6.887))
+                           (sp-flt spt-z (meters -10.833))
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 499) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -0.35555556))
-                                   (sp-flt spt-y (meters -1.3333334))
-                                   (sp-flt spt-z 7168.0)
-                                   (sp-flt spt-scale-x (meters 2.25))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 10.0 20.0 1.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters 0.013333334))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 499 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -0.35555556))
+                           (sp-flt spt-y (meters -1.3333334))
+                           (sp-flt spt-z (meters 1.75))
+                           (sp-flt spt-scale-x (meters 2.25))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 10.0 20.0 1.0)
+                           (sp-flt spt-omega 0.0)
+                           (sp-flt spt-vel-x (meters 0.013333334))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 139) (new 'static 'sparticle-launch-group
-                                       :length 14
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village1-sagehut-drips"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 14
-                                         (sp-item 500 :fade-after (meters 40.0) :period 673 :length 5)
-                                         (sp-item 500 :fade-after (meters 50.0) :period 1036 :length 5)
-                                         (sp-item 500 :fade-after (meters 60.0) :period 1572 :length 5)
-                                         (sp-item 500 :fade-after (meters 40.0) :period 2158 :length 5)
-                                         (sp-item 500 :fade-after (meters 50.0) :period 2933 :length 5)
-                                         (sp-item 500 :fade-after (meters 60.0) :period 4829 :length 5)
-                                         (sp-item 500 :fade-after (meters 40.0) :period 6350 :length 5)
-                                         (sp-item 501 :fade-after (meters 40.0) :period 859 :length 5)
-                                         (sp-item 501 :fade-after (meters 50.0) :period 1009 :length 5)
-                                         (sp-item 501 :fade-after (meters 60.0) :period 1372 :length 5)
-                                         (sp-item 501 :fade-after (meters 40.0) :period 2107 :length 5)
-                                         (sp-item 501 :fade-after (meters 50.0) :period 2690 :length 5)
-                                         (sp-item 501 :fade-after (meters 60.0) :period 4129 :length 5)
-                                         (sp-item 501 :fade-after (meters 40.0) :period 7249 :length 5)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :x 28672.0 :y 16384.0 :z -18432.0 :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village1-sagehut-drips
+  :id 139
+  :bounds (static-bspherem 7 4 -4.5 12)
+  :parts
+  ((sp-item 500 :fade-after (meters 40) :period 673 :length 5)
+    (sp-item 500 :fade-after (meters 50) :period 1036 :length 5)
+    (sp-item 500 :fade-after (meters 60) :period 1572 :length 5)
+    (sp-item 500 :fade-after (meters 40) :period 2158 :length 5)
+    (sp-item 500 :fade-after (meters 50) :period 2933 :length 5)
+    (sp-item 500 :fade-after (meters 60) :period 4829 :length 5)
+    (sp-item 500 :fade-after (meters 40) :period 6350 :length 5)
+    (sp-item 501 :fade-after (meters 40) :period 859 :length 5)
+    (sp-item 501 :fade-after (meters 50) :period 1009 :length 5)
+    (sp-item 501 :fade-after (meters 60) :period 1372 :length 5)
+    (sp-item 501 :fade-after (meters 40) :period 2107 :length 5)
+    (sp-item 501 :fade-after (meters 50) :period 2690 :length 5)
+    (sp-item 501 :fade-after (meters 60) :period 4129 :length 5)
+    (sp-item 501 :fade-after (meters 40) :period 7249 :length 5)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 502) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-rnd-flt spt-num 2.0 6.0 1.0)
-                                   (new 'static 'sp-field-init-spec
-                                     :field (sp-field-id spt-sound)
-                                     :flags (sp-flag plain-v2)
-                                     :sound
-                                     (new 'static 'sound-spec
+(defpart 502 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-rnd-flt spt-num 2.0 6.0 1.0)
+                           (sp-sound (new 'static 'sound-spec
                                        :mask #x1
                                        :num 1.0
                                        :group #x1
@@ -1658,122 +1525,95 @@
                                        :volume #x200
                                        )
                                      )
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-g 96.0 128.0 1.0)
-                                   (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 128.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-fade-a -0.5688889)
-                                   (sp-flt spt-accel-y -2.7306666)
-                                   (sp-int spt-timer 225)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees 5.0) (degrees 60.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-g 96.0 128.0 1.0)
+                           (sp-rnd-flt spt-b 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 128.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-fade-a -0.5688889)
+                           (sp-flt spt-accel-y -2.7306666)
+                           (sp-int spt-timer 225)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees 5.0) (degrees 60.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 503) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 0.02))
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-g 96.0 128.0 1.0)
-                                   (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-flt spt-fade-a -0.7111111)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 503 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 0.02))
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-g 96.0 128.0 1.0)
+                           (sp-rnd-flt spt-b 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-scalevel-y (meters 0.01) (meters 0.01) 1.0)
+                           (sp-flt spt-fade-a -0.7111111)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 500) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -0.9))
-                                   (sp-flt spt-y (meters 8.825))
-                                   (sp-flt spt-z -10240.0)
-                                   (sp-flt spt-scale-x (meters 0.18))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-g 96.0 128.0 1.0)
-                                   (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                   (sp-flt spt-vel-x (meters -0.00125))
-                                   (sp-flt spt-vel-y (meters -0.001375))
-                                   (sp-flt spt-vel-z (meters 0.0017333332))
-                                   (sp-flt spt-scalevel-x (meters -0.00008333333))
-                                   (sp-flt spt-scalevel-y (meters 0.00016666666))
-                                   (sp-int spt-timer 1800)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 189644.8)
-                                   (sp-func spt-func 'check-drop-level-sagehut)
-                                   (sp-int-plain-rnd spt-next-time 600 299 1)
-                                   (sp-launcher-by-id spt-next-launcher 504)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 500 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -0.9))
+                           (sp-flt spt-y (meters 8.825))
+                           (sp-flt spt-z (meters -2.5))
+                           (sp-flt spt-scale-x (meters 0.18))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-g 96.0 128.0 1.0)
+                           (sp-rnd-flt spt-b 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                           (sp-flt spt-vel-x (meters -0.00125))
+                           (sp-flt spt-vel-y (meters -0.001375))
+                           (sp-flt spt-vel-z (meters 0.0017333332))
+                           (sp-flt spt-scalevel-x (meters -0.00008333333))
+                           (sp-flt spt-scalevel-y (meters 0.00016666666))
+                           (sp-int spt-timer 1800)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-flt spt-userdata 189644.8)
+                           (sp-func spt-func 'check-drop-level-sagehut)
+                           (sp-int-plain-rnd spt-next-time 600 299 1)
+                           (sp-launcher-by-id spt-next-launcher 504)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 504)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-scalevel-y (meters 0.00033333333))
-                                                     (sp-flt spt-accel-x 0.13653333)
-                                                     (sp-flt spt-accel-y -2.048)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 504
+  :init-specs
+  ((sp-flt spt-scalevel-y (meters 0.00033333333)) (sp-flt spt-accel-x 0.13653333) (sp-flt spt-accel-y -2.048))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 501) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -3.25))
-                                   (sp-flt spt-y (meters 5.55))
-                                   (sp-flt spt-z 12288.0)
-                                   (sp-flt spt-scale-x (meters 0.18))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-g 96.0 128.0 1.0)
-                                   (sp-rnd-flt spt-b 0.0 64.0 1.0)
-                                   (sp-rnd-flt spt-a 0.0 32.0 1.0)
-                                   (sp-flt spt-scalevel-x (meters -0.00016666666))
-                                   (sp-flt spt-scalevel-y (meters 0.0005))
-                                   (sp-flt spt-fade-a 0.32)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 189644.8)
-                                   (sp-func spt-func 'check-drop-level-sagehut)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 505)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 501 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x9 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -3.25))
+                           (sp-flt spt-y (meters 5.55))
+                           (sp-flt spt-z (meters 3))
+                           (sp-flt spt-scale-x (meters 0.18))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-g 96.0 128.0 1.0)
+                           (sp-rnd-flt spt-b 0.0 64.0 1.0)
+                           (sp-rnd-flt spt-a 0.0 32.0 1.0)
+                           (sp-flt spt-scalevel-x (meters -0.00016666666))
+                           (sp-flt spt-scalevel-y (meters 0.0005))
+                           (sp-flt spt-fade-a 0.32)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-flt spt-userdata 189644.8)
+                           (sp-func spt-func 'check-drop-level-sagehut)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 505)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 505)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-accel-y -3.1402667) (sp-end))
-        )
-      )
+(defpart 505 :init-specs ((sp-flt spt-accel-y -3.1402667)))
 
 ;; definition for function check-drop-level-sagehut
 (defun check-drop-level-sagehut ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -1810,710 +1650,586 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 140)
-      (new 'static 'sparticle-launch-group
-        :length #xac
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-sagehut-warpgate"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 172
-          (sp-item 1970 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1971 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1968)
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1968 :flags (bit1 start-dead launch-asap))
-          (sp-item 1972 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1969)
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1969 :flags (bit1 start-dead launch-asap))
-          (sp-item 1973 :fade-after (meters 100.0) :flags (is-3d))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-village1-sagehut-warpgate
+  :id 140
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1970 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1971 :fade-after (meters 60) :falloff-to (meters 100) :binding 1968)
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1968 :flags (bit1 start-dead launch-asap))
+    (sp-item 1972 :fade-after (meters 60) :falloff-to (meters 100) :binding 1969)
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1969 :flags (bit1 start-dead launch-asap))
+    (sp-item 1973 :fade-after (meters 100) :flags (is-3d))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1973) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-scale-x (meters 5.0))
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-flt spt-rot-z (degrees 105.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 0.0 64.0 1.0)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1973 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x3 :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-scale-x (meters 5))
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-flt spt-rot-z (degrees 105.0))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 0.0 64.0 1.0)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1972) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-scale-x (meters 0.25))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-x (meters 0.0033333334))
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit3 bit14)
-                                    (sp-flt spt-rotate-y (degrees -35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1972 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-scale-x (meters 0.25))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-x (meters 0.0033333334))
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees -35.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1969) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 2.4444444))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-z 22118.4 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 196.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-flt spt-accel-x 1.2136296)
-                                    (sp-flt spt-accel-z -0.75093335)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1969 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 2.4444444))
+                            (sp-flt spt-y (meters 4))
+                            (sp-rnd-flt spt-z (meters 5.4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 196.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-flt spt-accel-x 1.2136296)
+                            (sp-flt spt-accel-z -0.75093335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1970) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-rnd-flt spt-num 3.0 3.0 1.0)
-                                    (sp-flt spt-x (meters -0.5))
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 4096.0)
-                                    (sp-flt spt-g 3481.6)
-                                    (sp-flt spt-b 3481.6)
-                                    (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.02) 1.0)
-                                    (sp-flt spt-fade-b 2.968116)
-                                    (sp-int spt-timer 69)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1970 :init-specs ((sp-rnd-flt spt-num 3.0 3.0 1.0)
+                            (sp-flt spt-x (meters -0.5))
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 3481.6)
+                            (sp-flt spt-b 3481.6)
+                            (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.02) 1.0)
+                            (sp-flt spt-fade-b 2.968116)
+                            (sp-int spt-timer 69)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 4) (meters 3) 1.0)
+                            (sp-flt spt-rotate-y (degrees -35.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1971) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 11
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.25))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-accel-x 0.06826667)
-                                    (sp-int spt-timer 690)
-                                    (sp-cpuinfo-flags bit3 bit14)
-                                    (sp-flt spt-rotate-y (degrees -35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1971 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0.25))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-accel-x 0.06826667)
+                            (sp-int spt-timer 690)
+                            (sp-cpuinfo-flags bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees -35.0))
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1968)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-flt spt-x (meters 2.4444444))
-                                                     (sp-flt spt-y (meters 4.0))
-                                                     (sp-flt spt-z 9830.4)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 8.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                                     (sp-flt spt-vel-x (meters -0.0044444446))
-                                                     (sp-flt spt-vel-z (meters -0.0034999999))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees 0.0) (degrees 1.2) 1.0)
-                                                     (sp-flt spt-fade-a 0.21333334)
-                                                     (sp-flt spt-accel-x 4.247704)
-                                                     (sp-int spt-timer 690)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1968 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 2.4444444))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 2.4))
+                            (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 32.0 1.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters -0.0044444446))
+                            (sp-flt spt-vel-z (meters -0.0034999999))
+                            (sp-rnd-flt spt-rotvel-z (degrees 0.0) (degrees 1.2) 1.0)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-flt spt-accel-x 4.247704)
+                            (sp-int spt-timer 690)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 141) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag always-draw)
-                                       :name "group-village1-misty-fog"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 511))
-                                       :bounds
-                                       (new 'static 'sphere :y 40960.0 :w 1064960.0)
-                                       )
-      )
+(defpartgroup group-village1-misty-fog
+  :id 141
+  :flags (always-draw)
+  :bounds (static-bspherem 0 10 0 260)
+  :parts
+  ((sp-item 511))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 511) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                   (sp-flt spt-num 0.04)
-                                   (sp-flt spt-y (meters 45.0))
-                                   (sp-rnd-flt spt-scale-x (meters 300.0) (meters 100.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 100.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.016666668) 1.0)
-                                   (sp-flt spt-scalevel-x (meters 0.025))
-                                   (sp-flt spt-fade-a 0.10666667)
-                                   (sp-int spt-timer 1800)
-                                   (sp-cpuinfo-flags bit2 bit12 bit14)
-                                   (sp-int-plain-rnd spt-next-time 450 149 1)
-                                   (sp-launcher-by-id spt-next-launcher 512)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 200.00002) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 250.0) (meters 50.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 511 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                           (sp-flt spt-num 0.04)
+                           (sp-flt spt-y (meters 45))
+                           (sp-rnd-flt spt-scale-x (meters 300) (meters 100) 1.0)
+                           (sp-flt spt-scale-y (meters 100))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.016666668) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.025))
+                           (sp-flt spt-fade-a 0.10666667)
+                           (sp-int spt-timer 1800)
+                           (sp-cpuinfo-flags bit2 bit12 bit14)
+                           (sp-int-plain-rnd spt-next-time 450 149 1)
+                           (sp-launcher-by-id spt-next-launcher 512)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 200.00002) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 250) (meters 50) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 512)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 450 149 1)
-                                                     (sp-launcher-by-id spt-next-launcher 513)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 512
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int-plain-rnd spt-next-time 450 149 1) (sp-launcher-by-id spt-next-launcher 513))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 513)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.10666667) (sp-end))
-        )
-      )
+(defpart 513 :init-specs ((sp-flt spt-fade-a -0.10666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 684) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag always-draw)
-                                       :name "group-village1-training-spouts"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 2844 :period 4500 :length 1200)
-                                         (sp-item 2845 :period 4500 :length 1200 :offset 4050)
-                                         (sp-item 2846 :period 4500 :length 1200 :offset 1500)
-                                         (sp-item 2847 :period 4500 :length 1200 :offset 1050)
-                                         (sp-item 2848 :period 4500 :length 1200 :offset 3000)
-                                         (sp-item 2849 :period 4500 :length 1200 :offset 2550)
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 40960.0 :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village1-training-spouts
+  :id 684
+  :flags (always-draw)
+  :bounds (static-bspherem 0 10 0 12)
+  :parts
+  ((sp-item 2844 :period 4500 :length 1200)
+    (sp-item 2845 :period 4500 :length 1200 :offset 4050)
+    (sp-item 2846 :period 4500 :length 1200 :offset 1500)
+    (sp-item 2847 :period 4500 :length 1200 :offset 1050)
+    (sp-item 2848 :period 4500 :length 1200 :offset 3000)
+    (sp-item 2849 :period 4500 :length 1200 :offset 2550)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2848) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-flt spt-x (meters 60.0))
-                                    (sp-flt spt-y (meters -8.0))
-                                    (sp-flt spt-z -634880.0)
-                                    (sp-flt spt-scale-x (meters 8.0))
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-flt spt-scale-y (meters 64.0))
-                                    (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-g 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.36666667) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                    (sp-flt spt-scalevel-y (meters -0.035555556))
-                                    (sp-flt spt-accel-y -16.384)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 510)
-                                    (sp-launcher-by-id spt-next-launcher 2850)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2848 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-flt spt-x (meters 60))
+                            (sp-flt spt-y (meters -8))
+                            (sp-flt spt-z (meters -155))
+                            (sp-flt spt-scale-x (meters 8))
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-flt spt-scale-y (meters 64))
+                            (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-g 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.36666667) (meters 0.033333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-flt spt-scalevel-y (meters -0.035555556))
+                            (sp-flt spt-accel-y -16.384)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int spt-next-time 510)
+                            (sp-launcher-by-id spt-next-launcher 2850)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2849) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-flt spt-x (meters 60.0))
-                                    (sp-rnd-flt spt-y (meters 95.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-z -634880.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-g 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.07111111))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.053333335)
-                                    (sp-flt spt-fade-g -0.053333335)
-                                    (sp-flt spt-fade-a 1.0666667)
-                                    (sp-rnd-flt spt-accel-x 0.0 1.3653333 1.0)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.3653333 1.0)
-                                    (sp-int spt-timer 1800)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2851)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2849 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-flt spt-x (meters 60))
+                            (sp-rnd-flt spt-y (meters 95) (meters 20) 1.0)
+                            (sp-flt spt-z (meters -155))
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-g 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.07111111))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.053333335)
+                            (sp-flt spt-fade-g -0.053333335)
+                            (sp-flt spt-fade-a 1.0666667)
+                            (sp-rnd-flt spt-accel-x 0.0 1.3653333 1.0)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.3653333 1.0)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2851)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2846) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters -8.0))
-                                    (sp-flt spt-z 0.0)
-                                    (sp-flt spt-scale-x (meters 8.0))
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-flt spt-scale-y (meters 64.0))
-                                    (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-g 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.36666667) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                    (sp-flt spt-scalevel-y (meters -0.035555556))
-                                    (sp-flt spt-accel-y -16.384)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 510)
-                                    (sp-launcher-by-id spt-next-launcher 2850)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2846 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters -8))
+                            (sp-flt spt-z (meters 0))
+                            (sp-flt spt-scale-x (meters 8))
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-flt spt-scale-y (meters 64))
+                            (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-g 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.36666667) (meters 0.033333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-flt spt-scalevel-y (meters -0.035555556))
+                            (sp-flt spt-accel-y -16.384)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int spt-next-time 510)
+                            (sp-launcher-by-id spt-next-launcher 2850)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2847) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-rnd-flt spt-y (meters 95.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-z 0.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-g 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.07111111))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.053333335)
-                                    (sp-flt spt-fade-g -0.053333335)
-                                    (sp-flt spt-fade-a 1.0666667)
-                                    (sp-rnd-flt spt-accel-x 0.0 1.3653333 1.0)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.3653333 1.0)
-                                    (sp-int spt-timer 1800)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2851)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2847 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-flt spt-x (meters 0))
+                            (sp-rnd-flt spt-y (meters 95) (meters 20) 1.0)
+                            (sp-flt spt-z (meters 0))
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-g 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.07111111))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.053333335)
+                            (sp-flt spt-fade-g -0.053333335)
+                            (sp-flt spt-fade-a 1.0666667)
+                            (sp-rnd-flt spt-accel-x 0.0 1.3653333 1.0)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.3653333 1.0)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2851)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2844) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-flt spt-num 0.06)
-                                    (sp-flt spt-x (meters -100.0))
-                                    (sp-flt spt-y (meters -8.0))
-                                    (sp-flt spt-z 0.0)
-                                    (sp-flt spt-scale-x (meters 8.0))
-                                    (sp-flt spt-rot-z (degrees 180.0))
-                                    (sp-flt spt-scale-y (meters 64.0))
-                                    (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-g 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.36666667) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                    (sp-flt spt-scalevel-y (meters -0.035555556))
-                                    (sp-flt spt-accel-y -16.384)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int spt-next-time 510)
-                                    (sp-launcher-by-id spt-next-launcher 2850)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2844 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-flt spt-num 0.06)
+                            (sp-flt spt-x (meters -100))
+                            (sp-flt spt-y (meters -8))
+                            (sp-flt spt-z (meters 0))
+                            (sp-flt spt-scale-x (meters 8))
+                            (sp-flt spt-rot-z (degrees 180.0))
+                            (sp-flt spt-scale-y (meters 64))
+                            (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-g 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.36666667) (meters 0.033333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-flt spt-scalevel-y (meters -0.035555556))
+                            (sp-flt spt-accel-y -16.384)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int spt-next-time 510)
+                            (sp-launcher-by-id spt-next-launcher 2850)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2850)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-scalevel-x (meters 0.06666667))
-                                                     (sp-flt spt-fade-a -1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2850 :init-specs ((sp-flt spt-scalevel-x (meters 0.06666667)) (sp-flt spt-fade-a -1.0666667)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2845) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-flt spt-x (meters -100.0))
-                                    (sp-rnd-flt spt-y (meters 95.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-z 0.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-g 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-b 200.0 55.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-scalevel-x (meters 0.07111111))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.053333335)
-                                    (sp-flt spt-fade-g -0.053333335)
-                                    (sp-flt spt-fade-a 1.0666667)
-                                    (sp-rnd-flt spt-accel-x 0.0 1.3653333 1.0)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.3653333 1.0)
-                                    (sp-int spt-timer 1800)
-                                    (sp-cpuinfo-flags bit2 bit12)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2851)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2845 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-flt spt-x (meters -100))
+                            (sp-rnd-flt spt-y (meters 95) (meters 20) 1.0)
+                            (sp-flt spt-z (meters 0))
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-g 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-b 200.0 55.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.07111111))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.053333335)
+                            (sp-flt spt-fade-g -0.053333335)
+                            (sp-flt spt-fade-a 1.0666667)
+                            (sp-rnd-flt spt-accel-x 0.0 1.3653333 1.0)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.3653333 1.0)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2 bit12)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2851)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2851)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.03678161) (sp-end))
-        )
-      )
+(defpart 2851 :init-specs ((sp-flt spt-fade-a -0.03678161)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 142)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-trans-pad"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3
-          (sp-item 514 :fade-after (meters 160.0))
-          (sp-item 515 :fade-after (meters 160.0))
-          (sp-item 516 :fade-after (meters 60.0) :falloff-to (meters 60.0) :flags (is-3d))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-village1-trans-pad
+  :id 142
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 514 :fade-after (meters 160))
+    (sp-item 515 :fade-after (meters 160))
+    (sp-item 516 :fade-after (meters 60) :falloff-to (meters 60) :flags (is-3d))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 514) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-y (meters 5.0))
-                                   (sp-rnd-flt spt-scale-x (meters 10.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 10.0))
-                                   (sp-flt spt-r 40.0)
-                                   (sp-rnd-flt spt-g 60.0 60.0 1.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 514 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-flt spt-y (meters 5))
+                           (sp-rnd-flt spt-scale-x (meters 10) (meters 1) 1.0)
+                           (sp-flt spt-scale-y (meters 10))
+                           (sp-flt spt-r 40.0)
+                           (sp-rnd-flt spt-g 60.0 60.0 1.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 515) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                   (sp-flt spt-num 0.5)
-                                   (sp-flt spt-y (meters 3.0))
-                                   (sp-rnd-flt spt-scale-x (meters 5.0) (meters 1.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 10.0))
-                                   (sp-flt spt-r 40.0)
-                                   (sp-rnd-flt spt-g 60.0 60.0 1.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-flt spt-fade-a -8.533334)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 515 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-flt spt-y (meters 3))
+                           (sp-rnd-flt spt-scale-x (meters 5) (meters 1) 1.0)
+                           (sp-flt spt-scale-y (meters 10))
+                           (sp-flt spt-r 40.0)
+                           (sp-rnd-flt spt-g 60.0 60.0 1.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-flt spt-fade-a -8.533334)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 516) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
-                                   (sp-flt spt-scale-x (meters 0.0))
-                                   (sp-rnd-flt spt-rot-x 0.0 2730.6667 1.0)
-                                   (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 16.0)
-                                   (sp-rnd-flt spt-g 0.0 127.0 1.0)
-                                   (sp-flt spt-b 127.0)
-                                   (sp-flt spt-a 127.0)
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-scalevel-x (meters 0.013333334))
-                                   (sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.21333334)
-                                   (sp-flt spt-accel-y -0.6144)
-                                   (sp-int spt-timer 270)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 516 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0.75) (meters 0.1) 1.0)
+                           (sp-flt spt-scale-x (meters 0))
+                           (sp-rnd-flt spt-rot-x 0.0 2730.6667 1.0)
+                           (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 16.0)
+                           (sp-rnd-flt spt-g 0.0 127.0 1.0)
+                           (sp-flt spt-b 127.0)
+                           (sp-flt spt-a 127.0)
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-scalevel-x (meters 0.013333334))
+                           (sp-rnd-flt spt-rotvel-y (degrees -0.6) (degrees 1.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.21333334)
+                           (sp-flt spt-accel-y -0.6144)
+                           (sp-int spt-timer 270)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
diff --git a/test/decompiler/reference/levels/village1/village1-part_REF.gc b/test/decompiler/reference/levels/village1/village1-part_REF.gc
index 788d595316..324e6c2b4a 100644
--- a/test/decompiler/reference/levels/village1/village1-part_REF.gc
+++ b/test/decompiler/reference/levels/village1/village1-part_REF.gc
@@ -19,775 +19,603 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 127)
-      (new 'static 'sparticle-launch-group
-        :length 13
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-butterflies"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 13
-          (sp-item 380 :fade-after (meters 120.0) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
-          (sp-item 380 :fade-after (meters 120.0) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
-          (sp-item 380 :fade-after (meters 120.0) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
-          (sp-item 381 :flags (start-dead launch-asap) :binding 382)
-          (sp-item 382 :flags (is-3d start-dead))
-          (sp-item 381 :flags (start-dead launch-asap) :binding 382)
-          (sp-item 382 :flags (is-3d start-dead))
-          (sp-item 381 :flags (start-dead launch-asap) :binding 382)
-          (sp-item 382 :flags (is-3d start-dead))
-          (sp-item 381 :flags (start-dead launch-asap) :binding 382)
-          (sp-item 382 :flags (is-3d start-dead))
-          (sp-item 381 :flags (start-dead launch-asap) :binding 382)
-          (sp-item 382 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 122880.0)
-        )
-      )
+(defpartgroup group-village1-butterflies
+  :id 127
+  :bounds (static-bspherem 0 0 0 30)
+  :parts
+  ((sp-item 380 :fade-after (meters 120) :period 4903 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
+    (sp-item 380 :fade-after (meters 120) :period 6637 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
+    (sp-item 380 :fade-after (meters 120) :period 9846 :length 5 :hour-mask #b111111100000000000111111 :binding 381)
+    (sp-item 381 :flags (start-dead launch-asap) :binding 382)
+    (sp-item 382 :flags (is-3d start-dead))
+    (sp-item 381 :flags (start-dead launch-asap) :binding 382)
+    (sp-item 382 :flags (is-3d start-dead))
+    (sp-item 381 :flags (start-dead launch-asap) :binding 382)
+    (sp-item 382 :flags (is-3d start-dead))
+    (sp-item 381 :flags (start-dead launch-asap) :binding 382)
+    (sp-item 382 :flags (is-3d start-dead))
+    (sp-item 381 :flags (start-dead launch-asap) :binding 382)
+    (sp-item 382 :flags (is-3d start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 380) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 7.5) 1.0)
-                                   (sp-rnd-flt spt-y (meters 14.0) (meters 3.0) 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-y (meters -0.036666665))
-                                   (sp-flt spt-accel-y 1.3653333)
-                                   (sp-int spt-timer 6000)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-int spt-next-time 555)
-                                   (sp-launcher-by-id spt-next-launcher 383)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 380 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 7.5) 1.0)
+                           (sp-rnd-flt spt-y (meters 14) (meters 3) 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-y (meters -0.036666665))
+                           (sp-flt spt-accel-y 1.3653333)
+                           (sp-int spt-timer 6000)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-int spt-next-time 555)
+                           (sp-launcher-by-id spt-next-launcher 383)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 383)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-accel-y 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 2700 1499 1)
-                                                     (sp-launcher-by-id spt-next-launcher 384)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 383 :init-specs ((sp-flt spt-accel-y 0.0)
+                           (sp-int-plain-rnd spt-next-time 2700 1499 1)
+                           (sp-launcher-by-id spt-next-launcher 384)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 384)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-accel-y 1.3653333) (sp-end))
-        )
-      )
+(defpart 384 :init-specs ((sp-flt spt-accel-y 1.3653333)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 381) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z 12288.0 4096.0 1.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-g 0.0 256.0 1.0)
-                                   (sp-rnd-int spt-b 1124073472 1 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 6000)
-                                   (sp-cpuinfo-flags bit3 bit7)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 385)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 381 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters 3) (meters 1) 1.0)
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-g 0.0 256.0 1.0)
+                           (sp-rnd-int spt-b 1124073472 1 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer 6000)
+                           (sp-cpuinfo-flags bit3 bit7)
+                           (sp-int-plain-rnd spt-next-time 150 449 1)
+                           (sp-launcher-by-id spt-next-launcher 385)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 385) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 6
-                                   (sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 385)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 385 :init-specs ((sp-rnd-flt spt-vel-x (meters -0.017777778) (meters 0.035555556) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.0074074077) (meters 0.0148148155) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-int-plain-rnd spt-next-time 150 449 1)
+                           (sp-launcher-by-id spt-next-launcher 385)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 382) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 0.9))
-                                   (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
-                                   (sp-flt spt-scale-y (meters 1.3))
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 255.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-fade-a -8.0)
-                                   (sp-int spt-timer 10)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 382 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+                           (sp-func spt-birth-func 'birth-func-copy-rot-color)
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 0.9))
+                           (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
+                           (sp-flt spt-scale-y (meters 1.3))
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 255.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-fade-a -8.0)
+                           (sp-int spt-timer 10)
+                           (sp-cpuinfo-flags bit2 bit9 bit12)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 128)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-moth"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3
-          (sp-item 386 :fade-after (meters 120.0) :flags (bit1) :period 18030 :length 5 :hour-mask #b1111111110000000 :binding 387)
-          (sp-item 387 :flags (start-dead launch-asap) :binding 388)
-          (sp-item 388 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
+(defpartgroup group-village1-moth
+  :id 128
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 386 :fade-after (meters 120) :flags (bit1) :period 18030 :length 5 :hour-mask #b1111111110000000 :binding 387)
+    (sp-item 387 :flags (start-dead launch-asap) :binding 388)
+    (sp-item 388 :flags (is-3d start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 386) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 10
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer 18000)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 386 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer 18000)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 387) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-flt spt-z 6144.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 18000)
-                                   (sp-cpuinfo-flags bit3 bit7)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 389)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 387 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-flt spt-z (meters 1.5))
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer 18000)
+                           (sp-cpuinfo-flags bit3 bit7)
+                           (sp-int-plain-rnd spt-next-time 150 449 1)
+                           (sp-launcher-by-id spt-next-launcher 389)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 389) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 6
-                                   (sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                   (sp-int-plain-rnd spt-next-time 150 449 1)
-                                   (sp-launcher-by-id spt-next-launcher 389)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 389 :init-specs ((sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                           (sp-int-plain-rnd spt-next-time 150 449 1)
+                           (sp-launcher-by-id spt-next-launcher 389)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 388) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
-                                   (sp-flt spt-scale-y (meters 0.4))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 388 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+                           (sp-func spt-birth-func 'birth-func-copy-rot-color)
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 0.4))
+                           (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
+                           (sp-flt spt-scale-y (meters 0.4))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 129)
-      (new 'static 'sparticle-launch-group
-        :length 6
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-hummingbird"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 6
-          (sp-item 390 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5 :hour-mask #b111111100000000000111111)
-          (sp-item 391 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5)
-          (sp-item 392 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5)
-          (sp-item 393 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5)
-          (sp-item 394 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5)
-          (sp-item 395 :fade-after (meters 20.0) :flags (is-3d bit1) :period 6000 :length 5)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 16384.0)
-        )
-      )
+(defpartgroup group-village1-hummingbird
+  :id 129
+  :bounds (static-bspherem 0 3 0 4)
+  :parts
+  ((sp-item 390 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5 :hour-mask #b111111100000000000111111)
+    (sp-item 391 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5)
+    (sp-item 392 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5)
+    (sp-item 393 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5)
+    (sp-item 394 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5)
+    (sp-item 395 :fade-after (meters 20) :flags (is-3d bit1) :period 6000 :length 5)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 390) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-int spt-a 1119879168 1 16.0)
-                                   (sp-flt spt-vel-x (meters 0.0024242424))
-                                   (sp-flt spt-vel-y (meters 0.02))
-                                   (sp-flt spt-accel-y -0.68266666)
-                                   (sp-int spt-timer 825)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12 left-multiply-quat)
-                                   (sp-int spt-next-time 5)
-                                   (sp-launcher-by-id spt-next-launcher 396)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 390 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-int spt-a 1119879168 1 16.0)
+                           (sp-flt spt-vel-x (meters 0.0024242424))
+                           (sp-flt spt-vel-y (meters 0.02))
+                           (sp-flt spt-accel-y -0.68266666)
+                           (sp-int spt-timer 825)
+                           (sp-cpuinfo-flags bit2 bit9 bit12 left-multiply-quat)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 396)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 396)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                                     (sp-rnd-int spt-a 1119879168 1 16.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 396)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 396 :init-specs ((sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-rnd-int spt-a 1119879168 1 16.0)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 396)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 391) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.0024242424))
-                                   (sp-flt spt-vel-y (meters 0.02))
-                                   (sp-flt spt-accel-y -0.68266666)
-                                   (sp-int spt-timer 1800)
-                                   (sp-cpuinfo-flags bit9 bit12 left-multiply-quat)
-                                   (sp-int spt-next-time 825)
-                                   (sp-launcher-by-id spt-next-launcher 397)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 391 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.0024242424))
+                           (sp-flt spt-vel-y (meters 0.02))
+                           (sp-flt spt-accel-y -0.68266666)
+                           (sp-int spt-timer 1800)
+                           (sp-cpuinfo-flags bit9 bit12 left-multiply-quat)
+                           (sp-int spt-next-time 825)
+                           (sp-launcher-by-id spt-next-launcher 397)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 397)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                                     (sp-rnd-int spt-a 1119879168 1 16.0)
-                                                     (sp-flt spt-accel-x 2.7306666)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 398)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 397 :init-specs ((sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-rnd-int spt-a 1119879168 1 16.0)
+                           (sp-flt spt-accel-x 2.7306666)
+                           (sp-flt spt-accel-y 1.3653333)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 398)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 398)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                                     (sp-rnd-int spt-a 1119879168 1 16.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 398)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 398 :init-specs ((sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-rnd-int spt-a 1119879168 1 16.0)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 398)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 392) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-flt spt-rot-z (degrees 60.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-int spt-a 1107296256 1 32.0)
-                                   (sp-flt spt-vel-x (meters 0.0024242424))
-                                   (sp-flt spt-vel-y (meters 0.02))
-                                   (sp-flt spt-accel-y -0.68266666)
-                                   (sp-int spt-timer 825)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12)
-                                   (sp-int spt-next-time 5)
-                                   (sp-launcher-by-id spt-next-launcher 399)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 392 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-flt spt-rot-z (degrees 60.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-int spt-a 1107296256 1 32.0)
+                           (sp-flt spt-vel-x (meters 0.0024242424))
+                           (sp-flt spt-vel-y (meters 0.02))
+                           (sp-flt spt-accel-y -0.68266666)
+                           (sp-int spt-timer 825)
+                           (sp-cpuinfo-flags bit2 bit9 bit12)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 399)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 399)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-rot-x 24576.0)
-                                                     (sp-flt spt-rot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
-                                                     (sp-rnd-int spt-a 1107296256 1 32.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 399)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 399 :init-specs ((sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
+                           (sp-rnd-int spt-a 1107296256 1 32.0)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 399)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 393) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-flt spt-rot-z (degrees 60.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.0024242424))
-                                   (sp-flt spt-vel-y (meters 0.02))
-                                   (sp-flt spt-accel-y -0.68266666)
-                                   (sp-int spt-timer 1800)
-                                   (sp-cpuinfo-flags bit9 bit12)
-                                   (sp-int spt-next-time 825)
-                                   (sp-launcher-by-id spt-next-launcher 400)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 393 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-flt spt-rot-z (degrees 60.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.0024242424))
+                           (sp-flt spt-vel-y (meters 0.02))
+                           (sp-flt spt-accel-y -0.68266666)
+                           (sp-int spt-timer 1800)
+                           (sp-cpuinfo-flags bit9 bit12)
+                           (sp-int spt-next-time 825)
+                           (sp-launcher-by-id spt-next-launcher 400)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 400)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 9
-                                                     (sp-flt spt-rot-x 24576.0)
-                                                     (sp-flt spt-rot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
-                                                     (sp-rnd-int spt-a 1107296256 1 32.0)
-                                                     (sp-flt spt-accel-x 2.7306666)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 401)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 400 :init-specs ((sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
+                           (sp-rnd-int spt-a 1107296256 1 32.0)
+                           (sp-flt spt-accel-x 2.7306666)
+                           (sp-flt spt-accel-y 1.3653333)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 401)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 401)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-rot-x 24576.0)
-                                                     (sp-flt spt-rot-y (degrees 90.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
-                                                     (sp-rnd-int spt-a 1107296256 1 32.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 401)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 401 :init-specs ((sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
+                           (sp-rnd-int spt-a 1107296256 1 32.0)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 401)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 394) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 8192.0)
-                                   (sp-flt spt-rot-y (degrees -90.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-int spt-a 1107296256 1 32.0)
-                                   (sp-flt spt-vel-x (meters 0.0024242424))
-                                   (sp-flt spt-vel-y (meters 0.02))
-                                   (sp-flt spt-accel-y -0.68266666)
-                                   (sp-int spt-timer 825)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12)
-                                   (sp-int spt-next-time 5)
-                                   (sp-launcher-by-id spt-next-launcher 402)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 394 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 8192.0)
+                           (sp-flt spt-rot-y (degrees -90.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-int spt-a 1107296256 1 32.0)
+                           (sp-flt spt-vel-x (meters 0.0024242424))
+                           (sp-flt spt-vel-y (meters 0.02))
+                           (sp-flt spt-accel-y -0.68266666)
+                           (sp-int spt-timer 825)
+                           (sp-cpuinfo-flags bit2 bit9 bit12)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 402)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 402)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-rot-x 8192.0)
-                                                     (sp-flt spt-rot-y (degrees -90.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
-                                                     (sp-rnd-int spt-a 1107296256 1 32.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 402)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 402 :init-specs ((sp-flt spt-rot-x 8192.0)
+                           (sp-flt spt-rot-y (degrees -90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
+                           (sp-rnd-int spt-a 1107296256 1 32.0)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 402)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 395) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 8192.0)
-                                   (sp-flt spt-rot-y (degrees -90.0))
-                                   (sp-flt spt-rot-z (degrees 60.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-flt spt-vel-x (meters 0.0024242424))
-                                   (sp-flt spt-vel-y (meters 0.02))
-                                   (sp-flt spt-accel-y -0.68266666)
-                                   (sp-int spt-timer 1800)
-                                   (sp-cpuinfo-flags bit9 bit12)
-                                   (sp-int spt-next-time 825)
-                                   (sp-launcher-by-id spt-next-launcher 403)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 395 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 8192.0)
+                           (sp-flt spt-rot-y (degrees -90.0))
+                           (sp-flt spt-rot-z (degrees 60.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-flt spt-vel-x (meters 0.0024242424))
+                           (sp-flt spt-vel-y (meters 0.02))
+                           (sp-flt spt-accel-y -0.68266666)
+                           (sp-int spt-timer 1800)
+                           (sp-cpuinfo-flags bit9 bit12)
+                           (sp-int spt-next-time 825)
+                           (sp-launcher-by-id spt-next-launcher 403)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 403)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 9
-                                                     (sp-flt spt-rot-x 8192.0)
-                                                     (sp-flt spt-rot-y (degrees -90.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
-                                                     (sp-rnd-int spt-a 1107296256 1 32.0)
-                                                     (sp-flt spt-accel-x 2.7306666)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 404)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 403 :init-specs ((sp-flt spt-rot-x 8192.0)
+                           (sp-flt spt-rot-y (degrees -90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
+                           (sp-rnd-int spt-a 1107296256 1 32.0)
+                           (sp-flt spt-accel-x 2.7306666)
+                           (sp-flt spt-accel-y 1.3653333)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 404)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 404)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 7
-                                                     (sp-flt spt-rot-x 8192.0)
-                                                     (sp-flt spt-rot-y (degrees -90.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
-                                                     (sp-rnd-int spt-a 1107296256 1 32.0)
-                                                     (sp-int spt-next-time 5)
-                                                     (sp-launcher-by-id spt-next-launcher 404)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 404 :init-specs ((sp-flt spt-rot-x 8192.0)
+                           (sp-flt spt-rot-y (degrees -90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -70.0) (degrees 140.0) 1.0)
+                           (sp-rnd-int spt-a 1107296256 1 32.0)
+                           (sp-int spt-next-time 5)
+                           (sp-launcher-by-id spt-next-launcher 404)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 405) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 0.03)
-                                   (sp-flt spt-x (meters 0.0))
-                                   (sp-flt spt-y (meters 2.3))
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 96.0)
-                                   (sp-flt spt-g 96.0)
-                                   (sp-flt spt-b 96.0)
-                                   (sp-flt spt-a 48.0)
-                                   (sp-flt spt-vel-z (meters -0.0013333333))
-                                   (sp-flt spt-scalevel-x (meters 0.00041666668))
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                   (sp-copy-from-other spt-scalevel-y -4)
-                                   (sp-flt spt-fade-a -0.04)
-                                   (sp-flt spt-accel-y -0.027306668)
-                                   (sp-flt spt-accel-z 0.013653334)
-                                   (sp-int spt-timer 1200)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-flt spt-conerot-x (degrees 90.0))
-                                   (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.15) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 405 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 0.03)
+                           (sp-flt spt-x (meters 0))
+                           (sp-flt spt-y (meters 2.3))
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 96.0)
+                           (sp-flt spt-g 96.0)
+                           (sp-flt spt-b 96.0)
+                           (sp-flt spt-a 48.0)
+                           (sp-flt spt-vel-z (meters -0.0013333333))
+                           (sp-flt spt-scalevel-x (meters 0.00041666668))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-a -0.04)
+                           (sp-flt spt-accel-y -0.027306668)
+                           (sp-flt spt-accel-z 0.013653334)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-flt spt-conerot-x (degrees 90.0))
+                           (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.15) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 406) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 19
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 0.0))
-                                   (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 0.0 60.0 1.0)
-                                   (sp-flt spt-a 196.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.008333334) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                   (sp-flt spt-fade-a -0.8)
-                                   (sp-flt spt-accel-y -0.8192)
-                                   (sp-int spt-timer 75)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-int-flt spt-conerot-x (degrees -15.0) 4 1365.3334)
-                                   (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 406 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 0))
+                           (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 0.0 60.0 1.0)
+                           (sp-flt spt-a 196.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.008333334) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-flt spt-fade-a -0.8)
+                           (sp-flt spt-accel-y -0.8192)
+                           (sp-int spt-timer 75)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-int-flt spt-conerot-x (degrees -15.0) 4 1365.3334)
+                           (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 407)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 26
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-flt spt-y (meters 1.2))
-                                                     (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 96.0)
-                                                     (sp-flt spt-b 96.0)
-                                                     (sp-flt spt-a 48.0)
-                                                     (sp-flt spt-vel-y (meters 0.001))
-                                                     (sp-flt spt-scalevel-x (meters 0.000125))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.08)
-                                                     (sp-flt spt-fade-g -0.026666667)
-                                                     (sp-flt spt-fade-b -0.026666667)
-                                                     (sp-flt spt-fade-a -0.053333335)
-                                                     (sp-flt spt-accel-y 0.04096)
-                                                     (sp-flt spt-friction 0.9975)
-                                                     (sp-int spt-timer 1200)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-rnd-int-flt spt-conerot-x (degrees -80.0) 1 29127.111)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 0.2))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 407 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 0.4)
+                           (sp-flt spt-y (meters 1.2))
+                           (sp-rnd-flt spt-scale-x (meters 0.3) (meters 0.15) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 96.0)
+                           (sp-flt spt-b 96.0)
+                           (sp-flt spt-a 48.0)
+                           (sp-flt spt-vel-y (meters 0.001))
+                           (sp-flt spt-scalevel-x (meters 0.000125))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.08)
+                           (sp-flt spt-fade-g -0.026666667)
+                           (sp-flt spt-fade-b -0.026666667)
+                           (sp-flt spt-fade-a -0.053333335)
+                           (sp-flt spt-accel-y 0.04096)
+                           (sp-flt spt-friction 0.9975)
+                           (sp-int spt-timer 1200)
+                           (sp-cpuinfo-flags bit2)
+                           (sp-rnd-int-flt spt-conerot-x (degrees -80.0) 1 29127.111)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-flt spt-conerot-radius (meters 0.2))
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 408)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.16)
-                                                     (sp-rnd-flt spt-x (meters -0.22) (meters 0.44) 1.0)
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-rnd-flt spt-z -901.12 1802.24 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.22) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 196.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 64.0)
-                                                     (sp-flt spt-vel-y (meters 0.0033333334))
-                                                     (sp-flt spt-scalevel-x (meters 0.00026666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.18962963)
-                                                     (sp-flt spt-fade-g -0.094814815)
-                                                     (sp-flt spt-fade-b -0.094814815)
-                                                     (sp-flt spt-accel-y -0.04096)
-                                                     (sp-int spt-timer 675)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 408 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 0.16)
+                           (sp-rnd-flt spt-x (meters -0.22) (meters 0.44) 1.0)
+                           (sp-flt spt-y (meters 0))
+                           (sp-rnd-flt spt-z (meters -0.22) (meters 0.44) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.22) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 64.0)
+                           (sp-flt spt-vel-y (meters 0.0033333334))
+                           (sp-flt spt-scalevel-x (meters 0.00026666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.1) (degrees 0.2) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.18962963)
+                           (sp-flt spt-fade-g -0.094814815)
+                           (sp-flt spt-fade-b -0.094814815)
+                           (sp-flt spt-accel-y -0.04096)
+                           (sp-int spt-timer 675)
+                           (sp-cpuinfo-flags bit2)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 130) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village1-pot"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 405 :fade-after (meters 50.0) :falloff-to (meters 60.0))
-                                         (sp-item 406 :fade-after (meters 50.0) :falloff-to (meters 60.0))
-                                         (sp-item 407 :fade-after (meters 60.0) :falloff-to (meters 80.0))
-                                         (sp-item 409 :fade-after (meters 60.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 10240.0 :w 10240.0)
-                                       )
-      )
+(defpartgroup group-village1-pot
+  :id 130
+  :bounds (static-bspherem 0 2.5 0 2.5)
+  :parts
+  ((sp-item 405 :fade-after (meters 50) :falloff-to (meters 60))
+    (sp-item 406 :fade-after (meters 50) :falloff-to (meters 60))
+    (sp-item 407 :fade-after (meters 60) :falloff-to (meters 80))
+    (sp-item 409 :fade-after (meters 60) :falloff-to (meters 80))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 131)
-      (new 'static 'sparticle-launch-group
-        :length 68
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-mayor-fire"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 68
-          (sp-item 410 :fade-after (meters 50.0) :falloff-to (meters 80.0))
-          (sp-item 411 :fade-after (meters 40.0) :falloff-to (meters 40.0) :binding 2292)
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 2292 :flags (bit1 start-dead launch-asap))
-          (sp-item 412 :fade-after (meters 60.0) :falloff-to (meters 80.0))
-          (sp-item 413 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 10240.0 :w 10240.0)
-        )
-      )
+(defpartgroup group-village1-mayor-fire
+  :id 131
+  :bounds (static-bspherem 0 2.5 0 2.5)
+  :parts
+  ((sp-item 410 :fade-after (meters 50) :falloff-to (meters 80))
+    (sp-item 411 :fade-after (meters 40) :falloff-to (meters 40) :binding 2292)
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 2292 :flags (bit1 start-dead launch-asap))
+    (sp-item 412 :fade-after (meters 60) :falloff-to (meters 80))
+    (sp-item 413 :fade-after (meters 50) :falloff-to (meters 50))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 411) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (new 'static 'sp-field-init-spec
-                                     :field (sp-field-id spt-sound)
-                                     :flags (sp-flag plain-v2)
-                                     :sound
-                                     (new 'static 'sound-spec
+(defpart 411 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-sound (new 'static 'sound-spec
                                        :mask #x1
                                        :num 1.0
                                        :group #x1
@@ -795,225 +623,188 @@
                                        :volume #x400
                                        )
                                      )
-                                   (sp-rnd-flt spt-x (meters -0.6) (meters 1.3) 1.0)
-                                   (sp-rnd-flt spt-y (meters 1.0) (meters 0.5) 1.0)
-                                   (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                   (sp-flt spt-scale-x (meters 0.1))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 256.0)
-                                   (sp-flt spt-g 0.0)
-                                   (sp-flt spt-b 0.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.04) 1.0)
-                                   (sp-rnd-flt spt-accel-y -0.27306667 -0.13653333 1.0)
-                                   (sp-flt spt-friction 0.96)
-                                   (sp-int spt-timer 300)
-                                   (sp-cpuinfo-flags bit1 bit3)
-                                   (sp-rnd-flt spt-conerot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+                           (sp-rnd-flt spt-x (meters -0.6) (meters 1.3) 1.0)
+                           (sp-rnd-flt spt-y (meters 1) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                           (sp-flt spt-scale-x (meters 0.1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 256.0)
+                           (sp-flt spt-g 0.0)
+                           (sp-flt spt-b 0.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.04) 1.0)
+                           (sp-rnd-flt spt-accel-y -0.27306667 -0.13653333 1.0)
+                           (sp-flt spt-friction 0.96)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags bit1 bit3)
+                           (sp-rnd-flt spt-conerot-x (degrees -20.0) (degrees 40.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2292) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 1024.0 4096.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                    (sp-flt spt-fade-r 0.0)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-flt spt-fade-b -0.7111111)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit1 bit2 bit3 bit7)
-                                    (sp-int spt-next-time 180)
-                                    (sp-launcher-by-id spt-next-launcher 2293)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2292 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.25) (meters 1) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
+                            (sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g -0.7111111)
+                            (sp-flt spt-fade-b -0.7111111)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit1 bit2 bit3 bit7)
+                            (sp-int spt-next-time 180)
+                            (sp-launcher-by-id spt-next-launcher 2293)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2293)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r -1.0666667)
-                                                     (sp-flt spt-fade-g 1.0666667)
-                                                     (sp-flt spt-fade-b 1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2293
+  :init-specs
+  ((sp-flt spt-fade-r -1.0666667) (sp-flt spt-fade-g 1.0666667) (sp-flt spt-fade-b 1.0666667))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 410) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 21
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-rnd-flt spt-num 4.0 10.0 1.0)
-                                   (sp-rnd-flt spt-x (meters -1.2) (meters 2.0) 1.0)
-                                   (sp-flt spt-y (meters 0.0))
-                                   (sp-rnd-flt spt-z -1638.4 3276.8 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                   (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                   (sp-flt spt-a 96.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                   (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                   (sp-flt spt-fade-a -0.73333335)
-                                   (sp-flt spt-accel-y -0.27306667)
-                                   (sp-int-plain-rnd spt-timer 60 59 1)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                   (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 410 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-rnd-flt spt-num 4.0 10.0 1.0)
+                           (sp-rnd-flt spt-x (meters -1.2) (meters 2) 1.0)
+                           (sp-flt spt-y (meters 0))
+                           (sp-rnd-flt spt-z (meters -0.4) (meters 0.8) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                           (sp-flt spt-a 96.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-flt spt-fade-a -0.73333335)
+                           (sp-flt spt-accel-y -0.27306667)
+                           (sp-int-plain-rnd spt-timer 60 59 1)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                           (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 412)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-rnd-flt spt-z -4096.0 6144.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 196.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.18962963)
-                                                     (sp-flt spt-fade-g -0.094814815)
-                                                     (sp-flt spt-fade-b -0.094814815)
-                                                     (sp-flt spt-fade-a -0.047407407)
-                                                     (sp-flt spt-accel-y -0.027306668)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 675)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 412 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 0.5)
+                           (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                           (sp-flt spt-y (meters 0))
+                           (sp-rnd-flt spt-z (meters -1) (meters 1.5) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+                           (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-x (meters 0.006666667))
+                           (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                           (sp-copy-from-other spt-scalevel-y -4)
+                           (sp-flt spt-fade-r -0.18962963)
+                           (sp-flt spt-fade-g -0.094814815)
+                           (sp-flt spt-fade-b -0.094814815)
+                           (sp-flt spt-fade-a -0.047407407)
+                           (sp-flt spt-accel-y -0.027306668)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 675)
+                           (sp-cpuinfo-flags bit2)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 413)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-flt spt-x (meters 0.2))
-                                                     (sp-int spt-rot-x 8)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 414)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 413 :init-specs ((sp-flt spt-num 0.4)
+                           (sp-flt spt-x (meters 0.2))
+                           (sp-int spt-rot-x 8)
+                           (sp-flt spt-r 3276.8)
+                           (sp-flt spt-g 2662.4)
+                           (sp-flt spt-b 2867.2)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
+                           (sp-flt spt-friction 0.99)
+                           (sp-int spt-timer 300)
+                           (sp-cpuinfo-flags aux-list)
+                           (sp-int spt-next-time 150)
+                           (sp-launcher-by-id spt-next-launcher 414)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 414)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -1.3653333) (sp-end))
-        )
-      )
+(defpart 414 :init-specs ((sp-flt spt-fade-b -1.3653333)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 132)
-      (new 'static 'sparticle-launch-group
-        :length 50
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-sagehut-seagulls"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 50
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 415 :fade-after (meters 120.0) :flags (bit1 launch-asap) :binding 416)
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          (sp-item 416 :flags (start-dead launch-asap) :binding 417)
-          (sp-item 417 :flags (is-3d start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :y 32768.0 :w 184320.0)
-        )
-      )
+(defpartgroup group-village1-sagehut-seagulls
+  :id 132
+  :bounds (static-bspherem 0 8 0 45)
+  :parts
+  ((sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 415 :fade-after (meters 120) :flags (bit1 launch-asap) :binding 416)
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    (sp-item 416 :flags (start-dead launch-asap) :binding 417)
+    (sp-item 417 :flags (is-3d start-dead))
+    )
+  )
 
 ;; definition for function bird-bob-func
 ;; INFO: Return type mismatch int vs none.
@@ -1027,27 +818,22 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 415) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 15
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-random-next-time)
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-x (meters -15.0) (meters 30.0) 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                   (sp-rnd-flt spt-z -61440.0 122880.0 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-int spt-timer -1)
-                                   (sp-cpuinfo-flags bit3)
-                                   (sp-flt spt-userdata 199.98)
-                                   (sp-func spt-func 'bird-bob-func)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 415 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-func spt-birth-func 'birth-func-random-next-time)
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-x (meters -15) (meters 30) 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                           (sp-rnd-flt spt-z (meters -15) (meters 30) 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-int spt-timer -1)
+                           (sp-cpuinfo-flags bit3)
+                           (sp-flt spt-userdata 199.98)
+                           (sp-func spt-func 'bird-bob-func)
+                           )
+             )
 
 ;; definition for function sparticle-seagull-moon
 ;; INFO: Return type mismatch int vs none.
@@ -1058,488 +844,377 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 416) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy-omega-to-z)
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 0.0))
-                                   (sp-flt spt-y (meters 0.0))
-                                   (sp-flt spt-z 122880.0)
-                                   (sp-flt spt-scale-x (meters 0.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-r 32.0)
-                                   (sp-flt spt-g 32.0)
-                                   (sp-flt spt-b 32.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                   (sp-flt spt-vel-x (meters 0.0044444446))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-flt spt-scalevel-x (meters 0.04))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit3 bit7)
-                                   (sp-func spt-func 'sparticle-seagull-moon)
-                                   (sp-int spt-next-time 199)
-                                   (sp-launcher-by-id spt-next-launcher 418)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 416 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-func spt-birth-func 'birth-func-copy-omega-to-z)
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 0))
+                           (sp-flt spt-y (meters 0))
+                           (sp-flt spt-z (meters 30))
+                           (sp-flt spt-scale-x (meters 0))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-r 32.0)
+                           (sp-flt spt-g 32.0)
+                           (sp-flt spt-b 32.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                           (sp-flt spt-vel-x (meters 0.0044444446))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-flt spt-scalevel-x (meters 0.04))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit3 bit7)
+                           (sp-func spt-func 'sparticle-seagull-moon)
+                           (sp-int spt-next-time 199)
+                           (sp-launcher-by-id spt-next-launcher 418)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 418)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scale-x (meters 8.0))
-                                                     (sp-flt spt-scalevel-x (meters -0.08))
-                                                     (sp-int spt-timer 600)
-                                                     (sp-int spt-next-time 100)
-                                                     (sp-launcher-by-id spt-next-launcher 419)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 418 :init-specs ((sp-flt spt-scale-x (meters 8))
+                           (sp-flt spt-scalevel-x (meters -0.08))
+                           (sp-int spt-timer 600)
+                           (sp-int spt-next-time 100)
+                           (sp-launcher-by-id spt-next-launcher 419)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 419)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-scale-x (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters -0.04))
-                                                     (sp-int spt-timer 600)
-                                                     (sp-int spt-next-time 199)
-                                                     (sp-launcher-by-id spt-next-launcher 418)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 419 :init-specs ((sp-flt spt-scale-x (meters 0))
+                           (sp-flt spt-scalevel-x (meters -0.04))
+                           (sp-int spt-timer 600)
+                           (sp-int spt-next-time 199)
+                           (sp-launcher-by-id spt-next-launcher 418)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 417) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 9
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-func spt-birth-func 'birth-func-copy2-rot-color)
-                                   (sp-flt spt-num 2.0)
-                                   (sp-flt spt-scale-x (meters 4.0))
-                                   (sp-flt spt-scale-y (meters 1.5))
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 417 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-func spt-birth-func 'birth-func-copy2-rot-color)
+                           (sp-flt spt-num 2.0)
+                           (sp-flt spt-scale-x (meters 4))
+                           (sp-flt spt-scale-y (meters 1.5))
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9 bit12)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 133)
-      (new 'static 'sparticle-launch-group
-        :length 2
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-butterfly-sitting"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 2
-          (sp-item 420 :fade-after (meters 60.0) :flags (is-3d bit1) :period 600 :length 5)
-          (sp-item 421 :fade-after (meters 60.0) :flags (is-3d bit1) :period 600 :length 5)
-          )
-        :bounds
-        (new 'static 'sphere :y 819.2 :w 2048.0)
-        )
-      )
+(defpartgroup group-village1-butterfly-sitting
+  :id 133
+  :bounds (static-bspherem 0 0.2 0 0.5)
+  :parts
+  ((sp-item 420 :fade-after (meters 60) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 421 :fade-after (meters 60) :flags (is-3d bit1) :period 600 :length 5)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 420) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 0.05))
-                                   (sp-flt spt-scale-x (meters 0.9))
-                                   (sp-flt spt-rot-x 18204.445)
-                                   (sp-flt spt-rot-y (degrees 72.5))
-                                   (sp-flt spt-scale-y (meters 1.3))
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-rotvel-x (degrees 0.33333334))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12 left-multiply-quat)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 422)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 420 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 0.05))
+                           (sp-flt spt-scale-x (meters 0.9))
+                           (sp-flt spt-rot-x 18204.445)
+                           (sp-flt spt-rot-y (degrees 72.5))
+                           (sp-flt spt-scale-y (meters 1.3))
+                           (sp-flt spt-r 0.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-rotvel-x (degrees 0.33333334))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 bit12 left-multiply-quat)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 422)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 422)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-rotvel-x (degrees -0.31666666)) (sp-end))
-        )
-      )
+(defpart 422 :init-specs ((sp-flt spt-rotvel-x (degrees -0.31666666))))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 421) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 0.05))
-                                   (sp-flt spt-scale-x (meters 0.9))
-                                   (sp-flt spt-rot-x 14563.556)
-                                   (sp-flt spt-rot-y (degrees 72.5))
-                                   (sp-flt spt-scale-y (meters 1.3))
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-rotvel-x (degrees -0.33333334))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 bit12 left-multiply-quat)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 423)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 421 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 0.05))
+                           (sp-flt spt-scale-x (meters 0.9))
+                           (sp-flt spt-rot-x 14563.556)
+                           (sp-flt spt-rot-y (degrees 72.5))
+                           (sp-flt spt-scale-y (meters 1.3))
+                           (sp-flt spt-r 0.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-rotvel-x (degrees -0.33333334))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 bit12 left-multiply-quat)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 423)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 423)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-rotvel-x (degrees 0.31666666)) (sp-end))
-        )
-      )
+(defpart 423 :init-specs ((sp-flt spt-rotvel-x (degrees 0.31666666))))
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 134)
-      (new 'static 'sparticle-launch-group
-        :length 9
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-fountain"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 9
-          (sp-item 424 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 425 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 425 :fade-after (meters 150.0) :falloff-to (meters 150.0) :period 463 :length 139)
-          (sp-item 426 :fade-after (meters 90.0) :falloff-to (meters 90.0) :period 526 :length 186)
-          (sp-item 427 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 560 :length 212)
-          (sp-item 428 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 403 :length 296)
-          (sp-item 429 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-          (sp-item 430 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-          (sp-item 431 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-          )
-        :bounds (new 'static 'sphere :w 49152.0)
-        )
-      )
+(defpartgroup group-village1-fountain
+  :id 134
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 424 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 425 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 425 :fade-after (meters 150) :falloff-to (meters 150) :period 463 :length 139)
+    (sp-item 426 :fade-after (meters 90) :falloff-to (meters 90) :period 526 :length 186)
+    (sp-item 427 :fade-after (meters 100) :falloff-to (meters 100) :period 560 :length 212)
+    (sp-item 428 :fade-after (meters 100) :falloff-to (meters 100) :period 403 :length 296)
+    (sp-item 429 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 430 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 431 :fade-after (meters 40) :falloff-to (meters 40))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 431) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 4.0 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 112.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-fade-a -0.5688889)
-                                   (sp-flt spt-accel-y -2.7306666)
-                                   (sp-flt spt-friction 0.97)
-                                   (sp-int spt-timer 225)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 15.0) (degrees 75.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 431 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-rnd-flt spt-num 1.0 4.0 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 112.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
+                           (sp-flt spt-fade-a -0.5688889)
+                           (sp-flt spt-accel-y -2.7306666)
+                           (sp-flt spt-friction 0.97)
+                           (sp-int spt-timer 225)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-conerot-x (degrees 15.0) (degrees 75.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 430) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 22
-                                   (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                   (sp-flt spt-num 0.9)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 112.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-flt spt-a 0.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.0013333333) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-fade-a 1.0666667)
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-flt spt-friction 0.925)
-                                   (sp-int spt-timer 270)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12)
-                                   (sp-int-plain-rnd spt-next-time 15 14 1)
-                                   (sp-launcher-by-id spt-next-launcher 432)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 430 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                           (sp-flt spt-num 0.9)
+                           (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 112.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-flt spt-a 0.0)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.0013333333) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-fade-a 1.0666667)
+                           (sp-flt spt-accel-y -4.096)
+                           (sp-flt spt-friction 0.925)
+                           (sp-int spt-timer 270)
+                           (sp-cpuinfo-flags bit2 bit3 bit12)
+                           (sp-int-plain-rnd spt-next-time 15 14 1)
+                           (sp-launcher-by-id spt-next-launcher 432)
+                           (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 432)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.07111111) (sp-end))
-        )
-      )
+(defpart 432 :init-specs ((sp-flt spt-fade-a -0.07111111)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 426) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 2.0 4.0 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 112.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0026666666))
-                                   (sp-flt spt-fade-a -0.26666668)
-                                   (sp-flt spt-accel-y -8.192)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-userdata 45056.0)
-                                   (sp-func spt-func 'check-drop-level-village1-fountain-nosplash)
-                                   (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 426 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-rnd-flt spt-num 2.0 4.0 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 112.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0026666666))
+                           (sp-flt spt-fade-a -0.26666668)
+                           (sp-flt spt-accel-y -8.192)
+                           (sp-flt spt-friction 0.95)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-userdata 45056.0)
+                           (sp-func spt-func 'check-drop-level-village1-fountain-nosplash)
+                           (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 428) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 2.0 4.0 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 112.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0026666666))
-                                   (sp-flt spt-fade-a -0.26666668)
-                                   (sp-flt spt-accel-y -8.192)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-userdata 45056.0)
-                                   (sp-func spt-func 'check-drop-level-village1-fountain-nosplash)
-                                   (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 428 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-rnd-flt spt-num 2.0 4.0 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 112.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0026666666))
+                           (sp-flt spt-fade-a -0.26666668)
+                           (sp-flt spt-accel-y -8.192)
+                           (sp-flt spt-friction 0.95)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-userdata 45056.0)
+                           (sp-func spt-func 'check-drop-level-village1-fountain-nosplash)
+                           (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 120.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 427) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 2.0 4.0 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 112.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0026666666))
-                                   (sp-flt spt-fade-a -0.26666668)
-                                   (sp-flt spt-accel-y -8.192)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-userdata 45056.0)
-                                   (sp-func spt-func 'check-drop-level-village1-fountain-nosplash)
-                                   (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 427 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-rnd-flt spt-num 2.0 4.0 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 112.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0026666666))
+                           (sp-flt spt-fade-a -0.26666668)
+                           (sp-flt spt-accel-y -8.192)
+                           (sp-flt spt-friction 0.95)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-userdata 45056.0)
+                           (sp-func spt-func 'check-drop-level-village1-fountain-nosplash)
+                           (sp-rnd-flt spt-conerot-x (degrees 45.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 120.0) (degrees 120.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 425) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 3.0 4.0 1.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 112.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.013333334) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0026666666))
-                                   (sp-flt spt-fade-a -0.26666668)
-                                   (sp-flt spt-accel-y -8.192)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-userdata 45056.0)
-                                   (sp-func spt-func 'check-drop-level-village1-fountain-nosplash)
-                                   (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 425 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-rnd-flt spt-num 3.0 4.0 1.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 112.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.013333334) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0026666666))
+                           (sp-flt spt-fade-a -0.26666668)
+                           (sp-flt spt-accel-y -8.192)
+                           (sp-flt spt-friction 0.95)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-userdata 45056.0)
+                           (sp-func spt-func 'check-drop-level-village1-fountain-nosplash)
+                           (sp-rnd-flt spt-conerot-x (degrees 60.0) (degrees 30.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 240.0) (degrees 120.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0.4) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 429) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 24
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 3.0)
-                                   (sp-rnd-flt spt-y (meters 0.0) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 112.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.002) 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-scalevel-y (meters 0.0026666666))
-                                   (sp-flt spt-fade-a -0.26666668)
-                                   (sp-flt spt-accel-y -8.192)
-                                   (sp-flt spt-friction 0.95)
-                                   (sp-int spt-timer 150)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-flt spt-userdata 45056.0)
-                                   (sp-func spt-func 'check-drop-level-village1-fountain)
-                                   (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-radius (meters 0.3) (meters 0.3) 1.0)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 429 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 3.0)
+                           (sp-rnd-flt spt-y (meters 0) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.15) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 112.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0.0033333334) (meters 0.002) 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
+                           (sp-flt spt-scalevel-y (meters 0.0026666666))
+                           (sp-flt spt-fade-a -0.26666668)
+                           (sp-flt spt-accel-y -8.192)
+                           (sp-flt spt-friction 0.95)
+                           (sp-int spt-timer 150)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-flt spt-userdata 45056.0)
+                           (sp-func spt-func 'check-drop-level-village1-fountain)
+                           (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           (sp-rnd-flt spt-conerot-radius (meters 0.3) (meters 0.3) 1.0)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 424) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 18
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-rnd-flt spt-num 1.0 7.0 1.0)
-                                   (sp-rnd-flt spt-y (meters -0.4) (meters 0.4) 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.15) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 112.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.0013333333) 1.0)
-                                   (sp-flt spt-vel-y (meters 0.04))
-                                   (sp-flt spt-accel-y -4.096)
-                                   (sp-int spt-timer 390)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-int spt-next-time 195)
-                                   (sp-launcher-by-id spt-next-launcher 433)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 424 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-rnd-flt spt-num 1.0 7.0 1.0)
+                           (sp-rnd-flt spt-y (meters -0.4) (meters 0.4) 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.15) (meters 0.15) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 112.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-x (meters 0) (meters 0.0013333333) 1.0)
+                           (sp-flt spt-vel-y (meters 0.04))
+                           (sp-flt spt-accel-y -4.096)
+                           (sp-int spt-timer 390)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-int spt-next-time 195)
+                           (sp-launcher-by-id spt-next-launcher 433)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 433)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-scalevel-y (meters 0.0023076923)) (sp-end))
-        )
-      )
+(defpart 433 :init-specs ((sp-flt spt-scalevel-y (meters 0.0023076923))))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 434) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 32.0 1.0)
-                                   (sp-rnd-flt spt-g 112.0 64.0 1.0)
-                                   (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
-                                   (sp-flt spt-fade-a -0.5688889)
-                                   (sp-flt spt-accel-y -2.7306666)
-                                   (sp-int spt-timer 225)
-                                   (sp-cpuinfo-flags bit2 bit12)
-                                   (sp-rnd-flt spt-conerot-x (degrees 5.0) (degrees 60.0) 1.0)
-                                   (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 434 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-rnd-flt spt-scale-x (meters 0.05) (meters 0.075) 1.0)
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 32.0 1.0)
+                           (sp-rnd-flt spt-g 112.0 64.0 1.0)
+                           (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.013333334) 1.0)
+                           (sp-flt spt-fade-a -0.5688889)
+                           (sp-flt spt-accel-y -2.7306666)
+                           (sp-int spt-timer 225)
+                           (sp-cpuinfo-flags bit2 bit12)
+                           (sp-rnd-flt spt-conerot-x (degrees 5.0) (degrees 60.0) 1.0)
+                           (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 435) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-y (meters 0.02))
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-rnd-flt spt-r 96.0 16.0 1.0)
-                                   (sp-rnd-flt spt-g 112.0 16.0 1.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                   (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-rnd-flt spt-scalevel-y (meters 0.01) (meters 0.01) 1.0)
-                                   (sp-flt spt-fade-a -1.2222222)
-                                   (sp-int spt-timer 90)
-                                   (sp-cpuinfo-flags bit2 bit3 bit12)
-                                   (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 435 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-y (meters 0.02))
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-rnd-flt spt-r 96.0 16.0 1.0)
+                           (sp-rnd-flt spt-g 112.0 16.0 1.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                           (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.01) 1.0)
+                           (sp-rnd-flt spt-scalevel-y (meters 0.01) (meters 0.01) 1.0)
+                           (sp-flt spt-fade-a -1.2222222)
+                           (sp-int spt-timer 90)
+                           (sp-cpuinfo-flags bit2 bit3 bit12)
+                           (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                           )
+             )
 
 ;; definition for function check-drop-level-village1-fountain-nosplash
 (defun check-drop-level-village1-fountain-nosplash ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -1583,1048 +1258,821 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 135)
-      (new 'static 'sparticle-launch-group
-        :length 66
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village1-bird-lady-birds"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 66
-          (sp-item 436 :fade-after (meters 40.0) :period 900 :length 5 :binding 437)
-          (sp-item 437 :flags (bit1 start-dead launch-asap) :binding 438)
-          (sp-item 438 :flags (is-3d bit1 start-dead) :binding 439)
-          (sp-item 439 :flags (is-3d bit1 start-dead) :binding 440)
-          (sp-item 440 :flags (is-3d bit1 start-dead))
-          (sp-item 437 :flags (bit1 start-dead launch-asap) :binding 438)
-          (sp-item 438 :flags (is-3d bit1 start-dead) :binding 439)
-          (sp-item 439 :flags (is-3d bit1 start-dead) :binding 440)
-          (sp-item 440 :flags (is-3d bit1 start-dead))
-          (sp-item 441 :fade-after (meters 40.0) :period 600 :length 5 :binding 442)
-          (sp-item 442 :flags (bit1 start-dead launch-asap) :binding 443)
-          (sp-item 443 :flags (is-3d bit1 start-dead) :binding 444)
-          (sp-item 444 :flags (is-3d bit1 start-dead) :binding 445)
-          (sp-item 445 :flags (is-3d bit1 start-dead))
-          (sp-item 442 :flags (bit1 start-dead launch-asap) :binding 443)
-          (sp-item 443 :flags (is-3d bit1 start-dead) :binding 444)
-          (sp-item 444 :flags (is-3d bit1 start-dead) :binding 445)
-          (sp-item 445 :flags (is-3d bit1 start-dead))
-          (sp-item 446 :fade-after (meters 40.0) :period 900 :length 5 :binding 447)
-          (sp-item 447 :flags (bit1 start-dead launch-asap) :binding 448)
-          (sp-item 448 :flags (is-3d bit1 start-dead) :binding 449)
-          (sp-item 449 :flags (is-3d bit1 start-dead) :binding 450)
-          (sp-item 450 :flags (is-3d bit1 start-dead))
-          (sp-item 447 :flags (bit1 start-dead launch-asap) :binding 448)
-          (sp-item 448 :flags (is-3d bit1 start-dead) :binding 449)
-          (sp-item 449 :flags (is-3d bit1 start-dead) :binding 450)
-          (sp-item 450 :flags (is-3d bit1 start-dead))
-          (sp-item 451 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-          (sp-item 452 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-          (sp-item 453 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-          (sp-item 454 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-          (sp-item 455 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-          (sp-item 456 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-          (sp-item 457 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-          (sp-item 458 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-          (sp-item 459 :fade-after (meters 40.0) :flags (is-3d bit1) :period 600 :length 5)
-          (sp-item 460 :fade-after (meters 40.0) :period 900 :length 5 :binding 461)
-          (sp-item 461 :flags (is-3d bit1 start-dead) :binding 462)
-          (sp-item 462 :flags (is-3d bit1 start-dead) :binding 463)
-          (sp-item 463 :flags (is-3d bit1 start-dead))
-          (sp-item 461 :flags (is-3d bit1 start-dead) :binding 462)
-          (sp-item 462 :flags (is-3d bit1 start-dead) :binding 463)
-          (sp-item 463 :flags (is-3d bit1 start-dead))
-          (sp-item 464 :fade-after (meters 40.0) :period 900 :length 5 :binding 465)
-          (sp-item 465 :flags (is-3d bit1 start-dead) :binding 466)
-          (sp-item 466 :flags (is-3d bit1 start-dead) :binding 467)
-          (sp-item 467 :flags (is-3d bit1 start-dead))
-          (sp-item 465 :flags (is-3d bit1 start-dead) :binding 466)
-          (sp-item 466 :flags (is-3d bit1 start-dead) :binding 467)
-          (sp-item 467 :flags (is-3d bit1 start-dead))
-          (sp-item 468 :fade-after (meters 40.0) :period 900 :length 5 :binding 469)
-          (sp-item 469 :flags (is-3d bit1 start-dead) :binding 470)
-          (sp-item 470 :flags (is-3d bit1 start-dead) :binding 471)
-          (sp-item 471 :flags (is-3d bit1 start-dead))
-          (sp-item 469 :flags (is-3d bit1 start-dead) :binding 470)
-          (sp-item 470 :flags (is-3d bit1 start-dead) :binding 471)
-          (sp-item 471 :flags (is-3d bit1 start-dead))
-          (sp-item 472 :fade-after (meters 40.0) :period 900 :length 5 :binding 473)
-          (sp-item 473 :flags (bit1 start-dead launch-asap) :binding 474)
-          (sp-item 474 :flags (is-3d bit1 start-dead) :binding 475)
-          (sp-item 475 :flags (is-3d bit1 start-dead) :binding 476)
-          (sp-item 476 :flags (is-3d bit1 start-dead))
-          (sp-item 473 :flags (bit1 start-dead launch-asap) :binding 474)
-          (sp-item 474 :flags (is-3d bit1 start-dead) :binding 475)
-          (sp-item 475 :flags (is-3d bit1 start-dead) :binding 476)
-          (sp-item 476 :flags (is-3d bit1 start-dead))
-          )
-        :bounds
-        (new 'static 'sphere :z 24576.0 :w 73728.0)
-        )
-      )
+(defpartgroup group-village1-bird-lady-birds
+  :id 135
+  :bounds (static-bspherem 0 0 6 18)
+  :parts
+  ((sp-item 436 :fade-after (meters 40) :period 900 :length 5 :binding 437)
+    (sp-item 437 :flags (bit1 start-dead launch-asap) :binding 438)
+    (sp-item 438 :flags (is-3d bit1 start-dead) :binding 439)
+    (sp-item 439 :flags (is-3d bit1 start-dead) :binding 440)
+    (sp-item 440 :flags (is-3d bit1 start-dead))
+    (sp-item 437 :flags (bit1 start-dead launch-asap) :binding 438)
+    (sp-item 438 :flags (is-3d bit1 start-dead) :binding 439)
+    (sp-item 439 :flags (is-3d bit1 start-dead) :binding 440)
+    (sp-item 440 :flags (is-3d bit1 start-dead))
+    (sp-item 441 :fade-after (meters 40) :period 600 :length 5 :binding 442)
+    (sp-item 442 :flags (bit1 start-dead launch-asap) :binding 443)
+    (sp-item 443 :flags (is-3d bit1 start-dead) :binding 444)
+    (sp-item 444 :flags (is-3d bit1 start-dead) :binding 445)
+    (sp-item 445 :flags (is-3d bit1 start-dead))
+    (sp-item 442 :flags (bit1 start-dead launch-asap) :binding 443)
+    (sp-item 443 :flags (is-3d bit1 start-dead) :binding 444)
+    (sp-item 444 :flags (is-3d bit1 start-dead) :binding 445)
+    (sp-item 445 :flags (is-3d bit1 start-dead))
+    (sp-item 446 :fade-after (meters 40) :period 900 :length 5 :binding 447)
+    (sp-item 447 :flags (bit1 start-dead launch-asap) :binding 448)
+    (sp-item 448 :flags (is-3d bit1 start-dead) :binding 449)
+    (sp-item 449 :flags (is-3d bit1 start-dead) :binding 450)
+    (sp-item 450 :flags (is-3d bit1 start-dead))
+    (sp-item 447 :flags (bit1 start-dead launch-asap) :binding 448)
+    (sp-item 448 :flags (is-3d bit1 start-dead) :binding 449)
+    (sp-item 449 :flags (is-3d bit1 start-dead) :binding 450)
+    (sp-item 450 :flags (is-3d bit1 start-dead))
+    (sp-item 451 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 452 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 453 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 454 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 455 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 456 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 457 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 458 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 459 :fade-after (meters 40) :flags (is-3d bit1) :period 600 :length 5)
+    (sp-item 460 :fade-after (meters 40) :period 900 :length 5 :binding 461)
+    (sp-item 461 :flags (is-3d bit1 start-dead) :binding 462)
+    (sp-item 462 :flags (is-3d bit1 start-dead) :binding 463)
+    (sp-item 463 :flags (is-3d bit1 start-dead))
+    (sp-item 461 :flags (is-3d bit1 start-dead) :binding 462)
+    (sp-item 462 :flags (is-3d bit1 start-dead) :binding 463)
+    (sp-item 463 :flags (is-3d bit1 start-dead))
+    (sp-item 464 :fade-after (meters 40) :period 900 :length 5 :binding 465)
+    (sp-item 465 :flags (is-3d bit1 start-dead) :binding 466)
+    (sp-item 466 :flags (is-3d bit1 start-dead) :binding 467)
+    (sp-item 467 :flags (is-3d bit1 start-dead))
+    (sp-item 465 :flags (is-3d bit1 start-dead) :binding 466)
+    (sp-item 466 :flags (is-3d bit1 start-dead) :binding 467)
+    (sp-item 467 :flags (is-3d bit1 start-dead))
+    (sp-item 468 :fade-after (meters 40) :period 900 :length 5 :binding 469)
+    (sp-item 469 :flags (is-3d bit1 start-dead) :binding 470)
+    (sp-item 470 :flags (is-3d bit1 start-dead) :binding 471)
+    (sp-item 471 :flags (is-3d bit1 start-dead))
+    (sp-item 469 :flags (is-3d bit1 start-dead) :binding 470)
+    (sp-item 470 :flags (is-3d bit1 start-dead) :binding 471)
+    (sp-item 471 :flags (is-3d bit1 start-dead))
+    (sp-item 472 :fade-after (meters 40) :period 900 :length 5 :binding 473)
+    (sp-item 473 :flags (bit1 start-dead launch-asap) :binding 474)
+    (sp-item 474 :flags (is-3d bit1 start-dead) :binding 475)
+    (sp-item 475 :flags (is-3d bit1 start-dead) :binding 476)
+    (sp-item 476 :flags (is-3d bit1 start-dead))
+    (sp-item 473 :flags (bit1 start-dead launch-asap) :binding 474)
+    (sp-item 474 :flags (is-3d bit1 start-dead) :binding 475)
+    (sp-item 475 :flags (is-3d bit1 start-dead) :binding 476)
+    (sp-item 476 :flags (is-3d bit1 start-dead))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 472) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 0.8))
-                                   (sp-flt spt-y (meters 0.8))
-                                   (sp-flt spt-z 62668.8)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 472 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 0.8))
+                           (sp-flt spt-y (meters 0.8))
+                           (sp-flt spt-z (meters 15.3))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 473) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 2.0))
-                                   (sp-flt spt-y (meters 1.0666667))
-                                   (sp-flt spt-z 1024.0)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters 0.017777778))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 473 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 2))
+                           (sp-flt spt-y (meters 1.0666667))
+                           (sp-flt spt-z (meters 0.25))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-omega 0.0)
+                           (sp-flt spt-vel-x (meters 0.017777778))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit3 bit7)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 474) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-flt spt-rot-y (degrees -60.0))
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 474 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-flt spt-rot-y (degrees -60.0))
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 475) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 30.0))
-                                   (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 475 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 30.0))
+                           (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 476) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 30.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 476 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 30.0))
+                           (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 464) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 5.9))
-                                   (sp-flt spt-y (meters 2.4))
-                                   (sp-flt spt-z -20480.0)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-y (meters 0.006666667))
-                                   (sp-flt spt-accel-y -0.589824)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 450)
-                                   (sp-launcher-by-id spt-next-launcher 477)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 464 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 5.9))
+                           (sp-flt spt-y (meters 2.4))
+                           (sp-flt spt-z (meters -5))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-vel-y (meters 0.006666667))
+                           (sp-flt spt-accel-y -0.589824)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 450)
+                           (sp-launcher-by-id spt-next-launcher 477)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 465) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 465 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 466) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 466 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 467) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 467 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 468) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -8.0))
-                                   (sp-flt spt-y (meters 3.7))
-                                   (sp-flt spt-z 9011.2)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-y (meters 0.006666667))
-                                   (sp-flt spt-accel-y -0.589824)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 450)
-                                   (sp-launcher-by-id spt-next-launcher 477)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 468 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -8))
+                           (sp-flt spt-y (meters 3.7))
+                           (sp-flt spt-z (meters 2.2))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-vel-y (meters 0.006666667))
+                           (sp-flt spt-accel-y -0.589824)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 450)
+                           (sp-launcher-by-id spt-next-launcher 477)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 469) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 469 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 470) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 470 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 471) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 471 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 460) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 1.0))
-                                   (sp-flt spt-y (meters 0.4))
-                                   (sp-flt spt-z 61440.0)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-vel-y (meters 0.006666667))
-                                   (sp-flt spt-accel-y -0.589824)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-int spt-next-time 450)
-                                   (sp-launcher-by-id spt-next-launcher 477)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 460 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 1))
+                           (sp-flt spt-y (meters 0.4))
+                           (sp-flt spt-z (meters 15))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-vel-y (meters 0.006666667))
+                           (sp-flt spt-accel-y -0.589824)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           (sp-int spt-next-time 450)
+                           (sp-launcher-by-id spt-next-launcher 477)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 477)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-accel-y 0.53248) (sp-end))
-        )
-      )
+(defpart 477 :init-specs ((sp-flt spt-accel-y 0.53248)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 461) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 461 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 462) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 462 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 463) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 463 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 457) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -6.0))
-                                   (sp-flt spt-y (meters 1.9))
-                                   (sp-flt spt-z 12902.4)
-                                   (sp-flt spt-scale-x (meters 0.6))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-flt spt-rot-y (degrees 270.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 0.6))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 457 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -6))
+                           (sp-flt spt-y (meters 1.9))
+                           (sp-flt spt-z (meters 3.15))
+                           (sp-flt spt-scale-x (meters 0.6))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-flt spt-rot-y (degrees 270.0))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-scale-y (meters 0.6))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 458) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -6.0))
-                                   (sp-flt spt-y (meters 1.9))
-                                   (sp-flt spt-z 12902.4)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-flt spt-rot-x -10922.667)
-                                   (sp-flt spt-rot-y (degrees 150.0))
-                                   (sp-flt spt-rot-z (degrees -60.0))
-                                   (sp-flt spt-scale-y (meters 1.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-rotvel-x (degrees 0.33333334))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 422)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 458 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -6))
+                           (sp-flt spt-y (meters 1.9))
+                           (sp-flt spt-z (meters 3.15))
+                           (sp-flt spt-scale-x (meters 0.4))
+                           (sp-flt spt-rot-x -10922.667)
+                           (sp-flt spt-rot-y (degrees 150.0))
+                           (sp-flt spt-rot-z (degrees -60.0))
+                           (sp-flt spt-scale-y (meters 1))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-rotvel-x (degrees 0.33333334))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 422)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 459) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -6.0))
-                                   (sp-flt spt-y (meters 1.9))
-                                   (sp-flt spt-z 12902.4)
-                                   (sp-flt spt-scale-x (meters 0.4))
-                                   (sp-flt spt-rot-x 43690.668)
-                                   (sp-flt spt-rot-y (degrees 30.0))
-                                   (sp-flt spt-rot-z (degrees 60.0))
-                                   (sp-flt spt-scale-y (meters 1.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-rotvel-x (degrees -0.33333334))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 423)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 459 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -6))
+                           (sp-flt spt-y (meters 1.9))
+                           (sp-flt spt-z (meters 3.15))
+                           (sp-flt spt-scale-x (meters 0.4))
+                           (sp-flt spt-rot-x 43690.668)
+                           (sp-flt spt-rot-y (degrees 30.0))
+                           (sp-flt spt-rot-z (degrees 60.0))
+                           (sp-flt spt-scale-y (meters 1))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-rotvel-x (degrees -0.33333334))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 423)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 454) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -5.5))
-                                   (sp-flt spt-y (meters 4.5))
-                                   (sp-flt spt-z -10240.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-flt spt-rot-y (degrees 210.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 454 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -5.5))
+                           (sp-flt spt-y (meters 4.5))
+                           (sp-flt spt-z (meters -2.5))
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-flt spt-rot-y (degrees 210.0))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 455) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -5.5))
-                                   (sp-flt spt-y (meters 4.5))
-                                   (sp-flt spt-z -10240.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-flt spt-rot-x -10922.667)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-flt spt-rot-z (degrees -60.0))
-                                   (sp-flt spt-scale-y (meters 1.0))
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-rotvel-x (degrees 0.33333334))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 422)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 455 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -5.5))
+                           (sp-flt spt-y (meters 4.5))
+                           (sp-flt spt-z (meters -2.5))
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-flt spt-rot-x -10922.667)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-flt spt-rot-z (degrees -60.0))
+                           (sp-flt spt-scale-y (meters 1))
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-rotvel-x (degrees 0.33333334))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 422)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 456) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -5.5))
-                                   (sp-flt spt-y (meters 4.5))
-                                   (sp-flt spt-z -10240.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-flt spt-rot-x 43690.668)
-                                   (sp-flt spt-rot-y (degrees -30.0))
-                                   (sp-flt spt-rot-z (degrees 60.0))
-                                   (sp-flt spt-scale-y (meters 1.0))
-                                   (sp-flt spt-r 196.0)
-                                   (sp-flt spt-g 196.0)
-                                   (sp-flt spt-b 196.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-rotvel-x (degrees -0.33333334))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 423)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 456 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -5.5))
+                           (sp-flt spt-y (meters 4.5))
+                           (sp-flt spt-z (meters -2.5))
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-flt spt-rot-x 43690.668)
+                           (sp-flt spt-rot-y (degrees -30.0))
+                           (sp-flt spt-rot-z (degrees 60.0))
+                           (sp-flt spt-scale-y (meters 1))
+                           (sp-flt spt-r 196.0)
+                           (sp-flt spt-g 196.0)
+                           (sp-flt spt-b 196.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-rotvel-x (degrees -0.33333334))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 423)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 451) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 17
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 2.0))
-                                   (sp-flt spt-y (meters 5.0))
-                                   (sp-flt spt-z -16384.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-flt spt-rot-y (degrees 180.0))
-                                   (sp-flt spt-rot-z (degrees 0.0))
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 451 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 2))
+                           (sp-flt spt-y (meters 5))
+                           (sp-flt spt-z (meters -4))
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-flt spt-rot-y (degrees 180.0))
+                           (sp-flt spt-rot-z (degrees 0.0))
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 452) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 2.0))
-                                   (sp-flt spt-y (meters 5.0))
-                                   (sp-flt spt-z -16384.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-flt spt-rot-x -10922.667)
-                                   (sp-flt spt-rot-y (degrees 60.0))
-                                   (sp-flt spt-rot-z (degrees -60.0))
-                                   (sp-flt spt-scale-y (meters 1.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-rotvel-x (degrees 0.33333334))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 422)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 452 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 2))
+                           (sp-flt spt-y (meters 5))
+                           (sp-flt spt-z (meters -4))
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-flt spt-rot-x -10922.667)
+                           (sp-flt spt-rot-y (degrees 60.0))
+                           (sp-flt spt-rot-z (degrees -60.0))
+                           (sp-flt spt-scale-y (meters 1))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-rotvel-x (degrees 0.33333334))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 422)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 478)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-rotvel-x (degrees -0.31666666)) (sp-end))
-        )
-      )
+(defpart 478 :init-specs ((sp-flt spt-rotvel-x (degrees -0.31666666))))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 453) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 20
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 2.0))
-                                   (sp-flt spt-y (meters 5.0))
-                                   (sp-flt spt-z -16384.0)
-                                   (sp-flt spt-scale-x (meters 0.3))
-                                   (sp-flt spt-rot-x 43690.668)
-                                   (sp-flt spt-rot-y (degrees -60.0))
-                                   (sp-flt spt-rot-z (degrees 60.0))
-                                   (sp-flt spt-scale-y (meters 1.0))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-rotvel-x (degrees -0.33333334))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
-                                   (sp-int spt-next-time 300)
-                                   (sp-launcher-by-id spt-next-launcher 423)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 453 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x8 :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 2))
+                           (sp-flt spt-y (meters 5))
+                           (sp-flt spt-z (meters -4))
+                           (sp-flt spt-scale-x (meters 0.3))
+                           (sp-flt spt-rot-x 43690.668)
+                           (sp-flt spt-rot-y (degrees -60.0))
+                           (sp-flt spt-rot-z (degrees 60.0))
+                           (sp-flt spt-scale-y (meters 1))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-rotvel-x (degrees -0.33333334))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit9 left-multiply-quat)
+                           (sp-int spt-next-time 300)
+                           (sp-launcher-by-id spt-next-launcher 423)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 479)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-rotvel-x (degrees 0.31666666)) (sp-end))
-        )
-      )
+(defpart 479 :init-specs ((sp-flt spt-rotvel-x (degrees 0.31666666))))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 446) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -6.4))
-                                   (sp-flt spt-y (meters 4.8))
-                                   (sp-flt spt-z 3072.0)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 446 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -6.4))
+                           (sp-flt spt-y (meters 4.8))
+                           (sp-flt spt-z (meters 0.75))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 447) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -0.7111111))
-                                   (sp-flt spt-y (meters 4.0))
-                                   (sp-flt spt-z 2048.0)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-omega 0.0)
-                                   (sp-flt spt-vel-x (meters 0.017777778))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 447 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -0.7111111))
+                           (sp-flt spt-y (meters 4))
+                           (sp-flt spt-z (meters 0.5))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-omega 0.0)
+                           (sp-flt spt-vel-x (meters 0.017777778))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit3 bit7)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 448) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-flt spt-rot-y (degrees -60.0))
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 448 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-flt spt-rot-y (degrees -60.0))
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 449) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 30.0))
-                                   (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 449 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 30.0))
+                           (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 450) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 30.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 450 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 30.0))
+                           (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 128.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 441) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -2.1))
-                                   (sp-flt spt-y (meters 3.7))
-                                   (sp-flt spt-z -7372.8)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-b 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 441 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -2.1))
+                           (sp-flt spt-y (meters 3.7))
+                           (sp-flt spt-z (meters -1.8))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-b 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 442) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 0.0))
-                                   (sp-flt spt-y (meters -1.8666667))
-                                   (sp-flt spt-z 2048.0)
-                                   (sp-flt spt-scale-x (meters 0.175))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-omega 20571.021)
-                                   (sp-flt spt-vel-x (meters 0.026666667))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 600)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 442 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 0))
+                           (sp-flt spt-y (meters -1.8666667))
+                           (sp-flt spt-z (meters 0.5))
+                           (sp-flt spt-scale-x (meters 0.175))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-omega 20571.021)
+                           (sp-flt spt-vel-x (meters 0.026666667))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer 600)
+                           (sp-cpuinfo-flags bit2 bit3 bit7)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 443) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 13
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-flt spt-rot-y (degrees 180.0))
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 64.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 443 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-flt spt-rot-y (degrees 180.0))
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 64.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 444) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees -90.0))
-                                   (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 64.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 444 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees -90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 64.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 445) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees -90.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 255.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 64.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 445 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees -90.0))
+                           (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 255.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 64.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 436) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters -2.3))
-                                   (sp-flt spt-y (meters 4.6))
-                                   (sp-flt spt-z -7782.4)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit3)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 436 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters -2.3))
+                           (sp-flt spt-y (meters 4.6))
+                           (sp-flt spt-z (meters -1.9))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit3)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 437) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 16
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-x (meters 0.0))
-                                   (sp-flt spt-y (meters 1.4222223))
-                                   (sp-flt spt-z 2048.0)
-                                   (sp-flt spt-scale-x (meters 0.25))
-                                   (sp-copy-from-other spt-scale-y -4)
-                                   (sp-flt spt-r 0.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-flt spt-omega 4551.1113)
-                                   (sp-flt spt-vel-x (meters 0.017777778))
-                                   (sp-flt spt-vel-y (meters 0.0))
-                                   (sp-flt spt-vel-z (meters 0.0))
-                                   (sp-int spt-timer 900)
-                                   (sp-cpuinfo-flags bit2 bit3 bit7)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 437 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-x (meters 0))
+                           (sp-flt spt-y (meters 1.4222223))
+                           (sp-flt spt-z (meters 0.5))
+                           (sp-flt spt-scale-x (meters 0.25))
+                           (sp-copy-from-other spt-scale-y -4)
+                           (sp-flt spt-r 0.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-flt spt-omega 4551.1113)
+                           (sp-flt spt-vel-x (meters 0.017777778))
+                           (sp-flt spt-vel-y (meters 0))
+                           (sp-flt spt-vel-z (meters 0))
+                           (sp-int spt-timer 900)
+                           (sp-cpuinfo-flags bit2 bit3 bit7)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 438) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 12
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 0.5))
-                                   (sp-flt spt-rot-x 16384.0)
-                                   (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                   (sp-flt spt-r 128.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-flt spt-a 128.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 438 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1b :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 0.5))
+                           (sp-flt spt-rot-x 16384.0)
+                           (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                           (sp-flt spt-r 128.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-flt spt-a 128.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 439) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 439 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees -60.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 440) (new 'static 'sparticle-launcher
-                                 :init-specs
-                                 (new 'static 'inline-array sp-field-init-spec 14
-                                   (sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
-                                   (sp-flt spt-num 1.0)
-                                   (sp-flt spt-scale-x (meters 1.0))
-                                   (sp-flt spt-rot-x 24576.0)
-                                   (sp-flt spt-rot-y (degrees 90.0))
-                                   (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
-                                   (sp-flt spt-scale-y (meters 0.5))
-                                   (sp-flt spt-r 64.0)
-                                   (sp-flt spt-g 128.0)
-                                   (sp-flt spt-b 255.0)
-                                   (sp-rnd-int spt-a 1115684864 1 64.0)
-                                   (sp-int spt-timer 5)
-                                   (sp-cpuinfo-flags bit2 bit9)
-                                   (sp-end)
-                                   )
-                                 )
-      )
+(defpart 440 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1c :page #x2))
+                           (sp-flt spt-num 1.0)
+                           (sp-flt spt-scale-x (meters 1))
+                           (sp-flt spt-rot-x 24576.0)
+                           (sp-flt spt-rot-y (degrees 90.0))
+                           (sp-rnd-flt spt-rot-z (degrees 120.0) (degrees 120.0) 1.0)
+                           (sp-flt spt-scale-y (meters 0.5))
+                           (sp-flt spt-r 64.0)
+                           (sp-flt spt-g 128.0)
+                           (sp-flt spt-b 255.0)
+                           (sp-rnd-int spt-a 1115684864 1 64.0)
+                           (sp-int spt-timer 5)
+                           (sp-cpuinfo-flags bit2 bit9)
+                           )
+             )
diff --git a/test/decompiler/reference/levels/village2/assistant-village2_REF.gc b/test/decompiler/reference/levels/village2/assistant-village2_REF.gc
index 5347d70409..4d5ee39b68 100644
--- a/test/decompiler/reference/levels/village2/assistant-village2_REF.gc
+++ b/test/decompiler/reference/levels/village2/assistant-village2_REF.gc
@@ -848,93 +848,73 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 288) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-assistant-bluehut-torch"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1322 :fade-after (meters 30.0) :falloff-to (meters 30.0))
-                                         (sp-item 1323 :fade-after (meters 60.0) :falloff-to (meters 80.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 61440.0)
-                                       )
-      )
+(defpartgroup group-assistant-bluehut-torch
+  :id 288
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 1322 :fade-after (meters 30) :falloff-to (meters 30))
+    (sp-item 1323 :fade-after (meters 60) :falloff-to (meters 80))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1322) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 100.0 28.0 1.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 80.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-fade-a -6.4)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1322 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 100.0 28.0 1.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 80.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-fade-a -6.4)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1323) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00016666666))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.2)
-                                    (sp-flt spt-fade-b -0.2)
-                                    (sp-flt spt-accel-y -8.192)
-                                    (sp-flt spt-friction 0.93)
-                                    (sp-int spt-timer 1200)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 140288.0)
-                                    (sp-func spt-func 'check-drop-level-assistant-bluehut)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 45.0) (degrees 180.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1323 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00016666666))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.2)
+                            (sp-flt spt-fade-b -0.2)
+                            (sp-flt spt-accel-y -8.192)
+                            (sp-flt spt-friction 0.93)
+                            (sp-int spt-timer 1200)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-flt spt-userdata 140288.0)
+                            (sp-func spt-func 'check-drop-level-assistant-bluehut)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 45.0) (degrees 180.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1324) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 3.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1324 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 3.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-flt spt-accel-y -0.68266666)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; definition for function check-drop-level-assistant-bluehut
 (defun check-drop-level-assistant-bluehut ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -977,573 +957,462 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 658)
-      (new 'static 'sparticle-launch-group
-        :length 27
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-levitator-blue-beam"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 27
-          (sp-item 2673 :fade-after (meters 120.0) :falloff-to (meters 140.0) :binding 2670)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
-          (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2672 :flags (bit1 start-dead))
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2672 :flags (bit1 start-dead))
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2672 :flags (bit1 start-dead))
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2672 :flags (bit1 start-dead))
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2672 :flags (bit1 start-dead))
-          (sp-item 2671 :flags (bit1 start-dead))
-          (sp-item 2674 :falloff-to (meters 400.0))
-          (sp-item 2675)
-          (sp-item 2676 :falloff-to (meters 300.0))
-          (sp-item 2693 :falloff-to (meters 400.0))
-          (sp-item 2694 :falloff-to (meters 400.0))
-          )
-        :bounds
-        (new 'static 'sphere :x -81920.0 :y 32768.0 :w 327680.0)
-        )
-      )
+(defpartgroup group-levitator-blue-beam
+  :id 658
+  :flags (use-local-clock)
+  :bounds (static-bspherem -20 8 0 80)
+  :parts
+  ((sp-item 2673 :fade-after (meters 120) :falloff-to (meters 140) :binding 2670)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2671)
+    (sp-item 2670 :flags (bit1 start-dead launch-asap) :binding 2672)
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2672 :flags (bit1 start-dead))
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2672 :flags (bit1 start-dead))
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2672 :flags (bit1 start-dead))
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2672 :flags (bit1 start-dead))
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2672 :flags (bit1 start-dead))
+    (sp-item 2671 :flags (bit1 start-dead))
+    (sp-item 2674 :falloff-to (meters 400))
+    (sp-item 2675)
+    (sp-item 2676 :falloff-to (meters 300))
+    (sp-item 2693 :falloff-to (meters 400))
+    (sp-item 2694 :falloff-to (meters 400))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2694) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2694 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 2.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees -1440.0) (degrees 2880.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.4)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2693) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -1440.0) (degrees 2880.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2693 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 2.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees -1440.0) (degrees 2880.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.3) (meters 0.1) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.4)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2673) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.025 0.025 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.053333335))
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2673 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.025 0.025 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.053333335))
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2670) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 4096.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2670 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2671) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2671 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.4)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2672) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2672 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.4)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2674) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-r 16.0 48.0 1.0)
-                                    (sp-rnd-flt spt-g 16.0 48.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-vel-y (meters 0.32))
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters -1.5) (meters 1.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2674 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-r 16.0 48.0 1.0)
+                            (sp-rnd-flt spt-g 16.0 48.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-vel-y (meters 0.32))
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters -1.5) (meters 1.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2676) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-vel-y (meters 0.10666667))
-                                    (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-flt spt-conerot-x (degrees 102.0))
-                                    (sp-flt spt-conerot-y (degrees -90.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2676 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-vel-y (meters 0.10666667))
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-conerot-x (degrees 102.0))
+                            (sp-flt spt-conerot-y (degrees -90.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2675) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2675 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 659) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-levitator-blue-beam-impact"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2695)
-                                         (sp-item 2696 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         (sp-item 2677)
-                                         )
-                                       :bounds (new 'static 'sphere :w 139264.0)
-                                       )
-      )
+(defpartgroup group-levitator-blue-beam-impact
+  :id 659
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 34)
+  :parts
+  ((sp-item 2695) (sp-item 2696 :fade-after (meters 200) :falloff-to (meters 200)) (sp-item 2677))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2696) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 2.0 6.0 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.005))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.26666668)
-                                    (sp-flt spt-fade-g -1.0666667)
-                                    (sp-flt spt-fade-b 0.0)
-                                    (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
-                                    (sp-flt spt-friction 0.95)
-                                    (sp-int-plain-rnd spt-timer 60 59 1)
-                                    (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 30.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters -0.5) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2696 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 2.0 6.0 1.0)
+                            (sp-rnd-flt spt-y (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.005))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.26666668)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-b 0.0)
+                            (sp-rnd-flt spt-accel-y -1.3653333 -1.3653333 1.0)
+                            (sp-flt spt-friction 0.95)
+                            (sp-int-plain-rnd spt-timer 60 59 1)
+                            (sp-cpuinfo-flags bit0 bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 30.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters -0.5) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2695) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 180.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 255.0)
-                                    (sp-flt spt-b 255.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2695 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 180.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 255.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2677) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 6.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 180.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 16.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -5.12)
-                                    (sp-int spt-timer 10)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2677 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 180.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 16.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -5.12)
+                            (sp-int spt-timer 10)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 1440.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 660)
-      (new 'static 'sparticle-launch-group
-        :length 38
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-levitator-on-big"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 38
-          (sp-item 2751 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 2750)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
-          (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2797 :flags (bit1 start-dead))
-          (sp-item 2798 :flags (bit1 start-dead))
-          (sp-item 2678)
-          )
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-levitator-on-big
+  :id 660
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2751 :fade-after (meters 100) :falloff-to (meters 100) :binding 2750)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2797)
+    (sp-item 2750 :flags (bit1 start-dead launch-asap) :binding 2798)
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2797 :flags (bit1 start-dead))
+    (sp-item 2798 :flags (bit1 start-dead))
+    (sp-item 2678)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2678)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-z -4.096 8.192 1.0)
-                                                     (sp-flt spt-scale-x (meters 9.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -3.2)
-                                                     (sp-int spt-timer 40)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2678 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+                            (sp-flt spt-scale-x (meters 9))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -3.2)
+                            (sp-int spt-timer 40)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2751) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2751 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2750) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-z 12288.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2750 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-flt spt-z (meters 3))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2797) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 0.4 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2797 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.4 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.4)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2798) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 0.4 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.4)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2798 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.4 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.2) (meters 0.1) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.4)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 661) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-levitator-on-small"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2679))
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-levitator-on-small
+  :id 661
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2679))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2679)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-z -4.096 8.192 1.0)
-                                                     (sp-flt spt-scale-x (meters 6.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -3.2)
-                                                     (sp-int spt-timer 40)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2679 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+                            (sp-flt spt-scale-x (meters 6))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -3.2)
+                            (sp-int spt-timer 40)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; definition for function assistant-levitator-blue-glow
 ;; INFO: Return type mismatch object vs none.
diff --git a/test/decompiler/reference/levels/village2/swamp-blimp_REF.gc b/test/decompiler/reference/levels/village2/swamp-blimp_REF.gc
index bcba633134..7489c767a2 100644
--- a/test/decompiler/reference/levels/village2/swamp-blimp_REF.gc
+++ b/test/decompiler/reference/levels/village2/swamp-blimp_REF.gc
@@ -47,218 +47,168 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 285) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #x96
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-tetherrock-explode"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 2065 :period 600 :length 5)
-                                         (sp-item 2066 :period 600 :length 40)
-                                         (sp-item 2067 :period 600 :length 20)
-                                         (sp-item 2068 :period 600 :length 20)
-                                         )
-                                       :bounds (new 'static 'sphere :w 65536.0)
-                                       )
-      )
+(defpartgroup group-tetherrock-explode
+  :id 285
+  :duration 150
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 2065 :period 600 :length 5)
+    (sp-item 2066 :period 600 :length 40)
+    (sp-item 2067 :period 600 :length 20)
+    (sp-item 2068 :period 600 :length 20)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2066) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.33) (meters 0.66) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 192.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
-                                    (sp-flt spt-friction 0.9)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 30 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2069)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2066 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.33) (meters 0.66) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 192.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.21333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -0.68266666 -0.68266666 1.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 30 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2069)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 2) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2069)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -1.4222223)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2069
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -1.4222223))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2068) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-flt spt-scale-y (meters 16.0))
-                                    (sp-flt spt-r 255.0)
-                                    (sp-flt spt-g 196.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.04))
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 60)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2068 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 3.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-flt spt-scale-x (meters 0.4))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-flt spt-scale-y (meters 16))
+                            (sp-flt spt-r 255.0)
+                            (sp-flt spt-g 196.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.04))
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 60)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2065) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-scale-x (meters 32.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -2.3272727)
-                                    (sp-int spt-timer 54)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2065 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-scale-x (meters 32))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -2.3272727)
+                            (sp-int spt-timer 54)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2067) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 192.0 64.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
-                                    (sp-flt spt-friction 0.8)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int spt-next-time 42)
-                                    (sp-launcher-by-id spt-next-launcher 2070)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 4.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2067 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 192.0 64.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.053333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.026666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-rnd-flt spt-accel-y 0.68266666 0.68266666 1.0)
+                            (sp-flt spt-friction 0.8)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 42)
+                            (sp-launcher-by-id spt-next-launcher 2070)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 4) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2070)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r -0.53333336)
-                                                     (sp-flt spt-fade-g -0.53333336)
-                                                     (sp-flt spt-fade-b -1.0583333)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2070
+  :init-specs
+  ((sp-flt spt-fade-r -0.53333336) (sp-flt spt-fade-g -0.53333336) (sp-flt spt-fade-b -1.0583333))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2017) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.2)
-                                    (sp-flt spt-y (meters 0.1))
-                                    (sp-flt spt-scale-x (meters 3.0))
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-flt spt-a 64.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.01) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit4 bit14)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 109)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2017 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-flt spt-y (meters 0.1))
+                            (sp-flt spt-scale-x (meters 3))
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-flt spt-a 64.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.016666668) (meters 0.01) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit4 bit14)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 109)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 287)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-swamp-tether-rock-hit"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 1321 :period 15 :length 5))
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
+(defpartgroup group-swamp-tether-rock-hit
+  :id 287
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1321 :period 15 :length 5))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1321) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 1.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 70.0 16.0 1.0)
-                                    (sp-rnd-flt spt-g 70.0 16.0 1.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-flt spt-userdata 0.0)
-                                    (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1321 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1d :page #x2))
+                            (sp-rnd-flt spt-num 1.0 1.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.3) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 70.0 16.0 1.0)
+                            (sp-rnd-flt spt-g 70.0 16.0 1.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-flt spt-userdata 0.0)
+                            (sp-rnd-flt spt-conerot-x (degrees 20.0) (degrees 50.000004) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; definition of type swamp-blimp-bank
 (deftype swamp-blimp-bank (basic)
diff --git a/test/decompiler/reference/levels/village2/village2-obs_REF.gc b/test/decompiler/reference/levels/village2/village2-obs_REF.gc
index 96a700aa97..20da160f50 100644
--- a/test/decompiler/reference/levels/village2/village2-obs_REF.gc
+++ b/test/decompiler/reference/levels/village2/village2-obs_REF.gc
@@ -504,88 +504,66 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 563) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-allpontoons-trail"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2841 :flags (is-3d) :period 900 :length 5)
-                                         (sp-item 2842 :flags (is-3d) :period 900 :length 5)
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-allpontoons-trail
+  :id 563
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2841 :flags (is-3d) :period 900 :length 5) (sp-item 2842 :flags (is-3d) :period 900 :length 5))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2841) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 9.0) 1.0)
-                                    (sp-flt spt-y (meters 0.1))
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.001) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2843)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2841 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 9) 1.0)
+                            (sp-flt spt-y (meters 0.1))
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.01) (meters 0.001) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 3.2)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 10 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2843)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2843)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.094814815) (sp-end))
-        )
-      )
+(defpart 2843 :init-specs ((sp-flt spt-fade-a -0.094814815)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2842) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 8.0) (meters 8.0) 1.0)
-                                    (sp-flt spt-y (meters 0.1))
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.001) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2843)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2842 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters 8) (meters 8) 1.0)
+                            (sp-flt spt-y (meters 0.1))
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.006666667) (meters 0.001) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 3.2)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int-plain-rnd spt-next-time 10 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2843)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; definition of type allpontoons
 (deftype allpontoons (process-drawable)
@@ -1347,234 +1325,186 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 564) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ogreboulder-trail"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 2319 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         (sp-item 2320 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 32768.0)
-                                       )
-      )
+(defpartgroup group-ogreboulder-trail
+  :id 564
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 2319 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 2320 :fade-after (meters 200) :falloff-to (meters 200))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2320) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-flt spt-b 32.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.04))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.21333334)
-                                    (sp-flt spt-fade-g -0.10666667)
-                                    (sp-flt spt-fade-b 0.10666667)
-                                    (sp-flt spt-fade-a -0.32)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2320 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-rnd-flt spt-a 48.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.04))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.21333334)
+                            (sp-flt spt-fade-g -0.10666667)
+                            (sp-flt spt-fade-b 0.10666667)
+                            (sp-flt spt-fade-a -0.32)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2319) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 8.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 96.0)
-                                    (sp-flt spt-b 32.0)
-                                    (sp-rnd-flt spt-a 80.0 80.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.04))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.53333336)
-                                    (sp-flt spt-fade-b -0.17777778)
-                                    (sp-flt spt-fade-a -1.0666667)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 180)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2319 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 8) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 96.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-rnd-flt spt-a 80.0 80.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0016666667) (meters 0.00083333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.04))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.53333336)
+                            (sp-flt spt-fade-b -0.17777778)
+                            (sp-flt spt-fade-a -1.0666667)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 551)
-      (new 'static 'sparticle-launch-group
-        :length 1
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-ogreboulder-hit-wall"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 1 (sp-item 2287 :period 900 :length 40))
-        :bounds (new 'static 'sphere :w 262144.0)
-        )
-      )
+(defpartgroup group-ogreboulder-hit-wall
+  :id 551
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2287 :period 900 :length 40))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2287) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 12.0)
-                                    (sp-rnd-flt spt-y (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 10.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-r 196.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-y (meters 1.4))
-                                    (sp-flt spt-fade-a -3.2)
-                                    (sp-int spt-timer 30)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2287 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 12.0)
+                            (sp-rnd-flt spt-y (meters 1) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.4) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 10) (meters 6) 1.0)
+                            (sp-rnd-flt spt-r 196.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-y (meters 1.4))
+                            (sp-flt spt-fade-a -3.2)
+                            (sp-int spt-timer 30)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 552) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #x384
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag use-local-clock)
-                                       :name "group-ogreboulder-splash"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2288 :period 900 :length 20)
-                                         (sp-item 2321 :flags (is-3d) :period 900 :length 10)
-                                         (sp-item 2322 :flags (is-3d) :period 900 :length 10)
-                                         )
-                                       :bounds (new 'static 'sphere :w 262144.0)
-                                       )
-      )
+(defpartgroup group-ogreboulder-splash
+  :id 552
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 64)
+  :parts
+  ((sp-item 2288 :period 900 :length 20)
+    (sp-item 2321 :flags (is-3d) :period 900 :length 10)
+    (sp-item 2322 :flags (is-3d) :period 900 :length 10)
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2321) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 9.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 16.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2323)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2321 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 9) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 16) (meters 8) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.026666667) (meters 0.026666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 3.2)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 10 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2323)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2323)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.094814815) (sp-end))
-        )
-      )
+(defpart 2323 :init-specs ((sp-flt spt-fade-a -0.094814815)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2322) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 8.0)
-                                    (sp-rnd-flt spt-x (meters 8.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 4.5) (meters 3.5) 1.0)
-                                    (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 3.2)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 10 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 2323)
-                                    (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2322 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 8.0)
+                            (sp-rnd-flt spt-x (meters 8) (meters 8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 4.5) (meters 3.5) 1.0)
+                            (sp-rnd-flt spt-rot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 3.2)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 10 29 1)
+                            (sp-launcher-by-id spt-next-launcher 2323)
+                            (sp-rnd-flt spt-conerot-x (degrees 70.0) (degrees 20.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2288) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 16.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.0) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 50.0)
-                                    (sp-rnd-flt spt-g 80.0 64.0 1.0)
-                                    (sp-flt spt-b 200.0)
-                                    (sp-rnd-flt spt-a 48.0 48.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.16)
-                                    (sp-rnd-flt spt-accel-y 2.048 2.048 1.0)
-                                    (sp-flt spt-friction 0.85)
-                                    (sp-int spt-timer 660)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 90.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 8.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2288 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 16.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12) (meters 6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 50.0)
+                            (sp-rnd-flt spt-g 80.0 64.0 1.0)
+                            (sp-flt spt-b 200.0)
+                            (sp-rnd-flt spt-a 48.0 48.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.10666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.026666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.16)
+                            (sp-rnd-flt spt-accel-y 2.048 2.048 1.0)
+                            (sp-flt spt-friction 0.85)
+                            (sp-int spt-timer 660)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 90.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 8) 1.0)
+                            )
+              )
 
 ;; definition for function ogreboss-village2-trans
 (defbehavior ogreboss-village2-trans ogreboss-village2 ()
diff --git a/test/decompiler/reference/levels/village2/village2-part2_REF.gc b/test/decompiler/reference/levels/village2/village2-part2_REF.gc
index 04e35c78cd..82a1cff104 100644
--- a/test/decompiler/reference/levels/village2/village2-part2_REF.gc
+++ b/test/decompiler/reference/levels/village2/village2-part2_REF.gc
@@ -2,3726 +2,3150 @@
 (in-package goal)
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1208)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.10666667) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1209)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.16) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1210)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -2.6666667) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 277)
-      (new 'static 'sparticle-launch-group
-        :length 56
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-village2-waterfall-29"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 56
-          (sp-item 1211)
-          (sp-item 1211 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1211 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1212 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1213 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1214)
-          (sp-item 1214 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1214 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1215 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1216 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1217)
-          (sp-item 1217 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1217 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1218 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1219 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1220)
-          (sp-item 1220 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1220 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1221 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1222 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1223)
-          (sp-item 1223 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1223 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1224)
-          (sp-item 1224 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1224 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1225 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1226 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1227 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1228)
-          (sp-item 1228 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1228 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1229 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
-          (sp-item 1230)
-          (sp-item 1230 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1230 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1231 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
-          (sp-item 1232)
-          (sp-item 1232 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1232 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1233 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
-          (sp-item 1234)
-          (sp-item 1234 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1234 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1235)
-          (sp-item 1235 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1235 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1236 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1237 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1238 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1239 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1240)
-          (sp-item 1240 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1240 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1241 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1242 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 90112.0 :w 143360.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1211) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                    (sp-flt spt-x (meters -7.0))
-                                    (sp-rnd-flt spt-y (meters 41.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -30720.0 12288.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.033333335))
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -1.8652096)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 225)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 210)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1214) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                    (sp-flt spt-x (meters -12.0))
-                                    (sp-rnd-flt spt-y (meters 42.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -14336.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.033333335))
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -1.8652096)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 225)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 210)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1217) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 0.8 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 24.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.033333335) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -1.8652096)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 180)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 195)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1220) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 0.8 1.0)
-                                    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 27.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -40960.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.016666668) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.033333335) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-rnd-flt spt-accel-y -9.557333 -1.3653333 1.0)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 195)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1223) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 28.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -40960.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.016666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-rnd-flt spt-accel-y -9.557333 -1.3653333 1.0)
-                                    (sp-int spt-timer 165)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1224) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                    (sp-rnd-flt spt-x (meters 6.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 26.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -38912.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.033333335) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -1.8652096)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 195)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 180)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -15.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1212) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -7.0))
-                                    (sp-rnd-flt spt-y (meters 41.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -30720.0 12288.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.1377778)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 330)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -30.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1215) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -12.0))
-                                    (sp-rnd-flt spt-y (meters 42.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -14336.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.1377778)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 330)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1218) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 23.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.1377778)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 270)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1221) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-x (meters -4.0) (meters 10.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 27.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -40960.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.033333335) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-rnd-flt spt-accel-y -9.557333 -1.3653333 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1225) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 6.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 26.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -38912.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.1377778)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -15.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1213)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-                                                     (sp-flt spt-x (meters -7.0))
-                                                     (sp-rnd-flt spt-y (meters 41.5) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-z -30720.0 12288.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 192.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.018333333))
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.015136719))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-x -0.5688889)
-                                                     (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                                     (sp-int spt-timer 840)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int spt-next-time 405)
-                                                     (sp-launcher-by-id spt-next-launcher 1210)
-                                                     (sp-flt spt-rotate-y (degrees -30.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1216)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-                                                     (sp-flt spt-x (meters -12.0))
-                                                     (sp-rnd-flt spt-y (meters 42.5) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-z -14336.0 8192.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 192.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.018333333))
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.015136719))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-x -0.5688889)
-                                                     (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                                     (sp-int spt-timer 840)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int spt-next-time 405)
-                                                     (sp-launcher-by-id spt-next-launcher 1210)
-                                                     (sp-flt spt-rotate-y (degrees -90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1219)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-                                                     (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 23.5) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-z 2048.0 16384.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 192.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.018333333) (meters 0.01) 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.015136719))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-x -0.5688889)
-                                                     (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                                     (sp-int spt-timer 360)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int spt-next-time 405)
-                                                     (sp-launcher-by-id spt-next-launcher 1210)
-                                                     (sp-flt spt-rotate-y (degrees -110.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1222) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters -4.0) (meters 8.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 27.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -40960.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.033333335) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.015136719))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
-                                    (sp-int spt-timer 255)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1227) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 28.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -40960.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.033333335) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.015136719))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
-                                    (sp-int spt-timer 255)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1226)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-                                                     (sp-rnd-flt spt-x (meters 6.0) (meters 1.0) 1.0)
-                                                     (sp-rnd-flt spt-y (meters 26.0) (meters 1.5) 1.0)
-                                                     (sp-rnd-flt spt-z -38912.0 8192.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 192.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.018333333) (meters 0.01) 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.015136719))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-x -0.5688889)
-                                                     (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                                     (sp-int spt-timer 390)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int spt-next-time 435)
-                                                     (sp-launcher-by-id spt-next-launcher 1210)
-                                                     (sp-flt spt-rotate-y (degrees -15.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1228) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.05 1.0)
-                                    (sp-rnd-flt spt-x (meters 2.0) (meters 7.0) 1.0)
-                                    (sp-flt spt-y (meters 12.5))
-                                    (sp-rnd-flt spt-z 61440.0 40960.0 1.0)
-                                    (sp-flt spt-scale-x (meters 12.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-flt spt-accel-y 0.013653334)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 45 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 1209)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1229) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.05)
-                                    (sp-rnd-flt spt-x (meters 3.0) (meters 5.0) 1.0)
-                                    (sp-flt spt-y (meters 7.0))
-                                    (sp-rnd-flt spt-z 65536.0 49152.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 92.0)
-                                    (sp-flt spt-g 92.0)
-                                    (sp-flt spt-b 92.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.2)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1208)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1230) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-rnd-flt spt-num 0.035 0.03 1.0)
-                                    (sp-rnd-flt spt-x (meters 3.5) (meters 5.0) 1.0)
-                                    (sp-flt spt-y (meters 12.5))
-                                    (sp-rnd-flt spt-z 6144.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 12.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-flt spt-accel-y 0.013653334)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 45 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 1209)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1231) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.025)
-                                    (sp-rnd-flt spt-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 8.0))
-                                    (sp-rnd-flt spt-z 12288.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 92.0)
-                                    (sp-flt spt-g 92.0)
-                                    (sp-flt spt-b 92.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.21333334)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1208)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1232) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-rnd-flt spt-num 0.035 0.03 1.0)
-                                    (sp-rnd-flt spt-x (meters -7.5) (meters 5.0) 1.0)
-                                    (sp-flt spt-y (meters 12.5))
-                                    (sp-rnd-flt spt-z -67584.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 12.5))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-flt spt-accel-y 0.013653334)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 45 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 1209)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1233) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.025)
-                                    (sp-rnd-flt spt-x (meters -6.5) (meters 3.0) 1.0)
-                                    (sp-flt spt-y (meters 8.0))
-                                    (sp-rnd-flt spt-z -63488.0 12288.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 92.0)
-                                    (sp-flt spt-g 92.0)
-                                    (sp-flt spt-b 92.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.21333334)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1208)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1234) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-flt spt-x (meters -6.0))
-                                    (sp-rnd-flt spt-y (meters 43.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z 43008.0 18432.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.05))
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -2.7978141)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 195)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1235) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.03 1.0 1.0)
-                                    (sp-flt spt-x (meters -6.0))
-                                    (sp-rnd-flt spt-y (meters 43.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z 61440.0 12288.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.05))
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -2.7978141)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 315)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 282)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1236) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.3)
-                                    (sp-flt spt-x (meters -6.0))
-                                    (sp-rnd-flt spt-y (meters 43.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z 43008.0 10240.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.043333333) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.8488889)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1237) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.7)
-                                    (sp-flt spt-x (meters -6.0))
-                                    (sp-rnd-flt spt-y (meters 43.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z 53248.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.043333333) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.8488889)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 435)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1238)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 26
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.1 0.1 1.0)
-                                                     (sp-flt spt-x (meters -6.0))
-                                                     (sp-rnd-flt spt-y (meters 42.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z 57344.0 8192.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 192.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.028333334))
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                                     (sp-flt spt-vel-z (meters 0.0033333334))
-                                                     (sp-flt spt-scalevel-x (meters 0.015136719))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-x -0.87919194)
-                                                     (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int spt-next-time 540)
-                                                     (sp-launcher-by-id spt-next-launcher 1210)
-                                                     (sp-flt spt-rotate-y (degrees -90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1239)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.1 0.06 1.0)
-                                                     (sp-flt spt-x (meters -6.0))
-                                                     (sp-rnd-flt spt-y (meters 42.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z 40960.0 16384.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 192.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.028333334))
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.015136719))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-x -0.87919194)
-                                                     (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                                     (sp-int spt-timer 420)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int spt-next-time 390)
-                                                     (sp-launcher-by-id spt-next-launcher 1210)
-                                                     (sp-flt spt-rotate-y (degrees -90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1240) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-rnd-flt spt-y (meters 28.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z 40960.0 14336.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 1.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.033333335) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.033333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -2.7978141)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-flt spt-accel-z -1.8652096)
-                                    (sp-int spt-timer 204)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 225)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1241) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-rnd-flt spt-y (meters 28.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z 40960.0 14336.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.013333334) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.02) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.7066667)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-flt spt-accel-z -0.85333335)
-                                    (sp-int spt-timer 315)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1242) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.3 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-rnd-flt spt-y (meters 28.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z 40960.0 14336.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.038333334))
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.01) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.015136719))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-x -1.189495)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-flt spt-accel-z -0.51717174)
-                                    (sp-int spt-timer 420)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 360)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 278)
-      (new 'static 'sparticle-launch-group
-        :length 9
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-village2-waterfall-30"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 9
-          (sp-item 1243)
-          (sp-item 1243 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 1243 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-          (sp-item 1244 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1245 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 1246)
-          (sp-item 1246 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 1246 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-          (sp-item 1247 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
-          )
-        :bounds
-        (new 'static 'sphere :y 90112.0 :w 143360.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1243) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters -8.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 49.5))
-                                    (sp-rnd-flt spt-z -14336.0 28672.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.06666667))
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -3.7304192)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 330)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 369)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1244) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.5)
-                                    (sp-rnd-flt spt-x (meters -8.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 49.5))
-                                    (sp-rnd-flt spt-z -20480.0 40960.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -2.5600002)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1245) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters -7.0) (meters 3.5) 1.0)
-                                    (sp-flt spt-y (meters 49.5))
-                                    (sp-rnd-flt spt-z -16384.0 32768.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.038333334))
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                    (sp-flt spt-accel-x -1.189495)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-int spt-timer 630)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 666)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1246) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters 3.0) (meters 6.0) 1.0)
-                                    (sp-flt spt-y (meters 6.0))
-                                    (sp-rnd-flt spt-z -24576.0 49152.0 1.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-flt spt-accel-y 0.013653334)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 45 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 1209)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1247) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.05)
-                                    (sp-rnd-flt spt-x (meters 5.0) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters 2.5))
-                                    (sp-rnd-flt spt-z -32768.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 92.0)
-                                    (sp-flt spt-g 92.0)
-                                    (sp-flt spt-b 92.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.2)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1208)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 279) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :flags (sp-group-flag always-draw)
-                                       :name "group-village2-waterfall-31"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1 (sp-item 2324))
-                                       :bounds
-                                       (new 'static 'sphere :y 90112.0 :w 143360.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 280)
-      (new 'static 'sparticle-launch-group
-        :length 19
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-village2-waterfall-32"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 19
-          (sp-item 1253)
-          (sp-item 1253 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 1253 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-          (sp-item 1254 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1255 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 1256)
-          (sp-item 1256 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 1256 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-          (sp-item 1257 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
-          (sp-item 1258)
-          (sp-item 1258 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 1258 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-          (sp-item 1259 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1260 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 1261)
-          (sp-item 1261 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          (sp-item 1261 :fade-after (meters 240.0) :falloff-to (meters 240.0))
-          (sp-item 1262 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1263 :fade-after (meters 160.0) :falloff-to (meters 160.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 90112.0 :w 143360.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1253) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.266 0.333 1.0)
-                                    (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 50.5))
-                                    (sp-rnd-flt spt-z -55296.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.06666667))
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -3.7304192)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 420)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 180)
-                                    (sp-launcher-by-id spt-next-launcher 1264)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -15.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1264) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 9
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.04) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-accel-x -5.3542485)
-                                    (sp-flt spt-accel-z -3.212549)
-                                    (sp-int spt-next-time 255)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1254) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 50.5))
-                                    (sp-rnd-flt spt-z -55296.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -2.5600002)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 720)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1265)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -15.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1265) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 7
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-accel-x -1.3003175)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1255)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.3 0.2 1.0)
-                                                     (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters 50.5))
-                                                     (sp-rnd-flt spt-z -55296.0 4096.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 192.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.038333334))
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.015136719))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-x -1.189495)
-                                                     (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                                     (sp-int spt-timer 750)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int spt-next-time 420)
-                                                     (sp-launcher-by-id spt-next-launcher 1266)
-                                                     (sp-flt spt-rotate-y (degrees -15.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1266) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 10
-                                    (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.04) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.009765625))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-x -5.0567904)
-                                    (sp-flt spt-accel-z -2.696955)
-                                    (sp-int spt-next-time 405)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1256) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -3.0) (meters 12.0) 1.0)
-                                    (sp-flt spt-y (meters 6.0))
-                                    (sp-rnd-flt spt-z -77824.0 65536.0 1.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-flt spt-accel-y 0.013653334)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 45 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 1209)
-                                    (sp-flt spt-rotate-y (degrees -45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1257) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.05)
-                                    (sp-rnd-flt spt-x (meters -3.0) (meters 12.0) 1.0)
-                                    (sp-flt spt-y (meters 2.5))
-                                    (sp-rnd-flt spt-z -69632.0 49152.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 3.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 92.0)
-                                    (sp-flt spt-g 92.0)
-                                    (sp-flt spt-b 92.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.04) (meters 0.006666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.2)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1208)
-                                    (sp-flt spt-rotate-y (degrees -90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1258) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.033 1.2 1.0)
-                                    (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 50.5))
-                                    (sp-rnd-flt spt-z -8192.0 12288.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.06666667))
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -3.7304192)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 285)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 270)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -25.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1259) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters 50.5))
-                                    (sp-rnd-flt spt-z -12288.0 20480.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -2.5600002)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 405)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -25.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1260)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.3 0.2 1.0)
-                                                     (sp-rnd-flt spt-x (meters -12.0) (meters 1.0) 1.0)
-                                                     (sp-flt spt-y (meters 50.5))
-                                                     (sp-rnd-flt spt-z -12288.0 20480.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 192.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-flt spt-vel-x (meters 0.038333334))
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.015136719))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-x -1.189495)
-                                                     (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                                     (sp-int spt-timer 510)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int spt-next-time 495)
-                                                     (sp-launcher-by-id spt-next-launcher 1210)
-                                                     (sp-flt spt-rotate-y (degrees -25.000002))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1261) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.33 1.2 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 23.5) (meters 6.0) 1.0)
-                                    (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 1.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.06666667))
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -3.7304192)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 240)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1262) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 25.5) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.053333335) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -2.5600002)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 405)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-rnd-flt spt-rotate-y (degrees -45.0) (degrees 90.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1263) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 0.5 1.0)
-                                    (sp-rnd-flt spt-x (meters -2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 22.5) (meters 7.0) 1.0)
-                                    (sp-rnd-flt spt-z -12288.0 24576.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.06666667))
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.015136719))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-x -3.7304192)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 225)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 495)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 281)
-      (new 'static 'sparticle-launch-group
-        :length 19
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-village2-waterfall-33"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 19
-          (sp-item 1267)
-          (sp-item 1267 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1267 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1268)
-          (sp-item 1268 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1268 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1269 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1270 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1271 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1272 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1273)
-          (sp-item 1273 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1273 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1274 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1275 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1276)
-          (sp-item 1276 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1276 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1277 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
-          )
-        :bounds
-        (new 'static 'sphere :y 90112.0 :w 143360.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1267) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.4 1.0 1.0)
-                                    (sp-flt spt-x (meters -7.5))
-                                    (sp-rnd-flt spt-y (meters 48.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -16384.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -2.7978141)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 195)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1268) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.03 1.0 1.0)
-                                    (sp-flt spt-x (meters -7.5))
-                                    (sp-rnd-flt spt-y (meters 48.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -24576.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -2.7978141)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 322)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 345)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1269) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.3)
-                                    (sp-flt spt-x (meters -7.5))
-                                    (sp-rnd-flt spt-y (meters 48.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -16384.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.043333333) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.8488889)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1270) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.7)
-                                    (sp-flt spt-x (meters -7.5))
-                                    (sp-rnd-flt spt-y (meters 48.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -24576.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.043333333) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.8488889)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 435)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1271)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 26
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.1 0.1 1.0)
-                                                     (sp-flt spt-x (meters -7.0))
-                                                     (sp-rnd-flt spt-y (meters 47.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z -24576.0 8192.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 192.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 192.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                                     (sp-flt spt-vel-z (meters 0.0033333334))
-                                                     (sp-flt spt-scalevel-x (meters 0.015136719))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-x -0.87919194)
-                                                     (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                                     (sp-int spt-timer 570)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-int spt-next-time 630)
-                                                     (sp-launcher-by-id spt-next-launcher 1210)
-                                                     (sp-flt spt-rotate-y (degrees 90.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1272) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.06 1.0)
-                                    (sp-flt spt-x (meters -7.0))
-                                    (sp-rnd-flt spt-y (meters 47.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -16384.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.033333335) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.015136719))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-x -0.87919194)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-int spt-timer 420)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 390)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1273) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-flt spt-x (meters -1.5))
-                                    (sp-rnd-flt spt-y (meters 33.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -24576.0 18432.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.0) (meters 1.4) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 32.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.04) (meters 0.033333335) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.01) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -2.7978141)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-flt spt-accel-z -0.9326048)
-                                    (sp-int spt-timer 255)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 285)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1274) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -1.5))
-                                    (sp-rnd-flt spt-y (meters 33.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -24576.0 18432.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.013333334) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.01) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.7066667)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-flt spt-accel-z -0.7111111)
-                                    (sp-int spt-timer 375)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1275) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                    (sp-flt spt-x (meters -1.5))
-                                    (sp-rnd-flt spt-y (meters 33.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -24576.0 18432.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.006666667) (meters 0.016666668) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.015136719))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-x -1.5515151)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-flt spt-accel-z -0.51717174)
-                                    (sp-int spt-timer 480)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 540)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1276) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-flt spt-num 0.15)
-                                    (sp-rnd-flt spt-x (meters 2.5) (meters 12.0) 1.0)
-                                    (sp-flt spt-y (meters 7.0))
-                                    (sp-rnd-flt spt-z -45056.0 69632.0 1.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-flt spt-accel-y 0.013653334)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 45 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 1209)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1277) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.05)
-                                    (sp-rnd-flt spt-x (meters 3.5) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters 2.5))
-                                    (sp-rnd-flt spt-z -40960.0 61440.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 92.0)
-                                    (sp-flt spt-g 92.0)
-                                    (sp-flt spt-b 92.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.2)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1208)
-                                    (sp-flt spt-rotate-y (degrees 90.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 282)
-      (new 'static 'sparticle-launch-group
-        :length 58
-        :duration #xbb8
-        :linger-duration #x5dc
-        :flags (sp-group-flag always-draw)
-        :name "group-village2-waterfall-34"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 58
-          (sp-item 1278)
-          (sp-item 1278 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1278 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1279 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1280 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1281)
-          (sp-item 1281 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1281 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1282 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1283 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1284)
-          (sp-item 1284 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1284 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1285 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1286 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1287)
-          (sp-item 1287 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1287 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1288 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1289 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1290)
-          (sp-item 1290 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1290 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1291 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1292 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1293)
-          (sp-item 1293 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1293 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1294 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1295 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1296)
-          (sp-item 1296 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1296 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1297 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1298 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1300 :fade-after (meters 80.0) :falloff-to (meters 80.0))
-          (sp-item 1301 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1302)
-          (sp-item 1302 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1302 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1303)
-          (sp-item 1303 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1303 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1304)
-          (sp-item 1304 :fade-after (meters 150.0) :falloff-to (meters 150.0))
-          (sp-item 1304 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1305)
-          (sp-item 1305 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1305 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1306 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
-          (sp-item 1307)
-          (sp-item 1307 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1307 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1308 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
-          (sp-item 1309)
-          (sp-item 1309 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-          (sp-item 1309 :fade-after (meters 200.0) :falloff-to (meters 200.0))
-          (sp-item 1310 :fade-after (meters 160.0) :falloff-to (meters 160.0) :flags (is-3d))
-          )
-        :bounds
-        (new 'static 'sphere :x -61440.0 :y 69632.0 :z -40960.0 :w 163840.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1278) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 43.5))
-                                    (sp-rnd-flt spt-z 6144.0 10240.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.06666667))
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -3.7304192)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 384)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 345)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 120.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1281) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.15 0.075 1.0)
-                                    (sp-rnd-flt spt-x (meters -18.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 42.5))
-                                    (sp-rnd-flt spt-z 32768.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.06666667))
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -3.7304192)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 384)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 345)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 140.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1284) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.15 0.075 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 43.5))
-                                    (sp-rnd-flt spt-z -49152.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.06666667))
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -3.7304192)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 384)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 345)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1279) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.75)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 43.5))
-                                    (sp-rnd-flt spt-z 6144.0 10240.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -2.5600002)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 120.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1282) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.375)
-                                    (sp-rnd-flt spt-x (meters -18.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 43.5))
-                                    (sp-rnd-flt spt-z 32768.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -2.5600002)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 450)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 140.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1285) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.375)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 43.5))
-                                    (sp-rnd-flt spt-z -49152.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -2.5600002)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 510)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1280) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.375 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters -15.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 43.5))
-                                    (sp-rnd-flt spt-z 6144.0 10240.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.038333334))
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                    (sp-flt spt-accel-x -1.189495)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-int spt-timer 681)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 630)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 120.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1283) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.225 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -18.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 43.5))
-                                    (sp-rnd-flt spt-z 32768.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.038333334))
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                    (sp-flt spt-accel-x -1.189495)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-int spt-timer 681)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 630)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 140.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1286) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.225 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -20.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 43.5))
-                                    (sp-rnd-flt spt-z -49152.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.038333334))
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                    (sp-flt spt-accel-x -1.189495)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-int spt-timer 681)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 630)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 110.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1287) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.6 1.0)
-                                    (sp-rnd-flt spt-x (meters 26.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 4.5))
-                                    (sp-rnd-flt spt-z 63488.0 22528.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.06666667) (meters 0.016666668) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.01) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -4.6630235)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 195)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 165)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 190.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1290) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.15 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters 33.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters -1.0))
-                                    (sp-rnd-flt spt-z 63488.0 26624.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.033333335) (meters 0.016666668) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -2.7978141)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 165)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 190.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1288) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.75)
-                                    (sp-rnd-flt spt-x (meters 26.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 4.5))
-                                    (sp-rnd-flt spt-z 63488.0 22528.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.07333333) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -3.1288888)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 270)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 190.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1291) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.75)
-                                    (sp-rnd-flt spt-x (meters 33.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters -1.0))
-                                    (sp-rnd-flt spt-z 59392.0 34816.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.04) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.02) (meters 0.04) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -1.7066667)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 270)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 190.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1289) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.375 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters 26.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 4.5))
-                                    (sp-rnd-flt spt-z 59392.0 22528.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.041666668))
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                    (sp-flt spt-accel-x -1.2929293)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 345)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 190.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1292) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.375 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters 33.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters -1.0))
-                                    (sp-rnd-flt spt-z 59392.0 34816.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.031666666))
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                    (sp-flt spt-accel-x -1.0860606)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-int spt-timer 270)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 190.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1293) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.3 0.6 1.0)
-                                    (sp-rnd-flt spt-x (meters 24.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 4.5))
-                                    (sp-rnd-flt spt-z -116736.0 22528.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.016666668) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.01) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -3.7304192)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 135)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 165)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 60.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1294) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.75)
-                                    (sp-rnd-flt spt-x (meters 24.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 4.5))
-                                    (sp-rnd-flt spt-z -116736.0 22528.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -3.1288888)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 270)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 60.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1295) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.375 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters 24.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters 4.5))
-                                    (sp-rnd-flt spt-z -116736.0 22528.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.035))
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                    (sp-flt spt-accel-x -1.2929293)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 345)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 60.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1296) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.45 0.75 1.0)
-                                    (sp-rnd-flt spt-x (meters 38.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 4.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -43008.0 26624.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.016666668) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -3.7304192)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 165)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 130.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1297) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.75)
-                                    (sp-rnd-flt spt-x (meters 38.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 4.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -43008.0 26624.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -3.1288888)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 270)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 130.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1300) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 0.325)
-                                    (sp-rnd-flt spt-x (meters 45.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -43008.0 26624.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.026666667) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00024414062))
-                                    (sp-flt spt-scalevel-y (meters 0.001953125))
-                                    (sp-flt spt-fade-a 0.0)
-                                    (sp-flt spt-accel-x -3.1288888)
-                                    (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 130.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1298) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.375 0.3 1.0)
-                                    (sp-rnd-flt spt-x (meters 38.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 4.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -40960.0 30720.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.035))
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                    (sp-flt spt-accel-x -1.2929293)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 345)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-flt spt-rotate-y (degrees 130.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1301) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.15 0.225 1.0)
-                                    (sp-rnd-flt spt-x (meters 45.0) (meters 4.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters -1.0) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-z -43008.0 26624.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.035))
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0146484375))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-flt spt-scalevel-y (meters 0.0146484375))
-                                    (sp-flt spt-accel-x -1.2929293)
-                                    (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
-                                    (sp-int spt-timer 210)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-flt spt-rotate-y (degrees 130.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1302) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.15 0.45 1.0)
-                                    (sp-flt spt-x (meters -30.0))
-                                    (sp-rnd-flt spt-y (meters 3.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -75776.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -1.6786886)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 195)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 165)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-int-flt spt-launchrot-y (degrees 100.00001) 1 25486.223)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1303) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.15 0.4 1.0)
-                                    (sp-flt spt-x (meters -24.0))
-                                    (sp-rnd-flt spt-y (meters 3.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -104448.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -1.6786886)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 195)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 165)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-y (degrees 160.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1304) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
-                                    (sp-rnd-flt spt-num 0.15 0.4 1.0)
-                                    (sp-flt spt-x (meters -26.0))
-                                    (sp-rnd-flt spt-y (meters 3.5) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -47104.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
-                                    (sp-flt spt-r 192.0)
-                                    (sp-flt spt-g 192.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-rnd-flt spt-a 24.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.033333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-scalevel-x (meters 0.0073242188))
-                                    (sp-flt spt-scalevel-y (meters 0.029296875))
-                                    (sp-flt spt-accel-x -1.6786886)
-                                    (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
-                                    (sp-int spt-timer 195)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int spt-next-time 165)
-                                    (sp-launcher-by-id spt-next-launcher 1210)
-                                    (sp-rnd-flt spt-launchrot-y (degrees 140.0) (degrees 40.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1305) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-rnd-flt spt-num 0.0375 0.0375 1.0)
-                                    (sp-rnd-flt spt-x (meters -9.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -192512.0 16384.0 1.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-flt spt-accel-y 0.013653334)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 45 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 1209)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1307) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-rnd-flt spt-num 0.075 0.015 1.0)
-                                    (sp-rnd-flt spt-x (meters -45.0) (meters 12.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -135168.0 20480.0 1.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-flt spt-accel-y 0.013653334)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 45 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 1209)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1309) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
-                                    (sp-rnd-flt spt-num 0.075 0.015 1.0)
-                                    (sp-rnd-flt spt-x (meters -49.0) (meters 6.0) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-rnd-flt spt-z -61440.0 24576.0 1.0)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 150.0 42.0 1.0)
-                                    (sp-flt spt-b 192.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-a 1.28)
-                                    (sp-flt spt-accel-y 0.013653334)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit12 bit14)
-                                    (sp-int-plain-rnd spt-next-time 45 29 1)
-                                    (sp-launcher-by-id spt-next-launcher 1209)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1306) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.00625)
-                                    (sp-rnd-flt spt-x (meters -9.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters -6.0))
-                                    (sp-rnd-flt spt-z -192512.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 92.0)
-                                    (sp-flt spt-g 92.0)
-                                    (sp-flt spt-b 92.0)
-                                    (sp-flt spt-a 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.026666667) (meters 0.006666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.21333334)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1208)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1308) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.0375)
-                                    (sp-rnd-flt spt-x (meters -44.0) (meters 10.0) 1.0)
-                                    (sp-flt spt-y (meters -6.0))
-                                    (sp-rnd-flt spt-z -131072.0 12288.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 92.0)
-                                    (sp-flt spt-g 92.0)
-                                    (sp-flt spt-b 92.0)
-                                    (sp-flt spt-a 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.026666667) (meters 0.006666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.21333334)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1208)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1310) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
-                                    (sp-flt spt-num 0.00625)
-                                    (sp-rnd-flt spt-x (meters -45.0) (meters 4.0) 1.0)
-                                    (sp-flt spt-y (meters -6.0))
-                                    (sp-rnd-flt spt-z -57344.0 16384.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 92.0)
-                                    (sp-flt spt-g 92.0)
-                                    (sp-flt spt-b 92.0)
-                                    (sp-flt spt-a 1.0)
-                                    (sp-rnd-flt spt-scalevel-x (meters 0.026666667) (meters 0.006666667) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.21333334)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
-                                    (sp-int spt-next-time 300)
-                                    (sp-launcher-by-id spt-next-launcher 1208)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 283)
-      (new 'static 'sparticle-launch-group
-        :length #xaf
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village2-sagehut-warpgate"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 175
-          (sp-item 1313 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1314 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1311)
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1311 :flags (bit1 start-dead launch-asap))
-          (sp-item 1315 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1312)
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          (sp-item 1312 :flags (bit1 start-dead launch-asap))
-          )
-        :bounds
-        (new 'static 'sphere :x 28672.0 :y 16384.0 :z -18432.0 :w 49152.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1315) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-scale-x (meters 0.25))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-x (meters 0.0033333334))
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1312) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 0.2 1.0)
-                                    (sp-flt spt-x (meters 4.4444447))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-z 22118.4 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 196.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-flt spt-accel-x 1.2136296)
-                                    (sp-flt spt-accel-z -0.75093335)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1313) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-rnd-flt spt-num 3.0 3.0 1.0)
-                                    (sp-flt spt-x (meters -0.5))
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 4096.0)
-                                    (sp-flt spt-g 3481.6)
-                                    (sp-flt spt-b 3481.6)
-                                    (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.02) 1.0)
-                                    (sp-flt spt-fade-b 5.936232)
-                                    (sp-int spt-timer 69)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1314) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 10
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 1.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.25))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer 690)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1311)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 0.4 1.0)
-                                                     (sp-flt spt-x (meters 4.4444447))
-                                                     (sp-flt spt-y (meters 4.0))
-                                                     (sp-flt spt-z 8601.6)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 8.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                                     (sp-flt spt-vel-x (meters -0.0044444446))
-                                                     (sp-flt spt-vel-z (meters -0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees 0.0) (degrees 1.2) 1.0)
-                                                     (sp-flt spt-fade-a 0.10666667)
-                                                     (sp-flt spt-accel-x 4.247704)
-                                                     (sp-int spt-timer 690)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit7)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 284) (new 'static 'sparticle-launch-group
-                                       :length 4
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village2-tree-fire"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 4
-                                         (sp-item 1316 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 1317 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 1318 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         (sp-item 1319 :fade-after (meters 120.0) :falloff-to (meters 120.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 40960.0 :w 49152.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1316) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-x (meters 2.2) (meters 0.5) 1.0)
-                                    (sp-flt spt-y (meters -0.9))
-                                    (sp-rnd-flt spt-z -3686.4 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a 1.0666667)
-                                    (sp-flt spt-accel-y 1.024)
-                                    (sp-int-plain-rnd spt-timer 180 29 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 60)
-                                    (sp-launcher-by-id spt-next-launcher 1320)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 0.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1320)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.53333336) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1317) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 1.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.2) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -11878.4 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a 1.0666667)
-                                    (sp-flt spt-accel-y 1.024)
-                                    (sp-int-plain-rnd spt-timer 180 29 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 60)
-                                    (sp-launcher-by-id spt-next-launcher 1320)
-                                    (sp-flt spt-conerot-x (degrees 45.0))
-                                    (sp-flt spt-conerot-y (degrees 240.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1318)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.2) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z -11878.4 2048.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.2) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 64.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0044444446))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.34133333)
-                                                     (sp-flt spt-fade-g -0.17066666)
-                                                     (sp-flt spt-fade-b -0.17066666)
-                                                     (sp-flt spt-fade-a 0.4)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-int spt-timer 1200)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 1174)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 4.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1319)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 28
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.2 0.2 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.2) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-z -11878.4 2048.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.2) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 64.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0044444446))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.34133333)
-                                                     (sp-flt spt-fade-g -0.17066666)
-                                                     (sp-flt spt-fade-b -0.17066666)
-                                                     (sp-flt spt-fade-a 0.4)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-int spt-timer 1200)
-                                                     (sp-cpuinfo-flags bit2 bit14)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 1174)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 4.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1208 :init-specs ((sp-flt spt-fade-a -0.10666667)))
+
+;; failed to figure out what this is:
+(defpart 1209 :init-specs ((sp-flt spt-fade-a -0.16)))
+
+;; failed to figure out what this is:
+(defpart 1210 :init-specs ((sp-flt spt-fade-a -2.6666667)))
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-waterfall-29
+  :id 277
+  :flags (always-draw)
+  :bounds (static-bspherem 0 22 0 35)
+  :parts
+  ((sp-item 1211)
+    (sp-item 1211 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1211 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1212 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1213 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1214)
+    (sp-item 1214 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1214 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1215 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1216 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1217)
+    (sp-item 1217 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1217 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1218 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1219 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1220)
+    (sp-item 1220 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1220 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1221 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1222 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1223)
+    (sp-item 1223 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1223 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1224)
+    (sp-item 1224 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1224 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1225 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1226 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1227 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1228)
+    (sp-item 1228 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1228 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1229 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
+    (sp-item 1230)
+    (sp-item 1230 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1230 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1231 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
+    (sp-item 1232)
+    (sp-item 1232 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1232 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1233 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
+    (sp-item 1234)
+    (sp-item 1234 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1234 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1235)
+    (sp-item 1235 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1235 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1236 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1237 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1238 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1239 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1240)
+    (sp-item 1240 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1240 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1241 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1242 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1211 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-flt spt-x (meters -7))
+                            (sp-rnd-flt spt-y (meters 41.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -7.5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.033333335))
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -1.8652096)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 225)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 210)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1214 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-flt spt-x (meters -12))
+                            (sp-rnd-flt spt-y (meters 42.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -3.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.033333335))
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -1.8652096)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 225)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 210)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1217 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.5 0.8 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 24) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.033333335) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -1.8652096)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 195)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1220 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.5 0.8 1.0)
+                            (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-y (meters 27.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -10) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.016666668) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.033333335) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-rnd-flt spt-accel-y -9.557333 -1.3653333 1.0)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 195)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1223 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 28.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -10) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.016666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-rnd-flt spt-accel-y -9.557333 -1.3653333 1.0)
+                            (sp-int spt-timer 165)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1224 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                            (sp-rnd-flt spt-x (meters 6) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 26) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -9.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 1.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.033333335) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -1.8652096)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 195)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 180)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1212 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -7))
+                            (sp-rnd-flt spt-y (meters 41.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -7.5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.1377778)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 330)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1215 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -12))
+                            (sp-rnd-flt spt-y (meters 42.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -3.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.1377778)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 330)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1218 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 23.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.1377778)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 270)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1221 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-x (meters -4) (meters 10) 1.0)
+                            (sp-rnd-flt spt-y (meters 27.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -10) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.033333335) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.033333335) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-rnd-flt spt-accel-y -9.557333 -1.3653333 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1225 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 6) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 26) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -9.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.02) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.1377778)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1213 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.2 1.0)
+                            (sp-flt spt-x (meters -7))
+                            (sp-rnd-flt spt-y (meters 41.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -7.5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.018333333))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -0.5688889)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 840)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 405)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees -30.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1216 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.2 1.0)
+                            (sp-flt spt-x (meters -12))
+                            (sp-rnd-flt spt-y (meters 42.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -3.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.018333333))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -0.5688889)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 840)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 405)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1219 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.2 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 23.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.018333333) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -0.5688889)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 360)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 405)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees -110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1222 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-y (meters 27.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -10) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.033333335) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
+                            (sp-int spt-timer 255)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1227 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 28.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -10) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.033333335) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.016666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-rnd-flt spt-accel-y -6.826667 -0.68266666 1.0)
+                            (sp-int spt-timer 255)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1226 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.2 1.0)
+                            (sp-rnd-flt spt-x (meters 6) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 26) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -9.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.018333333) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -0.5688889)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 390)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 435)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1228 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.05 1.0)
+                            (sp-rnd-flt spt-x (meters 2) (meters 7) 1.0)
+                            (sp-flt spt-y (meters 12.5))
+                            (sp-rnd-flt spt-z (meters 15) (meters 10) 1.0)
+                            (sp-flt spt-scale-x (meters 12.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 150.0 42.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-flt spt-accel-y 0.013653334)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 45 29 1)
+                            (sp-launcher-by-id spt-next-launcher 1209)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1229 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 0.05)
+                            (sp-rnd-flt spt-x (meters 3) (meters 5) 1.0)
+                            (sp-flt spt-y (meters 7))
+                            (sp-rnd-flt spt-z (meters 16) (meters 12) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 92.0)
+                            (sp-flt spt-g 92.0)
+                            (sp-flt spt-b 92.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.2)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1208)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1230 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-rnd-flt spt-num 0.035 0.03 1.0)
+                            (sp-rnd-flt spt-x (meters 3.5) (meters 5) 1.0)
+                            (sp-flt spt-y (meters 12.5))
+                            (sp-rnd-flt spt-z (meters 1.5) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 12.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 150.0 42.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-flt spt-accel-y 0.013653334)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 45 29 1)
+                            (sp-launcher-by-id spt-next-launcher 1209)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1231 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 0.025)
+                            (sp-rnd-flt spt-x (meters 3) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 8))
+                            (sp-rnd-flt spt-z (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 92.0)
+                            (sp-flt spt-g 92.0)
+                            (sp-flt spt-b 92.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1208)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1232 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-rnd-flt spt-num 0.035 0.03 1.0)
+                            (sp-rnd-flt spt-x (meters -7.5) (meters 5) 1.0)
+                            (sp-flt spt-y (meters 12.5))
+                            (sp-rnd-flt spt-z (meters -16.5) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 12.5))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 150.0 42.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-flt spt-accel-y 0.013653334)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 45 29 1)
+                            (sp-launcher-by-id spt-next-launcher 1209)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1233 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 0.025)
+                            (sp-rnd-flt spt-x (meters -6.5) (meters 3) 1.0)
+                            (sp-flt spt-y (meters 8))
+                            (sp-rnd-flt spt-z (meters -15.5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 92.0)
+                            (sp-flt spt-g 92.0)
+                            (sp-flt spt-b 92.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1208)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1234 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-flt spt-x (meters -6))
+                            (sp-rnd-flt spt-y (meters 43) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 10.5) (meters 4.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.05))
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -2.7978141)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 195)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1235 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.03 1.0 1.0)
+                            (sp-flt spt-x (meters -6))
+                            (sp-rnd-flt spt-y (meters 43) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 15) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.05))
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -2.7978141)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 315)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 282)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1236 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.3)
+                            (sp-flt spt-x (meters -6))
+                            (sp-rnd-flt spt-y (meters 43) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 10.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.043333333) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.8488889)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1237 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.7)
+                            (sp-flt spt-x (meters -6))
+                            (sp-rnd-flt spt-y (meters 43) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 13) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.043333333) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.8488889)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 435)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1238 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.1 1.0)
+                            (sp-flt spt-x (meters -6))
+                            (sp-rnd-flt spt-y (meters 42.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 14) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.028333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-flt spt-vel-z (meters 0.0033333334))
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -0.87919194)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 540)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1239 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.06 1.0)
+                            (sp-flt spt-x (meters -6))
+                            (sp-rnd-flt spt-y (meters 42.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 10) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.028333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -0.87919194)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 420)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 390)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1240 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-rnd-flt spt-y (meters 28) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 10) (meters 3.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 1.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.033333335) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.033333335) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -2.7978141)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-flt spt-accel-z -1.8652096)
+                            (sp-int spt-timer 204)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 225)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1241 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-rnd-flt spt-y (meters 28) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 10) (meters 3.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.013333334) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.02) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.7066667)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-flt spt-accel-z -0.85333335)
+                            (sp-int spt-timer 315)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1242 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.3 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-rnd-flt spt-y (meters 28) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters 10) (meters 3.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.038333334))
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.01) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -1.189495)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-flt spt-accel-z -0.51717174)
+                            (sp-int spt-timer 420)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 360)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-waterfall-30
+  :id 278
+  :flags (always-draw)
+  :bounds (static-bspherem 0 22 0 35)
+  :parts
+  ((sp-item 1243)
+    (sp-item 1243 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1243 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1244 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1245 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1246)
+    (sp-item 1246 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1246 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1247 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1243 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters -8) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 49.5))
+                            (sp-rnd-flt spt-z (meters -3.5) (meters 7) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.06666667))
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -3.7304192)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 330)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 369)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1244 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -8) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 49.5))
+                            (sp-rnd-flt spt-z (meters -5) (meters 10) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -2.5600002)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1245 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters -7) (meters 3.5) 1.0)
+                            (sp-flt spt-y (meters 49.5))
+                            (sp-rnd-flt spt-z (meters -4) (meters 8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.038333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0146484375))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.0146484375))
+                            (sp-flt spt-accel-x -1.189495)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 630)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 666)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1246 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters 3) (meters 6) 1.0)
+                            (sp-flt spt-y (meters 6))
+                            (sp-rnd-flt spt-z (meters -6) (meters 12) 1.0)
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 150.0 42.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-flt spt-accel-y 0.013653334)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 45 29 1)
+                            (sp-launcher-by-id spt-next-launcher 1209)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1247 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 0.05)
+                            (sp-rnd-flt spt-x (meters 5) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 2.5))
+                            (sp-rnd-flt spt-z (meters -8) (meters 16) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 92.0)
+                            (sp-flt spt-g 92.0)
+                            (sp-flt spt-b 92.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.2)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1208)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-waterfall-31
+  :id 279
+  :flags (always-draw)
+  :bounds (static-bspherem 0 22 0 35)
+  :parts
+  ((sp-item 2324))
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-waterfall-32
+  :id 280
+  :flags (always-draw)
+  :bounds (static-bspherem 0 22 0 35)
+  :parts
+  ((sp-item 1253)
+    (sp-item 1253 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1253 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1254 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1255 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1256)
+    (sp-item 1256 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1256 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1257 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
+    (sp-item 1258)
+    (sp-item 1258 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1258 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1259 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1260 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1261)
+    (sp-item 1261 :fade-after (meters 160) :falloff-to (meters 160))
+    (sp-item 1261 :fade-after (meters 240) :falloff-to (meters 240))
+    (sp-item 1262 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1263 :fade-after (meters 160) :falloff-to (meters 160))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1253 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.266 0.333 1.0)
+                            (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 50.5))
+                            (sp-rnd-flt spt-z (meters -13.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.06666667))
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -3.7304192)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 420)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 180)
+                            (sp-launcher-by-id spt-next-launcher 1264)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1264 :init-specs ((sp-rnd-flt spt-scale-y (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.04) (meters 0.013333334) 1.0)
+                            (sp-flt spt-accel-x -5.3542485)
+                            (sp-flt spt-accel-z -3.212549)
+                            (sp-int spt-next-time 255)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1254 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 50.5))
+                            (sp-rnd-flt spt-z (meters -13.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -2.5600002)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 720)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1265)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1265 :init-specs ((sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-vel-x (meters 0.026666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.013333334) (meters 0.026666667) 1.0)
+                            (sp-flt spt-accel-x -1.3003175)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1255 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.2 1.0)
+                            (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 50.5))
+                            (sp-rnd-flt spt-z (meters -13.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.038333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -1.189495)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 750)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 420)
+                            (sp-launcher-by-id spt-next-launcher 1266)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1266 :init-specs ((sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.04) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.009765625))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -5.0567904)
+                            (sp-flt spt-accel-z -2.696955)
+                            (sp-int spt-next-time 405)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1256 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -3) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 6))
+                            (sp-rnd-flt spt-z (meters -19) (meters 16) 1.0)
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 150.0 42.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-flt spt-accel-y 0.013653334)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 45 29 1)
+                            (sp-launcher-by-id spt-next-launcher 1209)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1257 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 0.05)
+                            (sp-rnd-flt spt-x (meters -3) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 2.5))
+                            (sp-rnd-flt spt-z (meters -17) (meters 12) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 3) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 92.0)
+                            (sp-flt spt-g 92.0)
+                            (sp-flt spt-b 92.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.04) (meters 0.006666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.2)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1208)
+                            (sp-flt spt-rotate-y (degrees -90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1258 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.033 1.2 1.0)
+                            (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 50.5))
+                            (sp-rnd-flt spt-z (meters -2) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.06666667))
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -3.7304192)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 285)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 270)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -25.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1259 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 50.5))
+                            (sp-rnd-flt spt-z (meters -3) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -2.5600002)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 405)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees -25.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1260 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.2 1.0)
+                            (sp-rnd-flt spt-x (meters -12) (meters 1) 1.0)
+                            (sp-flt spt-y (meters 50.5))
+                            (sp-rnd-flt spt-z (meters -3) (meters 5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.038333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -1.189495)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 495)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees -25.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1261 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.33 1.2 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 23.5) (meters 6) 1.0)
+                            (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 1.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.06666667))
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -3.7304192)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 240)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1262 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 25.5) (meters 4) 1.0)
+                            (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.053333335) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -2.5600002)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 405)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-rnd-flt spt-rotate-y (degrees -45.0) (degrees 90.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1263 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.5 0.5 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 22.5) (meters 7) 1.0)
+                            (sp-rnd-flt spt-z (meters -3) (meters 6) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.06666667))
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -3.7304192)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 225)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 495)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-rotate-y (degrees 10.0) (degrees 50.000004) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-waterfall-33
+  :id 281
+  :flags (always-draw)
+  :bounds (static-bspherem 0 22 0 35)
+  :parts
+  ((sp-item 1267)
+    (sp-item 1267 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1267 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1268)
+    (sp-item 1268 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1268 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1269 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1270 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1271 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1272 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1273)
+    (sp-item 1273 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1273 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1274 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1275 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1276)
+    (sp-item 1276 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1276 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1277 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1267 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.4 1.0 1.0)
+                            (sp-flt spt-x (meters -7.5))
+                            (sp-rnd-flt spt-y (meters 48) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -4) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -2.7978141)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 195)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1268 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.03 1.0 1.0)
+                            (sp-flt spt-x (meters -7.5))
+                            (sp-rnd-flt spt-y (meters 48) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -6) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.6) (meters 0.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -2.7978141)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 322)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 345)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1269 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.3)
+                            (sp-flt spt-x (meters -7.5))
+                            (sp-rnd-flt spt-y (meters 48) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -4) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.043333333) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.8488889)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1270 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.7)
+                            (sp-flt spt-x (meters -7.5))
+                            (sp-rnd-flt spt-y (meters 48) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -6) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.043333333) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.8488889)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 435)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1271 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.1 1.0)
+                            (sp-flt spt-x (meters -7))
+                            (sp-rnd-flt spt-y (meters 47.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -6) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-flt spt-vel-z (meters 0.0033333334))
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -0.87919194)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 570)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 630)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1272 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.06 1.0)
+                            (sp-flt spt-x (meters -7))
+                            (sp-rnd-flt spt-y (meters 47.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -4) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.033333335) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -0.87919194)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 420)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 390)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1273 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-flt spt-x (meters -1.5))
+                            (sp-rnd-flt spt-y (meters 33) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -6) (meters 4.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.4) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1) (meters 1.4) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 32.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.04) (meters 0.033333335) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.01) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -2.7978141)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-flt spt-accel-z -0.9326048)
+                            (sp-int spt-timer 255)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 285)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -8.0) (degrees 16.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1274 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -1.5))
+                            (sp-rnd-flt spt-y (meters 33) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -6) (meters 4.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.013333334) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.01) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.7066667)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-flt spt-accel-z -0.7111111)
+                            (sp-int spt-timer 375)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1275 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-flt spt-x (meters -1.5))
+                            (sp-rnd-flt spt-y (meters 33) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -6) (meters 4.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0.006666667) (meters 0.016666668) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.015136719))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-x -1.5515151)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-flt spt-accel-z -0.51717174)
+                            (sp-int spt-timer 480)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 540)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1276 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters 2.5) (meters 12) 1.0)
+                            (sp-flt spt-y (meters 7))
+                            (sp-rnd-flt spt-z (meters -11) (meters 17) 1.0)
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 150.0 42.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-flt spt-accel-y 0.013653334)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 45 29 1)
+                            (sp-launcher-by-id spt-next-launcher 1209)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1277 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 0.05)
+                            (sp-rnd-flt spt-x (meters 3.5) (meters 10) 1.0)
+                            (sp-flt spt-y (meters 2.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 15) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 92.0)
+                            (sp-flt spt-g 92.0)
+                            (sp-flt spt-b 92.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.006666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.2)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1208)
+                            (sp-flt spt-rotate-y (degrees 90.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-waterfall-34
+  :id 282
+  :flags (always-draw)
+  :bounds (static-bspherem -15 17 -10 40)
+  :parts
+  ((sp-item 1278)
+    (sp-item 1278 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1278 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1279 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1280 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1281)
+    (sp-item 1281 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1281 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1282 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1283 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1284)
+    (sp-item 1284 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1284 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1285 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1286 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1287)
+    (sp-item 1287 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1287 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1288 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1289 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1290)
+    (sp-item 1290 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1290 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1291 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1292 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1293)
+    (sp-item 1293 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1293 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1294 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1295 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1296)
+    (sp-item 1296 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1296 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1297 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1298 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1300 :fade-after (meters 80) :falloff-to (meters 80))
+    (sp-item 1301 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1302)
+    (sp-item 1302 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1302 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1303)
+    (sp-item 1303 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1303 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1304)
+    (sp-item 1304 :fade-after (meters 150) :falloff-to (meters 150))
+    (sp-item 1304 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1305)
+    (sp-item 1305 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1305 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1306 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
+    (sp-item 1307)
+    (sp-item 1307 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1307 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1308 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
+    (sp-item 1309)
+    (sp-item 1309 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1309 :fade-after (meters 200) :falloff-to (meters 200))
+    (sp-item 1310 :fade-after (meters 160) :falloff-to (meters 160) :flags (is-3d))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1278 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 43.5))
+                            (sp-rnd-flt spt-z (meters 1.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.06666667))
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -3.7304192)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 384)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 345)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1281 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.15 0.075 1.0)
+                            (sp-rnd-flt spt-x (meters -18) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 42.5))
+                            (sp-rnd-flt spt-z (meters 8) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.06666667))
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -3.7304192)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 384)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 345)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 140.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1284 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.15 0.075 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 43.5))
+                            (sp-rnd-flt spt-z (meters -12) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.06666667))
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -3.7304192)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 384)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 345)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1279 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-x (meters -15) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 43.5))
+                            (sp-rnd-flt spt-z (meters 1.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -2.5600002)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1282 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.375)
+                            (sp-rnd-flt spt-x (meters -18) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 43.5))
+                            (sp-rnd-flt spt-z (meters 8) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -2.5600002)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 450)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 140.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1285 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.375)
+                            (sp-rnd-flt spt-x (meters -20) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 43.5))
+                            (sp-rnd-flt spt-z (meters -12) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.06) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -2.5600002)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 510)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1280 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.375 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters -15) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 43.5))
+                            (sp-rnd-flt spt-z (meters 1.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.038333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0146484375))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.0146484375))
+                            (sp-flt spt-accel-x -1.189495)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 681)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 630)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 120.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1283 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.225 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -18) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 43.5))
+                            (sp-rnd-flt spt-z (meters 8) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.038333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0146484375))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.0146484375))
+                            (sp-flt spt-accel-x -1.189495)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 681)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 630)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 140.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1286 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.225 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -20) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 43.5))
+                            (sp-rnd-flt spt-z (meters -12) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.038333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0146484375))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.0146484375))
+                            (sp-flt spt-accel-x -1.189495)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 681)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 630)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 110.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1287 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.6 1.0)
+                            (sp-rnd-flt spt-x (meters 26) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 4.5))
+                            (sp-rnd-flt spt-z (meters 15.5) (meters 5.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.06666667) (meters 0.016666668) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.01) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -4.6630235)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 195)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 165)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 190.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1290 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.15 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters 33) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -1))
+                            (sp-rnd-flt spt-z (meters 15.5) (meters 6.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.033333335) (meters 0.016666668) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.033333335) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -2.7978141)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 165)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 190.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1288 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-x (meters 26) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 4.5))
+                            (sp-rnd-flt spt-z (meters 15.5) (meters 5.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.07333333) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -3.1288888)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 270)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 190.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1291 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-x (meters 33) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -1))
+                            (sp-rnd-flt spt-z (meters 14.5) (meters 8.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.04) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.026666667) (meters 0.026666667) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.02) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -1.7066667)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 270)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 190.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1289 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.375 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters 26) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 4.5))
+                            (sp-rnd-flt spt-z (meters 14.5) (meters 5.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.041666668))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0146484375))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.0146484375))
+                            (sp-flt spt-accel-x -1.2929293)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 345)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 190.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1292 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.375 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters 33) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -1))
+                            (sp-rnd-flt spt-z (meters 14.5) (meters 8.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.031666666))
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0146484375))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.0146484375))
+                            (sp-flt spt-accel-x -1.0860606)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 270)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 190.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1293 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.6 1.0)
+                            (sp-rnd-flt spt-x (meters 24) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 4.5))
+                            (sp-rnd-flt spt-z (meters -28.5) (meters 5.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.016666668) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.01) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -3.7304192)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 135)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 165)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 60.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1294 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-x (meters 24) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 4.5))
+                            (sp-rnd-flt spt-z (meters -28.5) (meters 5.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -3.1288888)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 270)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 60.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1295 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.375 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters 24) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 4.5))
+                            (sp-rnd-flt spt-z (meters -28.5) (meters 5.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.035))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0146484375))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.0146484375))
+                            (sp-flt spt-accel-x -1.2929293)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 345)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 60.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1296 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.45 0.75 1.0)
+                            (sp-rnd-flt spt-x (meters 38) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -10.5) (meters 6.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.05) (meters 0.016666668) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.016666668) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -3.7304192)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 165)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-x (degrees -15.0) (degrees 30.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 130.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1297 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.75)
+                            (sp-rnd-flt spt-x (meters 38) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -10.5) (meters 6.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.026666667) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -3.1288888)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 270)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 130.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1300 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 0.325)
+                            (sp-rnd-flt spt-x (meters 45) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -10.5) (meters 6.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.053333335) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.026666667) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00024414062))
+                            (sp-flt spt-scalevel-y (meters 0.001953125))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-x -3.1288888)
+                            (sp-rnd-flt spt-accel-y -6.826667 -3.4133334 1.0)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-rnd-flt spt-launchrot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 130.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1298 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.375 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters 38) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -10) (meters 7.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.035))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0146484375))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.0146484375))
+                            (sp-flt spt-accel-x -1.2929293)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 345)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-flt spt-rotate-y (degrees 130.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1301 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.15 0.225 1.0)
+                            (sp-rnd-flt spt-x (meters 45) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters -1) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -10.5) (meters 6.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.2) (meters 0.8) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.035))
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters -0.013333334) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0146484375))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-flt spt-scalevel-y (meters 0.0146484375))
+                            (sp-flt spt-accel-x -1.2929293)
+                            (sp-rnd-flt spt-accel-y -4.096 -1.024 1.0)
+                            (sp-int spt-timer 210)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-flt spt-rotate-y (degrees 130.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1302 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.15 0.45 1.0)
+                            (sp-flt spt-x (meters -30))
+                            (sp-rnd-flt spt-y (meters 3.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -18.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.033333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -1.6786886)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 195)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 165)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-int-flt spt-launchrot-y (degrees 100.00001) 1 25486.223)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1303 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.15 0.4 1.0)
+                            (sp-flt spt-x (meters -24))
+                            (sp-rnd-flt spt-y (meters 3.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -25.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.033333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -1.6786886)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 195)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 165)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-y (degrees 160.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1304 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x18 :page #x2))
+                            (sp-rnd-flt spt-num 0.15 0.4 1.0)
+                            (sp-flt spt-x (meters -26))
+                            (sp-rnd-flt spt-y (meters 3.5) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -11.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.4) (meters 1.6) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 1.2) (meters 0.8) 1.0)
+                            (sp-flt spt-r 192.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-rnd-flt spt-a 24.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.03) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.05) (meters 0.033333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.0073242188))
+                            (sp-flt spt-scalevel-y (meters 0.029296875))
+                            (sp-flt spt-accel-x -1.6786886)
+                            (sp-rnd-flt spt-accel-y -15.018667 -2.7306666 1.0)
+                            (sp-int spt-timer 195)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int spt-next-time 165)
+                            (sp-launcher-by-id spt-next-launcher 1210)
+                            (sp-rnd-flt spt-launchrot-y (degrees 140.0) (degrees 40.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1305 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-rnd-flt spt-num 0.0375 0.0375 1.0)
+                            (sp-rnd-flt spt-x (meters -9) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -47) (meters 4) 1.0)
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 150.0 42.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-flt spt-accel-y 0.013653334)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 45 29 1)
+                            (sp-launcher-by-id spt-next-launcher 1209)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1307 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-rnd-flt spt-num 0.075 0.015 1.0)
+                            (sp-rnd-flt spt-x (meters -45) (meters 12) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -33) (meters 5) 1.0)
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 150.0 42.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-flt spt-accel-y 0.013653334)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 45 29 1)
+                            (sp-launcher-by-id spt-next-launcher 1209)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1309 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x29 :page #x2))
+                            (sp-rnd-flt spt-num 0.075 0.015 1.0)
+                            (sp-rnd-flt spt-x (meters -49) (meters 6) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-rnd-flt spt-z (meters -15) (meters 6) 1.0)
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 150.0 42.0 1.0)
+                            (sp-flt spt-b 192.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-scalevel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-a 1.28)
+                            (sp-flt spt-accel-y 0.013653334)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-int-plain-rnd spt-next-time 45 29 1)
+                            (sp-launcher-by-id spt-next-launcher 1209)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1306 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 0.00625)
+                            (sp-rnd-flt spt-x (meters -9) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -47) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 92.0)
+                            (sp-flt spt-g 92.0)
+                            (sp-flt spt-b 92.0)
+                            (sp-flt spt-a 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.026666667) (meters 0.006666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1208)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1308 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 0.0375)
+                            (sp-rnd-flt spt-x (meters -44) (meters 10) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -32) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 92.0)
+                            (sp-flt spt-g 92.0)
+                            (sp-flt spt-b 92.0)
+                            (sp-flt spt-a 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.026666667) (meters 0.006666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1208)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1310 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1e :page #x2))
+                            (sp-flt spt-num 0.00625)
+                            (sp-rnd-flt spt-x (meters -45) (meters 4) 1.0)
+                            (sp-flt spt-y (meters -6))
+                            (sp-rnd-flt spt-z (meters -14) (meters 4) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 92.0)
+                            (sp-flt spt-g 92.0)
+                            (sp-flt spt-b 92.0)
+                            (sp-flt spt-a 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.026666667) (meters 0.006666667) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit12 bit14)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1208)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-sagehut-warpgate
+  :id 283
+  :bounds (static-bspherem 7 4 -4.5 12)
+  :parts
+  ((sp-item 1313 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1314 :fade-after (meters 60) :falloff-to (meters 100) :binding 1311)
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1311 :flags (bit1 start-dead launch-asap))
+    (sp-item 1315 :fade-after (meters 60) :falloff-to (meters 100) :binding 1312)
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    (sp-item 1312 :flags (bit1 start-dead launch-asap))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1315 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-scale-x (meters 0.25))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-x (meters 0.0033333334))
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1312 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 0.2 1.0)
+                            (sp-flt spt-x (meters 4.4444447))
+                            (sp-flt spt-y (meters 4))
+                            (sp-rnd-flt spt-z (meters 5.4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 196.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-flt spt-accel-x 1.2136296)
+                            (sp-flt spt-accel-z -0.75093335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1313 :init-specs ((sp-rnd-flt spt-num 3.0 3.0 1.0)
+                            (sp-flt spt-x (meters -0.5))
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 3481.6)
+                            (sp-flt spt-b 3481.6)
+                            (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.02) 1.0)
+                            (sp-flt spt-fade-b 5.936232)
+                            (sp-int spt-timer 69)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 4) (meters 3) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1314 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.2 1.0 1.0)
+                            (sp-flt spt-scale-x (meters 0.25))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int spt-timer 690)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1311 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 0.4 1.0)
+                            (sp-flt spt-x (meters 4.4444447))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 2.1))
+                            (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 32.0 1.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters -0.0044444446))
+                            (sp-flt spt-vel-z (meters -0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees 0.0) (degrees 1.2) 1.0)
+                            (sp-flt spt-fade-a 0.10666667)
+                            (sp-flt spt-accel-x 4.247704)
+                            (sp-int spt-timer 690)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-tree-fire
+  :id 284
+  :bounds (static-bspherem 0 10 0 12)
+  :parts
+  ((sp-item 1316 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1317 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1318 :fade-after (meters 120) :falloff-to (meters 120))
+    (sp-item 1319 :fade-after (meters 120) :falloff-to (meters 120))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1316 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-x (meters 2.2) (meters 0.5) 1.0)
+                            (sp-flt spt-y (meters -0.9))
+                            (sp-rnd-flt spt-z (meters -0.9) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a 1.0666667)
+                            (sp-flt spt-accel-y 1.024)
+                            (sp-int-plain-rnd spt-timer 180 29 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 1320)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1320 :init-specs ((sp-flt spt-fade-a -0.53333336)))
+
+;; failed to figure out what this is:
+(defpart 1317 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.1 1.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -2.9) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a 1.0666667)
+                            (sp-flt spt-accel-y 1.024)
+                            (sp-int-plain-rnd spt-timer 180 29 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 60)
+                            (sp-launcher-by-id spt-next-launcher 1320)
+                            (sp-flt spt-conerot-x (degrees 45.0))
+                            (sp-flt spt-conerot-y (degrees 240.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1318 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.2 1.0)
+                            (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -2.9) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.0044444446))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.34133333)
+                            (sp-flt spt-fade-g -0.17066666)
+                            (sp-flt spt-fade-b -0.17066666)
+                            (sp-flt spt-fade-a 0.4)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-int spt-timer 1200)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 1174)
+                            (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4.5))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1319 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.2 1.0)
+                            (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -2.9) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 1.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.0044444446))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.34133333)
+                            (sp-flt spt-fade-g -0.17066666)
+                            (sp-flt spt-fade-b -0.17066666)
+                            (sp-flt spt-fade-a 0.4)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-int spt-timer 1200)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 1174)
+                            (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4.5))
+                            )
+              )
diff --git a/test/decompiler/reference/levels/village2/village2-part_REF.gc b/test/decompiler/reference/levels/village2/village2-part_REF.gc
index 1764b709a4..fbd38fad38 100644
--- a/test/decompiler/reference/levels/village2/village2-part_REF.gc
+++ b/test/decompiler/reference/levels/village2/village2-part_REF.gc
@@ -19,2380 +19,1879 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 264)
-      (new 'static 'sparticle-launch-group
-        :length 3
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village2-moth"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 3
-          (sp-item 1129 :fade-after (meters 120.0) :flags (bit1) :period 18030 :length 5 :binding 1127)
-          (sp-item 1127 :flags (start-dead launch-asap) :binding 1128)
-          (sp-item 1128 :flags (is-3d start-dead))
-          )
-        :bounds (new 'static 'sphere :w 12288.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1129) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 10
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer 18000)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1127) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-flt spt-z 6144.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-int spt-timer 18000)
-                                    (sp-cpuinfo-flags bit3 bit7)
-                                    (sp-int-plain-rnd spt-next-time 150 449 1)
-                                    (sp-launcher-by-id spt-next-launcher 1130)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1130) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 6
-                                    (sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-int-plain-rnd spt-next-time 150 449 1)
-                                    (sp-launcher-by-id spt-next-launcher 1130)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1128) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                    (sp-flt spt-num 2.0)
-                                    (sp-flt spt-scale-x (meters 0.4))
-                                    (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
-                                    (sp-flt spt-scale-y (meters 0.4))
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 265) (new 'static 'sparticle-launch-group
-                                       :length 9
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village2-tableflys"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 9
-                                         (sp-item 1133 :flags (launch-asap) :binding 1131)
-                                         (sp-item 1134 :flags (launch-asap) :binding 1131)
-                                         (sp-item 1135 :flags (launch-asap) :binding 1131)
-                                         (sp-item 1131 :flags (start-dead launch-asap) :binding 1132)
-                                         (sp-item 1131 :flags (start-dead launch-asap) :binding 1132)
-                                         (sp-item 1131 :flags (start-dead launch-asap) :binding 1132)
-                                         (sp-item 1132 :flags (is-3d start-dead))
-                                         (sp-item 1132 :flags (is-3d start-dead))
-                                         (sp-item 1132 :flags (is-3d start-dead))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 12288.0 :w 40960.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1133) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 0.0))
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-z 20480.0)
-                                    (sp-flt spt-scale-x (meters 0.01))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1136)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1136)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-int spt-timer 300)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 1136)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1134) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters 4.0))
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-z -8192.0)
-                                    (sp-flt spt-scale-x (meters 0.01))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1136)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1135) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -4.0))
-                                    (sp-flt spt-y (meters 2.0))
-                                    (sp-flt spt-z -8192.0)
-                                    (sp-flt spt-scale-x (meters 0.01))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1136)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1131) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-int spt-num 1065353216 1 2.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 4096.0 4096.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit7)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1136)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1132) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 13
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
-                                    (sp-func spt-birth-func 'birth-func-copy-rot-color)
-                                    (sp-flt spt-num 3.0)
-                                    (sp-flt spt-scale-x (meters 0.15))
-                                    (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
-                                    (sp-flt spt-scale-y (meters 0.15))
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit9 bit12)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 266)
-      (new 'static 'sparticle-launch-group
-        :length 8
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village2-flamepot"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 8
-          (sp-item 1137 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-          (sp-item 1138 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 492 :length 60)
-          (sp-item 1139 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1140 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 369 :length 219)
-          (sp-item 1141 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 690 :length 90)
-          (sp-item 1142 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 918 :length 669)
-          (sp-item 1143 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 750 :length 30)
-          (sp-item 1144 :fade-after (meters 50.0) :falloff-to (meters 60.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 20480.0 :w 24576.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 267) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village2-flamepot-half"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1145 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1146 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         (sp-item 1147 :fade-after (meters 50.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 20480.0 :w 24576.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 268)
-      (new 'static 'sparticle-launch-group
-        :length 8
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village2-flamepot-alt1"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 8
-          (sp-item 1137 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-          (sp-item 1138 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 378 :length 60)
-          (sp-item 1139 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1140 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 435 :length 219)
-          (sp-item 1141 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 528 :length 90)
-          (sp-item 1142 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 1077 :length 669)
-          (sp-item 1143 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 612 :length 30)
-          (sp-item 1144 :fade-after (meters 50.0) :falloff-to (meters 60.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 20480.0 :w 24576.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 269)
-      (new 'static 'sparticle-launch-group
-        :length 8
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village2-flamepot-alt2"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 8
-          (sp-item 1137 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-          (sp-item 1138 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 609 :length 60)
-          (sp-item 1139 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1140 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 288 :length 219)
-          (sp-item 1141 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 645 :length 90)
-          (sp-item 1142 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 771 :length 669)
-          (sp-item 1143 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 857 :length 30)
-          (sp-item 1144 :fade-after (meters 50.0) :falloff-to (meters 60.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 20480.0 :w 24576.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 270) (new 'static 'sparticle-launch-group
-                                       :length 1
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village2-flamepot-off"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 1
-                                         (sp-item 1148 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 20480.0 :w 24576.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1144)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-flt spt-x (meters 1.0))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2949.12)
-                                                     (sp-flt spt-b 3276.8)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.026666667))
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 1149)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1149)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -5.4613333) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1147)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 13
-                                                     (sp-flt spt-num 0.15)
-                                                     (sp-flt spt-x (meters 0.4))
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 4096.0)
-                                                     (sp-flt spt-g 2867.2)
-                                                     (sp-flt spt-b 3072.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-int spt-timer 180)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 1150)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1150)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -3.4133334) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1137) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 0.4 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.25) (meters 0.75) 1.0)
-                                    (sp-flt spt-y (meters -0.25))
-                                    (sp-rnd-flt spt-z -1024.0 3072.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0075) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1145) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.35 0.25 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.1) (meters 0.1) 1.0)
-                                    (sp-flt spt-y (meters -0.25))
-                                    (sp-rnd-flt spt-z -409.6 409.6 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.004166667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.054613337)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1138) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1060320051 1 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-y (meters -0.25))
-                                    (sp-rnd-flt spt-z 0.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-int-flt spt-vel-y (meters 0.02) 1 20.48)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1139) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.15 0.2 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters -0.25))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 20.0 12.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0055555557))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.0627451)
-                                    (sp-flt spt-accel-y -1.0922667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 150 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1151)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1146) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.06 0.06 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters -0.25))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 20.0 12.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0055555557))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.0627451)
-                                    (sp-flt spt-accel-y -0.4096)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 150 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1151)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1148) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.08 0.1 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters -0.25))
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 20.0 12.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0055555557))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.0627451)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-int-plain-rnd spt-next-time 150 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1151)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1151)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-g 0.53333336)
-                                                     (sp-flt spt-fade-b 1.0666667)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 1152)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1152)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 3 (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1140) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.4 0.55 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
-                                    (sp-flt spt-y (meters -0.25))
-                                    (sp-rnd-flt spt-z -2457.6 4915.2 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees -15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1141) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1031127695 1 0.9)
-                                    (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
-                                    (sp-flt spt-y (meters 0.75))
-                                    (sp-rnd-flt spt-z -2457.6 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-int-flt spt-vel-y (meters 0.02) 1 20.48)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees -15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1142) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.6 0.9 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
-                                    (sp-flt spt-y (meters -0.25))
-                                    (sp-rnd-flt spt-z -2457.6 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.005) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 0.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1143) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1060320051 1 1.5)
-                                    (sp-rnd-flt spt-x (meters -0.25) (meters 0.75) 1.0)
-                                    (sp-flt spt-y (meters 0.75))
-                                    (sp-rnd-flt spt-z -2048.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.9) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-int-flt spt-vel-y (meters 0.02) 1 20.48)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 0.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 634) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village2-fireboulder-off"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1169 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-                                         (sp-item 1170 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 16384.0 :w 43008.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 271)
-      (new 'static 'sparticle-launch-group
-        :length 18
-        :duration #x4650
-        :linger-duration #x5dc
-        :name "group-village2-fireboulder"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 18
-          (sp-item 1153 :fade-after (meters 200.0) :falloff-to (meters 240.0))
-          (sp-item 1154 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 300 :length 60)
-          (sp-item 1155 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-          (sp-item 1156 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-          (sp-item 1157 :fade-after (meters 200.0) :falloff-to (meters 240.0))
-          (sp-item 1158 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 600 :length 90)
-          (sp-item 1159 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-          (sp-item 1160 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-          (sp-item 1161 :fade-after (meters 200.0) :falloff-to (meters 240.0))
-          (sp-item 1162 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 450 :length 30)
-          (sp-item 1163 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-          (sp-item 1164 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-          (sp-item 1165 :fade-after (meters 200.0) :falloff-to (meters 240.0))
-          (sp-item 1166 :fade-after (meters 100.0) :falloff-to (meters 120.0) :period 240 :length 75)
-          (sp-item 1167 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-          (sp-item 1168 :fade-after (meters 200.0) :falloff-to (meters 240.0))
-          (sp-item 1169 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-          (sp-item 1170 :fade-after (meters 80.0) :falloff-to (meters 100.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 16384.0 :w 43008.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1156) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-flt spt-num 0.15)
-                                    (sp-rnd-flt spt-x (meters 1.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 6.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 10240.0 1.0)
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 8192.0)
-                                    (sp-flt spt-g 6144.0)
-                                    (sp-flt spt-b 5324.8)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.026666667))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-int spt-timer 180)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-int spt-next-time 120)
-                                    (sp-launcher-by-id spt-next-launcher 1171)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1171)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b 13.653334) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1160) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-flt spt-num 0.15)
-                                    (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-y (meters 5.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 4096.0 1.0)
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 8192.0)
-                                    (sp-flt spt-g 6144.0)
-                                    (sp-flt spt-b 5324.8)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.026666667))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-int spt-timer 180)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-int spt-next-time 120)
-                                    (sp-launcher-by-id spt-next-launcher 1171)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1164) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-flt spt-num 0.15)
-                                    (sp-flt spt-x (meters 2.7))
-                                    (sp-rnd-flt spt-y (meters 4.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -12288.0 8192.0 1.0)
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 8192.0)
-                                    (sp-flt spt-g 6144.0)
-                                    (sp-flt spt-b 5324.8)
-                                    (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.026666667))
-                                    (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
-                                    (sp-int spt-timer 180)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-int spt-next-time 120)
-                                    (sp-launcher-by-id spt-next-launcher 1171)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1153) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.7 1.2 1.0)
-                                    (sp-rnd-flt spt-x (meters 1.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 5.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 10240.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1154) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1058642330 1 1.7)
-                                    (sp-rnd-flt spt-x (meters 1.5) (meters 0.7) 1.0)
-                                    (sp-rnd-flt spt-y (meters 6.0) (meters 0.6) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 7372.8 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-int-flt spt-vel-y (meters 0.026666667) 1 27.306667)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1155) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.05 0.2 1.0)
-                                    (sp-rnd-flt spt-x (meters 1.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 6.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z 2048.0 10240.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 20.0 12.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.023333333) (meters 0.01) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.0627451)
-                                    (sp-flt spt-accel-y -1.0922667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 150 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1172)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1172)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-g 0.53333336)
-                                                     (sp-flt spt-fade-b 1.0666667)
-                                                     (sp-int spt-next-time 120)
-                                                     (sp-launcher-by-id spt-next-launcher 1173)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1173)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 3 (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1157) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.65 1.2 1.0)
-                                    (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-y (meters 4.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1158) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1056964608 1 1.2)
-                                    (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-y (meters 4.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-int-flt spt-vel-y (meters 0.026666667) 1 27.306667)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1159) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.08 0.25 1.0)
-                                    (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-y (meters 5.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.023333333) (meters 0.01) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.0627451)
-                                    (sp-flt spt-accel-y -1.0922667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 150 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1172)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees 5.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1161) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.7 1.5 1.0)
-                                    (sp-flt spt-x (meters 2.7))
-                                    (sp-rnd-flt spt-y (meters 3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -12288.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees -15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1162) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1058642330 1 1.4)
-                                    (sp-flt spt-x (meters 2.7))
-                                    (sp-rnd-flt spt-y (meters 3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -12288.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-int-flt spt-vel-y (meters 0.026666667) 1 27.306667)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees -15.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1163) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.08 0.25 1.0)
-                                    (sp-flt spt-x (meters 2.7))
-                                    (sp-rnd-flt spt-y (meters 4.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -12288.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.023333333) (meters 0.01) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.0627451)
-                                    (sp-flt spt-accel-y -1.0922667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 150 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1172)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees -5.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1165) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.65 1.5 1.0)
-                                    (sp-rnd-flt spt-x (meters -3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 4.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -12288.0 6144.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.01) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int-plain-rnd spt-timer 90 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1166) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-int spt-num 1059481190 1 1.5)
-                                    (sp-rnd-flt spt-x (meters -3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 4.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -12288.0 6144.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-int-flt spt-vel-y (meters 0.026666667) 1 27.306667)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5)
-                                    (sp-flt spt-accel-y -0.027306668)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1167) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.08 0.25 1.0)
-                                    (sp-rnd-flt spt-x (meters -3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 5.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -12288.0 6144.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 32.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.023333333) (meters 0.01) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.005))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -0.0627451)
-                                    (sp-flt spt-accel-y -1.0922667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 150 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1172)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1168) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 1.1 0.4 1.0)
-                                    (sp-rnd-flt spt-x (meters 1.5) (meters 1.0) 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-rnd-flt spt-z 2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
-                                    (sp-flt spt-fade-g 0.32)
-                                    (sp-flt spt-fade-b 0.32)
-                                    (sp-flt spt-fade-a -0.5416667)
-                                    (sp-flt spt-accel-y 1.3653333)
-                                    (sp-int-plain-rnd spt-timer 180 29 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-z (degrees -45.0))
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-rnd-int-flt spt-rotate-y (degrees 0.0) 2 -18568.533)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1169)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 26
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.15 0.15 1.0)
-                                                     (sp-flt spt-y (meters 4.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.2) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 64.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.0044444446))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.34133333)
-                                                     (sp-flt spt-fade-g -0.17066666)
-                                                     (sp-flt spt-fade-b -0.17066666)
-                                                     (sp-flt spt-fade-a 0.4)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-int spt-timer 1200)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 1174)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 4.5))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1174)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-vel-y (meters 0.013333334))
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-flt spt-accel-y -0.00040000002)
-                                                     (sp-int spt-next-time 300)
-                                                     (sp-launcher-by-id spt-next-launcher 1175)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1175)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1170)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 0.15 0.3 1.0)
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.2) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 48.0)
-                                                     (sp-flt spt-b 48.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.0073333336))
-                                                     (sp-flt spt-scalevel-x (meters 0.0013333333))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.4)
-                                                     (sp-flt spt-accel-y 0.54613334)
-                                                     (sp-flt spt-friction 0.995)
-                                                     (sp-int spt-timer 1575)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 1176)
-                                                     (sp-flt spt-conerot-x (degrees 90.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-flt spt-conerot-radius (meters 2.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1176)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 600)
-                                                     (sp-launcher-by-id spt-next-launcher 1177)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1177)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 12
-                                                     (sp-flt spt-vel-x (meters 0.0))
-                                                     (sp-flt spt-vel-y (meters 0.011666667))
-                                                     (sp-flt spt-vel-z (meters 0.0))
-                                                     (sp-flt spt-scalevel-x (meters 0.0016666667))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.10666667)
-                                                     (sp-flt spt-fade-g -0.08)
-                                                     (sp-flt spt-fade-b -0.08)
-                                                     (sp-flt spt-fade-a -0.053333335)
-                                                     (sp-flt spt-accel-y 0.13653333)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 272) (new 'static 'sparticle-launch-group
-                                       :length 10
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village2-window-flames-45"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 10
-                                         (sp-item 1178 :fade-after (meters 300.0))
-                                         (sp-item 1179 :fade-after (meters 300.0))
-                                         (sp-item 1179 :fade-after (meters 180.0))
-                                         (sp-item 1180 :fade-after (meters 200.0) :period 2160 :length 5)
-                                         (sp-item 1180 :fade-after (meters 200.0) :period 669 :length 5)
-                                         (sp-item 1180 :fade-after (meters 200.0) :period 4279 :length 5)
-                                         (sp-item 1180 :fade-after (meters 200.0) :period 1238 :length 5)
-                                         (sp-item 1181 :fade-after (meters 300.0))
-                                         (sp-item 1182 :fade-after (meters 300.0))
-                                         (sp-item 1182 :fade-after (meters 180.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :x 32768.0 :y -32768.0 :w 147456.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1178)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.015 0.035 1.0)
-          (sp-rnd-flt spt-x (meters 4.0) (meters 12.0) 1.0)
-          (sp-rnd-flt spt-y (meters 4.0) (meters 8.0) 1.0)
-          (sp-flt spt-z 32768.0)
-          (sp-rnd-int-flt spt-scale-x (meters 4.0) 1 40960.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 32.0)
-          (sp-flt spt-g 32.0)
-          (sp-flt spt-b 32.0)
-          (sp-rnd-flt spt-a 0.0 8.0 1.0)
-          (sp-flt spt-scalevel-x (meters 0.006666667))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.21333334)
-          (sp-flt spt-accel-y 0.27306667)
-          (sp-int spt-timer 1800)
-          (sp-cpuinfo-flags bit2)
-          (sp-int spt-next-time 300)
-          (sp-launcher-by-id spt-next-launcher 1183)
-          (sp-flt spt-rotate-y (degrees -15.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1183)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int-plain-rnd spt-next-time 300 299 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1184)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1184)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.08) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1179)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.3 0.4 1.0)
-          (sp-rnd-flt spt-x (meters 10.0) (meters 4.0) 1.0)
-          (sp-rnd-flt spt-y (meters 0.0) (meters 6.0) 1.0)
-          (sp-rnd-int spt-z 1189085184 1 8192.0)
-          (sp-rnd-flt spt-scale-x (meters 2.0) (meters 5.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 128.0 128.0 1.0)
-          (sp-rnd-flt spt-g 0.0 128.0 1.0)
-          (sp-flt spt-b 0.0)
-          (sp-flt spt-a 0.0)
-          (sp-flt spt-scalevel-x (meters 0.006666667))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 4.266667)
-          (sp-rnd-flt spt-accel-y 9.557333 10.922667 1.0)
-          (sp-int spt-timer 120)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-int spt-next-time 30)
-          (sp-launcher-by-id spt-next-launcher 1185)
-          (sp-flt spt-rotate-y (degrees -15.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1185)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.85333335) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1180)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 21
-          (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-          (sp-rnd-flt spt-num 0.8 0.4 1.0)
-          (sp-rnd-flt spt-x (meters 10.0) (meters 4.0) 1.0)
-          (sp-flt spt-y (meters 6.0))
-          (sp-rnd-int spt-z 1189085184 1 8192.0)
-          (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-rnd-int spt-g 0 2 128.0)
-          (sp-flt spt-b 0.0)
-          (sp-flt spt-a 255.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-flt spt-fade-a -0.048484847)
-          (sp-rnd-flt spt-accel-x -0.34133333 0.68266666 1.0)
-          (sp-flt spt-accel-y -2.7306666)
-          (sp-rnd-flt spt-accel-z -0.34133333 0.68266666 1.0)
-          (sp-int spt-timer 840)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-flt spt-rotate-y (degrees -15.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1181)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.015 0.03 1.0)
-          (sp-rnd-flt spt-x (meters -6.0) (meters 16.0) 1.0)
-          (sp-rnd-flt spt-y (meters 8.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-z -24576.0 24576.0 1.0)
-          (sp-rnd-int-flt spt-scale-x (meters 4.0) 1 40960.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 32.0)
-          (sp-flt spt-g 32.0)
-          (sp-flt spt-b 32.0)
-          (sp-rnd-flt spt-a 0.0 8.0 1.0)
-          (sp-flt spt-scalevel-x (meters 0.006666667))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.21333334)
-          (sp-flt spt-accel-y 0.27306667)
-          (sp-int spt-timer 1800)
-          (sp-cpuinfo-flags bit2)
-          (sp-int spt-next-time 300)
-          (sp-launcher-by-id spt-next-launcher 1183)
-          (sp-flt spt-rotate-y (degrees 15.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1182)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.3 0.3 1.0)
-          (sp-rnd-flt spt-x (meters 2.0) (meters 4.0) 1.0)
-          (sp-rnd-flt spt-y (meters 4.0) (meters 6.0) 1.0)
-          (sp-rnd-int spt-z -956301312 1 8192.0)
-          (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 128.0 128.0 1.0)
-          (sp-rnd-flt spt-g 0.0 128.0 1.0)
-          (sp-flt spt-b 0.0)
-          (sp-flt spt-a 0.0)
-          (sp-flt spt-scalevel-x (meters 0.006666667))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 4.266667)
-          (sp-rnd-flt spt-accel-y 10.24 10.24 1.0)
-          (sp-int spt-timer 120)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-int spt-next-time 30)
-          (sp-launcher-by-id spt-next-launcher 1185)
-          (sp-flt spt-rotate-y (degrees 5.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 273) (new 'static 'sparticle-launch-group
-                                       :length 10
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village2-window-flames-41"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 10
-                                         (sp-item 1186 :fade-after (meters 300.0))
-                                         (sp-item 1187 :fade-after (meters 300.0))
-                                         (sp-item 1187 :fade-after (meters 180.0))
-                                         (sp-item 1188 :fade-after (meters 200.0) :period 2160 :length 5)
-                                         (sp-item 1188 :fade-after (meters 200.0) :period 669 :length 5)
-                                         (sp-item 1188 :fade-after (meters 200.0) :period 4279 :length 5)
-                                         (sp-item 1188 :fade-after (meters 200.0) :period 1238 :length 5)
-                                         (sp-item 1189 :fade-after (meters 300.0))
-                                         (sp-item 1190 :fade-after (meters 300.0))
-                                         (sp-item 1190 :fade-after (meters 180.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :x 32768.0 :y -32768.0 :w 147456.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1186)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.015 0.03 1.0)
-          (sp-rnd-flt spt-x (meters 6.0) (meters 12.0) 1.0)
-          (sp-rnd-flt spt-y (meters 4.0) (meters 8.0) 1.0)
-          (sp-flt spt-z 32768.0)
-          (sp-rnd-int-flt spt-scale-x (meters 4.0) 1 40960.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 32.0)
-          (sp-flt spt-g 32.0)
-          (sp-flt spt-b 32.0)
-          (sp-rnd-flt spt-a 0.0 8.0 1.0)
-          (sp-flt spt-scalevel-x (meters 0.006666667))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.21333334)
-          (sp-flt spt-accel-y 0.27306667)
-          (sp-int spt-timer 1800)
-          (sp-cpuinfo-flags bit2)
-          (sp-int spt-next-time 300)
-          (sp-launcher-by-id spt-next-launcher 1183)
-          (sp-flt spt-rotate-y (degrees 82.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1187)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.3 0.4 1.0)
-          (sp-rnd-flt spt-x (meters 10.0) (meters 4.0) 1.0)
-          (sp-rnd-flt spt-y (meters 0.0) (meters 6.0) 1.0)
-          (sp-rnd-int spt-z 1189085184 1 8192.0)
-          (sp-rnd-flt spt-scale-x (meters 2.0) (meters 5.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 128.0 128.0 1.0)
-          (sp-rnd-flt spt-g 0.0 128.0 1.0)
-          (sp-flt spt-b 0.0)
-          (sp-flt spt-a 0.0)
-          (sp-flt spt-scalevel-x (meters 0.006666667))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 4.266667)
-          (sp-rnd-flt spt-accel-y 9.557333 10.922667 1.0)
-          (sp-int spt-timer 120)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-int spt-next-time 30)
-          (sp-launcher-by-id spt-next-launcher 1185)
-          (sp-flt spt-rotate-y (degrees 82.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1188)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 21
-          (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-          (sp-rnd-flt spt-num 0.8 0.4 1.0)
-          (sp-rnd-flt spt-x (meters 10.0) (meters 4.0) 1.0)
-          (sp-flt spt-y (meters 6.0))
-          (sp-rnd-int spt-z 1189085184 1 8192.0)
-          (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-rnd-int spt-g 0 2 128.0)
-          (sp-flt spt-b 0.0)
-          (sp-flt spt-a 255.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-flt spt-fade-a -0.048484847)
-          (sp-rnd-flt spt-accel-x -0.34133333 0.68266666 1.0)
-          (sp-flt spt-accel-y -2.7306666)
-          (sp-rnd-flt spt-accel-z -0.34133333 0.68266666 1.0)
-          (sp-int spt-timer 810)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-flt spt-rotate-y (degrees 82.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1189)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.015 0.03 1.0)
-          (sp-rnd-flt spt-x (meters -2.0) (meters 16.0) 1.0)
-          (sp-rnd-flt spt-y (meters 8.0) (meters 8.0) 1.0)
-          (sp-rnd-flt spt-z -24576.0 24576.0 1.0)
-          (sp-rnd-int-flt spt-scale-x (meters 4.0) 1 40960.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 32.0)
-          (sp-flt spt-g 32.0)
-          (sp-flt spt-b 32.0)
-          (sp-rnd-flt spt-a 0.0 8.0 1.0)
-          (sp-flt spt-scalevel-x (meters 0.006666667))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.21333334)
-          (sp-flt spt-accel-y 0.27306667)
-          (sp-int spt-timer 1800)
-          (sp-cpuinfo-flags bit2)
-          (sp-int spt-next-time 300)
-          (sp-launcher-by-id spt-next-launcher 1183)
-          (sp-flt spt-rotate-y (degrees 112.00001))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1190)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.3 0.3 1.0)
-          (sp-rnd-flt spt-x (meters 6.0) (meters 4.0) 1.0)
-          (sp-rnd-flt spt-y (meters 4.0) (meters 6.0) 1.0)
-          (sp-rnd-int spt-z -956301312 1 8192.0)
-          (sp-rnd-flt spt-scale-x (meters 2.0) (meters 4.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 128.0 128.0 1.0)
-          (sp-rnd-flt spt-g 0.0 128.0 1.0)
-          (sp-flt spt-b 0.0)
-          (sp-flt spt-a 0.0)
-          (sp-flt spt-scalevel-x (meters 0.006666667))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 4.266667)
-          (sp-rnd-flt spt-accel-y 10.24 10.24 1.0)
-          (sp-int spt-timer 120)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-int spt-next-time 30)
-          (sp-launcher-by-id spt-next-launcher 1185)
-          (sp-flt spt-rotate-y (degrees 106.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 274) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village2-big-boulder"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 1191 :fade-after (meters 300.0))
-                                         (sp-item 1192 :fade-after (meters 300.0))
-                                         (sp-item 1192 :fade-after (meters 180.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :x 32768.0 :y -32768.0 :w 147456.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1191)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.015 0.03 1.0)
-          (sp-rnd-flt spt-x (meters -2.0) (meters 4.0) 1.0)
-          (sp-rnd-flt spt-y (meters 8.0) (meters 4.0) 1.0)
-          (sp-rnd-flt spt-z -8192.0 16384.0 1.0)
-          (sp-rnd-int-flt spt-scale-x (meters 8.0) 1 40960.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 32.0)
-          (sp-flt spt-g 32.0)
-          (sp-flt spt-b 32.0)
-          (sp-rnd-flt spt-a 0.0 8.0 1.0)
-          (sp-flt spt-scalevel-x (meters 0.006666667))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 0.21333334)
-          (sp-flt spt-accel-y 0.27306667)
-          (sp-int spt-timer 1800)
-          (sp-cpuinfo-flags bit2)
-          (sp-int spt-next-time 300)
-          (sp-launcher-by-id spt-next-launcher 1183)
-          (sp-flt spt-rotate-y (degrees 0.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1192)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 25
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 0.4 0.4 1.0)
-          (sp-flt spt-x (meters 2.0))
-          (sp-flt spt-y (meters 4.0))
-          (sp-rnd-flt spt-scale-x (meters 2.0) (meters 5.0) 1.0)
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 128.0 128.0 1.0)
-          (sp-rnd-flt spt-g 0.0 128.0 1.0)
-          (sp-flt spt-b 0.0)
-          (sp-flt spt-a 0.0)
-          (sp-flt spt-scalevel-x (meters 0.006666667))
-          (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a 4.266667)
-          (sp-rnd-flt spt-accel-y 9.557333 10.922667 1.0)
-          (sp-int spt-timer 120)
-          (sp-cpuinfo-flags bit2 bit3 bit14)
-          (sp-int spt-next-time 30)
-          (sp-launcher-by-id spt-next-launcher 1185)
-          (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 90.0) 1.0)
-          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-flt spt-conerot-radius (meters 4.5))
-          (sp-flt spt-rotate-y (degrees 0.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 275) (new 'static 'sparticle-launch-group
-                                       :length 6
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village2-sages-controlpanel"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 6
-                                         (sp-item 1193 :fade-after (meters 30.0) :period 736 :length 10)
-                                         (sp-item 1193 :fade-after (meters 30.0) :period 1696 :length 10)
-                                         (sp-item 1193 :fade-after (meters 30.0) :period 5079 :length 10)
-                                         (sp-item 1194 :fade-after (meters 30.0) :period 5079 :length 10)
-                                         (sp-item 1194 :fade-after (meters 30.0) :period 2163 :length 10)
-                                         (sp-item 1195 :fade-after (meters 40.0) :falloff-to (meters 50.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 16384.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1195) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 0.4 1.0)
-                                    (sp-flt spt-x (meters 0.9))
-                                    (sp-flt spt-y (meters 0.25))
-                                    (sp-flt spt-z -4915.2)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0022222223))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.53333336)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 1196)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1196)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r -0.053333335)
-                                                     (sp-flt spt-fade-g -0.053333335)
-                                                     (sp-flt spt-fade-b -0.053333335)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1193)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 25
-          (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-          (sp-rnd-flt spt-num 4.0 16.0 1.0)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
-            )
-          (sp-flt spt-x (meters 0.9))
-          (sp-flt spt-y (meters 0.05))
-          (sp-flt spt-z -3686.4)
-          (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 128.0 128.0 1.0)
-          (sp-flt spt-g 128.0)
-          (sp-flt spt-b 64.0)
-          (sp-rnd-flt spt-a 64.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-          (sp-flt spt-scalevel-x (meters -0.00055555557))
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-g -0.2)
-          (sp-flt spt-fade-b -0.2)
-          (sp-flt spt-fade-a -0.6)
-          (sp-flt spt-accel-y -6.826667)
-          (sp-flt spt-friction 0.94)
-          (sp-int-plain-rnd spt-timer 90 59 1)
-          (sp-cpuinfo-flags bit2)
-          (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-          (sp-rnd-flt spt-conerot-y (degrees -45.0) (degrees 180.0) 1.0)
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1194)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 25
-          (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-          (sp-rnd-flt spt-num 4.0 16.0 1.0)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
-            )
-          (sp-flt spt-x (meters -1.2))
-          (sp-flt spt-y (meters -0.5))
-          (sp-flt spt-z 4915.2)
-          (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 128.0 128.0 1.0)
-          (sp-flt spt-g 128.0)
-          (sp-flt spt-b 64.0)
-          (sp-rnd-flt spt-a 64.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-          (sp-flt spt-scalevel-x (meters -0.00055555557))
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-g -0.2)
-          (sp-flt spt-fade-b -0.2)
-          (sp-flt spt-fade-a -0.6)
-          (sp-flt spt-accel-y -6.826667)
-          (sp-flt spt-friction 0.94)
-          (sp-int-plain-rnd spt-timer 90 59 1)
-          (sp-cpuinfo-flags bit2)
-          (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-          (sp-rnd-flt spt-conerot-y (degrees -45.0) (degrees 180.0) 1.0)
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 276)
-      (new 'static 'sparticle-launch-group
-        :length 14
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village2-sages-machine"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 14
-          (sp-item 1199 :fade-after (meters 40.0) :period 768 :length 10 :binding 1197)
-          (sp-item 1199 :fade-after (meters 40.0) :period 1096 :length 10 :binding 1198)
-          (sp-item 1199 :fade-after (meters 40.0) :period 2137 :length 10 :binding 1197)
-          (sp-item 1197 :fade-after (meters 40.0) :flags (start-dead))
-          (sp-item 1197 :fade-after (meters 40.0) :flags (start-dead))
-          (sp-item 1198 :fade-after (meters 40.0) :flags (start-dead))
-          (sp-item 1200 :fade-after (meters 40.0) :period 300 :length 5)
-          (sp-item 1200 :fade-after (meters 40.0) :period 470 :length 5)
-          (sp-item 1200 :fade-after (meters 40.0) :period 613 :length 5)
-          (sp-item 1200 :fade-after (meters 40.0) :period 1336 :length 5)
-          (sp-item 1201 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-          (sp-item 1202 :fade-after (meters 40.0))
-          (sp-item 1203 :fade-after (meters 40.0) :falloff-to (meters 50.0))
-          (sp-item 1204 :fade-after (meters 40.0) :falloff-to (meters 50.0))
-          )
-        :bounds (new 'static 'sphere :w 32768.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1201) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.5 1.0 1.0)
-                                    (sp-flt spt-x (meters -0.75))
-                                    (sp-flt spt-y (meters -0.8))
-                                    (sp-flt spt-z 10649.6)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 32.0 1.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00055555557))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.06)
-                                    (sp-flt spt-fade-a -0.18)
-                                    (sp-int-plain-rnd spt-timer 30 449 1)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -120.0) (degrees 210.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.3))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1202) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-x (meters -0.75))
-                                    (sp-flt spt-y (meters -0.8))
-                                    (sp-flt spt-z 10649.6)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.4) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.00055555557))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 5)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1200) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 0.5 1.0)
-                                    (sp-flt spt-x (meters -0.7))
-                                    (sp-flt spt-y (meters -0.7))
-                                    (sp-flt spt-z 10649.6)
-                                    (sp-rnd-flt spt-scale-x (meters 4.0) (meters 3.0) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 60.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.4) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.6)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 1205)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1205)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-r 64.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-fade-r -1.0666667)
-                                                     (sp-flt spt-fade-g -1.0666667)
-                                                     (sp-flt spt-fade-a -2.1333334)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1203) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 0.4 1.0)
-                                    (sp-flt spt-x (meters -1.25))
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-flt spt-z 0.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-rnd-flt spt-b 64.0 32.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0022222223))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a 0.53333336)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 30 89 1)
-                                    (sp-launcher-by-id spt-next-launcher 1206)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1206)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-fade-r -0.053333335)
-                                                     (sp-flt spt-fade-g -0.053333335)
-                                                     (sp-flt spt-fade-b -0.053333335)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-flt spt-friction 0.95)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1204) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 27
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 0.8 1.0)
-                                    (sp-flt spt-x (meters -0.7))
-                                    (sp-flt spt-y (meters -0.7))
-                                    (sp-flt spt-z 10649.6)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 64.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.0022222223))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.053333335)
-                                    (sp-flt spt-fade-g -0.053333335)
-                                    (sp-flt spt-fade-b -0.053333335)
-                                    (sp-flt spt-fade-a -0.10666667)
-                                    (sp-flt spt-friction 0.99)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1199) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-scale-x (meters 1.0))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 64.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -6.4)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees -60.0) (degrees 120.0) 1.0)
-                                    (sp-flt spt-conerot-radius (meters 1.1))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1197)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 22
-          (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-          (sp-rnd-flt spt-num 2.0 8.0 1.0)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
-            )
-          (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 128.0 128.0 1.0)
-          (sp-flt spt-g 128.0)
-          (sp-flt spt-b 64.0)
-          (sp-rnd-flt spt-a 32.0 96.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-          (sp-flt spt-scalevel-x (meters -0.00016666666))
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-g -0.2)
-          (sp-flt spt-fade-b -0.2)
-          (sp-flt spt-fade-a -0.4)
-          (sp-flt spt-accel-y -6.826667)
-          (sp-flt spt-friction 0.92)
-          (sp-int spt-timer 300)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-          (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 180.0) 1.0)
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1198)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-          (sp-rnd-flt spt-num 2.0 6.0 1.0)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
-            )
-          (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-rnd-flt spt-r 128.0 128.0 1.0)
-          (sp-flt spt-g 128.0)
-          (sp-flt spt-b 64.0)
-          (sp-rnd-flt spt-a 32.0 96.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
-          (sp-flt spt-scalevel-x (meters -0.00016666666))
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-g -0.2)
-          (sp-flt spt-fade-b -0.2)
-          (sp-flt spt-accel-y -8.192)
-          (sp-flt spt-friction 0.92)
-          (sp-int spt-timer 1200)
-          (sp-cpuinfo-flags bit2 bit14)
-          (sp-flt spt-userdata 91750.4)
-          (sp-func spt-func 'check-drop-level-sagehut2)
-          (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
-          (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 180.0) 1.0)
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1207) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 15
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.0 3.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-rnd-flt spt-a 32.0 96.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-fade-a -0.85333335)
-                                    (sp-flt spt-accel-y -0.68266666)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit2 bit14)
-                                    (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpartgroup group-village2-moth
+  :id 264
+  :bounds (static-bspherem 0 0 0 3)
+  :parts
+  ((sp-item 1129 :fade-after (meters 120) :flags (bit1) :period 18030 :length 5 :binding 1127)
+    (sp-item 1127 :flags (start-dead launch-asap) :binding 1128)
+    (sp-item 1128 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1129 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int spt-timer 18000)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1127 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-flt spt-z (meters 1.5))
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-int spt-timer 18000)
+                            (sp-cpuinfo-flags bit3 bit7)
+                            (sp-int-plain-rnd spt-next-time 150 449 1)
+                            (sp-launcher-by-id spt-next-launcher 1130)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1130 :init-specs ((sp-rnd-flt spt-vel-x (meters -0.035555556) (meters 0.07111111) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters -0.0148148155) (meters 0.029629631) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-int-plain-rnd spt-next-time 150 449 1)
+                            (sp-launcher-by-id spt-next-launcher 1130)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1128 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+                            (sp-func spt-birth-func 'birth-func-copy-rot-color)
+                            (sp-flt spt-num 2.0)
+                            (sp-flt spt-scale-x (meters 0.4))
+                            (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
+                            (sp-flt spt-scale-y (meters 0.4))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit9 bit12)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-tableflys
+  :id 265
+  :bounds (static-bspherem 0 3 0 10)
+  :parts
+  ((sp-item 1133 :flags (launch-asap) :binding 1131)
+    (sp-item 1134 :flags (launch-asap) :binding 1131)
+    (sp-item 1135 :flags (launch-asap) :binding 1131)
+    (sp-item 1131 :flags (start-dead launch-asap) :binding 1132)
+    (sp-item 1131 :flags (start-dead launch-asap) :binding 1132)
+    (sp-item 1131 :flags (start-dead launch-asap) :binding 1132)
+    (sp-item 1132 :flags (is-3d start-dead))
+    (sp-item 1132 :flags (is-3d start-dead))
+    (sp-item 1132 :flags (is-3d start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1133 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 0))
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-z (meters 5))
+                            (sp-flt spt-scale-x (meters 0.01))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1136)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1136
+  :init-specs
+  ((sp-int spt-timer 300) (sp-int spt-next-time 150) (sp-launcher-by-id spt-next-launcher 1136))
+  )
+
+;; failed to figure out what this is:
+(defpart 1134 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters 4))
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-z (meters -2))
+                            (sp-flt spt-scale-x (meters 0.01))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1136)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1135 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -4))
+                            (sp-flt spt-y (meters 2))
+                            (sp-flt spt-z (meters -2))
+                            (sp-flt spt-scale-x (meters 0.01))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 128.0)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1136)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1131 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-int spt-num 1065353216 1 2.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 1) (meters 1) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0.0044444446) (meters 0.0044444446) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.008888889) (meters 0.008888889) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit7)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1136)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1132 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x22 :page #x2))
+                            (sp-func spt-birth-func 'birth-func-copy-rot-color)
+                            (sp-flt spt-num 3.0)
+                            (sp-flt spt-scale-x (meters 0.15))
+                            (sp-rnd-flt spt-rot-x -10922.667 54613.332 1.0)
+                            (sp-flt spt-scale-y (meters 0.15))
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit9 bit12)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-flamepot
+  :id 266
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 1137 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1138 :fade-after (meters 40) :falloff-to (meters 40) :period 492 :length 60)
+    (sp-item 1139 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1140 :fade-after (meters 40) :falloff-to (meters 40) :period 369 :length 219)
+    (sp-item 1141 :fade-after (meters 40) :falloff-to (meters 40) :period 690 :length 90)
+    (sp-item 1142 :fade-after (meters 40) :falloff-to (meters 40) :period 918 :length 669)
+    (sp-item 1143 :fade-after (meters 40) :falloff-to (meters 40) :period 750 :length 30)
+    (sp-item 1144 :fade-after (meters 50) :falloff-to (meters 60))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-flamepot-half
+  :id 267
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 1145 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1146 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1147 :fade-after (meters 50) :falloff-to (meters 60))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-flamepot-alt1
+  :id 268
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 1137 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1138 :fade-after (meters 40) :falloff-to (meters 40) :period 378 :length 60)
+    (sp-item 1139 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1140 :fade-after (meters 40) :falloff-to (meters 40) :period 435 :length 219)
+    (sp-item 1141 :fade-after (meters 40) :falloff-to (meters 40) :period 528 :length 90)
+    (sp-item 1142 :fade-after (meters 40) :falloff-to (meters 40) :period 1077 :length 669)
+    (sp-item 1143 :fade-after (meters 40) :falloff-to (meters 40) :period 612 :length 30)
+    (sp-item 1144 :fade-after (meters 50) :falloff-to (meters 60))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-flamepot-alt2
+  :id 269
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 1137 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1138 :fade-after (meters 40) :falloff-to (meters 40) :period 609 :length 60)
+    (sp-item 1139 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1140 :fade-after (meters 40) :falloff-to (meters 40) :period 288 :length 219)
+    (sp-item 1141 :fade-after (meters 40) :falloff-to (meters 40) :period 645 :length 90)
+    (sp-item 1142 :fade-after (meters 40) :falloff-to (meters 40) :period 771 :length 669)
+    (sp-item 1143 :fade-after (meters 40) :falloff-to (meters 40) :period 857 :length 30)
+    (sp-item 1144 :fade-after (meters 50) :falloff-to (meters 60))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-flamepot-off
+  :id 270
+  :bounds (static-bspherem 0 5 0 6)
+  :parts
+  ((sp-item 1148 :fade-after (meters 100) :falloff-to (meters 100)))
+  )
+
+;; failed to figure out what this is:
+(defpart 1144 :init-specs ((sp-flt spt-num 0.4)
+                            (sp-flt spt-x (meters 1))
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2949.12)
+                            (sp-flt spt-b 3276.8)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                            (sp-flt spt-vel-y (meters 0.026666667))
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 1149)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1149 :init-specs ((sp-flt spt-fade-b -5.4613333)))
+
+;; failed to figure out what this is:
+(defpart 1147 :init-specs ((sp-flt spt-num 0.15)
+                            (sp-flt spt-x (meters 0.4))
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 2867.2)
+                            (sp-flt spt-b 3072.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 1150)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1150 :init-specs ((sp-flt spt-fade-b -3.4133334)))
+
+;; failed to figure out what this is:
+(defpart 1137 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.5 0.4 1.0)
+                            (sp-rnd-flt spt-x (meters -0.25) (meters 0.75) 1.0)
+                            (sp-flt spt-y (meters -0.25))
+                            (sp-rnd-flt spt-z (meters -0.25) (meters 0.75) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0075) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1145 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.35 0.25 1.0)
+                            (sp-rnd-flt spt-x (meters -0.1) (meters 0.1) 1.0)
+                            (sp-flt spt-y (meters -0.25))
+                            (sp-rnd-flt spt-z (meters -0.1) (meters 0.1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.6) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.005) (meters 0.004166667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.054613337)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1138 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1060320051 1 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 0.5) 1.0)
+                            (sp-flt spt-y (meters -0.25))
+                            (sp-rnd-flt spt-z (meters 0) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-int-flt spt-vel-y (meters 0.02) 1 20.48)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1139 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.15 0.2 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters -0.25))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 20.0 12.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0055555557))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.0627451)
+                            (sp-flt spt-accel-y -1.0922667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 150 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1151)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1146 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.06 0.06 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters -0.25))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 20.0 12.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0055555557))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.0627451)
+                            (sp-flt spt-accel-y -0.4096)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 150 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1151)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1148 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.08 0.1 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters -0.25))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 20.0 12.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0055555557))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.0627451)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-int-plain-rnd spt-next-time 150 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1151)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1151 :init-specs ((sp-flt spt-fade-g 0.53333336)
+                            (sp-flt spt-fade-b 1.0666667)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 1152)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1152 :init-specs ((sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
+
+;; failed to figure out what this is:
+(defpart 1140 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.4 0.55 1.0)
+                            (sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
+                            (sp-flt spt-y (meters -0.25))
+                            (sp-rnd-flt spt-z (meters -0.6) (meters 1.2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees -15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1141 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1031127695 1 0.9)
+                            (sp-rnd-flt spt-x (meters -0.6) (meters 0.5) 1.0)
+                            (sp-flt spt-y (meters 0.75))
+                            (sp-rnd-flt spt-z (meters -0.6) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-int-flt spt-vel-y (meters 0.02) 1 20.48)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees -15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1142 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.6 0.9 1.0)
+                            (sp-rnd-flt spt-x (meters -0.6) (meters 1.2) 1.0)
+                            (sp-flt spt-y (meters -0.25))
+                            (sp-rnd-flt spt-z (meters -0.6) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.005) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1143 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1060320051 1 1.5)
+                            (sp-rnd-flt spt-x (meters -0.25) (meters 0.75) 1.0)
+                            (sp-flt spt-y (meters 0.75))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.9) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-int-flt spt-vel-y (meters 0.02) 1 20.48)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 0.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-fireboulder-off
+  :id 634
+  :bounds (static-bspherem 0 4 0 10.5)
+  :parts
+  ((sp-item 1169 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1170 :fade-after (meters 80) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-fireboulder
+  :id 271
+  :duration 18000
+  :bounds (static-bspherem 0 4 0 10.5)
+  :parts
+  ((sp-item 1153 :fade-after (meters 200) :falloff-to (meters 240))
+    (sp-item 1154 :fade-after (meters 100) :falloff-to (meters 120) :period 300 :length 60)
+    (sp-item 1155 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1156 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 1157 :fade-after (meters 200) :falloff-to (meters 240))
+    (sp-item 1158 :fade-after (meters 100) :falloff-to (meters 120) :period 600 :length 90)
+    (sp-item 1159 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1160 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 1161 :fade-after (meters 200) :falloff-to (meters 240))
+    (sp-item 1162 :fade-after (meters 100) :falloff-to (meters 120) :period 450 :length 30)
+    (sp-item 1163 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1164 :fade-after (meters 50) :falloff-to (meters 50))
+    (sp-item 1165 :fade-after (meters 200) :falloff-to (meters 240))
+    (sp-item 1166 :fade-after (meters 100) :falloff-to (meters 120) :period 240 :length 75)
+    (sp-item 1167 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1168 :fade-after (meters 200) :falloff-to (meters 240))
+    (sp-item 1169 :fade-after (meters 80) :falloff-to (meters 100))
+    (sp-item 1170 :fade-after (meters 80) :falloff-to (meters 100))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1156 :init-specs ((sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters 1.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 6) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 2.5) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 6144.0)
+                            (sp-flt spt-b 5324.8)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-vel-y (meters 0.026666667))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 1171)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1171 :init-specs ((sp-flt spt-fade-b 13.653334)))
+
+;; failed to figure out what this is:
+(defpart 1160 :init-specs ((sp-flt spt-num 0.15)
+                            (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters 5.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 1) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 6144.0)
+                            (sp-flt spt-b 5324.8)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-vel-y (meters 0.026666667))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 1171)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1164 :init-specs ((sp-flt spt-num 0.15)
+                            (sp-flt spt-x (meters 2.7))
+                            (sp-rnd-flt spt-y (meters 4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -3) (meters 2) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 6144.0)
+                            (sp-flt spt-b 5324.8)
+                            (sp-rnd-flt spt-vel-x (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-flt spt-vel-y (meters 0.026666667))
+                            (sp-rnd-flt spt-vel-z (meters -0.006666667) (meters 0.013333334) 1.0)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 1171)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1153 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.7 1.2 1.0)
+                            (sp-rnd-flt spt-x (meters 1.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1154 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1058642330 1 1.7)
+                            (sp-rnd-flt spt-x (meters 1.5) (meters 0.7) 1.0)
+                            (sp-rnd-flt spt-y (meters 6) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 1.8) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-int-flt spt-vel-y (meters 0.026666667) 1 27.306667)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1155 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.05 0.2 1.0)
+                            (sp-rnd-flt spt-x (meters 1.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 6) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 2.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 20.0 12.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.023333333) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.0627451)
+                            (sp-flt spt-accel-y -1.0922667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 150 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1172)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1172 :init-specs ((sp-flt spt-fade-g 0.53333336)
+                            (sp-flt spt-fade-b 1.0666667)
+                            (sp-int spt-next-time 120)
+                            (sp-launcher-by-id spt-next-launcher 1173)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1173 :init-specs ((sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
+
+;; failed to figure out what this is:
+(defpart 1157 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.65 1.2 1.0)
+                            (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters 4.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1158 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1056964608 1 1.2)
+                            (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters 4.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-int-flt spt-vel-y (meters 0.026666667) 1 27.306667)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1159 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.08 0.25 1.0)
+                            (sp-rnd-flt spt-x (meters -3.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters 5.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.023333333) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.0627451)
+                            (sp-flt spt-accel-y -1.0922667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 150 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1172)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees 5.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1161 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.7 1.5 1.0)
+                            (sp-flt spt-x (meters 2.7))
+                            (sp-rnd-flt spt-y (meters 3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees -15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1162 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1058642330 1 1.4)
+                            (sp-flt spt-x (meters 2.7))
+                            (sp-rnd-flt spt-y (meters 3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-int-flt spt-vel-y (meters 0.026666667) 1 27.306667)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees -15.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1163 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.08 0.25 1.0)
+                            (sp-flt spt-x (meters 2.7))
+                            (sp-rnd-flt spt-y (meters 4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.023333333) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.0627451)
+                            (sp-flt spt-accel-y -1.0922667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 150 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1172)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees -5.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1165 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.65 1.5 1.0)
+                            (sp-rnd-flt spt-x (meters -3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.016666668) (meters 0.01) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int-plain-rnd spt-timer 90 59 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1166 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-int spt-num 1059481190 1 1.5)
+                            (sp-rnd-flt spt-x (meters -3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-int-flt spt-vel-y (meters 0.026666667) 1 27.306667)
+                            (sp-rnd-flt spt-rotvel-z (degrees -3.0000002) (degrees 6.0000005) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1167 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.08 0.25 1.0)
+                            (sp-rnd-flt spt-x (meters -3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-y (meters 5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -3) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 32.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.023333333) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.005))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.99999994) (degrees 1.9999999) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -0.0627451)
+                            (sp-flt spt-accel-y -1.0922667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 150 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1172)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            (sp-flt spt-rotate-y (degrees -45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1168 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.1 0.4 1.0)
+                            (sp-rnd-flt spt-x (meters 1.5) (meters 1) 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-rnd-flt spt-z (meters 0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.9999999) (degrees 3.9999998) 1.0)
+                            (sp-flt spt-fade-g 0.32)
+                            (sp-flt spt-fade-b 0.32)
+                            (sp-flt spt-fade-a -0.5416667)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-int-plain-rnd spt-timer 180 29 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-z (degrees -45.0))
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            (sp-rnd-int-flt spt-rotate-y (degrees 0.0) 2 -18568.533)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1169 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.15 0.15 1.0)
+                            (sp-flt spt-y (meters 4))
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.0044444446))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.34133333)
+                            (sp-flt spt-fade-g -0.17066666)
+                            (sp-flt spt-fade-b -0.17066666)
+                            (sp-flt spt-fade-a 0.4)
+                            (sp-flt spt-accel-y 1.3653333)
+                            (sp-int spt-timer 1200)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 1174)
+                            (sp-rnd-flt spt-conerot-x (degrees 30.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4.5))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1174 :init-specs ((sp-flt spt-vel-y (meters 0.013333334))
+                            (sp-flt spt-fade-a 0.0)
+                            (sp-flt spt-accel-y -0.00040000002)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1175)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1175
+  :init-specs
+  ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0) (sp-flt spt-fade-a -0.10666667))
+  )
+
+;; failed to figure out what this is:
+(defpart 1170 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.15 0.3 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 48.0)
+                            (sp-flt spt-b 48.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.0073333336))
+                            (sp-flt spt-scalevel-x (meters 0.0013333333))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.4)
+                            (sp-flt spt-accel-y 0.54613334)
+                            (sp-flt spt-friction 0.995)
+                            (sp-int spt-timer 1575)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 1176)
+                            (sp-flt spt-conerot-x (degrees 90.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 2))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1176
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 600) (sp-launcher-by-id spt-next-launcher 1177))
+  )
+
+;; failed to figure out what this is:
+(defpart 1177 :init-specs ((sp-flt spt-vel-x (meters 0))
+                            (sp-flt spt-vel-y (meters 0.011666667))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-scalevel-x (meters 0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.10666667)
+                            (sp-flt spt-fade-g -0.08)
+                            (sp-flt spt-fade-b -0.08)
+                            (sp-flt spt-fade-a -0.053333335)
+                            (sp-flt spt-accel-y 0.13653333)
+                            (sp-int spt-timer 600)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-window-flames-45
+  :id 272
+  :bounds (static-bspherem 8 -8 0 36)
+  :parts
+  ((sp-item 1178 :fade-after (meters 300))
+    (sp-item 1179 :fade-after (meters 300))
+    (sp-item 1179 :fade-after (meters 180))
+    (sp-item 1180 :fade-after (meters 200) :period 2160 :length 5)
+    (sp-item 1180 :fade-after (meters 200) :period 669 :length 5)
+    (sp-item 1180 :fade-after (meters 200) :period 4279 :length 5)
+    (sp-item 1180 :fade-after (meters 200) :period 1238 :length 5)
+    (sp-item 1181 :fade-after (meters 300))
+    (sp-item 1182 :fade-after (meters 300))
+    (sp-item 1182 :fade-after (meters 180))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1178 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.015 0.035 1.0)
+                            (sp-rnd-flt spt-x (meters 4) (meters 12) 1.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 8) 1.0)
+                            (sp-flt spt-z (meters 8))
+                            (sp-rnd-int-flt spt-scale-x (meters 4) 1 40960.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-rnd-flt spt-a 0.0 8.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-flt spt-accel-y 0.27306667)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1183)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1183 :init-specs ((sp-flt spt-fade-a 0.0)
+                            (sp-int-plain-rnd spt-next-time 300 299 1)
+                            (sp-launcher-by-id spt-next-launcher 1184)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1184 :init-specs ((sp-flt spt-fade-a -0.08)))
+
+;; failed to figure out what this is:
+(defpart 1179 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.4 1.0)
+                            (sp-rnd-flt spt-x (meters 10) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 6) 1.0)
+                            (sp-rnd-int-flt spt-z (meters 7) 1 8192.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-rnd-flt spt-accel-y 9.557333 10.922667 1.0)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1185)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1185 :init-specs ((sp-flt spt-fade-a -0.85333335)))
+
+;; failed to figure out what this is:
+(defpart 1180 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.8 0.4 1.0)
+                            (sp-rnd-flt spt-x (meters 10) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 6))
+                            (sp-rnd-int-flt spt-z (meters 7) 1 8192.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-int spt-g 0 2 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-flt spt-fade-a -0.048484847)
+                            (sp-rnd-flt spt-accel-x -0.34133333 0.68266666 1.0)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-rnd-flt spt-accel-z -0.34133333 0.68266666 1.0)
+                            (sp-int spt-timer 840)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees -15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1181 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.015 0.03 1.0)
+                            (sp-rnd-flt spt-x (meters -6) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 8) (meters 8) 1.0)
+                            (sp-rnd-flt spt-z (meters -6) (meters 6) 1.0)
+                            (sp-rnd-int-flt spt-scale-x (meters 4) 1 40960.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-rnd-flt spt-a 0.0 8.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-flt spt-accel-y 0.27306667)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1183)
+                            (sp-flt spt-rotate-y (degrees 15.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1182 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 6) 1.0)
+                            (sp-rnd-int-flt spt-z (meters -8) 1 8192.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-rnd-flt spt-accel-y 10.24 10.24 1.0)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1185)
+                            (sp-flt spt-rotate-y (degrees 5.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-window-flames-41
+  :id 273
+  :bounds (static-bspherem 8 -8 0 36)
+  :parts
+  ((sp-item 1186 :fade-after (meters 300))
+    (sp-item 1187 :fade-after (meters 300))
+    (sp-item 1187 :fade-after (meters 180))
+    (sp-item 1188 :fade-after (meters 200) :period 2160 :length 5)
+    (sp-item 1188 :fade-after (meters 200) :period 669 :length 5)
+    (sp-item 1188 :fade-after (meters 200) :period 4279 :length 5)
+    (sp-item 1188 :fade-after (meters 200) :period 1238 :length 5)
+    (sp-item 1189 :fade-after (meters 300))
+    (sp-item 1190 :fade-after (meters 300))
+    (sp-item 1190 :fade-after (meters 180))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1186 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.015 0.03 1.0)
+                            (sp-rnd-flt spt-x (meters 6) (meters 12) 1.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 8) 1.0)
+                            (sp-flt spt-z (meters 8))
+                            (sp-rnd-int-flt spt-scale-x (meters 4) 1 40960.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-rnd-flt spt-a 0.0 8.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-flt spt-accel-y 0.27306667)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1183)
+                            (sp-flt spt-rotate-y (degrees 82.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1187 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.4 1.0)
+                            (sp-rnd-flt spt-x (meters 10) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 6) 1.0)
+                            (sp-rnd-int-flt spt-z (meters 7) 1 8192.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-rnd-flt spt-accel-y 9.557333 10.922667 1.0)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1185)
+                            (sp-flt spt-rotate-y (degrees 82.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1188 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.8 0.4 1.0)
+                            (sp-rnd-flt spt-x (meters 10) (meters 4) 1.0)
+                            (sp-flt spt-y (meters 6))
+                            (sp-rnd-int-flt spt-z (meters 7) 1 8192.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-int spt-g 0 2 128.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-flt spt-fade-a -0.048484847)
+                            (sp-rnd-flt spt-accel-x -0.34133333 0.68266666 1.0)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-rnd-flt spt-accel-z -0.34133333 0.68266666 1.0)
+                            (sp-int spt-timer 810)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-flt spt-rotate-y (degrees 82.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1189 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.015 0.03 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 8) (meters 8) 1.0)
+                            (sp-rnd-flt spt-z (meters -6) (meters 6) 1.0)
+                            (sp-rnd-int-flt spt-scale-x (meters 4) 1 40960.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-rnd-flt spt-a 0.0 8.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-flt spt-accel-y 0.27306667)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1183)
+                            (sp-flt spt-rotate-y (degrees 112.00001))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1190 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.3 0.3 1.0)
+                            (sp-rnd-flt spt-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 4) (meters 6) 1.0)
+                            (sp-rnd-int-flt spt-z (meters -8) 1 8192.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-rnd-flt spt-accel-y 10.24 10.24 1.0)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1185)
+                            (sp-flt spt-rotate-y (degrees 106.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-big-boulder
+  :id 274
+  :bounds (static-bspherem 8 -8 0 36)
+  :parts
+  ((sp-item 1191 :fade-after (meters 300))
+    (sp-item 1192 :fade-after (meters 300))
+    (sp-item 1192 :fade-after (meters 180))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1191 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.015 0.03 1.0)
+                            (sp-rnd-flt spt-x (meters -2) (meters 4) 1.0)
+                            (sp-rnd-flt spt-y (meters 8) (meters 4) 1.0)
+                            (sp-rnd-flt spt-z (meters -2) (meters 4) 1.0)
+                            (sp-rnd-int-flt spt-scale-x (meters 8) 1 40960.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 32.0)
+                            (sp-flt spt-g 32.0)
+                            (sp-flt spt-b 32.0)
+                            (sp-rnd-flt spt-a 0.0 8.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-flt spt-accel-y 0.27306667)
+                            (sp-int spt-timer 1800)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1183)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1192 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.4 0.4 1.0)
+                            (sp-flt spt-x (meters 2))
+                            (sp-flt spt-y (meters 4))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.020000001) (degrees 0.040000003) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 4.266667)
+                            (sp-rnd-flt spt-accel-y 9.557333 10.922667 1.0)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 30)
+                            (sp-launcher-by-id spt-next-launcher 1185)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 90.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 4.5))
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-sages-controlpanel
+  :id 275
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1193 :fade-after (meters 30) :period 736 :length 10)
+    (sp-item 1193 :fade-after (meters 30) :period 1696 :length 10)
+    (sp-item 1193 :fade-after (meters 30) :period 5079 :length 10)
+    (sp-item 1194 :fade-after (meters 30) :period 5079 :length 10)
+    (sp-item 1194 :fade-after (meters 30) :period 2163 :length 10)
+    (sp-item 1195 :fade-after (meters 40) :falloff-to (meters 50))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1195 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.4 1.0)
+                            (sp-flt spt-x (meters 0.9))
+                            (sp-flt spt-y (meters 0.25))
+                            (sp-flt spt-z (meters -1.2))
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0022222223))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.53333336)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 1196)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1196 :init-specs ((sp-flt spt-fade-r -0.053333335)
+                            (sp-flt spt-fade-g -0.053333335)
+                            (sp-flt spt-fade-b -0.053333335)
+                            (sp-flt spt-fade-a -0.10666667)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1193
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 4.0 16.0 1.0)
+    (sp-sound
+      (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
+      )
+    (sp-flt spt-x (meters 0.9))
+    (sp-flt spt-y (meters 0.05))
+    (sp-flt spt-z (meters -0.9))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00055555557))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.2)
+    (sp-flt spt-fade-b -0.2)
+    (sp-flt spt-fade-a -0.6)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.94)
+    (sp-int-plain-rnd spt-timer 90 59 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees -45.0) (degrees 180.0) 1.0)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1194
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 4.0 16.0 1.0)
+    (sp-sound
+      (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
+      )
+    (sp-flt spt-x (meters -1.2))
+    (sp-flt spt-y (meters -0.5))
+    (sp-flt spt-z (meters 1.2))
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 64.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00055555557))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.2)
+    (sp-flt spt-fade-b -0.2)
+    (sp-flt spt-fade-a -0.6)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.94)
+    (sp-int-plain-rnd spt-timer 90 59 1)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees -45.0) (degrees 180.0) 1.0)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village2-sages-machine
+  :id 276
+  :bounds (static-bspherem 0 0 0 8)
+  :parts
+  ((sp-item 1199 :fade-after (meters 40) :period 768 :length 10 :binding 1197)
+    (sp-item 1199 :fade-after (meters 40) :period 1096 :length 10 :binding 1198)
+    (sp-item 1199 :fade-after (meters 40) :period 2137 :length 10 :binding 1197)
+    (sp-item 1197 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 1197 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 1198 :fade-after (meters 40) :flags (start-dead))
+    (sp-item 1200 :fade-after (meters 40) :period 300 :length 5)
+    (sp-item 1200 :fade-after (meters 40) :period 470 :length 5)
+    (sp-item 1200 :fade-after (meters 40) :period 613 :length 5)
+    (sp-item 1200 :fade-after (meters 40) :period 1336 :length 5)
+    (sp-item 1201 :fade-after (meters 40) :falloff-to (meters 40))
+    (sp-item 1202 :fade-after (meters 40))
+    (sp-item 1203 :fade-after (meters 40) :falloff-to (meters 50))
+    (sp-item 1204 :fade-after (meters 40) :falloff-to (meters 50))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1201 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.5 1.0 1.0)
+                            (sp-flt spt-x (meters -0.75))
+                            (sp-flt spt-y (meters -0.8))
+                            (sp-flt spt-z (meters 2.6))
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 32.0 1.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00055555557))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.06)
+                            (sp-flt spt-fade-a -0.18)
+                            (sp-int-plain-rnd spt-timer 30 449 1)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -120.0) (degrees 210.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0.3))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1202 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-x (meters -0.75))
+                            (sp-flt spt-y (meters -0.8))
+                            (sp-flt spt-z (meters 2.6))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 2.4) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.00055555557))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 5)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1200 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x1f :page #x2))
+                            (sp-rnd-flt spt-num 1.0 0.5 1.0)
+                            (sp-flt spt-x (meters -0.7))
+                            (sp-flt spt-y (meters -0.7))
+                            (sp-flt spt-z (meters 2.6))
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 3) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 60.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.4) (meters 0.4) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.6)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 1205)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1205 :init-specs ((sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-fade-r -1.0666667)
+                            (sp-flt spt-fade-g -1.0666667)
+                            (sp-flt spt-fade-a -2.1333334)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1203 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.4 1.0)
+                            (sp-flt spt-x (meters -1.25))
+                            (sp-flt spt-y (meters 0))
+                            (sp-flt spt-z (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-rnd-flt spt-b 64.0 32.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0022222223))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.53333336)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 30 89 1)
+                            (sp-launcher-by-id spt-next-launcher 1206)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1206 :init-specs ((sp-flt spt-fade-r -0.053333335)
+                            (sp-flt spt-fade-g -0.053333335)
+                            (sp-flt spt-fade-b -0.053333335)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-friction 0.95)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1204 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 0.2 0.8 1.0)
+                            (sp-flt spt-x (meters -0.7))
+                            (sp-flt spt-y (meters -0.7))
+                            (sp-flt spt-z (meters 2.6))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.25) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 64.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.0022222223))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.4) (degrees 0.8) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.053333335)
+                            (sp-flt spt-fade-g -0.053333335)
+                            (sp-flt spt-fade-b -0.053333335)
+                            (sp-flt spt-fade-a -0.10666667)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -4.0) 4 364.0889)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1199 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-scale-x (meters 1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 64.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -6.4)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees -60.0) (degrees 120.0) 1.0)
+                            (sp-flt spt-conerot-radius (meters 1.1))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1197
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 2.0 8.0 1.0)
+    (sp-sound
+      (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
+      )
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00016666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.2)
+    (sp-flt spt-fade-b -0.2)
+    (sp-flt spt-fade-a -0.4)
+    (sp-flt spt-accel-y -6.826667)
+    (sp-flt spt-friction 0.92)
+    (sp-int spt-timer 300)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 180.0) 1.0)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1198
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+    (sp-rnd-flt spt-num 2.0 6.0 1.0)
+    (sp-sound
+      (new 'static 'sound-spec :mask #x1 :num 0.1 :group #x1 :sound-name (static-sound-name "spark") :volume #x400)
+      )
+    (sp-rnd-flt spt-scale-x (meters 0.1) (meters 0.1) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-rnd-flt spt-r 128.0 128.0 1.0)
+    (sp-flt spt-g 128.0)
+    (sp-flt spt-b 64.0)
+    (sp-rnd-flt spt-a 32.0 96.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.08) 1.0)
+    (sp-flt spt-scalevel-x (meters -0.00016666666))
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-g -0.2)
+    (sp-flt spt-fade-b -0.2)
+    (sp-flt spt-accel-y -8.192)
+    (sp-flt spt-friction 0.92)
+    (sp-int spt-timer 1200)
+    (sp-cpuinfo-flags bit2 bit14)
+    (sp-flt spt-userdata 91750.4)
+    (sp-func spt-func 'check-drop-level-sagehut2)
+    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 120.0) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 180.0) 1.0)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1207 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.0 3.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-rnd-flt spt-a 32.0 96.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.011666667) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-fade-a -0.85333335)
+                            (sp-flt spt-accel-y -0.68266666)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit2 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 50.000004) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
 
 ;; definition for function check-drop-level-sagehut2
 (defun check-drop-level-sagehut2 ((arg0 sparticle-system) (arg1 sparticle-cpuinfo) (arg2 vector))
@@ -2421,179 +1920,150 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 678)
-      (new 'static 'sparticle-launch-group
-        :length 43
-        :duration #x384
-        :linger-duration #x5dc
-        :flags (sp-group-flag use-local-clock)
-        :name "group-village2-fireboulder-hover"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 43
-          (sp-item 2792 :fade-after (meters 100.0) :falloff-to (meters 100.0) :binding 2791)
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2791 :flags (bit1 start-dead launch-asap))
-          (sp-item 2793)
-          (sp-item 2794 :falloff-to (meters 400.0))
-          (sp-item 2795 :falloff-to (meters 400.0))
-          (sp-item 2796 :falloff-to (meters 400.0))
-          )
-        :bounds (new 'static 'sphere :w 65536.0)
-        )
-      )
+(defpartgroup group-village2-fireboulder-hover
+  :id 678
+  :duration 900
+  :flags (use-local-clock)
+  :bounds (static-bspherem 0 0 0 16)
+  :parts
+  ((sp-item 2792 :fade-after (meters 100) :falloff-to (meters 100) :binding 2791)
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2791 :flags (bit1 start-dead launch-asap))
+    (sp-item 2793)
+    (sp-item 2794 :falloff-to (meters 400))
+    (sp-item 2795 :falloff-to (meters 400))
+    (sp-item 2796 :falloff-to (meters 400))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2795) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -45.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.5)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2795 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x23 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 2.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees -45.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.2) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.5)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2794) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
-                                    (sp-rnd-flt spt-num 0.2 2.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 12.5) (meters 3.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees -45.0) (degrees 180.0) 1.0)
-                                    (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
-                                    (sp-flt spt-r 64.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-flt spt-fade-a -1.5)
-                                    (sp-int spt-timer 90)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-int spt-next-time 10)
-                                    (sp-launcher-by-id spt-next-launcher 146)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2794 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x24 :page #x2))
+                            (sp-rnd-flt spt-num 0.2 2.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 12.5) (meters 3.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees -45.0) (degrees 180.0) 1.0)
+                            (sp-rnd-flt spt-scale-y (meters 0.5) (meters 0.1) 1.0)
+                            (sp-flt spt-r 64.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-flt spt-fade-a -1.5)
+                            (sp-int spt-timer 90)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            (sp-int spt-next-time 10)
+                            (sp-launcher-by-id spt-next-launcher 146)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2793)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 18
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 1.0)
-                                                     (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
-                                                     (sp-rnd-flt spt-z -4.096 8.192 1.0)
-                                                     (sp-flt spt-scale-x (meters 14.0))
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 0.0)
-                                                     (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                                     (sp-flt spt-b 255.0)
-                                                     (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                                     (sp-flt spt-vel-y (meters 0.0))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-                                                     (sp-flt spt-fade-a -3.2)
-                                                     (sp-int spt-timer 40)
-                                                     (sp-cpuinfo-flags bit2 bit3)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2793 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-y (meters -0.001) (meters 0.002) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.001) (meters 0.002) 1.0)
+                            (sp-flt spt-scale-x (meters 14))
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 255.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+                            (sp-flt spt-fade-a -3.2)
+                            (sp-int spt-timer 40)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2792) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.0) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0033333334))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2792 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0033333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit14)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2791) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 16384.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 0.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-b 128.0 128.0 1.0)
-                                    (sp-flt spt-a 128.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-accel-z 0.0)
-                                    (sp-int spt-timer 900)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2791 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 0.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 128.0 1.0)
+                            (sp-flt spt-a 128.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-int-flt spt-vel-x (meters -0.026666667) 1 218.45334)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-int spt-timer 900)
+                            (sp-cpuinfo-flags bit2 bit3 bit7 bit14)
+                            )
+              )
diff --git a/test/decompiler/reference/levels/village3/miners_REF.gc b/test/decompiler/reference/levels/village3/miners_REF.gc
index 02c9962ae9..926b863e85 100644
--- a/test/decompiler/reference/levels/village3/miners_REF.gc
+++ b/test/decompiler/reference/levels/village3/miners_REF.gc
@@ -169,106 +169,87 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 566) (new 'static 'sparticle-launch-group
-                                       :length 3
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-minershort-candle"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 3
-                                         (sp-item 2364 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 2365 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 2366 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 61440.0)
-                                       )
-      )
+(defpartgroup group-minershort-candle
+  :id 566
+  :bounds (static-bspherem 0 0 0 15)
+  :parts
+  ((sp-item 2364 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 2365 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 2366 :fade-after (meters 60) :falloff-to (meters 60))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2366)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 2.0 1.0)
-                                                     (sp-flt spt-y (meters 0.0))
-                                                     (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-g 128.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 128.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.0) (meters 0.00033333333) 1.0)
-                                                     (sp-rnd-flt spt-scalevel-x (meters 0.0005) (meters 0.001) 1.0)
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.32820514)
-                                                     (sp-flt spt-fade-g -0.32820514)
-                                                     (sp-flt spt-fade-b -0.32820514)
-                                                     (sp-flt spt-fade-a -0.16410257)
-                                                     (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
-                                                     (sp-int spt-timer 390)
-                                                     (sp-cpuinfo-flags bit2 bit12 bit14)
-                                                     (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.05) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 2366 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 2.0 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-scale-x (meters 0.075) (meters 0.075) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 128.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 128.0 16.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0) (meters 0.00033333333) 1.0)
+                            (sp-rnd-flt spt-scalevel-x (meters 0.0005) (meters 0.001) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.32820514)
+                            (sp-flt spt-fade-g -0.32820514)
+                            (sp-flt spt-fade-b -0.32820514)
+                            (sp-flt spt-fade-a -0.16410257)
+                            (sp-rnd-flt spt-accel-y 0.13653333 0.27306667 1.0)
+                            (sp-int spt-timer 390)
+                            (sp-cpuinfo-flags bit2 bit12 bit14)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.05) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2364) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 3.0)
-                                    (sp-rnd-flt spt-y (meters -0.08) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.00016666666) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.0) (meters 0.00016666666) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
-                                    (sp-int-plain-rnd spt-timer 60 29 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2364 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 3.0)
+                            (sp-rnd-flt spt-y (meters -0.08) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.00016666666) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0) (meters 0.00016666666) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.7111111)
+                            (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
+                            (sp-int-plain-rnd spt-timer 60 29 1)
+                            (sp-cpuinfo-flags bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2365) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -0.02))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.75) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 16.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.00016666666) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.0) (meters 0.00016666666) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-flt spt-fade-a -1.92)
-                                    (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 2365 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -0.02))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.75) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 16.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.00016666666) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0) (meters 0.00016666666) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.7111111)
+                            (sp-flt spt-fade-a -1.92)
+                            (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; definition for method 52 of type minershort
 ;; INFO: Return type mismatch int vs none.
diff --git a/test/decompiler/reference/levels/village3/village3-part_REF.gc b/test/decompiler/reference/levels/village3/village3-part_REF.gc
index adf174e030..6845602eff 100644
--- a/test/decompiler/reference/levels/village3/village3-part_REF.gc
+++ b/test/decompiler/reference/levels/village3/village3-part_REF.gc
@@ -19,779 +19,602 @@
   )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 476) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-candle"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1797 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         (sp-item 1798 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-                                         )
-                                       :bounds
-                                       (new 'static 'sphere :y 40960.0 :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-candle
+  :id 476
+  :bounds (static-bspherem 0 10 0 12)
+  :parts
+  ((sp-item 1797 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1798 :fade-after (meters 60) :falloff-to (meters 60))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1797) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-y (meters -0.08) (meters 0.02) 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 32.0 32.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.00016666666) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.0) (meters 0.00016666666) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
-                                    (sp-int-plain-rnd spt-timer 60 29 1)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1797 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-y (meters -0.08) (meters 0.02) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.2) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 32.0 32.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.00016666666) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0) (meters 0.00016666666) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.7111111)
+                            (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
+                            (sp-int-plain-rnd spt-timer 60 29 1)
+                            (sp-cpuinfo-flags bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1798) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -0.04))
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 64.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-b 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-a 8.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.00016666666) 1.0)
-                                    (sp-rnd-flt spt-vel-z (meters 0.0) (meters 0.00016666666) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0016666667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-flt spt-fade-a -0.8)
-                                    (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
-                                    (sp-int spt-timer 25)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1798 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -0.04))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 64.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-b 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.00016666666) 1.0)
+                            (sp-rnd-flt spt-vel-z (meters 0) (meters 0.00016666666) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0016666667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-g -0.7111111)
+                            (sp-flt spt-fade-a -0.8)
+                            (sp-rnd-flt spt-accel-y 1.0922667 0.27306667 1.0)
+                            (sp-int spt-timer 25)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 477) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-05"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1799 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-05
+  :id 477
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1799 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 478) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-06"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1801 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-06
+  :id 478
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1801 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 479) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-07"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1802 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-07
+  :id 479
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1802 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 480) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-08"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1803 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-08
+  :id 480
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1803 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 481) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-09"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1804 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-09
+  :id 481
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1804 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 482) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-10"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1805 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-10
+  :id 482
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1805 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 483) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-11"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1806 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-11
+  :id 483
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1806 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 484) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-12"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1807 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-12
+  :id 484
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1807 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 485) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-13"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1808 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-13
+  :id 485
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1808 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 486) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-14"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1809 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-14
+  :id 486
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1809 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 487) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sulphur-15"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1810 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         (sp-item 1800 :fade-after (meters 180.0) :falloff-to (meters 180.0))
-                                         )
-                                       :bounds (new 'static 'sphere :w 49152.0)
-                                       )
-      )
+(defpartgroup group-village3-sulphur-15
+  :id 487
+  :bounds (static-bspherem 0 0 0 12)
+  :parts
+  ((sp-item 1810 :fade-after (meters 180) :falloff-to (meters 180))
+    (sp-item 1800 :fade-after (meters 180) :falloff-to (meters 180))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1810) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.21333334)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1811)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 150.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1810 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.21333334)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1811)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 150.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1808) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1811)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 70.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1808 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1811)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 70.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1809) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1811)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 70.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1809 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1811)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 70.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1807) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1812)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 15.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1807 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1812)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 15.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1812)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-vel-y (meters 0.00033333333))
-                                                     (sp-flt spt-fade-a -0.023703704)
-                                                     (sp-flt spt-accel-y -0.027306668)
-                                                     (sp-int spt-next-time 750)
-                                                     (sp-launcher-by-id spt-next-launcher 1813)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1812 :init-specs ((sp-flt spt-vel-y (meters 0.00033333333))
+                            (sp-flt spt-fade-a -0.023703704)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-next-time 750)
+                            (sp-launcher-by-id spt-next-launcher 1813)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1806) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1814)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1806 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1814)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 90.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1814)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-vel-y (meters 0.00033333333))
-                                                     (sp-flt spt-fade-a -0.023703704)
-                                                     (sp-flt spt-accel-y -0.027306668)
-                                                     (sp-int spt-next-time 225)
-                                                     (sp-launcher-by-id spt-next-launcher 1813)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1814 :init-specs ((sp-flt spt-vel-y (meters 0.00033333333))
+                            (sp-flt spt-fade-a -0.023703704)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-next-time 225)
+                            (sp-launcher-by-id spt-next-launcher 1813)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1805) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1811)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees -10.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1805 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1811)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees -10.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1804) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1815)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1804 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1815)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1815)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-vel-y (meters 0.00033333333))
-                                                     (sp-flt spt-fade-a -0.023703704)
-                                                     (sp-flt spt-accel-y -0.027306668)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 1813)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1815 :init-specs ((sp-flt spt-vel-y (meters 0.00033333333))
+                            (sp-flt spt-fade-a -0.023703704)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1813)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1803) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1816)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 40.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1803 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1816)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 40.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1816)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-vel-y (meters 0.00033333333))
-                                                     (sp-flt spt-fade-a -0.023703704)
-                                                     (sp-flt spt-accel-y -0.027306668)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 1813)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1816 :init-specs ((sp-flt spt-vel-y (meters 0.00033333333))
+                            (sp-flt spt-fade-a -0.023703704)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1813)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1802) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-y (meters 0.01))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1817)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 40.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1802 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1817)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 40.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1817)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 6
-                                                     (sp-flt spt-vel-y (meters 0.00033333333))
-                                                     (sp-flt spt-fade-a -0.023703704)
-                                                     (sp-flt spt-accel-y -0.027306668)
-                                                     (sp-int spt-next-time 750)
-                                                     (sp-launcher-by-id spt-next-launcher 1813)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1817 :init-specs ((sp-flt spt-vel-y (meters 0.00033333333))
+                            (sp-flt spt-fade-a -0.023703704)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-int spt-next-time 750)
+                            (sp-launcher-by-id spt-next-launcher 1813)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1813)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-fade-a -0.047407407)
-                                                     (sp-flt spt-accel-y 1.3653333)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1813 :init-specs ((sp-flt spt-fade-a -0.047407407) (sp-flt spt-accel-y 1.3653333)))
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1801) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1811)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 40.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1801 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1811)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 40.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1799) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-rnd-flt spt-num 0.1 0.15 1.0)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 70.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1811)
-                                    (sp-flt spt-conerot-x (degrees 60.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees -20.0) (degrees 10.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1799 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-rnd-flt spt-num 0.1 0.15 1.0)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 70.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.0033333334) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1811)
+                            (sp-flt spt-conerot-x (degrees 60.0))
+                            (sp-rnd-flt spt-conerot-y (degrees -20.0) (degrees 10.0) 1.0)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1811)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-vel-y (meters 0.00033333333))
-                                                     (sp-flt spt-fade-a -0.017777778)
-                                                     (sp-flt spt-accel-y -0.027306668)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
+(defpart 1811
+  :init-specs
+  ((sp-flt spt-vel-y (meters 0.00033333333)) (sp-flt spt-fade-a -0.017777778) (sp-flt spt-accel-y -0.027306668))
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 1800) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
-                                    (sp-flt spt-num 0.1)
-                                    (sp-rnd-flt spt-x (meters -1.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-z -4096.0 8192.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 100.0)
-                                    (sp-flt spt-g 100.0)
-                                    (sp-flt spt-b 50.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0016666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-b 0.021333333)
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 1500)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 90 59 1)
-                                    (sp-launcher-by-id spt-next-launcher 1811)
-                                    (sp-end)
-                                    )
-                                  )
-      )
+(defpart 1800 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x19 :page #x2))
+                            (sp-flt spt-num 0.1)
+                            (sp-rnd-flt spt-x (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-z (meters -1) (meters 2) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 100.0)
+                            (sp-flt spt-g 100.0)
+                            (sp-flt spt-b 50.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0016666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-b 0.021333333)
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 1500)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 90 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1811)
+                            )
+              )
 
 ;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 488)
-      (new 'static 'sparticle-launch-group
-        :length 68
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-minor-fire"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 68
-          (sp-item 2358 :fade-after (meters 50.0) :falloff-to (meters 80.0))
-          (sp-item 2359 :fade-after (meters 40.0) :falloff-to (meters 40.0) :binding 2357)
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2357 :flags (bit1 start-dead launch-asap))
-          (sp-item 2360 :fade-after (meters 60.0) :falloff-to (meters 80.0))
-          (sp-item 2361 :fade-after (meters 50.0) :falloff-to (meters 50.0))
-          )
-        :bounds
-        (new 'static 'sphere :y 10240.0 :w 10240.0)
-        )
-      )
+(defpartgroup group-village3-minor-fire
+  :id 488
+  :bounds (static-bspherem 0 2.5 0 2.5)
+  :parts
+  ((sp-item 2358 :fade-after (meters 50) :falloff-to (meters 80))
+    (sp-item 2359 :fade-after (meters 40) :falloff-to (meters 40) :binding 2357)
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2357 :flags (bit1 start-dead launch-asap))
+    (sp-item 2360 :fade-after (meters 60) :falloff-to (meters 80))
+    (sp-item 2361 :fade-after (meters 50) :falloff-to (meters 50))
+    )
+  )
 
 ;; failed to figure out what this is:
-(set! (-> *part-id-table* 2359) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (new 'static 'sp-field-init-spec
-                                      :field (sp-field-id spt-sound)
-                                      :flags (sp-flag plain-v2)
-                                      :sound
-                                      (new 'static 'sound-spec
+(defpart 2359 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-sound (new 'static 'sound-spec
                                         :mask #x1
                                         :num 1.0
                                         :group #x1
@@ -799,1890 +622,1524 @@
                                         :volume #x400
                                         )
                                       )
-                                    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-flt spt-g 0.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.04) 1.0)
-                                    (sp-rnd-flt spt-accel-y -0.27306667 -0.13653333 1.0)
-                                    (sp-flt spt-friction 0.96)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit1 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees -20.0) (degrees 40.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2357) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-y (meters 0.0) (meters 16.0) 1.0)
-                                    (sp-rnd-flt spt-z 1024.0 4096.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.1))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-b 128.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.053333335) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.0))
-                                    (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
-                                    (sp-flt spt-fade-r 0.0)
-                                    (sp-flt spt-fade-g -0.7111111)
-                                    (sp-flt spt-fade-b -0.7111111)
-                                    (sp-flt spt-fade-a -0.42666668)
-                                    (sp-int spt-timer 300)
-                                    (sp-cpuinfo-flags bit1 bit2 bit3 bit7)
-                                    (sp-int spt-next-time 180)
-                                    (sp-launcher-by-id spt-next-launcher 2362)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2362)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r -1.0666667)
-                                                     (sp-flt spt-fade-g 1.0666667)
-                                                     (sp-flt spt-fade-b 1.0666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2358) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 21
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 3.0 7.0 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.1) 1.0)
-                                    (sp-flt spt-y (meters -0.75))
-                                    (sp-rnd-flt spt-z -2048.0 4505.6 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-g 32.0 64.0 1.0)
-                                    (sp-flt spt-a 96.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                    (sp-flt spt-fade-a -0.73333335)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int-plain-rnd spt-timer 60 59 1)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
-                                    (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 0.0) (meters 0.5) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2360)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 25
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.5)
-                                                     (sp-rnd-flt spt-x (meters -0.5) (meters 1.1) 1.0)
-                                                     (sp-flt spt-y (meters -0.75))
-                                                     (sp-rnd-flt spt-z -2048.0 4505.6 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 196.0)
-                                                     (sp-flt spt-g 128.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.006666667))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r -0.18962963)
-                                                     (sp-flt spt-fade-g -0.094814815)
-                                                     (sp-flt spt-fade-b -0.094814815)
-                                                     (sp-flt spt-fade-a -0.047407407)
-                                                     (sp-flt spt-accel-y -0.027306668)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 675)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2361)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 16
-                                                     (sp-flt spt-num 0.4)
-                                                     (sp-flt spt-x (meters 0.2))
-                                                     (sp-flt spt-y (meters -0.75))
-                                                     (sp-int spt-rot-x 8)
-                                                     (sp-flt spt-r 3276.8)
-                                                     (sp-flt spt-g 2662.4)
-                                                     (sp-flt spt-b 2867.2)
-                                                     (sp-rnd-flt spt-vel-x (meters 0.0) (meters 0.006666667) 1.0)
-                                                     (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
-                                                     (sp-flt spt-friction 0.99)
-                                                     (sp-int spt-timer 300)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 2363)
-                                                     (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 2363)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b -1.3653333) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 489)
-      (new 'static 'sparticle-launch-group
-        :length 46
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-spewing-volcano-36"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 46
-          (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1200 :offset 300)
-          (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1320 :offset 360)
-          (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1440 :offset 420)
-          (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1560 :offset 480)
-          (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1980 :offset 540)
-          (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 810 :offset 1620)
-          (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 870 :offset 1590)
-          (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 930 :offset 1560)
-          (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 990 :offset 1530)
-          (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 1050 :offset 1500)
-          (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 120)
-          (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 450 :offset 120)
-          (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 120)
-          (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 630 :offset 120)
-          (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 120)
-          (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 64036)
-          (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 420 :offset 64066)
-          (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 64096)
-          (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 64126)
-          (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 64156)
-          (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 63916)
-          (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 63946)
-          (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 63976)
-          (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 660 :offset 64006)
-          (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 64036)
-          (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 63316)
-          (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 63376)
-          (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 63436)
-          (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 63496)
-          (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 840 :offset 63556)
-          (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 63616)
-          (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 63646)
-          (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 63676)
-          (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 660 :offset 63706)
-          (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 63736)
-          (sp-item 1830 :falloff-to (meters 300.0) :period 2400 :length 180)
-          (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 300 :offset 60)
-          (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 60)
-          (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 420 :offset 60)
-          (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 60)
-          (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 60)
-          (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 60)
-          (sp-item 1833 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 60)
-          (sp-item 1834 :falloff-to (meters 300.0))
-          (sp-item 1835 :falloff-to (meters 300.0))
-          (sp-item 1836 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2400 :length 600 :offset 60)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 57344.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 490)
-      (new 'static 'sparticle-launch-group
-        :length 46
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-spewing-volcano-37"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 46
-          (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1200 :offset 1500)
-          (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1320 :offset 1560)
-          (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1440 :offset 1620)
-          (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1560 :offset 1680)
-          (sp-item 1823 :falloff-to (meters 300.0) :period 2400 :length 1980 :offset 1740)
-          (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 810 :offset 2820)
-          (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 870 :offset 2790)
-          (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 930 :offset 2760)
-          (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 990 :offset 2730)
-          (sp-item 1824 :falloff-to (meters 300.0) :period 2400 :length 1050 :offset 2700)
-          (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 1320)
-          (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 450 :offset 1320)
-          (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 1320)
-          (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 630 :offset 1320)
-          (sp-item 1825 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 1320)
-          (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 65236)
-          (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 420 :offset 65266)
-          (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 65296)
-          (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 65326)
-          (sp-item 1826 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 65356)
-          (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 65116)
-          (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 65146)
-          (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 65176)
-          (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 660 :offset 65206)
-          (sp-item 1827 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 65236)
-          (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 64516)
-          (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 64576)
-          (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 64636)
-          (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 64696)
-          (sp-item 1828 :falloff-to (meters 300.0) :period 2400 :length 840 :offset 64756)
-          (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 64816)
-          (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 64846)
-          (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 64876)
-          (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 660 :offset 64906)
-          (sp-item 1829 :falloff-to (meters 300.0) :period 2400 :length 720 :offset 64936)
-          (sp-item 1830 :falloff-to (meters 300.0) :period 2400 :length 180 :offset 1200)
-          (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 300 :offset 1260)
-          (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 360 :offset 1260)
-          (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 420 :offset 1260)
-          (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 480 :offset 1260)
-          (sp-item 1831 :falloff-to (meters 300.0) :period 2400 :length 540 :offset 1260)
-          (sp-item 1832 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 1260)
-          (sp-item 1833 :falloff-to (meters 300.0) :period 2400 :length 600 :offset 1260)
-          (sp-item 1834 :falloff-to (meters 300.0) :offset 1200)
-          (sp-item 1835 :falloff-to (meters 300.0) :offset 1200)
-          (sp-item 1836 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2400 :length 600 :offset 1260)
-          )
-        :bounds
-        (new 'static 'sphere :y 12288.0 :w 57344.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1836)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 15
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-int spt-rot-x 5)
-                                                     (sp-flt spt-r 8192.0)
-                                                     (sp-flt spt-g 6144.0)
-                                                     (sp-flt spt-b 6144.0)
-                                                     (sp-flt spt-vel-x (meters 0.013333334))
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.013333334) 1.0)
-                                                     (sp-flt spt-accel-y -6.826667)
-                                                     (sp-int spt-timer 1260)
-                                                     (sp-cpuinfo-flags aux-list)
-                                                     (sp-int-plain-rnd spt-next-time 15 629 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1837)
-                                                     (sp-flt spt-conerot-x (degrees 0.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1837)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 10
-                                                     (sp-flt spt-fade-r 40.96)
-                                                     (sp-flt spt-fade-g 34.133335)
-                                                     (sp-flt spt-fade-b 30.72)
-                                                     (sp-flt spt-accel-x 0.0)
-                                                     (sp-flt spt-accel-y 6.826667)
-                                                     (sp-flt spt-accel-z 0.0)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int spt-next-time 300)
-                                                     (sp-launcher-by-id spt-next-launcher 1838)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1838)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 3 (sp-flt spt-fade-g 27.306667) (sp-int spt-timer 300) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1833)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 22
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.6)
-                                                     (sp-rnd-flt spt-scale-x (meters 4.0) (meters 2.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 128.0)
-                                                     (sp-flt spt-g 64.0)
-                                                     (sp-flt spt-b 0.0)
-                                                     (sp-flt spt-a 16.0)
-                                                     (sp-flt spt-vel-x (meters 0.013333334))
-                                                     (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.013333334) 1.0)
-                                                     (sp-flt spt-scalevel-x (meters -0.0025))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-accel-y -6.826667)
-                                                     (sp-int spt-timer 1260)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 15 629 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1839)
-                                                     (sp-flt spt-conerot-x (degrees 0.0))
-                                                     (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1839)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 14
-                                                     (sp-rnd-flt spt-a 16.0 8.0 1.0)
-                                                     (sp-flt spt-scalevel-x (meters 0.013333334))
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-r 0.42666668)
-                                                     (sp-flt spt-fade-g 0.64)
-                                                     (sp-flt spt-fade-b 0.85)
-                                                     (sp-flt spt-fade-a -0.04)
-                                                     (sp-flt spt-accel-x 4.096)
-                                                     (sp-flt spt-accel-y 0.0)
-                                                     (sp-flt spt-accel-z 0.0)
-                                                     (sp-flt spt-friction 0.9)
-                                                     (sp-int-plain-rnd spt-next-time 240 59 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1840)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1840)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-b 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1834) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 2.0)
-                                    (sp-rnd-flt spt-x (meters 3.5) (meters 0.75) 1.0)
-                                    (sp-flt spt-y (meters -7.0))
-                                    (sp-rnd-flt spt-z -6144.0 12288.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.04444444))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -2.8444443)
-                                    (sp-flt spt-accel-x 0.13653333)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-int-flt spt-rotate-y (degrees 30.0) 3 16384.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1835) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.8)
-                                    (sp-rnd-flt spt-x (meters 3.5) (meters 0.75) 1.0)
-                                    (sp-flt spt-y (meters -6.5))
-                                    (sp-rnd-flt spt-z -6144.0 12288.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0016666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r 0.21333334)
-                                    (sp-flt spt-fade-g 0.31833333)
-                                    (sp-flt spt-fade-b 0.425)
-                                    (sp-flt spt-fade-a -0.053333335)
-                                    (sp-flt spt-accel-x 0.13653333)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-int-flt spt-rotate-y (degrees 30.0) 3 16384.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1829) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 23
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.4)
-                                    (sp-rnd-flt spt-x (meters 7.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-y (meters -7.0))
-                                    (sp-rnd-flt spt-z -6144.0 12288.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 3.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.06666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -2.8444443)
-                                    (sp-flt spt-accel-x 0.13653333)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 36.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1828) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.09)
-                                    (sp-rnd-flt spt-x (meters 7.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-y (meters -6.5))
-                                    (sp-rnd-flt spt-z -6144.0 12288.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0016666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r 0.21166667)
-                                    (sp-flt spt-fade-g 0.31833333)
-                                    (sp-flt spt-fade-b 0.425)
-                                    (sp-flt spt-fade-a -0.053333335)
-                                    (sp-flt spt-accel-x 0.13653333)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 36.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1827) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 22
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.4)
-                                    (sp-rnd-flt spt-x (meters 5.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters -7.0))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.04444444))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-a -2.8444443)
-                                    (sp-flt spt-accel-x 0.13653333)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int spt-timer 42)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1826) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.2)
-                                    (sp-rnd-flt spt-x (meters 5.0) (meters 2.0) 1.0)
-                                    (sp-flt spt-y (meters -6.5))
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0016666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r 0.21333334)
-                                    (sp-flt spt-fade-g 0.31833333)
-                                    (sp-flt spt-fade-b 0.425)
-                                    (sp-flt spt-fade-a -0.053333335)
-                                    (sp-flt spt-accel-x 0.13653333)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1824) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.09)
-                                    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r 0.21333334)
-                                    (sp-flt spt-fade-g 0.31833333)
-                                    (sp-flt spt-fade-b 0.425)
-                                    (sp-flt spt-fade-a -0.053333335)
-                                    (sp-flt spt-accel-x 1.3653333)
-                                    (sp-flt spt-accel-y -0.27306667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1823) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-flt spt-num 0.3)
-                                    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 2.0) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 16.0 16.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
-                                    (sp-flt spt-scalevel-x (meters 0.13333334))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r 1.0666667)
-                                    (sp-flt spt-fade-g 1.5916667)
-                                    (sp-flt spt-fade-b 2.125)
-                                    (sp-flt spt-fade-a -0.26666668)
-                                    (sp-int spt-timer 120)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1825) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 28
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
-                                    (sp-flt spt-num 0.7)
-                                    (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-z -1024.0 2048.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 64.0 64.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.026666667))
-                                    (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0025))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.53333336)
-                                    (sp-flt spt-fade-g -0.21333334)
-                                    (sp-flt spt-accel-y -6.826667)
-                                    (sp-flt spt-friction 0.98)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit0 bit2)
-                                    (sp-int-plain-rnd spt-next-time 180 119 1)
-                                    (sp-launcher-by-id spt-next-launcher 1841)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 32.0) 1.0)
-                                    (sp-rnd-int-flt spt-conerot-y (degrees 45.0) 3 16384.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1832) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 25
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
-                                    (sp-flt spt-num 0.4)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-int spt-rot-x 4)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 96.0 55.0 1.0)
-                                    (sp-flt spt-g 64.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0025))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.21333334)
-                                    (sp-flt spt-fade-g -0.21333334)
-                                    (sp-flt spt-accel-y -6.826667)
-                                    (sp-int spt-timer 660)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 180 119 1)
-                                    (sp-launcher-by-id spt-next-launcher 1841)
-                                    (sp-flt spt-conerot-x (degrees 0.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1831) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
-                                    (sp-flt spt-num 0.4)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0025))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.53333336)
-                                    (sp-flt spt-fade-g -0.21333334)
-                                    (sp-flt spt-accel-y -6.826667)
-                                    (sp-int spt-timer 660)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 180 119 1)
-                                    (sp-launcher-by-id spt-next-launcher 1841)
-                                    (sp-flt spt-conerot-x (degrees 0.0))
-                                    (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1841)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 3
-                                                     (sp-flt spt-fade-r -0.08888889)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1830) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 26
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
-                                    (sp-flt spt-num 6.0)
-                                    (sp-rnd-flt spt-x (meters -0.5) (meters 1.0) 1.0)
-                                    (sp-rnd-flt spt-z -2048.0 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.0) (meters 0.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 200.0 55.0 1.0)
-                                    (sp-rnd-flt spt-g 64.0 32.0 1.0)
-                                    (sp-flt spt-b 0.0)
-                                    (sp-rnd-flt spt-a 96.0 32.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.013333334))
-                                    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.013333334) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0025))
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-fade-r -0.53333336)
-                                    (sp-flt spt-fade-g -0.21333334)
-                                    (sp-flt spt-accel-y -6.826667)
-                                    (sp-int spt-timer 660)
-                                    (sp-cpuinfo-flags bit2)
-                                    (sp-int-plain-rnd spt-next-time 180 119 1)
-                                    (sp-launcher-by-id spt-next-launcher 1841)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3.0000002) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 36.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 491)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-steam-puff-31"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 1842 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 900 :length 126)
-          (sp-item 1843 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1260 :length 167)
-          (sp-item 1844 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 690 :length 150)
-          (sp-item 1845 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1920 :length 80)
-          (sp-item 1846 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1710 :length 103)
-          )
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 492)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-steam-puff-22"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 1842 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1230 :length 156)
-          (sp-item 1843 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2310 :length 107)
-          (sp-item 1844 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 960 :length 120)
-          (sp-item 1845 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1350 :length 170)
-          (sp-item 1846 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1530 :length 193)
-          )
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 493)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-steam-puff-23"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 1842 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 126)
-          (sp-item 1843 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1560 :length 107)
-          (sp-item 1844 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1830 :length 120)
-          (sp-item 1845 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 690 :length 110)
-          (sp-item 1846 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1050 :length 163)
-          )
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1842)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 1.5)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
-            )
-          (sp-flt spt-scale-x (meters 0.4))
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-flt spt-g 255.0)
-          (sp-flt spt-b 255.0)
-          (sp-rnd-flt spt-a 32.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.53333336)
-          (sp-flt spt-accel-y 1.3653333)
-          (sp-flt spt-friction 0.93)
-          (sp-int spt-timer 180)
-          (sp-cpuinfo-flags bit2)
-          (sp-flt spt-conerot-x (degrees 90.0))
-          (sp-flt spt-conerot-y (degrees 0.0))
-          (sp-flt spt-conerot-radius (meters 0.4))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1843)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 1.5)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
-            )
-          (sp-flt spt-scale-x (meters 0.4))
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-flt spt-g 255.0)
-          (sp-flt spt-b 255.0)
-          (sp-rnd-flt spt-a 32.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.53333336)
-          (sp-flt spt-accel-y 1.3653333)
-          (sp-flt spt-friction 0.93)
-          (sp-int spt-timer 180)
-          (sp-cpuinfo-flags bit2)
-          (sp-flt spt-conerot-x (degrees 110.0))
-          (sp-flt spt-conerot-y (degrees 32.0))
-          (sp-flt spt-conerot-radius (meters 0.4))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1844)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 1.5)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
-            )
-          (sp-flt spt-scale-x (meters 0.4))
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-flt spt-g 255.0)
-          (sp-flt spt-b 255.0)
-          (sp-rnd-flt spt-a 32.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.53333336)
-          (sp-flt spt-accel-y 1.3653333)
-          (sp-flt spt-friction 0.93)
-          (sp-int spt-timer 180)
-          (sp-cpuinfo-flags bit2)
-          (sp-flt spt-conerot-x (degrees 75.0))
-          (sp-flt spt-conerot-y (degrees 120.0))
-          (sp-flt spt-conerot-radius (meters 0.4))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1845)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 1.5)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
-            )
-          (sp-flt spt-scale-x (meters 0.4))
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-flt spt-g 255.0)
-          (sp-flt spt-b 255.0)
-          (sp-rnd-flt spt-a 32.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.53333336)
-          (sp-flt spt-accel-y 1.3653333)
-          (sp-flt spt-friction 0.93)
-          (sp-int spt-timer 180)
-          (sp-cpuinfo-flags bit2)
-          (sp-flt spt-conerot-x (degrees 80.0))
-          (sp-flt spt-conerot-y (degrees 200.00002))
-          (sp-flt spt-conerot-radius (meters 0.4))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1846)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 1.5)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
-            )
-          (sp-flt spt-scale-x (meters 0.4))
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-flt spt-g 255.0)
-          (sp-flt spt-b 255.0)
-          (sp-rnd-flt spt-a 32.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.53333336)
-          (sp-flt spt-accel-y 1.3653333)
-          (sp-flt spt-friction 0.93)
-          (sp-int spt-timer 180)
-          (sp-cpuinfo-flags bit2)
-          (sp-flt spt-conerot-x (degrees 67.0))
-          (sp-flt spt-conerot-y (degrees 280.0))
-          (sp-flt spt-conerot-radius (meters 0.4))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 494)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-bottom-puff-25"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 900 :length 126)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1260 :length 167)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 669 :length 150)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1920 :length 80)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1710 :length 103)
-          )
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 495)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-bottom-puff-27"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1200 :length 126)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1080 :length 167)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1569 :length 150)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 990 :length 80)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1410 :length 103)
-          )
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 496)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-bottom-puff-28"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1500 :length 126)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1470 :length 167)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1029 :length 150)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 720 :length 80)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1260 :length 103)
-          )
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 497)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-bottom-puff-29"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1500 :length 126)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 2010 :length 167)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 999 :length 150)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 720 :length 80)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1230 :length 103)
-          )
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 498)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-bottom-puff-30"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1500 :length 126)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 960 :length 167)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1869 :length 150)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1050 :length 80)
-          (sp-item 1847 :fade-after (meters 100.0) :falloff-to (meters 100.0) :period 1380 :length 103)
-          )
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1847)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 24
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 1.5)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
-            )
-          (sp-flt spt-y (meters 0.7))
-          (sp-flt spt-scale-x (meters 0.4))
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-flt spt-g 255.0)
-          (sp-flt spt-b 255.0)
-          (sp-rnd-flt spt-a 32.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.053333335) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.53333336)
-          (sp-flt spt-accel-y 1.3653333)
-          (sp-flt spt-friction 0.8)
-          (sp-int spt-timer 180)
-          (sp-cpuinfo-flags bit2)
-          (sp-flt spt-conerot-x (degrees 120.0))
-          (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-flt spt-conerot-radius (meters 1.0))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 499)
-      (new 'static 'sparticle-launch-group
-        :length 15
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-lava-lava-20x20"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 15
-          (sp-item 1850 :fade-after (meters 40.0) :falloff-to (meters 40.0))
-          (sp-item 1851 :fade-after (meters 100.0) :falloff-to (meters 100.0))
-          (sp-item 1852 :fade-after (meters 80.0) :falloff-to (meters 80.0) :binding 1848)
-          (sp-item 1848 :flags (start-dead))
-          (sp-item 1848 :flags (start-dead))
-          (sp-item 1848 :flags (start-dead))
-          (sp-item 1848 :flags (start-dead))
-          (sp-item 1848 :flags (start-dead))
-          (sp-item 1848 :flags (start-dead))
-          (sp-item 1848 :flags (start-dead))
-          (sp-item 1848 :flags (start-dead))
-          (sp-item 1853 :fade-after (meters 40.0) :falloff-to (meters 40.0) :period 137 :length 5 :binding 1849)
-          (sp-item 1853 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 234 :length 5 :binding 1849)
-          (sp-item 1853 :fade-after (meters 80.0) :falloff-to (meters 80.0) :period 92 :length 5 :binding 1849)
-          (sp-item 1849 :flags (start-dead))
-          )
-        :bounds (new 'static 'sphere :w 57344.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1851)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 23
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-flt spt-num 0.2)
-                                                     (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                                     (sp-flt spt-y (meters 0.5))
-                                                     (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                                     (sp-rnd-flt spt-scale-x (meters 6.0) (meters 4.0) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-flt spt-r 256.0)
-                                                     (sp-flt spt-g 192.0)
-                                                     (sp-flt spt-b 128.0)
-                                                     (sp-flt spt-a 0.0)
-                                                     (sp-flt spt-vel-y (meters 0.01))
-                                                     (sp-flt spt-scalevel-x (meters 0.0033333334))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
-                                                     (sp-copy-from-other spt-scalevel-y -4)
-                                                     (sp-flt spt-fade-a 0.64)
-                                                     (sp-int spt-timer 600)
-                                                     (sp-cpuinfo-flags bit2)
-                                                     (sp-int-plain-rnd spt-next-time 37 36 1)
-                                                     (sp-launcher-by-id spt-next-launcher 1855)
-                                                     (sp-flt spt-rotate-y (degrees 0.0))
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1853) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 17
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.5)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
-                                    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 255.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
-                                    (sp-flt spt-fade-a -12.0)
-                                    (sp-int spt-timer 20)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1852) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 19
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 0.02 0.02 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-y (meters 0.0))
-                                    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-flt spt-a 255.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
-                                    (sp-flt spt-fade-g -0.30476192)
-                                    (sp-flt spt-accel-y -10.922667)
-                                    (sp-int spt-timer 180)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1850) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 18
-                                    (sp-flt spt-num 1.0)
-                                    (sp-rnd-flt spt-x (meters -10.0) (meters 20.0) 1.0)
-                                    (sp-flt spt-y (meters 0.5))
-                                    (sp-rnd-flt spt-z -40960.0 81920.0 1.0)
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 8192.0)
-                                    (sp-flt spt-g 5324.8)
-                                    (sp-flt spt-b 5324.8)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
-                                    (sp-flt spt-fade-r 40.96)
-                                    (sp-flt spt-fade-g 27.306667)
-                                    (sp-flt spt-fade-b 38.229332)
-                                    (sp-int spt-timer 150)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-int spt-next-time 75)
-                                    (sp-launcher-by-id spt-next-launcher 1856)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1856)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-b 16.384) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1855)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-a 0.0)
-                                                     (sp-int spt-next-time 75)
-                                                     (sp-launcher-by-id spt-next-launcher 1857)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1857)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 5
-                                                     (sp-flt spt-fade-r -0.85333335)
-                                                     (sp-flt spt-fade-g -0.42666668)
-                                                     (sp-int spt-next-time 150)
-                                                     (sp-launcher-by-id spt-next-launcher 1858)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1858)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 4
-                                                     (sp-flt spt-fade-r 0.0)
-                                                     (sp-flt spt-fade-g 0.0)
-                                                     (sp-flt spt-fade-a -0.10666667)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1848) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.7)
-                                    (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0029166667))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y -1.3653333)
-                                    (sp-int-plain-rnd spt-timer 30 179 1)
-                                    (sp-cpuinfo-flags bit0 bit3)
-                                    (sp-flt spt-rotate-y (degrees 45.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1849) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 6.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 256.0)
-                                    (sp-rnd-flt spt-g 0.0 128.0 1.0)
-                                    (sp-rnd-flt spt-a 128.0 128.0 1.0)
-                                    (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.02) 1.0)
-                                    (sp-flt spt-scalevel-x (meters -0.0023333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y -2.7306666)
-                                    (sp-int spt-timer 360)
-                                    (sp-cpuinfo-flags bit0 bit3)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 500)
-      (new 'static 'sparticle-launch-group
-        :length #xaf
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-sagehut-warpgate"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 175
-          (sp-item 1861 :fade-after (meters 60.0) :falloff-to (meters 60.0))
-          (sp-item 1862 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1859)
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1859 :flags (bit1 start-dead launch-asap))
-          (sp-item 1863 :fade-after (meters 60.0) :falloff-to (meters 100.0) :binding 1860)
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          (sp-item 1860 :flags (bit1 start-dead launch-asap))
-          )
-        :bounds (new 'static 'sphere :w 24576.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1863) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 12
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-flt spt-num 0.25)
-                                    (sp-flt spt-x (meters -2.0))
-                                    (sp-flt spt-scale-x (meters 0.25))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-flt spt-vel-x (meters 0.0033333334))
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -25.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1860) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 20
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 0.2 1.0)
-                                    (sp-flt spt-x (meters 3.1111112))
-                                    (sp-flt spt-y (meters 4.0))
-                                    (sp-rnd-flt spt-z 22118.4 4096.0 1.0)
-                                    (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                    (sp-rnd-flt spt-b 64.0 196.0 1.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                    (sp-flt spt-vel-x (meters 0.0))
-                                    (sp-flt spt-vel-z (meters 0.0))
-                                    (sp-flt spt-fade-a 0.16)
-                                    (sp-flt spt-accel-x 1.2136296)
-                                    (sp-flt spt-accel-z -0.75093335)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 bit7)
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1861) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 14
-                                    (sp-rnd-flt spt-num 5.0 5.0 1.0)
-                                    (sp-flt spt-x (meters -0.5))
-                                    (sp-int spt-rot-x 5)
-                                    (sp-flt spt-r 4096.0)
-                                    (sp-flt spt-g 3481.6)
-                                    (sp-flt spt-b 3481.6)
-                                    (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.02) 1.0)
-                                    (sp-flt spt-fade-b 5.936232)
-                                    (sp-int spt-timer 69)
-                                    (sp-cpuinfo-flags aux-list)
-                                    (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
-                                    (sp-rnd-flt spt-conerot-radius (meters 4.0) (meters 3.0) 1.0)
-                                    (sp-flt spt-rotate-y (degrees -25.000002))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1862) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 10
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
-                                    (sp-rnd-flt spt-num 0.4 1.0 1.0)
-                                    (sp-flt spt-scale-x (meters 0.25))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-g 128.0)
-                                    (sp-flt spt-a 0.0)
-                                    (sp-int spt-timer 690)
-                                    (sp-cpuinfo-flags bit3)
-                                    (sp-flt spt-rotate-y (degrees -35.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1859)
-      (new 'static 'sparticle-launcher :init-specs (new 'static 'inline-array sp-field-init-spec 21
-                                                     (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                                     (sp-rnd-flt spt-num 1.0 0.4 1.0)
-                                                     (sp-flt spt-x (meters 3.1111112))
-                                                     (sp-flt spt-y (meters 4.0))
-                                                     (sp-flt spt-z 9830.4)
-                                                     (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
-                                                     (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-                                                     (sp-copy-from-other spt-scale-y -4)
-                                                     (sp-rnd-flt spt-r 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-g 0.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-b 64.0 64.0 1.0)
-                                                     (sp-rnd-flt spt-a 8.0 32.0 1.0)
-                                                     (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
-                                                     (sp-flt spt-vel-x (meters -0.0044444446))
-                                                     (sp-flt spt-vel-z (meters -0.0034999999))
-                                                     (sp-rnd-flt spt-rotvel-z (degrees 0.0) (degrees 1.2) 1.0)
-                                                     (sp-flt spt-fade-a 0.10666667)
-                                                     (sp-flt spt-accel-x 4.247704)
-                                                     (sp-int spt-timer 690)
-                                                     (sp-cpuinfo-flags bit2 bit3 bit7)
-                                                     (sp-end)
-                                                     )
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 501) (new 'static 'sparticle-launch-group
-                                       :length 2
-                                       :duration #xbb8
-                                       :linger-duration #x5dc
-                                       :name "group-village3-sagehut-boiling"
-                                       :launcher
-                                       (new 'static 'inline-array sparticle-group-item 2
-                                         (sp-item 1864 :fade-after (meters 60.0) :flags (is-3d))
-                                         (sp-item 1865 :fade-after (meters 60.0) :flags (is-3d))
-                                         )
-                                       :bounds (new 'static 'sphere :w 24576.0)
-                                       )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1864) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 24
-                                    (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-                                    (sp-rnd-flt spt-num 1.0 0.5 1.0)
-                                    (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
-                                    (sp-flt spt-y (meters -2.0))
-                                    (sp-flt spt-z -1228.8)
-                                    (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
-                                    (sp-flt spt-rot-x 16384.0)
-                                    (sp-flt spt-rot-y (degrees -50.000004))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 64.0 64.0 1.0)
-                                    (sp-rnd-int spt-b 0 1 32.0)
-                                    (sp-rnd-flt spt-a 32.0 64.0 1.0)
-                                    (sp-rnd-flt spt-vel-x (meters -0.0016666667) (meters 0.0033333334) 1.0)
-                                    (sp-flt spt-vel-y (meters 0.006666667))
-                                    (sp-flt spt-scalevel-x (meters 0.0013333333))
-                                    (sp-copy-from-other spt-scalevel-y -4)
-                                    (sp-flt spt-accel-y -0.06826667)
-                                    (sp-int spt-timer 600)
-                                    (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
-                                    (sp-int spt-next-time 150)
-                                    (sp-launcher-by-id spt-next-launcher 1866)
-                                    (sp-flt spt-rotate-y (degrees 132.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1866)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 2 (sp-flt spt-fade-a -0.2) (sp-end))
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1865) (new 'static 'sparticle-launcher
-                                  :init-specs
-                                  (new 'static 'inline-array sp-field-init-spec 16
-                                    (sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
-                                    (sp-flt spt-num 1.0)
-                                    (sp-flt spt-y (meters -0.5))
-                                    (sp-flt spt-z -1064.96)
-                                    (sp-flt spt-scale-x (meters 12.0))
-                                    (sp-flt spt-rot-x 15018.667)
-                                    (sp-flt spt-rot-y (degrees -50.000004))
-                                    (sp-copy-from-other spt-scale-y -4)
-                                    (sp-flt spt-r 128.0)
-                                    (sp-rnd-flt spt-g 8.0 120.0 1.0)
-                                    (sp-flt spt-a 24.0)
-                                    (sp-flt spt-fade-a -1.2)
-                                    (sp-int spt-timer 15)
-                                    (sp-cpuinfo-flags bit2 bit3)
-                                    (sp-flt spt-rotate-y (degrees 0.0))
-                                    (sp-end)
-                                    )
-                                  )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 502)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-sagehut-steam"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 1867 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1200 :length 126)
-          (sp-item 1867 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1560 :length 107)
-          (sp-item 1867 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1830 :length 120)
-          (sp-item 1867 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 690 :length 110)
-          (sp-item 1867 :fade-after (meters 60.0) :falloff-to (meters 60.0) :period 1050 :length 163)
-          )
-        :bounds (new 'static 'sphere :w 16384.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1867)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 23
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-flt spt-num 1.0)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
-            )
-          (sp-flt spt-scale-x (meters 0.3))
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-flt spt-g 255.0)
-          (sp-flt spt-b 255.0)
-          (sp-rnd-flt spt-a 32.0 64.0 1.0)
-          (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.53333336)
-          (sp-flt spt-accel-y 1.3653333)
-          (sp-flt spt-friction 0.85)
-          (sp-int spt-timer 180)
-          (sp-cpuinfo-flags bit2)
-          (sp-rnd-flt spt-conerot-x (degrees 77.0) (degrees 6.0000005) 1.0)
-          (sp-rnd-flt spt-conerot-y (degrees 217.0) (degrees 6.0000005) 1.0)
-          (sp-flt spt-conerot-radius (meters -0.3))
-          (sp-end)
-          )
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-group-id-table* 503)
-      (new 'static 'sparticle-launch-group
-        :length 5
-        :duration #xbb8
-        :linger-duration #x5dc
-        :name "group-village3-sagehut-understeam"
-        :launcher
-        (new 'static 'inline-array sparticle-group-item 5
-          (sp-item 1868 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 1200 :length 126)
-          (sp-item 1868 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 1560 :length 107)
-          (sp-item 1868 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 1830 :length 120)
-          (sp-item 1868 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 690 :length 110)
-          (sp-item 1868 :fade-after (meters 200.0) :falloff-to (meters 200.0) :period 1050 :length 163)
-          )
-        :bounds
-        (new 'static 'sphere :y -12288.0 :w 32768.0)
-        )
-      )
-
-;; failed to figure out what this is:
-(set! (-> *part-id-table* 1868)
-      (new 'static 'sparticle-launcher
-        :init-specs
-        (new 'static 'inline-array sp-field-init-spec 24
-          (sp-tex spt-texture (new 'static 'texture-id :page #x2))
-          (sp-rnd-flt spt-num 4.0 4.0 1.0)
-          (new 'static 'sp-field-init-spec
-            :field (sp-field-id spt-sound)
-            :flags (sp-flag plain-v2)
-            :sound
-            (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
-            )
-          (sp-flt spt-x (meters 1.5))
-          (sp-flt spt-y (meters 0.6))
-          (sp-flt spt-scale-x (meters 1.0))
-          (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-copy-from-other spt-scale-y -4)
-          (sp-flt spt-r 255.0)
-          (sp-flt spt-g 255.0)
-          (sp-flt spt-b 255.0)
-          (sp-rnd-flt spt-a 32.0 64.0 1.0)
-          (sp-flt spt-vel-x (meters 0.13333334))
-          (sp-rnd-flt spt-vel-y (meters -0.1) (meters -0.026666667) 1.0)
-          (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
-          (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
-          (sp-copy-from-other spt-scalevel-y -4)
-          (sp-flt spt-fade-a -0.53333336)
-          (sp-flt spt-accel-y 13.653334)
-          (sp-flt spt-friction 0.9)
-          (sp-int spt-timer 180)
-          (sp-cpuinfo-flags bit2)
-          (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
-          (sp-end)
-          )
-        )
-      )
+                            (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-y (meters 0.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 0.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.04) 1.0)
+                            (sp-rnd-flt spt-accel-y -0.27306667 -0.13653333 1.0)
+                            (sp-flt spt-friction 0.96)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit1 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees -20.0) (degrees 40.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2357 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-y (meters 0) (meters 16) 1.0)
+                            (sp-rnd-flt spt-z (meters 0.25) (meters 1) 1.0)
+                            (sp-flt spt-scale-x (meters 0.1))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.026666667) (meters 0.053333335) 1.0)
+                            (sp-flt spt-vel-y (meters 0))
+                            (sp-rnd-flt spt-vel-z (meters -0.00083333335) (meters 0.0016666667) 1.0)
+                            (sp-flt spt-fade-r 0.0)
+                            (sp-flt spt-fade-g -0.7111111)
+                            (sp-flt spt-fade-b -0.7111111)
+                            (sp-flt spt-fade-a -0.42666668)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags bit1 bit2 bit3 bit7)
+                            (sp-int spt-next-time 180)
+                            (sp-launcher-by-id spt-next-launcher 2362)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2362
+  :init-specs
+  ((sp-flt spt-fade-r -1.0666667) (sp-flt spt-fade-g 1.0666667) (sp-flt spt-fade-b 1.0666667))
+  )
+
+;; failed to figure out what this is:
+(defpart 2358 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 3.0 7.0 1.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1.1) 1.0)
+                            (sp-flt spt-y (meters -0.75))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1.1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-g 32.0 64.0 1.0)
+                            (sp-flt spt-a 96.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.013333334) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-flt spt-fade-a -0.73333335)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int-plain-rnd spt-timer 60 59 1)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-int-flt spt-conerot-x (degrees -8.0) 4 728.1778)
+                            (sp-rnd-flt spt-conerot-y (degrees -180.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 0) (meters 0.5) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2360 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.5)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1.1) 1.0)
+                            (sp-flt spt-y (meters -0.75))
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1.1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 196.0)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.01) (meters 0.01) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.006666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.18962963)
+                            (sp-flt spt-fade-g -0.094814815)
+                            (sp-flt spt-fade-b -0.094814815)
+                            (sp-flt spt-fade-a -0.047407407)
+                            (sp-flt spt-accel-y -0.027306668)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 675)
+                            (sp-cpuinfo-flags bit2)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2361 :init-specs ((sp-flt spt-num 0.4)
+                            (sp-flt spt-x (meters 0.2))
+                            (sp-flt spt-y (meters -0.75))
+                            (sp-int spt-rot-x 8)
+                            (sp-flt spt-r 3276.8)
+                            (sp-flt spt-g 2662.4)
+                            (sp-flt spt-b 2867.2)
+                            (sp-rnd-flt spt-vel-x (meters 0) (meters 0.006666667) 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.013333334) 1.0)
+                            (sp-flt spt-friction 0.99)
+                            (sp-int spt-timer 300)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 2363)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 2363 :init-specs ((sp-flt spt-fade-b -1.3653333)))
+
+;; failed to figure out what this is:
+(defpartgroup group-spewing-volcano-36
+  :id 489
+  :bounds (static-bspherem 0 3 0 14)
+  :parts
+  ((sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1200 :offset 300)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1320 :offset 360)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1440 :offset 420)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1560 :offset 480)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1980 :offset 540)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 810 :offset 1620)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 870 :offset 1590)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 930 :offset 1560)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 990 :offset 1530)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 1050 :offset 1500)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 360 :offset 120)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 450 :offset 120)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 540 :offset 120)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 630 :offset 120)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 720 :offset 120)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 360 :offset 64036)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 420 :offset 64066)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 480 :offset 64096)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 540 :offset 64126)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 600 :offset 64156)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 480 :offset 63916)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 540 :offset 63946)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 600 :offset 63976)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 660 :offset 64006)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 720 :offset 64036)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 360 :offset 63316)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 480 :offset 63376)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 600 :offset 63436)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 720 :offset 63496)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 840 :offset 63556)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 480 :offset 63616)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 540 :offset 63646)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 600 :offset 63676)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 660 :offset 63706)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 720 :offset 63736)
+    (sp-item 1830 :falloff-to (meters 300) :period 2400 :length 180)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 300 :offset 60)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 360 :offset 60)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 420 :offset 60)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 480 :offset 60)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 540 :offset 60)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 600 :offset 60)
+    (sp-item 1833 :falloff-to (meters 300) :period 2400 :length 600 :offset 60)
+    (sp-item 1834 :falloff-to (meters 300))
+    (sp-item 1835 :falloff-to (meters 300))
+    (sp-item 1836 :fade-after (meters 100) :falloff-to (meters 100) :period 2400 :length 600 :offset 60)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-spewing-volcano-37
+  :id 490
+  :bounds (static-bspherem 0 3 0 14)
+  :parts
+  ((sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1200 :offset 1500)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1320 :offset 1560)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1440 :offset 1620)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1560 :offset 1680)
+    (sp-item 1823 :falloff-to (meters 300) :period 2400 :length 1980 :offset 1740)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 810 :offset 2820)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 870 :offset 2790)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 930 :offset 2760)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 990 :offset 2730)
+    (sp-item 1824 :falloff-to (meters 300) :period 2400 :length 1050 :offset 2700)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 360 :offset 1320)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 450 :offset 1320)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 540 :offset 1320)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 630 :offset 1320)
+    (sp-item 1825 :falloff-to (meters 300) :period 2400 :length 720 :offset 1320)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 360 :offset 65236)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 420 :offset 65266)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 480 :offset 65296)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 540 :offset 65326)
+    (sp-item 1826 :falloff-to (meters 300) :period 2400 :length 600 :offset 65356)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 480 :offset 65116)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 540 :offset 65146)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 600 :offset 65176)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 660 :offset 65206)
+    (sp-item 1827 :falloff-to (meters 300) :period 2400 :length 720 :offset 65236)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 360 :offset 64516)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 480 :offset 64576)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 600 :offset 64636)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 720 :offset 64696)
+    (sp-item 1828 :falloff-to (meters 300) :period 2400 :length 840 :offset 64756)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 480 :offset 64816)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 540 :offset 64846)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 600 :offset 64876)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 660 :offset 64906)
+    (sp-item 1829 :falloff-to (meters 300) :period 2400 :length 720 :offset 64936)
+    (sp-item 1830 :falloff-to (meters 300) :period 2400 :length 180 :offset 1200)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 300 :offset 1260)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 360 :offset 1260)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 420 :offset 1260)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 480 :offset 1260)
+    (sp-item 1831 :falloff-to (meters 300) :period 2400 :length 540 :offset 1260)
+    (sp-item 1832 :falloff-to (meters 300) :period 2400 :length 600 :offset 1260)
+    (sp-item 1833 :falloff-to (meters 300) :period 2400 :length 600 :offset 1260)
+    (sp-item 1834 :falloff-to (meters 300) :offset 1200)
+    (sp-item 1835 :falloff-to (meters 300) :offset 1200)
+    (sp-item 1836 :fade-after (meters 100) :falloff-to (meters 100) :period 2400 :length 600 :offset 1260)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1836 :init-specs ((sp-flt spt-num 0.2)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 6144.0)
+                            (sp-flt spt-b 6144.0)
+                            (sp-flt spt-vel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.013333334) 1.0)
+                            (sp-flt spt-accel-y -6.826667)
+                            (sp-int spt-timer 1260)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int-plain-rnd spt-next-time 15 629 1)
+                            (sp-launcher-by-id spt-next-launcher 1837)
+                            (sp-flt spt-conerot-x (degrees 0.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1837 :init-specs ((sp-flt spt-fade-r 40.96)
+                            (sp-flt spt-fade-g 34.133335)
+                            (sp-flt spt-fade-b 30.72)
+                            (sp-flt spt-accel-x 0.0)
+                            (sp-flt spt-accel-y 6.826667)
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int spt-next-time 300)
+                            (sp-launcher-by-id spt-next-launcher 1838)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1838 :init-specs ((sp-flt spt-fade-g 27.306667) (sp-int spt-timer 300)))
+
+;; failed to figure out what this is:
+(defpart 1833 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.6)
+                            (sp-rnd-flt spt-scale-x (meters 4) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-flt spt-a 16.0)
+                            (sp-flt spt-vel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0025))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y -6.826667)
+                            (sp-int spt-timer 1260)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 15 629 1)
+                            (sp-launcher-by-id spt-next-launcher 1839)
+                            (sp-flt spt-conerot-x (degrees 0.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1839 :init-specs ((sp-rnd-flt spt-a 16.0 8.0 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.013333334))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.42666668)
+                            (sp-flt spt-fade-g 0.64)
+                            (sp-flt spt-fade-b 0.85)
+                            (sp-flt spt-fade-a -0.04)
+                            (sp-flt spt-accel-x 4.096)
+                            (sp-flt spt-accel-y 0.0)
+                            (sp-flt spt-accel-z 0.0)
+                            (sp-flt spt-friction 0.9)
+                            (sp-int-plain-rnd spt-next-time 240 59 1)
+                            (sp-launcher-by-id spt-next-launcher 1840)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1840 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-b 0.0)))
+
+;; failed to figure out what this is:
+(defpart 1834 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 2.0)
+                            (sp-rnd-flt spt-x (meters 3.5) (meters 0.75) 1.0)
+                            (sp-flt spt-y (meters -7))
+                            (sp-rnd-flt spt-z (meters -1.5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.04444444))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -2.8444443)
+                            (sp-flt spt-accel-x 0.13653333)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-int-flt spt-rotate-y (degrees 30.0) 3 16384.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1835 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.8)
+                            (sp-rnd-flt spt-x (meters 3.5) (meters 0.75) 1.0)
+                            (sp-flt spt-y (meters -6.5))
+                            (sp-rnd-flt spt-z (meters -1.5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0016666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.026666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.21333334)
+                            (sp-flt spt-fade-g 0.31833333)
+                            (sp-flt spt-fade-b 0.425)
+                            (sp-flt spt-fade-a -0.053333335)
+                            (sp-flt spt-accel-x 0.13653333)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-int-flt spt-rotate-y (degrees 30.0) 3 16384.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1829 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-x (meters 7) (meters 3) 1.0)
+                            (sp-flt spt-y (meters -7))
+                            (sp-rnd-flt spt-z (meters -1.5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 3) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.10666667) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.06666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -2.8444443)
+                            (sp-flt spt-accel-x 0.13653333)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 36.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1828 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.09)
+                            (sp-rnd-flt spt-x (meters 7) (meters 3) 1.0)
+                            (sp-flt spt-y (meters -6.5))
+                            (sp-rnd-flt spt-z (meters -1.5) (meters 3) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0016666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.026666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.21166667)
+                            (sp-flt spt-fade-g 0.31833333)
+                            (sp-flt spt-fade-b 0.425)
+                            (sp-flt spt-fade-a -0.053333335)
+                            (sp-flt spt-accel-x 0.13653333)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 36.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1827 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-x (meters 5) (meters 2) 1.0)
+                            (sp-flt spt-y (meters -7))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 1) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.04444444))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a -2.8444443)
+                            (sp-flt spt-accel-x 0.13653333)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int spt-timer 42)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1826 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters 5) (meters 2) 1.0)
+                            (sp-flt spt-y (meters -6.5))
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.0033333334) (meters 0.0016666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.026666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.21333334)
+                            (sp-flt spt-fade-g 0.31833333)
+                            (sp-flt spt-fade-b 0.425)
+                            (sp-flt spt-fade-a -0.053333335)
+                            (sp-flt spt-accel-x 0.13653333)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1824 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.09)
+                            (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.026666667))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 0.21333334)
+                            (sp-flt spt-fade-g 0.31833333)
+                            (sp-flt spt-fade-b 0.425)
+                            (sp-flt spt-fade-a -0.053333335)
+                            (sp-flt spt-accel-x 1.3653333)
+                            (sp-flt spt-accel-y -0.27306667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1823 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.3)
+                            (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 2) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 16.0 16.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.053333335) (meters 0.026666667) 1.0)
+                            (sp-flt spt-scalevel-x (meters 0.13333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r 1.0666667)
+                            (sp-flt spt-fade-g 1.5916667)
+                            (sp-flt spt-fade-b 2.125)
+                            (sp-flt spt-fade-a -0.26666668)
+                            (sp-int spt-timer 120)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 15.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1825 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+                            (sp-flt spt-num 0.7)
+                            (sp-rnd-flt spt-x (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.25) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 1.5) (meters 0.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 64.0 64.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.026666667))
+                            (sp-rnd-flt spt-vel-y (meters 0.02) (meters 0.04) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0025))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.53333336)
+                            (sp-flt spt-fade-g -0.21333334)
+                            (sp-flt spt-accel-y -6.826667)
+                            (sp-flt spt-friction 0.98)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit0 bit2)
+                            (sp-int-plain-rnd spt-next-time 180 119 1)
+                            (sp-launcher-by-id spt-next-launcher 1841)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 32.0) 1.0)
+                            (sp-rnd-int-flt spt-conerot-y (degrees 45.0) 3 16384.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1832 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-int spt-rot-x 4)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 96.0 55.0 1.0)
+                            (sp-flt spt-g 64.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0025))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.21333334)
+                            (sp-flt spt-fade-g -0.21333334)
+                            (sp-flt spt-accel-y -6.826667)
+                            (sp-int spt-timer 660)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 180 119 1)
+                            (sp-launcher-by-id spt-next-launcher 1841)
+                            (sp-flt spt-conerot-x (degrees 0.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1831 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+                            (sp-flt spt-num 0.4)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0025))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.53333336)
+                            (sp-flt spt-fade-g -0.21333334)
+                            (sp-flt spt-accel-y -6.826667)
+                            (sp-int spt-timer 660)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 180 119 1)
+                            (sp-launcher-by-id spt-next-launcher 1841)
+                            (sp-flt spt-conerot-x (degrees 0.0))
+                            (sp-rnd-flt spt-conerot-y (degrees 9.0) (degrees 18.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1841 :init-specs ((sp-flt spt-fade-r -0.08888889) (sp-flt spt-fade-g 0.0)))
+
+;; failed to figure out what this is:
+(defpart 1830 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xb :page #x2))
+                            (sp-flt spt-num 6.0)
+                            (sp-rnd-flt spt-x (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-z (meters -0.5) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2) (meters 0.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 200.0 55.0 1.0)
+                            (sp-rnd-flt spt-g 64.0 32.0 1.0)
+                            (sp-flt spt-b 0.0)
+                            (sp-rnd-flt spt-a 96.0 32.0 1.0)
+                            (sp-flt spt-vel-x (meters 0.013333334))
+                            (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.013333334) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0025))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.6) (degrees 1.2) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-r -0.53333336)
+                            (sp-flt spt-fade-g -0.21333334)
+                            (sp-flt spt-accel-y -6.826667)
+                            (sp-int spt-timer 660)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 180 119 1)
+                            (sp-launcher-by-id spt-next-launcher 1841)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 3.0000002) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 36.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-steam-puff-31
+  :id 491
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1842 :fade-after (meters 100) :falloff-to (meters 100) :period 900 :length 126)
+    (sp-item 1843 :fade-after (meters 100) :falloff-to (meters 100) :period 1260 :length 167)
+    (sp-item 1844 :fade-after (meters 100) :falloff-to (meters 100) :period 690 :length 150)
+    (sp-item 1845 :fade-after (meters 100) :falloff-to (meters 100) :period 1920 :length 80)
+    (sp-item 1846 :fade-after (meters 100) :falloff-to (meters 100) :period 1710 :length 103)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-steam-puff-22
+  :id 492
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1842 :fade-after (meters 100) :falloff-to (meters 100) :period 1230 :length 156)
+    (sp-item 1843 :fade-after (meters 100) :falloff-to (meters 100) :period 2310 :length 107)
+    (sp-item 1844 :fade-after (meters 100) :falloff-to (meters 100) :period 960 :length 120)
+    (sp-item 1845 :fade-after (meters 100) :falloff-to (meters 100) :period 1350 :length 170)
+    (sp-item 1846 :fade-after (meters 100) :falloff-to (meters 100) :period 1530 :length 193)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-steam-puff-23
+  :id 493
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1842 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 126)
+    (sp-item 1843 :fade-after (meters 100) :falloff-to (meters 100) :period 1560 :length 107)
+    (sp-item 1844 :fade-after (meters 100) :falloff-to (meters 100) :period 1830 :length 120)
+    (sp-item 1845 :fade-after (meters 100) :falloff-to (meters 100) :period 690 :length 110)
+    (sp-item 1846 :fade-after (meters 100) :falloff-to (meters 100) :period 1050 :length 163)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1842
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.5)
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
+      )
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.53333336)
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-flt spt-friction 0.93)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-conerot-x (degrees 90.0))
+    (sp-flt spt-conerot-y (degrees 0.0))
+    (sp-flt spt-conerot-radius (meters 0.4))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1843
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.5)
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
+      )
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.53333336)
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-flt spt-friction 0.93)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-conerot-x (degrees 110.0))
+    (sp-flt spt-conerot-y (degrees 32.0))
+    (sp-flt spt-conerot-radius (meters 0.4))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1844
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.5)
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
+      )
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.53333336)
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-flt spt-friction 0.93)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-conerot-x (degrees 75.0))
+    (sp-flt spt-conerot-y (degrees 120.0))
+    (sp-flt spt-conerot-radius (meters 0.4))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1845
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.5)
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
+      )
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.53333336)
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-flt spt-friction 0.93)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-conerot-x (degrees 80.0))
+    (sp-flt spt-conerot-y (degrees 200.00002))
+    (sp-flt spt-conerot-radius (meters 0.4))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1846
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.5)
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
+      )
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.53333336)
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-flt spt-friction 0.93)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-conerot-x (degrees 67.0))
+    (sp-flt spt-conerot-y (degrees 280.0))
+    (sp-flt spt-conerot-radius (meters 0.4))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-bottom-puff-25
+  :id 494
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 900 :length 126)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1260 :length 167)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 669 :length 150)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1920 :length 80)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1710 :length 103)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-bottom-puff-27
+  :id 495
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1200 :length 126)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1080 :length 167)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1569 :length 150)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 990 :length 80)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1410 :length 103)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-bottom-puff-28
+  :id 496
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1500 :length 126)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1470 :length 167)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1029 :length 150)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 720 :length 80)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1260 :length 103)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-bottom-puff-29
+  :id 497
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1500 :length 126)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 2010 :length 167)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 999 :length 150)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 720 :length 80)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1230 :length 103)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-bottom-puff-30
+  :id 498
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1500 :length 126)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 960 :length 167)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1869 :length 150)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1050 :length 80)
+    (sp-item 1847 :fade-after (meters 100) :falloff-to (meters 100) :period 1380 :length 103)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1847
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.5)
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
+      )
+    (sp-flt spt-y (meters 0.7))
+    (sp-flt spt-scale-x (meters 0.4))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.08) (meters 0.053333335) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.53333336)
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-flt spt-friction 0.8)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2)
+    (sp-flt spt-conerot-x (degrees 120.0))
+    (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-flt spt-conerot-radius (meters 1))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-lava-lava-20x20
+  :id 499
+  :bounds (static-bspherem 0 0 0 14)
+  :parts
+  ((sp-item 1850 :fade-after (meters 40) :falloff-to (meters 40))
+    (sp-item 1851 :fade-after (meters 100) :falloff-to (meters 100))
+    (sp-item 1852 :fade-after (meters 80) :falloff-to (meters 80) :binding 1848)
+    (sp-item 1848 :flags (start-dead))
+    (sp-item 1848 :flags (start-dead))
+    (sp-item 1848 :flags (start-dead))
+    (sp-item 1848 :flags (start-dead))
+    (sp-item 1848 :flags (start-dead))
+    (sp-item 1848 :flags (start-dead))
+    (sp-item 1848 :flags (start-dead))
+    (sp-item 1848 :flags (start-dead))
+    (sp-item 1853 :fade-after (meters 40) :falloff-to (meters 40) :period 137 :length 5 :binding 1849)
+    (sp-item 1853 :fade-after (meters 60) :falloff-to (meters 60) :period 234 :length 5 :binding 1849)
+    (sp-item 1853 :fade-after (meters 80) :falloff-to (meters 80) :period 92 :length 5 :binding 1849)
+    (sp-item 1849 :flags (start-dead))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1851 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-flt spt-num 0.2)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 6) (meters 4) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-flt spt-g 192.0)
+                            (sp-flt spt-b 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-y (meters 0.01))
+                            (sp-flt spt-scalevel-x (meters 0.0033333334))
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.2) (degrees 0.4) 1.0)
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-fade-a 0.64)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2)
+                            (sp-int-plain-rnd spt-next-time 37 36 1)
+                            (sp-launcher-by-id spt-next-launcher 1855)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1853 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.5)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 2.5) (meters 1.5) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 255.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-rotvel-z (degrees -0.8) (degrees 6.8) 1.0)
+                            (sp-flt spt-fade-a -12.0)
+                            (sp-int spt-timer 20)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1852 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 0.02 0.02 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0))
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-flt spt-a 255.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.04) (meters 0.02) 1.0)
+                            (sp-flt spt-fade-g -0.30476192)
+                            (sp-flt spt-accel-y -10.922667)
+                            (sp-int spt-timer 180)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 30.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1850 :init-specs ((sp-flt spt-num 1.0)
+                            (sp-rnd-flt spt-x (meters -10) (meters 20) 1.0)
+                            (sp-flt spt-y (meters 0.5))
+                            (sp-rnd-flt spt-z (meters -10) (meters 20) 1.0)
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 8192.0)
+                            (sp-flt spt-g 5324.8)
+                            (sp-flt spt-b 5324.8)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.006666667) 1.0)
+                            (sp-flt spt-fade-r 40.96)
+                            (sp-flt spt-fade-g 27.306667)
+                            (sp-flt spt-fade-b 38.229332)
+                            (sp-int spt-timer 150)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-int spt-next-time 75)
+                            (sp-launcher-by-id spt-next-launcher 1856)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1856 :init-specs ((sp-flt spt-fade-b 16.384)))
+
+;; failed to figure out what this is:
+(defpart 1855
+  :init-specs
+  ((sp-flt spt-fade-a 0.0) (sp-int spt-next-time 75) (sp-launcher-by-id spt-next-launcher 1857))
+  )
+
+;; failed to figure out what this is:
+(defpart 1857 :init-specs ((sp-flt spt-fade-r -0.85333335)
+                            (sp-flt spt-fade-g -0.42666668)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1858)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1858 :init-specs ((sp-flt spt-fade-r 0.0) (sp-flt spt-fade-g 0.0) (sp-flt spt-fade-a -0.10666667)))
+
+;; failed to figure out what this is:
+(defpart 1848 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.7)
+                            (sp-rnd-flt spt-scale-x (meters 0.75) (meters 0.25) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0029166667))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y -1.3653333)
+                            (sp-int-plain-rnd spt-timer 30 179 1)
+                            (sp-cpuinfo-flags bit0 bit3)
+                            (sp-flt spt-rotate-y (degrees 45.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1849 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 1.0 6.0 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.5) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 256.0)
+                            (sp-rnd-flt spt-g 0.0 128.0 1.0)
+                            (sp-rnd-flt spt-a 128.0 128.0 1.0)
+                            (sp-rnd-flt spt-vel-y (meters 0.006666667) (meters 0.02) 1.0)
+                            (sp-flt spt-scalevel-x (meters -0.0023333333))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y -2.7306666)
+                            (sp-int spt-timer 360)
+                            (sp-cpuinfo-flags bit0 bit3)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 60.0) 1.0)
+                            (sp-rnd-flt spt-conerot-y (degrees 0.0) (degrees 360.0) 1.0)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-sagehut-warpgate
+  :id 500
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1861 :fade-after (meters 60) :falloff-to (meters 60))
+    (sp-item 1862 :fade-after (meters 60) :falloff-to (meters 100) :binding 1859)
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1859 :flags (bit1 start-dead launch-asap))
+    (sp-item 1863 :fade-after (meters 60) :falloff-to (meters 100) :binding 1860)
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    (sp-item 1860 :flags (bit1 start-dead launch-asap))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1863 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-flt spt-num 0.25)
+                            (sp-flt spt-x (meters -2))
+                            (sp-flt spt-scale-x (meters 0.25))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-flt spt-vel-x (meters 0.0033333334))
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -25.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1860 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x4 :page #x2))
+                            (sp-rnd-flt spt-num 1.0 0.2 1.0)
+                            (sp-flt spt-x (meters 3.1111112))
+                            (sp-flt spt-y (meters 4))
+                            (sp-rnd-flt spt-z (meters 5.4) (meters 1) 1.0)
+                            (sp-rnd-flt spt-scale-x (meters 0.2) (meters 0.1) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 196.0 1.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters 0))
+                            (sp-flt spt-vel-z (meters 0))
+                            (sp-flt spt-fade-a 0.16)
+                            (sp-flt spt-accel-x 1.2136296)
+                            (sp-flt spt-accel-z -0.75093335)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1861 :init-specs ((sp-rnd-flt spt-num 5.0 5.0 1.0)
+                            (sp-flt spt-x (meters -0.5))
+                            (sp-int spt-rot-x 5)
+                            (sp-flt spt-r 4096.0)
+                            (sp-flt spt-g 3481.6)
+                            (sp-flt spt-b 3481.6)
+                            (sp-rnd-flt spt-vel-y (meters -0.026666667) (meters -0.02) 1.0)
+                            (sp-flt spt-fade-b 5.936232)
+                            (sp-int spt-timer 69)
+                            (sp-cpuinfo-flags aux-list)
+                            (sp-rnd-flt spt-conerot-x (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-rnd-flt spt-conerot-radius (meters 4) (meters 3) 1.0)
+                            (sp-flt spt-rotate-y (degrees -25.000002))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1862 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #xf :page #x2))
+                            (sp-rnd-flt spt-num 0.4 1.0 1.0)
+                            (sp-flt spt-scale-x (meters 0.25))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-g 128.0)
+                            (sp-flt spt-a 0.0)
+                            (sp-int spt-timer 690)
+                            (sp-cpuinfo-flags bit3)
+                            (sp-flt spt-rotate-y (degrees -35.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1859 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 0.4 1.0)
+                            (sp-flt spt-x (meters 3.1111112))
+                            (sp-flt spt-y (meters 4))
+                            (sp-flt spt-z (meters 2.4))
+                            (sp-rnd-flt spt-scale-x (meters 1.1) (meters 0.6) 1.0)
+                            (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-rnd-flt spt-r 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-g 0.0 32.0 1.0)
+                            (sp-rnd-flt spt-b 64.0 64.0 1.0)
+                            (sp-rnd-flt spt-a 8.0 32.0 1.0)
+                            (sp-rnd-flt spt-omega 0.0 65536.0 1.0)
+                            (sp-flt spt-vel-x (meters -0.0044444446))
+                            (sp-flt spt-vel-z (meters -0.0034999999))
+                            (sp-rnd-flt spt-rotvel-z (degrees 0.0) (degrees 1.2) 1.0)
+                            (sp-flt spt-fade-a 0.10666667)
+                            (sp-flt spt-accel-x 4.247704)
+                            (sp-int spt-timer 690)
+                            (sp-cpuinfo-flags bit2 bit3 bit7)
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-sagehut-boiling
+  :id 501
+  :bounds (static-bspherem 0 0 0 6)
+  :parts
+  ((sp-item 1864 :fade-after (meters 60) :flags (is-3d)) (sp-item 1865 :fade-after (meters 60) :flags (is-3d)))
+  )
+
+;; failed to figure out what this is:
+(defpart 1864 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+                            (sp-rnd-flt spt-num 1.0 0.5 1.0)
+                            (sp-rnd-flt spt-x (meters -0.4) (meters 0.8) 1.0)
+                            (sp-flt spt-y (meters -2))
+                            (sp-flt spt-z (meters -0.3))
+                            (sp-rnd-flt spt-scale-x (meters 0.5) (meters 0.2) 1.0)
+                            (sp-flt spt-rot-x 16384.0)
+                            (sp-flt spt-rot-y (degrees -50.000004))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 64.0 64.0 1.0)
+                            (sp-rnd-int spt-b 0 1 32.0)
+                            (sp-rnd-flt spt-a 32.0 64.0 1.0)
+                            (sp-rnd-flt spt-vel-x (meters -0.0016666667) (meters 0.0033333334) 1.0)
+                            (sp-flt spt-vel-y (meters 0.006666667))
+                            (sp-flt spt-scalevel-x (meters 0.0013333333))
+                            (sp-copy-from-other spt-scalevel-y -4)
+                            (sp-flt spt-accel-y -0.06826667)
+                            (sp-int spt-timer 600)
+                            (sp-cpuinfo-flags bit2 bit3 left-multiply-quat)
+                            (sp-int spt-next-time 150)
+                            (sp-launcher-by-id spt-next-launcher 1866)
+                            (sp-flt spt-rotate-y (degrees 132.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpart 1866 :init-specs ((sp-flt spt-fade-a -0.2)))
+
+;; failed to figure out what this is:
+(defpart 1865 :init-specs ((sp-tex spt-texture (new 'static 'texture-id :index #x12 :page #x2))
+                            (sp-flt spt-num 1.0)
+                            (sp-flt spt-y (meters -0.5))
+                            (sp-flt spt-z (meters -0.26))
+                            (sp-flt spt-scale-x (meters 12))
+                            (sp-flt spt-rot-x 15018.667)
+                            (sp-flt spt-rot-y (degrees -50.000004))
+                            (sp-copy-from-other spt-scale-y -4)
+                            (sp-flt spt-r 128.0)
+                            (sp-rnd-flt spt-g 8.0 120.0 1.0)
+                            (sp-flt spt-a 24.0)
+                            (sp-flt spt-fade-a -1.2)
+                            (sp-int spt-timer 15)
+                            (sp-cpuinfo-flags bit2 bit3)
+                            (sp-flt spt-rotate-y (degrees 0.0))
+                            )
+              )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-sagehut-steam
+  :id 502
+  :bounds (static-bspherem 0 0 0 4)
+  :parts
+  ((sp-item 1867 :fade-after (meters 60) :falloff-to (meters 60) :period 1200 :length 126)
+    (sp-item 1867 :fade-after (meters 60) :falloff-to (meters 60) :period 1560 :length 107)
+    (sp-item 1867 :fade-after (meters 60) :falloff-to (meters 60) :period 1830 :length 120)
+    (sp-item 1867 :fade-after (meters 60) :falloff-to (meters 60) :period 690 :length 110)
+    (sp-item 1867 :fade-after (meters 60) :falloff-to (meters 60) :period 1050 :length 163)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1867
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-flt spt-num 1.0)
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
+      )
+    (sp-flt spt-scale-x (meters 0.3))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-rnd-flt spt-vel-y (meters 0.1) (meters 0.026666667) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.013333334) (meters 0.006666667) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.53333336)
+    (sp-flt spt-accel-y 1.3653333)
+    (sp-flt spt-friction 0.85)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-conerot-x (degrees 77.0) (degrees 6.0000005) 1.0)
+    (sp-rnd-flt spt-conerot-y (degrees 217.0) (degrees 6.0000005) 1.0)
+    (sp-flt spt-conerot-radius (meters -0.3))
+    )
+  )
+
+;; failed to figure out what this is:
+(defpartgroup group-village3-sagehut-understeam
+  :id 503
+  :bounds (static-bspherem 0 -3 0 8)
+  :parts
+  ((sp-item 1868 :fade-after (meters 200) :falloff-to (meters 200) :period 1200 :length 126)
+    (sp-item 1868 :fade-after (meters 200) :falloff-to (meters 200) :period 1560 :length 107)
+    (sp-item 1868 :fade-after (meters 200) :falloff-to (meters 200) :period 1830 :length 120)
+    (sp-item 1868 :fade-after (meters 200) :falloff-to (meters 200) :period 690 :length 110)
+    (sp-item 1868 :fade-after (meters 200) :falloff-to (meters 200) :period 1050 :length 163)
+    )
+  )
+
+;; failed to figure out what this is:
+(defpart 1868
+  :init-specs
+  ((sp-tex spt-texture (new 'static 'texture-id :page #x2))
+    (sp-rnd-flt spt-num 4.0 4.0 1.0)
+    (sp-sound
+      (new 'static 'sound-spec :num 0.02 :group #x1 :sound-name (static-sound-name "steam-short") :volume #x400)
+      )
+    (sp-flt spt-x (meters 1.5))
+    (sp-flt spt-y (meters 0.6))
+    (sp-flt spt-scale-x (meters 1))
+    (sp-rnd-flt spt-rot-z (degrees 0.0) (degrees 360.0) 1.0)
+    (sp-copy-from-other spt-scale-y -4)
+    (sp-flt spt-r 255.0)
+    (sp-flt spt-g 255.0)
+    (sp-flt spt-b 255.0)
+    (sp-rnd-flt spt-a 32.0 64.0 1.0)
+    (sp-flt spt-vel-x (meters 0.13333334))
+    (sp-rnd-flt spt-vel-y (meters -0.1) (meters -0.026666667) 1.0)
+    (sp-rnd-flt spt-scalevel-x (meters 0.02) (meters 0.013333334) 1.0)
+    (sp-rnd-flt spt-rotvel-z (degrees -1.2) (degrees 2.4) 1.0)
+    (sp-copy-from-other spt-scalevel-y -4)
+    (sp-flt spt-fade-a -0.53333336)
+    (sp-flt spt-accel-y 13.653334)
+    (sp-flt spt-friction 0.9)
+    (sp-int spt-timer 180)
+    (sp-cpuinfo-flags bit2)
+    (sp-rnd-flt spt-rotate-y (degrees 0.0) (degrees 360.0) 1.0)
+    )
+  )